Mercurial > hg > xemacs-beta

comparison lisp/apropos.el @ 2275:445bd1969ed0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-15 08:30:25 by stephent] fix void-function error in apropos <87656glyun.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Wed, 15 Sep 2004 08:30:27 +0000
parents 79940b592197
children 2e528066e2fc
comparison
equal deleted inserted replaced
2274:8e1339255ca7 2275:445bd1969ed0
173 (if (commandp symbol) 173 (if (commandp symbol)
174 (if (setq doc 174 (if (setq doc
175 ;; XEmacs change: if obsolete, 175 ;; XEmacs change: if obsolete,
176 ;; only mention that. 176 ;; only mention that.
177 (or (function-obsoleteness-doc symbol) 177 (or (function-obsoleteness-doc symbol)
178 (documentation symbol t))) 178 (condition-case nil
179 (documentation symbol t)
180 (void-function "(aliased to undefined function)")
181 (error "(unexpected error from `documention')"))))
179 (substring doc 0 (string-match "\n" doc)) 182 (substring doc 0 (string-match "\n" doc))
180 "(not documented)")) 183 "(not documented)"))
181 (and do-all 184 (and do-all
182 (user-variable-p symbol) 185 (user-variable-p symbol)
183 (if (setq doc 186 (if (setq doc
223 (if (fboundp symbol) 226 (if (fboundp symbol)
224 (if (setq doc 227 (if (setq doc
225 ;; XEmacs change: if obsolete, 228 ;; XEmacs change: if obsolete,
226 ;; only mention that. 229 ;; only mention that.
227 (or (function-obsoleteness-doc symbol) 230 (or (function-obsoleteness-doc symbol)
228 (documentation symbol t))) 231 (condition-case nil
232 (documentation symbol t)
233 (void-function "(aliased to undefined function)")
234 (error "(unexpected error from `documention')"))))
229 (substring doc 0 (string-match "\n" doc)) 235 (substring doc 0 (string-match "\n" doc))
230 "(not documented)")) 236 "(not documented)"))
231 (if (boundp symbol) 237 (if (boundp symbol)
232 (if (setq doc 238 (if (setq doc
233 (or 239 (or