# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1086841202 0
# Node ID 54d79ab53dd35a282b1ade43f9087e2400d5d037
# Parent  397f87132b7081beecf7f94e0a5abf0ff591acc4
(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 -r 397f87132b70 -r 54d79ab53dd3 lisp/simple.el
--- a/lisp/simple.el	Thu Jun 10 04:18:04 2004 +0000
+++ b/lisp/simple.el	Thu Jun 10 04:20:02 2004 +0000
@@ -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 @@
                       (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 @@
 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 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)