Mercurial > emacs

changeset 60007:bfdc24654127

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(eval-expression-print-format): Avoid warning about edebug-active.
author Richard M. Stallman <rms@gnu.org>
date Thu, 10 Feb 2005 06:47:58 +0000
parents dfc2b4718048
children a4cde3df094b
files lisp/simple.el
diffstat 1 files changed, 3 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/simple.el	Thu Feb 10 06:46:42 2005 +0000
+++ b/lisp/simple.el	Thu Feb 10 06:47:58 2005 +0000
@@ -902,7 +902,7 @@
                (eq this-command last-command)
                (if (boundp 'edebug-active) edebug-active)))
       (let ((char-string
-             (if (or (and (boundp 'edebug-active) edebug-active)
+             (if (or (if (boundp 'edebug-active) edebug-active)
                      (memq this-command '(eval-last-sexp eval-print-last-sexp)))
                  (prin1-char value))))
         (if char-string
@@ -4674,7 +4674,8 @@
 			       (point-min)
 			       'mouse-face))
 	       (element-common-end
-		(+ (or element-start nil) common-string-length))
+		(and element-start
+		     (+ (or element-start nil) common-string-length)))
 	       (maxp (point-max)))
 	  (while (and element-start (< element-common-end maxp))
 	    (when (and (get-char-property element-start 'mouse-face)