[Emacs-diffs] Changes to emacs/lisp/ibuffer.el

[Colin Walters]

Index: emacs/lisp/ibuffer.el
diff -c emacs/lisp/ibuffer.el:1.34 emacs/lisp/ibuffer.el:1.35
*** emacs/lisp/ibuffer.el:1.34  Sat Jun 15 14:59:03 2002
--- emacs/lisp/ibuffer.el       Thu Jul 25 02:25:51 2002
***************
*** 861,886 ****
  (defun ibuffer-mouse-popup-menu (event)
    "Display a menu of operations."
    (interactive "e")
!   (let ((origline (count-lines (point-min) (point))))
      (unwind-protect
!       (progn
!         (mouse-set-point event)
!         (if (get-text-property (point) 'ibuffer-filter-group-name)
!             (save-excursion 
!               (popup-menu ibuffer-mode-groups-popup))
!           (setq buffer-read-only nil)
            (ibuffer-save-marks
!             ;; hm.  we could probably do this in a better fashion
!             (ibuffer-unmark-all ?\r)
!             (setq buffer-read-only nil)
!             (ibuffer-set-mark ibuffer-marked-char)
!             (setq buffer-read-only nil)
!             (save-excursion
!               (popup-menu ibuffer-mode-operate-map)))))
!       (progn
!       (setq buffer-read-only t)
!       (goto-line (1+ origline))))))
!   
  (defun ibuffer-skip-properties (props direction)
    (while (and (not (eobp))
              (let ((hit nil))
--- 861,883 ----
  (defun ibuffer-mouse-popup-menu (event)
    "Display a menu of operations."
    (interactive "e")
!   (let ((eventpt (save-excursion
!                  (mouse-set-point event)
!                  (point))))
      (unwind-protect
!       (if (get-text-property eventpt 'ibuffer-filter-group-name)
!           (popup-menu ibuffer-mode-groups-popup)
!         (let ((inhibit-read-only t))
            (ibuffer-save-marks
!            ;; hm.  we could probably do this in a better fashion
!            (ibuffer-unmark-all ?\r)
!            (save-excursion
!              (goto-char eventpt)
!              (ibuffer-set-mark ibuffer-marked-char))
!            (save-excursion
!              (popup-menu ibuffer-mode-operate-map)))))
!       (setq buffer-read-only t))))
! 
  (defun ibuffer-skip-properties (props direction)
    (while (and (not (eobp))
              (let ((hit nil))