projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add some Adobe-Japan1-5 code points.
[chise/xemacs-chise.git-]
/
lisp
/
apropos.el
diff --git
a/lisp/apropos.el
b/lisp/apropos.el
index
76be36b
..
a96221c
100644
(file)
--- a/
lisp/apropos.el
+++ b/
lisp/apropos.el
@@
-175,7
+175,10
@@
variables."
;; XEmacs change: if obsolete,
;; only mention that.
(or (function-obsoleteness-doc symbol)
;; XEmacs change: if obsolete,
;; only mention that.
(or (function-obsoleteness-doc symbol)
- (documentation symbol t)))
+ (condition-case nil
+ (documentation symbol t)
+ (void-function "(aliased to undefined function)")
+ (error "(unexpected error from `documention')"))))
(substring doc 0 (string-match "\n" doc))
"(not documented)"))
(and do-all
(substring doc 0 (string-match "\n" doc))
"(not documented)"))
(and do-all
@@
-225,7
+228,10
@@
Returns list of symbols and documentation found."
;; XEmacs change: if obsolete,
;; only mention that.
(or (function-obsoleteness-doc symbol)
;; XEmacs change: if obsolete,
;; only mention that.
(or (function-obsoleteness-doc symbol)
- (documentation symbol t)))
+ (condition-case nil
+ (documentation symbol t)
+ (void-function "(aliased to undefined function)")
+ (error "(unexpected error from `documention')"))))
(substring doc 0 (string-match "\n" doc))
"(not documented)"))
(if (boundp symbol)
(substring doc 0 (string-match "\n" doc))
"(not documented)"))
(if (boundp symbol)