Mercurial > hg > xemacs-beta

comparison lisp/packages/hyper-apropos.el @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents 376386a54a3c
children ec9a17fef872
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
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 ;; ---------------------------------------------------------------------- ;;