diff lisp/emacs-lisp/lisp-mode.el @ 49598:0d8b17d428b5

Trailing whitepace deleted.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 04 Feb 2003 13:24:35 +0000
parents 4dd5da1ea3dc
children 745c2428aae8 d7ddb3e565de
line wrap: on
line diff
--- a/lisp/emacs-lisp/lisp-mode.el	Tue Feb 04 12:29:42 2003 +0000
+++ b/lisp/emacs-lisp/lisp-mode.el	Tue Feb 04 13:24:35 2003 +0000
@@ -403,16 +403,16 @@
 (defun last-sexp-setup-props (beg end value alt1 alt2)
   "Set up text properties for the output of `eval-last-sexp-1'.
 BEG and END are the start and end of the output in current-buffer.
-VALUE is the Lisp value printed, ALT1 and ALT2 are strings for the 
+VALUE is the Lisp value printed, ALT1 and ALT2 are strings for the
 alternative printed representations that can be displayed."
   (let ((map (make-sparse-keymap)))
     (define-key map "\C-m" 'last-sexp-toggle-display)
     (define-key map [down-mouse-2] 'mouse-set-point)
     (define-key map [mouse-2] 'last-sexp-toggle-display)
     (add-text-properties
-     beg end 
+     beg end
      `(printed-value (,value ,alt1 ,alt2)
-		     mouse-face highlight 
+		     mouse-face highlight
 		     keymap ,map
 		     help-echo "RET, mouse-2: toggle abbreviated display"
 		     rear-nonsticky (mouse-face keymap help-echo
@@ -430,7 +430,7 @@
 	    (point (point)))
 	(delete-region beg end)
 	(insert (nth 1 value))
-	(last-sexp-setup-props beg (point) 
+	(last-sexp-setup-props beg (point)
 			       (nth 0 value)
 			       (nth 2 value)
 			       (nth 1 value))
@@ -508,7 +508,7 @@
 			 (not (null print-level)))
 		     (not (string= unabbreviated
 				   (buffer-substring-no-properties beg end))))
-	    (last-sexp-setup-props beg end value 
+	    (last-sexp-setup-props beg end value
 				   unabbreviated
 				   (buffer-substring-no-properties beg end))
 	    ))))))