diff options
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index c73c94b53ad..801a3c992c8 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -2306,8 +2306,8 @@ maps." (let* ((execute-extended-command--last-typed nil) (keymaps ;; The major mode's keymap and any active minor modes. - (cons - (current-local-map) + (nconc + (and (current-local-map) (list (current-local-map))) (mapcar #'cdr (seq-filter @@ -2957,7 +2957,8 @@ undo record: if we undo from 4, `pending-undo-list' will be at 3, (defcustom undo-no-redo nil "If t, `undo' doesn't go through redo entries." - :type 'boolean) + :type 'boolean + :group 'undo) (defvar pending-undo-list nil "Within a run of consecutive undo commands, list remaining to be undone. @@ -9440,9 +9441,6 @@ PREFIX is the string that represents this modifier in an event type symbol." (defvar clone-buffer-hook nil "Normal hook to run in the new buffer at the end of `clone-buffer'.") -(defvar clone-indirect-buffer-hook nil - "Normal hook to run in the new buffer at the end of `clone-indirect-buffer'.") - (defun clone-process (process &optional newname) "Create a twin copy of PROCESS. If NEWNAME is nil, it defaults to PROCESS' name; @@ -9595,8 +9593,6 @@ Returns the newly created indirect buffer." (setq newname (substring newname 0 (match-beginning 0)))) (let* ((name (generate-new-buffer-name newname)) (buffer (make-indirect-buffer (current-buffer) name t))) - (with-current-buffer buffer - (run-hooks 'clone-indirect-buffer-hook)) (when display-flag (pop-to-buffer buffer nil norecord)) buffer)) |