emacs: lisp/ibuffer.el comparison

comparison lisp/ibuffer.el @ 49588:37645a051842

Trailing whitespace deleted.

author	Juanma Barranquero <lekktu@gmail.com>
date	Tue, 04 Feb 2003 11:26:42 +0000
parents	798119a6859c
children	8e685f71f253

comparison

equal deleted inserted replaced

-:e82b3fe06d4c
+:37645a051842
 (define-key map (kbd "* r") 'ibuffer-mark-read-only-buffers)
 (define-key map (kbd "* /") 'ibuffer-mark-dired-buffers)
 (define-key map (kbd "* e") 'ibuffer-mark-dissociated-buffers)
 (define-key map (kbd "* h") 'ibuffer-mark-help-buffers)
 (define-key map (kbd ".") 'ibuffer-mark-old-buffers)
 (define-key map (kbd "d") 'ibuffer-mark-for-delete)
 (define-key map (kbd "C-d") 'ibuffer-mark-for-delete-backwards)
 (define-key map (kbd "k") 'ibuffer-mark-for-delete)
 (define-key map (kbd "x") 'ibuffer-do-kill-on-deletion-marks)
 ;; immediate operations
 (define-key map (kbd "n") 'ibuffer-forward-line)
 (define-key map (kbd "<down>") 'ibuffer-forward-line)
 (define-key map (kbd "SPC") 'forward-line)
 (define-key map (kbd "p") 'ibuffer-backward-line)
 (define-key map (kbd "C-y") 'ibuffer-yank)
 (define-key map (kbd "/ S") 'ibuffer-save-filter-groups)
 (define-key map (kbd "/ R") 'ibuffer-switch-to-saved-filter-groups)
 (define-key map (kbd "/ X") 'ibuffer-delete-saved-filter-groups)
 (define-key map (kbd "/ \\") 'ibuffer-clear-filter-groups)
 (define-key map (kbd "q") 'ibuffer-quit)
 (define-key map (kbd "h") 'describe-mode)
 (define-key map (kbd "?") 'describe-mode)
 (define-key map (kbd "% n") 'ibuffer-mark-by-name-regexp)
 (define-key map (kbd "% m") 'ibuffer-mark-by-mode-regexp)
 (define-key map (kbd "% f") 'ibuffer-mark-by-file-name-regexp)
 (define-key map (kbd "C-t") 'ibuffer-visit-tags-table)
 (define-key map (kbd "|") 'ibuffer-do-shell-command-pipe)
 (define-key map (kbd "!") 'ibuffer-do-shell-command-file)
 (define-key map (kbd "~") 'ibuffer-do-toggle-modified)
 (define-key map (kbd "T") 'ibuffer-do-toggle-read-only)
 (define-key map (kbd "U") 'ibuffer-do-replace-regexp)
 (define-key map (kbd "V") 'ibuffer-do-revert)
 (define-key map (kbd "W") 'ibuffer-do-view-and-eval)
 (define-key map (kbd "X") 'ibuffer-do-shell-command-pipe)
 (define-key map (kbd "k") 'ibuffer-do-kill-lines)
 (define-key map (kbd "w") 'ibuffer-copy-filename-as-kill)
 (define-key map (kbd "RET") 'ibuffer-visit-buffer)
 (define-key map (kbd "e") 'ibuffer-visit-buffer)
 (define-key-after map [menu-bar mark mark-old-buffers]
 '(menu-item "Mark old buffers" ibuffer-mark-old-buffers
 		  :help "Mark buffers which have not been viewed recently"))
 (define-key-after map [menu-bar mark unmark-all]
 '(menu-item "Unmark All" ibuffer-unmark-all))
 (define-key-after map [menu-bar mark dashes]
 '("--"))
 (define-key-after map [menu-bar mark mark-by-name-regexp]
 '(menu-item "Mark by buffer name (regexp)..." ibuffer-mark-by-name-regexp
 		  :help "Mark buffers whose name matches a regexp"))
 (define-key-after map [menu-bar mark mark-by-mode-regexp]
 '(menu-item "Mark by major mode (regexp)..." ibuffer-mark-by-mode-regexp
 '(menu-item "Eval..." ibuffer-do-eval
 		  :help "Evaluate a Lisp form in each marked buffer"))
 (define-key-after operate-map [do-view-and-eval]
 '(menu-item "Eval (viewing buffer)..." ibuffer-do-view-and-eval
 		  :help "Evaluate a Lisp form in each marked buffer while viewing it"))
 (setq ibuffer-mode-map map
 	  ibuffer-mode-operate-map operate-map
 	  ibuffer-mode-groups-popup (copy-keymap groups-map))))
 (define-key ibuffer-mode-groups-popup [kill-filter-group]
 			(setq trying nil))
 		    (error
 		     ;; Handle a failure
 		     (if (or (> (incf attempts) 4)
 			     (and (stringp (cadr err))
 				  ;; This definitely falls in the
 				  ;; ghetto hack category...
 				  (not (string-match "too small" (cadr err)))))
 			 (apply #'signal err)
 		       (enlarge-window 3))))))
 	      (select-window (next-window))
 	  ibuffer-compiled-formats)
 (cadr (assq name
 		  (if uncompiledp
 		      ibuffer-filter-format-alist
 		    ibuffer-compiled-filter-formats))))))
 (defun ibuffer-current-format (&optional uncompiledp)
 (or ibuffer-current-format
 (setq ibuffer-current-format 0))
 (nth ibuffer-current-format (ibuffer-current-formats uncompiledp)))
 		  max -1
 		  align :left
 		  elide nil))
 	  (list sym min max align elide)))
 form))
 (defun ibuffer-compile-make-eliding-form (strvar elide from-end-p)
 (let ((ellipsis (propertize ibuffer-eliding-string 'font-lock-face 'bold)))
 (if (or elide ibuffer-elide-long-columns)
 	`(if (> strlen 5)
 	     ,(if from-end-p
 (defun ibuffer-clear-summary-columns (format)
 (dolist (form format)
 (ibuffer-awhen (and (consp form)
 			(get (car form) 'ibuffer-column-summarizer))
 (put (car form) 'ibuffer-column-summary nil))))
 (defun ibuffer-check-formats ()
 (when (null ibuffer-formats)
 (error "No formats!"))
 (let ((ext-loaded (featurep 'ibuf-ext)))
 (when (or (null ibuffer-compiled-formats)
 			     :props
 			     ('mouse-face 'highlight 'keymap ibuffer-name-map
 			      'ibuffer-name-column t
 			      'help-echo "mouse-1: mark this buffer\nmouse-2: select this buffer\nmouse-3: operate on this buffer"))
 (propertize (buffer-name) 'font-lock-face (ibuffer-buffer-name-face buffer mark)))
 (define-ibuffer-column size (:inline t)
 (format "%s" (buffer-size)))
 (define-ibuffer-column mode (:inline t
 			     :props
 	    (ibuffer-insert-buffer-line
 	     buf mark
 	     (ibuffer-current-format)))
 	  (when ibuffer-shrink-to-minimum-size
 	    (ibuffer-shrink-to-fit)))))))
 (defun ibuffer-map-on-mark (mark func)
 (ibuffer-map-lines
 #'(lambda (buf mk)
 (if (char-equal mark mk)
 	   (funcall func buf mark)
 (when (if (stringp pred)
 		(string-match pred name)
 	      (funcall pred buf))
 	(setq hit t)))
 hit))
 (defun ibuffer-filter-buffers (ibuffer-buf last bmarklist all)
 (let ((ext-loaded (featurep 'ibuf-ext)))
 (delq nil
 	  (mapcar
 	   ;; element should be like (BUFFER . MARK)
 '\\[ibuffer-backward-filter-group]' - Move to the previous filter group.
 '\\[ibuffer-clear-filter-groups]' - Remove all active filter groups.
 '\\[ibuffer-save-filter-groups]' - Save the current groups with a name.
 '\\[ibuffer-switch-to-saved-filter-groups]' - Restore previously saved groups.
 '\\[ibuffer-delete-saved-filter-groups]' - Delete previously saved groups.
 Sorting commands:
 '\\[ibuffer-toggle-sorting-mode]' - Rotate between the various sorting modes.
 '\\[ibuffer-invert-sorting]' - Reverse the current sorting order.
 '\\[ibuffer-do-sort-by-alphabetic]' - Sort the buffers lexicographically.

Mercurial > emacs

comparison lisp/ibuffer.el @ 49588:37645a051842