[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el, v [EMACS_22
From: |
Vinicius Jose Latorre |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el, v [EMACS_22_BASE] |
Date: |
Mon, 20 Aug 2007 15:52:48 +0000 |
CVSROOT: /sources/emacs
Module name: emacs
Branch: EMACS_22_BASE
Changes by: Vinicius Jose Latorre <viniciusjl> 07/08/20 15:52:47
Index: emacs-lisp/lisp-mode.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/lisp-mode.el,v
retrieving revision 1.201.2.4
retrieving revision 1.201.2.5
diff -u -b -r1.201.2.4 -r1.201.2.5
--- emacs-lisp/lisp-mode.el 25 Jul 2007 04:09:44 -0000 1.201.2.4
+++ emacs-lisp/lisp-mode.el 20 Aug 2007 15:52:47 -0000 1.201.2.5
@@ -537,13 +537,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
@@ -591,8 +587,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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp-mode.el, v [EMACS_22_BASE],
Vinicius Jose Latorre <=