diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2023-08-08 03:37:54 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2023-08-08 03:40:03 +0200 |
| commit | bbd69f1663abe0066319efbeb06e9dc9f6ec8d92 (patch) | |
| tree | c811d5ecae536bf2a11cb8541810fe24b2c6f6b7 | |
| parent | 594e03526bdc7144216e2f98831e6a7973be393a (diff) | |
Delete useless conditional in describe-keymap
* lisp/help-fns.el (describe-keymap): Delete useless
conditional. (Bug#65128)
| -rw-r--r-- | lisp/help-fns.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 2d94182df33..fc8f431fd11 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -2071,11 +2071,9 @@ keymap value." (if (symbolp keymap) (error "Not a keymap variable: %S" keymap) (error "Not a keymap"))) - (let ((sym nil)) - (unless sym - (setq sym (cl-gentemp "KEYMAP OBJECT (no variable) ")) - (setq used-gentemp t) - (set sym keymap)) + (let ((sym (cl-gentemp "KEYMAP OBJECT (no variable) "))) + (setq used-gentemp t) + (set sym keymap) (setq keymap sym))) ;; Follow aliasing. (setq keymap (or (ignore-errors (indirect-variable keymap)) keymap)) |