Mercurial > hg > xemacs-beta

comparison lisp/buff-menu.el @ 446:1ccc32a20af4 r21-2-38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-38
author cvs
date Mon, 13 Aug 2007 11:37:21 +0200
parents 576fb035e263
children 56d2a7dcb919
comparison
equal deleted inserted replaced
445:34f3776fcf0e 446:1ccc32a20af4
301 (goto-char (point-min)) 301 (goto-char (point-min))
302 (forward-line 1) 302 (forward-line 1)
303 (let ((buff-menu-buffer (current-buffer)) 303 (let ((buff-menu-buffer (current-buffer))
304 (buffer-read-only nil)) 304 (buffer-read-only nil))
305 (while (search-forward "\nD" nil t) 305 (while (search-forward "\nD" nil t)
306 (forward-char -1) 306 (backward-char 1)
307 (let ((buf (Buffer-menu-buffer nil))) 307 (let ((buf (Buffer-menu-buffer nil)))
308 (or (eq buf nil) 308 (or (eq buf nil)
309 (eq buf buff-menu-buffer) 309 (eq buf buff-menu-buffer)
310 (save-excursion (kill-buffer buf)))) 310 (save-excursion (kill-buffer buf))))
311 (if (Buffer-menu-buffer nil) 311 (if (Buffer-menu-buffer nil)
312 (progn (delete-char 1) 312 (progn (delete-char 1)
313 (insert ? )) 313 (insert ? ))
314 (delete-region (point) (progn (forward-line 1) (point))) 314 (delete-region (point) (progn (forward-line 1) (point)))
315 (forward-char -1)))))) 315 (backward-char 1))))))
316 316
317 (defun Buffer-menu-select () 317 (defun Buffer-menu-select ()
318 "Select this line's buffer; also display buffers marked with `>'. 318 "Select this line's buffer; also display buffers marked with `>'.
319 You can mark buffers with the \\<Buffer-menu-mode-map>\\[Buffer-menu-mark] command. 319 You can mark buffers with the \\<Buffer-menu-mode-map>\\[Buffer-menu-mark] command.
320 This command deletes and replaces all the previously existing windows 320 This command deletes and replaces all the previously existing windows