Mercurial > hg > xemacs-beta

comparison lisp/packages/hyper-apropos.el @ 44:8d2a9b52c682 r19-15prefinal

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15prefinal
author cvs
date Mon, 13 Aug 2007 08:55:10 +0200
parents ec9a17fef872
children 131b0175ea99
comparison
equal deleted inserted replaced
43:23cafc5d2038 44:8d2a9b52c682
155 (suppress-keymap map) 155 (suppress-keymap map)
156 (set-keymap-name map 'hypropos-help-map) 156 (set-keymap-name map 'hypropos-help-map)
157 ;; movement 157 ;; movement
158 (define-key map " " 'scroll-up) 158 (define-key map " " 'scroll-up)
159 (define-key map "b" 'scroll-down) 159 (define-key map "b" 'scroll-down)
160 (define-key map [delete] 'scroll-down)
161 (define-key map [backspace] 'scroll-down)
160 (define-key map "/" 'isearch-forward) 162 (define-key map "/" 'isearch-forward)
161 (define-key map "?" 'isearch-backward) 163 (define-key map "?" 'isearch-backward)
162 ;; follow links 164 ;; follow links
163 (define-key map "\r" 'hypropos-get-doc) 165 (define-key map "\r" 'hypropos-get-doc)
164 (define-key map "s" 'hypropos-set-variable) 166 (define-key map "s" 'hypropos-set-variable)
180 (set-keymap-name map 'hypropos-map) 182 (set-keymap-name map 'hypropos-map)
181 (set-keymap-parents map (list hypropos-help-map)) 183 (set-keymap-parents map (list hypropos-help-map))
182 ;; slightly different scrolling... 184 ;; slightly different scrolling...
183 (define-key map " " 'hypropos-scroll-up) 185 (define-key map " " 'hypropos-scroll-up)
184 (define-key map "b" 'hypropos-scroll-down) 186 (define-key map "b" 'hypropos-scroll-down)
187 (define-key map [delete] 'hypropos-scroll-down)
188 (define-key map [backspace] 'hypropos-scroll-down)
185 ;; act on the current line... 189 ;; act on the current line...
186 (define-key map "w" 'hypropos-where-is) 190 (define-key map "w" 'hypropos-where-is)
187 (define-key map "i" 'hypropos-invoke-fn) 191 (define-key map "i" 'hypropos-invoke-fn)
188 (define-key map "s" 'hypropos-set-variable) 192 (define-key map "s" 'hypropos-set-variable)
189 ;; more administrativa... 193 ;; more administrativa...