Mercurial > hg > xemacs-beta

comparison lisp/buff-menu.el @ 3162:6e11554a16aa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-12-23 11:40:32 by stephent] Add rename function to buffer mode. <87hd902gcp.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Fri, 23 Dec 2005 11:40:39 +0000
parents 79940b592197
children f00192e1cd49 308d34e9f07d
comparison
equal deleted inserted replaced
3161:78cf83b934a0 3162:6e11554a16aa
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)