diff options
| author | Richard M. Stallman | 1995-01-19 18:49:48 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-01-19 18:49:48 +0000 |
| commit | 7ffbe7e224a99ba7fb694707501a8d013a6ae66a (patch) | |
| tree | 62a8309ebde670e784f5f6c9c84b1777ccc7b1b7 | |
| parent | 77223f057e9abfff847161adcc7a22c1e924e494 (diff) | |
| download | emacs-7ffbe7e224a99ba7fb694707501a8d013a6ae66a.tar.gz emacs-7ffbe7e224a99ba7fb694707501a8d013a6ae66a.zip | |
(make-help-screen): Use *only* local-map to look up keys.
| -rw-r--r-- | lisp/help-macro.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/help-macro.el b/lisp/help-macro.el index 1e70992e296..1053b4161b6 100644 --- a/lisp/help-macro.el +++ b/lisp/help-macro.el | |||
| @@ -150,9 +150,7 @@ and then returns." | |||
| 150 | (setq unread-command-events | 150 | (setq unread-command-events |
| 151 | (cons char unread-command-events) | 151 | (cons char unread-command-events) |
| 152 | config nil) | 152 | config nil) |
| 153 | (let ((defn | 153 | (let ((defn (lookup-key local-map key))) |
| 154 | (let ((overriding-local-map local-map)) | ||
| 155 | (key-binding key)))) | ||
| 156 | (if defn | 154 | (if defn |
| 157 | (progn | 155 | (progn |
| 158 | (if config | 156 | (if config |