diff options
| author | Richard M. Stallman | 2006-07-12 15:58:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2006-07-12 15:58:10 +0000 |
| commit | 38586111b136a4d4b77cb8c9dc78a84ec7884144 (patch) | |
| tree | 847b5053a530323c888009000fa048578e9df1a5 | |
| parent | e1cac5702da02e7c856d6d14a043e1b6554ce585 (diff) | |
| download | emacs-38586111b136a4d4b77cb8c9dc78a84ec7884144.tar.gz emacs-38586111b136a4d4b77cb8c9dc78a84ec7884144.zip | |
(describe-variable): Handle find-variable-noselect returning no position.
| -rw-r--r-- | lisp/help-fns.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 69555feb170..53e280fd1a7 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el | |||
| @@ -534,7 +534,8 @@ it is displayed along with the global value." | |||
| 534 | (error nil)))) | 534 | (error nil)))) |
| 535 | (when location | 535 | (when location |
| 536 | (with-current-buffer (car location) | 536 | (with-current-buffer (car location) |
| 537 | (goto-char (cdr location)) | 537 | (when (cdr location) |
| 538 | (goto-char (cdr location))) | ||
| 538 | (when (re-search-backward | 539 | (when (re-search-backward |
| 539 | "^;;; Generated autoloads from \\(.*\\)" nil t) | 540 | "^;;; Generated autoloads from \\(.*\\)" nil t) |
| 540 | (setq file-name (match-string 1))))))) | 541 | (setq file-name (match-string 1))))))) |