mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

Delete periods from error messages.

Browse Source 
(edebug-functionp): Recognize compiled functions.
(edebug-display): Supply missing parens in let.
This commit is contained in:
Richard M. Stallman 1993-11-23 08:43:48 +00:00
parent d4ce6b1875
commit 4897b0a059
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lisp/emacs-lisp/edebug.el
View File

@ -265,7 +265,7 @@ edebug-print-trace-exit.")
(beginning-of-defun)
(down-list 1)
(if (not (memq (read (current-buffer)) '(defun defmacro)))
(error "Not in defun or defmacro."))
(error "Not in defun or defmacro"))
(read (current-buffer))))
(defun edebug-last-sexp ()
@ -1323,8 +1323,8 @@ This is to avoid spurious recentering.")
;; any others??
)
(if (not (buffer-name edebug-buffer))
(let (debug-on-error nil)
(error "Buffer defining %s not found." edebug-func)))
(let ((debug-on-error nil))
(error "Buffer defining %s not found" edebug-func)))
;; Save windows now before we modify them.
(if edebug-save-windows
@ -1660,7 +1660,7 @@ become the same as the current configuration."
"Show the debug windows and where we stopped in the program."
(interactive)
(if (not edebug-active)
(error "edebug is not active."))
(error "edebug is not active"))
(edebug-pop-to-buffer edebug-buffer)
(goto-char edebug-point) ; from edebug
)
@ -1669,7 +1669,7 @@ become the same as the current configuration."
"Change to the outside window configuration."
(interactive)
(if (not edebug-active)
(error "edebug is not active."))
(error "edebug is not active"))
(setq edebug-inside-windows (edebug-current-window-configuration))
(edebug-set-window-configuration edebug-outside-windows)
(goto-char edebug-outside-point)
@ -1681,7 +1681,7 @@ become the same as the current configuration."
"Bounce the point in the outside current buffer."
(interactive)
(if (not edebug-active)
(error "edebug is not active."))
(error "edebug is not active"))
(save-excursion
;; If the buffer's currently displayed, avoid the set-window-configuration.
(save-window-excursion
@ -1807,7 +1807,7 @@ Set the current screen to be the head of SC."
(edebug-data
(or (get def-name 'edebug)
(error
"%s must first be evaluated with edebug-defun." def-name)))
"%s must first be evaluated with edebug-defun" def-name)))
;; pull out parts of edebug-data.
(edebug-func-mark (car edebug-data))
(edebug-breakpoints (car (cdr edebug-data)))
@ -2036,7 +2036,7 @@ too late. One side effect of using edebug-step-in is that the next
time the function is called, edebug will be called there as well."
(interactive)
(if (not (eq 'enter edebug-arg-mode))
(error "You must be in front of a function or macro call."))
(error "You must be in front of a function or macro call"))
(let* ((func (car edebug-exp))
(func-marker (get func 'edebug)))
(cond
@ -2048,7 +2048,7 @@ time the function is called, edebug will be called there as well."
((listp func-marker)
;; its already been evaluated for edebug
nil)
(t (error "You must first evaluate %s in a buffer." func))))
(t (error "You must first evaluate %s in a buffer" func))))
(exit-recursive-edit))
@ -2106,7 +2106,7 @@ edebug-mode."
(put this-function 'edebug-initial-mode mode)
(message "Initial mode for %s is now: %s"
this-function mode))
(error "Key must map to one of the mode changing commands.")
(error "Key must map to one of the mode changing commands")
)))
@ -2128,7 +2128,7 @@ edebug-mode."
(defun edebug-eval (expr)
"Evaluate EXPR in the outside environment."
(if (not edebug-active)
(error "edebug is not active."))
(error "edebug is not active"))
(edebug-outside-excursion
(eval expr)))