diff options
author | Juri Linkov <[email protected]> | 2004-10-30 01:08:00 +0000 |
---|---|---|
committer | Juri Linkov <[email protected]> | 2004-10-30 01:08:00 +0000 |
commit | d6288299d325714ac74a6cd792c9132e49b415a0 (patch) | |
tree | c22021c6f3997431b56fe5d185fbc1561d732520 /lisp | |
parent | 95da5522bbfacdcda9c0ef0dd85387bbdcacc71b (diff) |
(function-called-at-point): read -> intern.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/help.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c22ab994ef..379136ee0a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-10-30 Juri Linkov <[email protected]> + + * help.el (function-called-at-point): + * help-fns.el (variable-at-point): read -> intern. + 2004-10-30 Simon Josefsson <[email protected]> * progmodes/autoconf.el (autoconf-font-lock-keywords): Recognize diff --git a/lisp/help.el b/lisp/help.el index ee35d00763..5ec9b1f529 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -267,7 +267,7 @@ If that doesn't give a function, return nil." (and (symbolp obj) (fboundp obj) obj)))) (error nil)))) (let* ((str (find-tag-default)) - (obj (if str (read str)))) + (obj (if str (intern str)))) (and (symbolp obj) (fboundp obj) obj)))) |