[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el,v

[Vinicius Jose Latorre]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Vinicius Jose Latorre <viniciusjl>      07/08/20 15:53:10

Index: emacs-lisp/lisp-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/lisp-mode.el,v
retrieving revision 1.206
retrieving revision 1.207
diff -u -b -r1.206 -r1.207
--- emacs-lisp/lisp-mode.el     30 Jul 2007 20:08:21 -0000      1.206
+++ emacs-lisp/lisp-mode.el     20 Aug 2007 15:53:09 -0000      1.207
@@ -539,13 +539,9 @@
              string))))
 
 
-(defun eval-last-sexp-1 (eval-last-sexp-arg-internal)
-  "Evaluate sexp before point; print value in minibuffer.
-With argument, print output into current buffer."
-  (let ((standard-output (if eval-last-sexp-arg-internal (current-buffer) t)))
-    (let ((value
-          (eval (let ((stab (syntax-table))
-                      (opoint (point))
+(defun preceding-sexp ()
+  "Return sexp before the point."
+  (let ((opoint (point))
                       ignore-quotes
                       expr)
                   (save-excursion
@@ -593,8 +589,15 @@
                                                      '(&rest args)
                                                      expr
                                                      'args)))))
-                        expr)))))))
-      (eval-last-sexp-print-value value))))
+         expr)))))
+
+
+(defun eval-last-sexp-1 (eval-last-sexp-arg-internal)
+  "Evaluate sexp before point; print value in minibuffer.
+With argument, print output into current buffer."
+  (let ((standard-output (if eval-last-sexp-arg-internal (current-buffer) t)))
+    (eval-last-sexp-print-value (eval (preceding-sexp)))))
+
 
 (defun eval-last-sexp-print-value (value)
   (let ((unabbreviated (let ((print-length nil) (print-level nil))