mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(eval-expression-print-format): Don't print additional

Browse source 
information on the first call to `eval-print-last-sexp'.
(next-error-find-buffer): Fix punctuation.
(killing) <defgroup>: Fix punctuation.
(yank-excluded-properties): Change group from editing to killing.
This commit is contained in:
Juri Linkov 2004-06-10 04:20:02 +00:00
parent 95e4aa8ef2
commit c9f0110e21
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/simple.el
View file

@ -37,7 +37,7 @@
(defgroup killing nil
"Killing and yanking commands"
"Killing and yanking commands."
:group 'editing)
(defgroup paren-matching nil
@ -133,7 +133,7 @@ to navigate in it.")
(if other-buffer
(message "This is the only next-error capable buffer."))
(current-buffer)))
(error "No next-error capable buffer found!"))))))))
(error "No next-error capable buffer found"))))))))
(defun next-error (arg &optional reset)
"Visit next next-error message and corresponding source code.
@ -791,12 +791,12 @@ Return a formatted string which is displayed in the echo area
in addition to the value printed by prin1 in functions which
display the result of expression evaluation."
(if (and (integerp value)
(or (not (eq this-command 'eval-last-sexp))
(or (not (memq this-command '(eval-last-sexp eval-print-last-sexp)))
(eq this-command last-command)
(and (boundp 'edebug-active) edebug-active)))
(let ((char-string
(if (or (and (boundp 'edebug-active) edebug-active)
(eq this-command 'eval-last-sexp))
(memq this-command '(eval-last-sexp eval-print-last-sexp)))
(prin1-char value))))
(if char-string
(format " (0%o, 0x%x) = %s" value value char-string)
@ -2220,7 +2220,7 @@ The argument is used for internal purposes; do not supply one."
The value should be a list of text properties to discard or t,
which means to discard all text properties."
:type '(choice (const :tag "All" t) (repeat symbol))
:group 'editing
:group 'killing
:version "21.4")
(defvar yank-window-start nil)