mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-25 07:28:20 +00:00
Code Issues Releases Activity

Delete useless conditional in describe-keymap

Browse Source 
* lisp/help-fns.el (describe-keymap): Delete useless
conditional.  (Bug#65128)
This commit is contained in:
Stefan Kangas 2023-08-08 03:37:54 +02:00
parent 594e03526b
commit bbd69f1663
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/help-fns.el
View File

@ -2071,11 +2071,9 @@ keymap value."
(if (symbolp keymap) (if (symbolp keymap)
(error "Not a keymap variable: %S" keymap) (error "Not a keymap variable: %S" keymap)
(error "Not a keymap"))) (error "Not a keymap")))
(let ((sym nil)) (let ((sym (cl-gentemp "KEYMAP OBJECT (no variable) ")))
(unless sym (setq used-gentemp t)
(setq sym (cl-gentemp "KEYMAP OBJECT (no variable) ")) (set sym keymap)
(setq used-gentemp t)
(set sym keymap))
(setq keymap sym))) (setq keymap sym)))
;; Follow aliasing. ;; Follow aliasing.
(setq keymap (or (ignore-errors (indirect-variable keymap)) keymap)) (setq keymap (or (ignore-errors (indirect-variable keymap)) keymap))