Mercurial > hg > xemacs-beta

comparison lisp/packages/hyper-apropos.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 34a5b81f86ba
children 28f395d8dc7a
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
1219 (defun hypropos-popup-menu (event) 1219 (defun hypropos-popup-menu (event)
1220 (interactive "e") 1220 (interactive "e")
1221 (mouse-set-point event) 1221 (mouse-set-point event)
1222 (let* ((sym (hypropos-this-symbol)) 1222 (let* ((sym (hypropos-this-symbol))
1223 (notjunk (not (null sym))) 1223 (notjunk (not (null sym)))
1224 (command-p (commandp sym)) 1224 (command-p (if (commandp sym) t))
1225 (variable-p (and sym (boundp sym))) 1225 (variable-p (and sym (boundp sym)))
1226 (function-p (fboundp sym)) 1226 (function-p (fboundp sym))
1227 (apropos-p (eq 'hyper-apropos-mode 1227 (apropos-p (eq 'hyper-apropos-mode
1228 (save-excursion (set-buffer (event-buffer event)) 1228 (save-excursion (set-buffer (event-buffer event))
1229 major-mode))) 1229 major-mode)))