Mercurial > emacs

comparison lisp/help-fns.el @ 66793:c086dd3d5f44

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
2005-11-10 Alan Mackenzie <acm@muc.de> * help-fns.el (describe-variable): Make C-h v work when a variable has variable documentation yet is unbound.
author Alan Mackenzie <acm@muc.de>
date Thu, 10 Nov 2005 08:04:07 +0000
parents 35ee6fbeca84
children 1731ed7a115f 03934708f1e9
comparison
equal deleted inserted replaced
66792:9a04e09eb6c9 66793:c086dd3d5f44
494 val) 494 val)
495 (setq val (completing-read (if (symbolp v) 495 (setq val (completing-read (if (symbolp v)
496 (format 496 (format
497 "Describe variable (default %s): " v) 497 "Describe variable (default %s): " v)
498 "Describe variable: ") 498 "Describe variable: ")
499 obarray 'boundp t nil nil 499 obarray
500 '(lambda (vv)
501 (or (boundp vv)
502 (get vv 'variable-documentation)))
503 t nil nil
500 (if (symbolp v) (symbol-name v)))) 504 (if (symbolp v) (symbol-name v))))
501 (list (if (equal val "") 505 (list (if (equal val "")
502 v (intern val))))) 506 v (intern val)))))
503 (unless (buffer-live-p buffer) (setq buffer (current-buffer))) 507 (unless (buffer-live-p buffer) (setq buffer (current-buffer)))
504 (if (not (symbolp variable)) 508 (if (not (symbolp variable))