From 4ba1612761c358928e641522c4f52cb91ffaaf48 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Mon, 9 Dec 2002 23:46:12 +0000 Subject: * 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. --- lisp/ibuffer.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'lisp/ibuffer.el') diff --git a/lisp/ibuffer.el b/lisp/ibuffer.el index 3838212b304..0fa9207bf54 100644 --- a/lisp/ibuffer.el +++ b/lisp/ibuffer.el @@ -883,7 +883,7 @@ width and the longest string in LIST." (save-excursion (popup-menu ibuffer-mode-operate-map))))) (setq buffer-read-only t) - (if (eq eventpt (point)) + (if (= eventpt (point)) (goto-char origpt))))) (defun ibuffer-skip-properties (props direction) @@ -2387,6 +2387,9 @@ will be inserted before the group at point." ;; This makes things less ugly for Emacs 21 users with a non-nil ;; `show-trailing-whitespace'. (setq show-trailing-whitespace nil) + ;; disable `show-paren-mode' buffer-locally + (if (bound-and-true-p show-paren-mode) + (set (make-local-variable 'show-paren-mode) nil)) (set (make-local-variable 'revert-buffer-function) #'ibuffer-update) (set (make-local-variable 'ibuffer-sorting-mode) -- cgit v1.2.1