Mercurial > hg > xemacs-beta

comparison lisp/hyper-apropos.el @ 434:9d177e8d4150 r21-2-25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-25
author cvs
date Mon, 13 Aug 2007 11:30:53 +0200
parents a5df635868b2
children 84b14dcb0985
comparison
equal deleted inserted replaced
433:892ca416f0fb 434:9d177e8d4150
241 current-prefix-arg)) 241 current-prefix-arg))
242 (or (memq major-mode '(hyper-apropos-mode hyper-apropos-help-mode)) 242 (or (memq major-mode '(hyper-apropos-mode hyper-apropos-help-mode))
243 (setq hyper-apropos-prev-wconfig (current-window-configuration))) 243 (setq hyper-apropos-prev-wconfig (current-window-configuration)))
244 (if (string= "" regexp) 244 (if (string= "" regexp)
245 (if (get-buffer hyper-apropos-apropos-buf) 245 (if (get-buffer hyper-apropos-apropos-buf)
246 (if toggle-apropos 246 (progn
247 (hyper-apropos-toggle-programming-flag) 247 (setq regexp hyper-apropos-last-regexp)
248 (message "Using last search results")) 248 (if toggle-apropos
249 (hyper-apropos-toggle-programming-flag)
250 (message "Using last search results")))
249 (error "Be more specific...")) 251 (error "Be more specific..."))
250 (set-buffer (get-buffer-create hyper-apropos-apropos-buf)) 252 (set-buffer (get-buffer-create hyper-apropos-apropos-buf))
251 (setq buffer-read-only nil) 253 (setq buffer-read-only nil)
252 (erase-buffer) 254 (erase-buffer)
253 (if toggle-apropos 255 (if toggle-apropos
254 (set (make-local-variable 'hyper-apropos-programming-apropos) 256 (if (local-variable-p 'hyper-apropos-programming-apropos
255 (not (default-value 'hyper-apropos-programming-apropos)))) 257 (current-buffer))
258 (setq hyper-apropos-programming-apropos
259 (not hyper-apropos-programming-apropos))
260 (set (make-local-variable 'hyper-apropos-programming-apropos)
261 (not (default-value 'hyper-apropos-programming-apropos)))))
256 (let ((flist (apropos-internal regexp 262 (let ((flist (apropos-internal regexp
257 (if hyper-apropos-programming-apropos 263 (if hyper-apropos-programming-apropos
258 #'fboundp 264 #'fboundp
259 #'commandp))) 265 #'commandp)))
260 (vlist (apropos-internal regexp 266 (vlist (apropos-internal regexp