Commit c9f0110e authored by Juri Linkov's avatar Juri Linkov
Browse files

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

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.
parent 95e4aa8e
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment