diff options
| -rw-r--r-- | lisp/help-fns.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 59eedb5331d..cc00c722ccc 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el | |||
| @@ -944,7 +944,7 @@ it is displayed along with the global value." | |||
| 944 | (unless (buffer-live-p buffer) (setq buffer (current-buffer))) | 944 | (unless (buffer-live-p buffer) (setq buffer (current-buffer))) |
| 945 | (unless (frame-live-p frame) (setq frame (selected-frame))) | 945 | (unless (frame-live-p frame) (setq frame (selected-frame))) |
| 946 | (if (not (symbolp variable)) | 946 | (if (not (symbolp variable)) |
| 947 | (message "You did not specify a variable") | 947 | (user-error "You didn't specify a variable") |
| 948 | (save-excursion | 948 | (save-excursion |
| 949 | (let ((valvoid (not (with-current-buffer buffer (boundp variable)))) | 949 | (let ((valvoid (not (with-current-buffer buffer (boundp variable)))) |
| 950 | val val-start-pos locus) | 950 | val val-start-pos locus) |
| @@ -1435,7 +1435,7 @@ current buffer and the selected frame, respectively." | |||
| 1435 | t nil nil | 1435 | t nil nil |
| 1436 | (if found (symbol-name v-or-f))))) | 1436 | (if found (symbol-name v-or-f))))) |
| 1437 | (list (if (equal val "") | 1437 | (list (if (equal val "") |
| 1438 | v-or-f (intern val))))) | 1438 | (or v-or-f "") (intern val))))) |
| 1439 | (if (not (symbolp symbol)) | 1439 | (if (not (symbolp symbol)) |
| 1440 | (user-error "You didn't specify a function or variable")) | 1440 | (user-error "You didn't specify a function or variable")) |
| 1441 | (unless (buffer-live-p buffer) (setq buffer (current-buffer))) | 1441 | (unless (buffer-live-p buffer) (setq buffer (current-buffer))) |