Mercurial > emacs
comparison lisp/ibuffer.el @ 48778:d414c281a629
* ibuffer.el (ibuffer-mode): If `show-paren-mode' is enabled,
disable it buffer-locally.
(ibuffer-mouse-popup-menu): Use `=' instead of `eq' to compare
`eventpt' and point.
* ibuf-ext.el (ibuffer-remove-duplicates): New function.
(ibuffer-set-filter-groups-by-mode): Use it instead of
`delete-duplicates' so we don't require cl library at runtime.
(ibuffer-insert-filter-group-before): Don't use `position' so we
don't require cl library at runtime.
* chistory.el (command-history-mode): Add interactive spec.
Improve doc string.
author | John Paul Wallington <jpw@pobox.com> |
---|---|
date | Mon, 09 Dec 2002 23:46:12 +0000 |
parents | 222e97e271fb |
children | 798119a6859c |
comparison
equal
deleted
inserted
replaced
48777:f6687dde33ff | 48778:d414c281a629 |
---|---|
881 (goto-char eventpt) | 881 (goto-char eventpt) |
882 (ibuffer-set-mark ibuffer-marked-char)) | 882 (ibuffer-set-mark ibuffer-marked-char)) |
883 (save-excursion | 883 (save-excursion |
884 (popup-menu ibuffer-mode-operate-map))))) | 884 (popup-menu ibuffer-mode-operate-map))))) |
885 (setq buffer-read-only t) | 885 (setq buffer-read-only t) |
886 (if (eq eventpt (point)) | 886 (if (= eventpt (point)) |
887 (goto-char origpt))))) | 887 (goto-char origpt))))) |
888 | 888 |
889 (defun ibuffer-skip-properties (props direction) | 889 (defun ibuffer-skip-properties (props direction) |
890 (while (and (not (eobp)) | 890 (while (and (not (eobp)) |
891 (let ((hit nil)) | 891 (let ((hit nil)) |
2385 (buffer-disable-undo) | 2385 (buffer-disable-undo) |
2386 (setq truncate-lines ibuffer-truncate-lines) | 2386 (setq truncate-lines ibuffer-truncate-lines) |
2387 ;; This makes things less ugly for Emacs 21 users with a non-nil | 2387 ;; This makes things less ugly for Emacs 21 users with a non-nil |
2388 ;; `show-trailing-whitespace'. | 2388 ;; `show-trailing-whitespace'. |
2389 (setq show-trailing-whitespace nil) | 2389 (setq show-trailing-whitespace nil) |
2390 ;; disable `show-paren-mode' buffer-locally | |
2391 (if (bound-and-true-p show-paren-mode) | |
2392 (set (make-local-variable 'show-paren-mode) nil)) | |
2390 (set (make-local-variable 'revert-buffer-function) | 2393 (set (make-local-variable 'revert-buffer-function) |
2391 #'ibuffer-update) | 2394 #'ibuffer-update) |
2392 (set (make-local-variable 'ibuffer-sorting-mode) | 2395 (set (make-local-variable 'ibuffer-sorting-mode) |
2393 ibuffer-default-sorting-mode) | 2396 ibuffer-default-sorting-mode) |
2394 (set (make-local-variable 'ibuffer-sorting-reversep) | 2397 (set (make-local-variable 'ibuffer-sorting-reversep) |