[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 0fad726: * lisp/simple.el (eval-expression): Macroe
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master 0fad726: * lisp/simple.el (eval-expression): Macroexpand before evaluating (bug#20730) |
Date: |
Wed, 10 Jun 2015 02:14:53 +0000 |
branch: master
commit 0fad7268a8c552274c842ab24a085bd43946f2db
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* lisp/simple.el (eval-expression): Macroexpand before evaluating
(bug#20730)
---
lisp/simple.el | 23 +----------------------
1 files changed, 1 insertions(+), 22 deletions(-)
diff --git a/lisp/simple.el b/lisp/simple.el
index 4ef45c5..9dfb3f2 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -353,27 +353,6 @@ Other major modes are defined by comparison with this one."
(kill-all-local-variables)
(run-mode-hooks))
-;; Special major modes to view specially formatted data rather than files.
-
-(defvar special-mode-map
- (let ((map (make-sparse-keymap)))
- (suppress-keymap map)
- (define-key map "q" 'quit-window)
- (define-key map " " 'scroll-up-command)
- (define-key map [?\S-\ ] 'scroll-down-command)
- (define-key map "\C-?" 'scroll-down-command)
- (define-key map "?" 'describe-mode)
- (define-key map "h" 'describe-mode)
- (define-key map ">" 'end-of-buffer)
- (define-key map "<" 'beginning-of-buffer)
- (define-key map "g" 'revert-buffer)
- map))
-
-(put 'special-mode 'mode-class 'special)
-(define-derived-mode special-mode nil "Special"
- "Parent major mode from which special major modes should inherit."
- (setq buffer-read-only t))
-
;; Making and deleting lines.
(defvar self-insert-uses-region-functions nil
@@ -1448,7 +1427,7 @@ this command arranges for all errors to enter the
debugger."
;; 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 exp lexical-binding) values)
+ (push (eval (macroexpand-all 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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 0fad726: * lisp/simple.el (eval-expression): Macroexpand before evaluating (bug#20730),
Stefan Monnier <=