diff options
| author | Lars Ingebrigtsen | 2021-05-31 07:22:12 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2021-05-31 07:22:12 +0200 |
| commit | 415ae812e93aa992c206bfb3d1c382d78209b8fe (patch) | |
| tree | ea2d9b6e3f35d68e0f0977e99cc194ab5dd82f4c | |
| parent | 77f67d12f68a9fba210337b9ad38f049ec601fcb (diff) | |
| download | emacs-415ae812e93aa992c206bfb3d1c382d78209b8fe.tar.gz emacs-415ae812e93aa992c206bfb3d1c382d78209b8fe.zip | |
Use buffer-local-boundp in describe-variable
* lisp/help-fns.el (describe-variable): Use `buffer-local-boundp'.
| -rw-r--r-- | lisp/help-fns.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index c8f078cb852..5a805a23028 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el | |||
| @@ -1029,10 +1029,7 @@ it is displayed along with the global value." | |||
| 1029 | ;; Since the variable may only exist in the | 1029 | ;; Since the variable may only exist in the |
| 1030 | ;; original buffer, we have to look for it | 1030 | ;; original buffer, we have to look for it |
| 1031 | ;; there. | 1031 | ;; there. |
| 1032 | (condition-case nil | 1032 | (buffer-local-boundp vv orig-buffer)))) |
| 1033 | (buffer-local-value vv orig-buffer) | ||
| 1034 | (:success t) | ||
| 1035 | (void-variable nil))))) | ||
| 1036 | t nil nil | 1033 | t nil nil |
| 1037 | (if (symbolp v) (symbol-name v)))) | 1034 | (if (symbolp v) (symbol-name v)))) |
| 1038 | (list (if (equal val "") | 1035 | (list (if (equal val "") |