diff options
| author | Stefan Kangas | 2023-08-08 03:37:54 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2023-08-08 03:40:03 +0200 |
| commit | bbd69f1663abe0066319efbeb06e9dc9f6ec8d92 (patch) | |
| tree | c811d5ecae536bf2a11cb8541810fe24b2c6f6b7 | |
| parent | 594e03526bdc7144216e2f98831e6a7973be393a (diff) | |
| download | emacs-bbd69f1663abe0066319efbeb06e9dc9f6ec8d92.tar.gz emacs-bbd69f1663abe0066319efbeb06e9dc9f6ec8d92.zip | |
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." | |||
| 2071 | (if (symbolp keymap) | 2071 | (if (symbolp keymap) |
| 2072 | (error "Not a keymap variable: %S" keymap) | 2072 | (error "Not a keymap variable: %S" keymap) |
| 2073 | (error "Not a keymap"))) | 2073 | (error "Not a keymap"))) |
| 2074 | (let ((sym nil)) | 2074 | (let ((sym (cl-gentemp "KEYMAP OBJECT (no variable) "))) |
| 2075 | (unless sym | 2075 | (setq used-gentemp t) |
| 2076 | (setq sym (cl-gentemp "KEYMAP OBJECT (no variable) ")) | 2076 | (set sym keymap) |
| 2077 | (setq used-gentemp t) | ||
| 2078 | (set sym keymap)) | ||
| 2079 | (setq keymap sym))) | 2077 | (setq keymap sym))) |
| 2080 | ;; Follow aliasing. | 2078 | ;; Follow aliasing. |
| 2081 | (setq keymap (or (ignore-errors (indirect-variable keymap)) keymap)) | 2079 | (setq keymap (or (ignore-errors (indirect-variable keymap)) keymap)) |