Mercurial > hg > xemacs-beta

comparison lisp/electric/ebuff-menu.el @ 8:4b173ad71786 r19-15b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b5
author cvs
date Mon, 13 Aug 2007 08:47:35 +0200
parents 27bc7f280385
children 131b0175ea99
comparison
equal deleted inserted replaced
7:c153ca296910 8:4b173ad71786
177 ;; (except we don't indirect to global-map) 177 ;; (except we don't indirect to global-map)
178 (put 'Electric-buffer-menu-undefined 'suppress-keymap t) 178 (put 'Electric-buffer-menu-undefined 'suppress-keymap t)
179 (if electric-buffer-menu-mode-map 179 (if electric-buffer-menu-mode-map
180 nil 180 nil
181 (let ((map (make-keymap)) (submap (make-keymap))) 181 (let ((map (make-keymap)) (submap (make-keymap)))
182 (fillarray (car (cdr map)) 'Electric-buffer-menu-undefined) 182 ;(fillarray (car (cdr map)) 'Electric-buffer-menu-undefined) ; FSF
183 (let ((i 0))
184 (while (< i 128)
185 (define-key map (make-string 1 i) 'Electric-buffer-menu-undefined)
186 (setq i (1+ i))))
183 (define-key map "\e" submap) 187 (define-key map "\e" submap)
184 (fillarray (car (cdr submap)) 'Electric-buffer-menu-undefined) 188 ;(fillarray (car (cdr submap)) 'Electric-buffer-menu-undefined) ; FSF
189 (let ((map2 (lookup-key map "\e"))
190 (i 0))
191 (while (< i 128)
192 (define-key map2 (make-string 1 i) 'Electric-buffer-menu-undefined)
193 (setq i (1+ i))))
185 (define-key map "\C-z" 'suspend-emacs) 194 (define-key map "\C-z" 'suspend-emacs)
186 (define-key map "v" 'Electric-buffer-menu-mode-view-buffer) 195 (define-key map "v" 'Electric-buffer-menu-mode-view-buffer)
187 (define-key map (char-to-string help-char) 'Helper-help) 196 (define-key map (char-to-string help-char) 'Helper-help)
188 (define-key map "?" 'Helper-describe-bindings) 197 (define-key map "?" 'Helper-describe-bindings)
189 (define-key map "\C-c" nil) 198 (define-key map "\C-c" nil)