(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.

diff --git a/lisp/simple.el b/lisp/simple.el
index 8f6c9502b42a63ed1fdec1decfffaa26df40459f..2f056e9d462e4ec04b6c082c3b45e1946cb2316f 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -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)