Mercurial > hg > xemacs-beta

comparison lisp/electric/ebuff-menu.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 54cc21c15cbb
children
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
191 (while (< i 128) 191 (while (< i 128)
192 (define-key map2 (make-string 1 i) 'Electric-buffer-menu-undefined) 192 (define-key map2 (make-string 1 i) 'Electric-buffer-menu-undefined)
193 (setq i (1+ i)))) 193 (setq i (1+ i))))
194 (define-key map "\C-z" 'suspend-emacs) 194 (define-key map "\C-z" 'suspend-emacs)
195 (define-key map "v" 'Electric-buffer-menu-mode-view-buffer) 195 (define-key map "v" 'Electric-buffer-menu-mode-view-buffer)
196 (define-key map (char-to-string help-char) 'Helper-help) 196 (define-key map (vector help-char) 'Helper-help)
197 (define-key map "?" 'Helper-describe-bindings) 197 (define-key map "?" 'Helper-describe-bindings)
198 (define-key map "\C-c" nil) 198 (define-key map "\C-c" nil)
199 (define-key map "\C-c\C-c" 'Electric-buffer-menu-quit) 199 (define-key map "\C-c\C-c" 'Electric-buffer-menu-quit)
200 (define-key map "\C-]" 'Electric-buffer-menu-quit) 200 (define-key map "\C-]" 'Electric-buffer-menu-quit)
201 (define-key map "q" 'Electric-buffer-menu-quit) 201 (define-key map "q" 'Electric-buffer-menu-quit)
278 (interactive) 278 (interactive)
279 (ding) 279 (ding)
280 (message "%s" 280 (message "%s"
281 (if (and (eq (key-binding "\C-c\C-c") 'Electric-buffer-menu-quit) 281 (if (and (eq (key-binding "\C-c\C-c") 'Electric-buffer-menu-quit)
282 (eq (key-binding " ") 'Electric-buffer-menu-select) 282 (eq (key-binding " ") 'Electric-buffer-menu-select)
283 (eq (key-binding (char-to-string help-char)) 'Helper-help) 283 (eq (key-binding (vector help-char)) 'Helper-help)
284 (eq (key-binding "?") 'Helper-describe-bindings)) 284 (eq (key-binding "?") 'Helper-describe-bindings))
285 (substitute-command-keys "Type C-c C-c to exit, Space to select, 285 (substitute-command-keys "Type C-c C-c to exit, Space to select,
286 Type \\[Electric-buffer-menu-quit] to exit, \ 286 Type \\[Electric-buffer-menu-quit] to exit, \
287 \\[Electric-buffer-menu-select] to select, \ 287 \\[Electric-buffer-menu-select] to select, \
288 \\[Helper-help] for help, \\[Helper-describe-bindings] for commands."))) 288 \\[Helper-help] for help, \\[Helper-describe-bindings] for commands.")))