From c9f0110e2127488ab9bef2b6a7b82a51b5824c84 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Thu, 10 Jun 2004 04:20:02 +0000 Subject: [PATCH] (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) : Fix punctuation. (yank-excluded-properties): Change group from editing to killing. --- lisp/simple.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/simple.el b/lisp/simple.el index 8f6c9502b42..2f056e9d462 100644 --- 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) -- 2.39.5