changeset 56005:54d79ab53dd3

(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.
author Juri Linkov <juri@jurta.org>
date Thu, 10 Jun 2004 04:20:02 +0000
parents 397f87132b70
children 21eb4b5cef9a
files lisp/simple.el
diffstat 1 files changed, 5 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- 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)