diff options
| author | Juri Linkov | 2004-10-30 01:06:58 +0000 |
|---|---|---|
| committer | Juri Linkov | 2004-10-30 01:06:58 +0000 |
| commit | 95da5522bbfacdcda9c0ef0dd85387bbdcacc71b (patch) | |
| tree | 183cd8fb4858401ff1d01a5e8b20e5d1c46c830e | |
| parent | 707994d2626cf0f01c3ece4028d73835068d64dc (diff) | |
| download | emacs-95da5522bbfacdcda9c0ef0dd85387bbdcacc71b.tar.gz emacs-95da5522bbfacdcda9c0ef0dd85387bbdcacc71b.zip | |
(variable-at-point): read -> intern.
| -rw-r--r-- | lisp/help-fns.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 57b0b39767e..8f2a1b7fa6e 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el | |||
| @@ -473,7 +473,7 @@ Return 0 if there is no such symbol." | |||
| 473 | (and (symbolp obj) (boundp obj) obj)))) | 473 | (and (symbolp obj) (boundp obj) obj)))) |
| 474 | (error nil)) | 474 | (error nil)) |
| 475 | (let* ((str (find-tag-default)) | 475 | (let* ((str (find-tag-default)) |
| 476 | (obj (if str (read str)))) | 476 | (obj (if str (intern str)))) |
| 477 | (and (symbolp obj) (boundp obj) obj)) | 477 | (and (symbolp obj) (boundp obj) obj)) |
| 478 | 0)) | 478 | 0)) |
| 479 | 479 | ||