Mercurial > hg > xemacs-beta

comparison lisp/packages/hyper-apropos.el @ 82:6a378aca36af r20-0b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b91
author cvs
date Mon, 13 Aug 2007 09:07:36 +0200
parents 131b0175ea99
children 360340f9fd5f
comparison
equal deleted inserted replaced
81:ebca3d831cea 82:6a378aca36af
334 (setq mode-name "Hyper-Apropos" 334 (setq mode-name "Hyper-Apropos"
335 major-mode 'hyper-apropos-mode 335 major-mode 'hyper-apropos-mode
336 buffer-read-only t 336 buffer-read-only t
337 truncate-lines t 337 truncate-lines t
338 hypropos-last-regexp regexp 338 hypropos-last-regexp regexp
339 modeline-buffer-identification (concat "Hyper Apropos: " 339 modeline-buffer-identification
340 "\"" regexp "\"")) 340 (list (cons modeline-buffer-id-left-extent "Hyper Apropos: ")
341 (cons modeline-buffer-id-right-extent (concat "\"" regexp "\""))))
341 (setq mode-motion-hook 'mode-motion-highlight-line) 342 (setq mode-motion-hook 'mode-motion-highlight-line)
342 (use-local-map hypropos-map) 343 (use-local-map hypropos-map)
343 (run-hooks 'hyper-apropos-mode-hook)) 344 (run-hooks 'hyper-apropos-mode-hook))
344 345
345 ;; ---------------------------------------------------------------------- ;; 346 ;; ---------------------------------------------------------------------- ;;