emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/objed 5aa473d 078/166: Reset before quit window when ob


From: Clemens Radermacher
Subject: [elpa] externals/objed 5aa473d 078/166: Reset before quit window when objed is active
Date: Sun, 29 Dec 2019 08:21:04 -0500 (EST)

branch: externals/objed
commit 5aa473d7c276f1ed5956e51b7f7df4e35d0ec895
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Reset before quit window when objed is active
---
 objed.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/objed.el b/objed.el
index 35325c7..72a5d36 100644
--- a/objed.el
+++ b/objed.el
@@ -590,8 +590,8 @@ BEFORE and AFTER are forms to execute before/after calling 
the command."
 if KILL is non-nil kill the buffer. WINDOW defaults to the
 selected one."
   (interactive)
-  (let* ((overriding-terminal-local-map nil)
-         (nc (key-binding "q" nil t)))
+  (let ((nc (let ((overriding-terminal-local-map nil))
+              (key-binding "q" nil t))))
     (if (and (string-match "insert" (symbol-name nc))
              (not buffer-read-only))
         (cond ((and (not (eq last-command this-command))
@@ -606,6 +606,7 @@ selected one."
                (indent-region (objed--beg) (objed--end))
                (objed--update-current-object)
                (message "Indented defun.")))
+      (objed--reset)
       (call-interactively nc))))
 
 (defun objed--point-in-periphery ()



reply via email to

[Prev in Thread] Current Thread [Next in Thread]