Mercurial > hg > xemacs-beta

comparison lisp/buff-menu.el @ 5118:e0db3c197671 ben-lisp-object

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge up to latest default branch, doesn't compile yet
author Ben Wing <ben@xemacs.org>
date Sat, 26 Dec 2009 21:18:49 -0600
parents 6e11554a16aa
children f00192e1cd49 308d34e9f07d
comparison
equal deleted inserted replaced
5117:3742ea8250b5 5118:e0db3c197671
89 (define-key Buffer-menu-mode-map "s" 'Buffer-menu-save) 89 (define-key Buffer-menu-mode-map "s" 'Buffer-menu-save)
90 (define-key Buffer-menu-mode-map "d" 'Buffer-menu-delete) 90 (define-key Buffer-menu-mode-map "d" 'Buffer-menu-delete)
91 (define-key Buffer-menu-mode-map "k" 'Buffer-menu-delete) 91 (define-key Buffer-menu-mode-map "k" 'Buffer-menu-delete)
92 (define-key Buffer-menu-mode-map "\C-d" 'Buffer-menu-delete-backwards) 92 (define-key Buffer-menu-mode-map "\C-d" 'Buffer-menu-delete-backwards)
93 (define-key Buffer-menu-mode-map "\C-k" 'Buffer-menu-delete) 93 (define-key Buffer-menu-mode-map "\C-k" 'Buffer-menu-delete)
94 (define-key Buffer-menu-mode-map "r" 'Buffer-menu-rename)
94 (define-key Buffer-menu-mode-map "x" 'Buffer-menu-execute) 95 (define-key Buffer-menu-mode-map "x" 'Buffer-menu-execute)
95 (define-key Buffer-menu-mode-map " " 'next-line) 96 (define-key Buffer-menu-mode-map " " 'next-line)
96 (define-key Buffer-menu-mode-map "n" 'next-line) 97 (define-key Buffer-menu-mode-map "n" 'next-line)
97 (define-key Buffer-menu-mode-map "p" 'previous-line) 98 (define-key Buffer-menu-mode-map "p" 'previous-line)
98 (define-key Buffer-menu-mode-map 'backspace 'Buffer-menu-backup-unmark) 99 (define-key Buffer-menu-mode-map 'backspace 'Buffer-menu-backup-unmark)
258 and then move up one line. Prefix arg means move that many lines." 259 and then move up one line. Prefix arg means move that many lines."
259 (interactive "p") 260 (interactive "p")
260 (Buffer-menu-delete (- (or arg 1))) 261 (Buffer-menu-delete (- (or arg 1)))
261 (while (looking-at " [-M]") 262 (while (looking-at " [-M]")
262 (forward-line 1))) 263 (forward-line 1)))
264
265 (defun Buffer-menu-rename (newname unique)
266 "Rename buffer on this line to NEWNAME, immediately.
267 If given a prefix argument, automatically uniquify. See `rename-buffer'."
268 (interactive "sNew name for buffer: \np")
269 (beginning-of-line)
270 (if (looking-at " [-M]") ;header lines
271 (ding)
272 (save-excursion
273 (set-buffer (Buffer-menu-buffer t))
274 (rename-buffer newname unique))
275 (revert-buffer)))
263 276
264 (defun Buffer-menu-save () 277 (defun Buffer-menu-save ()
265 "Mark buffer on this line to be saved by \\<Buffer-menu-mode-map>\\[Buffer-menu-execute] command." 278 "Mark buffer on this line to be saved by \\<Buffer-menu-mode-map>\\[Buffer-menu-execute] command."
266 (interactive) 279 (interactive)
267 (beginning-of-line) 280 (beginning-of-line)