[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r111795: * lisp/simple.el (eval-expre
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r111795: * lisp/simple.el (eval-expression): Let `exp' set the mark. |
Date: |
Fri, 15 Feb 2013 18:47:50 -0500 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 111795
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=13724
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2013-02-15 18:47:50 -0500
message:
* lisp/simple.el (eval-expression): Let `exp' set the mark.
modified:
lisp/ChangeLog
lisp/simple.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-02-15 20:01:51 +0000
+++ b/lisp/ChangeLog 2013-02-15 23:47:50 +0000
@@ -1,11 +1,15 @@
+2013-02-15 Stefan Monnier <address@hidden>
+
+ * simple.el (eval-expression): Let `exp' set the mark (bug#13724).
+
2013-02-15 Alan Mackenzie <address@hidden>
* emacs-lisp/easy-mmode.el (define-globalized-minor-mode): When a
global minor mode has been enabled, call the minor mode function
for a new buffer once only, after the major mode hook, whilst
allowing that hook explicitly to disable the minor mode.
- (MODE-disable-in-buffer): new (generated) function.
- (disable-MODE): new (generated) buffer local variable.
+ (MODE-disable-in-buffer): New (generated) function.
+ (disable-MODE): New (generated) buffer local variable.
2013-02-15 Jambunathan K <address@hidden>
@@ -52,8 +56,8 @@
2013-02-14 Michael Albinus <address@hidden>
- * net/tramp.el (tramp-debug-message): Add
- `tramp-condition-case-unless-debug'.
+ * net/tramp.el (tramp-debug-message):
+ Add `tramp-condition-case-unless-debug'.
(tramp-debug-on-error): New defvar.
(tramp-condition-case-unless-debug): New defun.
(tramp-file-name-handler): Use it.
@@ -207,8 +211,8 @@
* net/tramp-compat.el (top): Declare `remote-file-name-inhibit-cache'
only if it doesn't exist.
- * net/tramp-sh.el (tramp-sh-handle-start-file-process): Set
- process marker.
+ * net/tramp-sh.el (tramp-sh-handle-start-file-process):
+ Set process marker.
2013-02-12 Tassilo Horn <address@hidden>
=== modified file 'lisp/simple.el'
--- a/lisp/simple.el 2013-02-12 04:46:18 +0000
+++ b/lisp/simple.el 2013-02-15 23:47:50 +0000
@@ -1293,13 +1293,12 @@
;; We define this, rather than making `eval' interactive,
;; for the sake of completion of names like eval-region, eval-buffer.
-(defun eval-expression (eval-expression-arg
- &optional eval-expression-insert-value)
- "Evaluate EVAL-EXPRESSION-ARG and print value in the echo area.
+(defun eval-expression (exp &optional insert-value)
+ "Evaluate EXP and print value in the echo area.
When called interactively, read an Emacs Lisp expression and
evaluate it.
Value is also consed on to front of the variable `values'.
-Optional argument EVAL-EXPRESSION-INSERT-VALUE non-nil (interactively,
+Optional argument INSERT-VALUE non-nil (interactively,
with prefix argument) means insert the result into the current buffer
instead of printing it in the echo area. Truncates long output
according to the value of the variables `eval-expression-print-length'
@@ -1315,12 +1314,12 @@
current-prefix-arg))
(if (null eval-expression-debug-on-error)
- (push (eval eval-expression-arg lexical-binding) values)
+ (push (eval exp lexical-binding) values)
(let ((old-value (make-symbol "t")) new-value)
;; Bind debug-on-error to something unique so that we can
;; detect when evalled code changes it.
(let ((debug-on-error old-value))
- (push (eval eval-expression-arg lexical-binding) values)
+ (push (eval exp lexical-binding) values)
(setq new-value debug-on-error))
;; If evalled code has changed the value of debug-on-error,
;; propagate that change to the global binding.
@@ -1328,8 +1327,9 @@
(setq debug-on-error new-value))))
(let ((print-length eval-expression-print-length)
- (print-level eval-expression-print-level))
- (if eval-expression-insert-value
+ (print-level eval-expression-print-level)
+ (deactivate-mark))
+ (if insert-value
(with-no-warnings
(let ((standard-output (current-buffer)))
(prin1 (car values))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r111795: * lisp/simple.el (eval-expression): Let `exp' set the mark.,
Stefan Monnier <=