/[emacs]/emacs/lisp/ibuffer.el
ViewVC logotype

Diff of /emacs/lisp/ibuffer.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by walters, Wed Mar 27 22:19:24 2002 UTC revision 1.15 by walters, Fri Mar 29 22:54:40 2002 UTC
# Line 823  width and the longest string in LIST." Line 823  width and the longest string in LIST."
823    (unless arg    (unless arg
824      (setq arg 1))      (setq arg 1))
825    (beginning-of-line)    (beginning-of-line)
826      (when (or (eobp)
827                (get-text-property (point) 'ibuffer-summary))
828        (goto-char (point-min)))
829      (while (get-text-property (point) 'ibuffer-title)
830        (forward-line 1))
831    (if (< arg 0)    (if (< arg 0)
832        (ibuffer-backward-line (- arg))        (ibuffer-backward-line (- arg))
833      (while (> arg 0)      (while (> arg 0)
# Line 1144  become unmarked." Line 1149  become unmarked."
1149    (assert (eq major-mode 'ibuffer-mode))    (assert (eq major-mode 'ibuffer-mode))
1150    (unless arg    (unless arg
1151      (setq arg 1))      (setq arg 1))
1152    (while (and (get-text-property (line-beginning-position)    (ibuffer-forward-line 0)
                                  'ibuffer-title)  
               (not (eobp)))  
     (forward-line 1))  
   
1153    (let ((inhibit-read-only t))    (let ((inhibit-read-only t))
1154      (while (> arg 0)      (while (> arg 0)
1155        (ibuffer-set-mark mark)        (ibuffer-set-mark mark)
1156        (forward-line movement)        (ibuffer-forward-line movement)
       (when (or (get-text-property (line-beginning-position)  
                                    'ibuffer-title)  
                 (eobp))  
         (forward-line (- movement))  
         (setq arg 0))  
1157        (setq arg (1- arg)))))        (setq arg (1- arg)))))
1158    
1159  (defun ibuffer-set-mark (mark)  (defun ibuffer-set-mark (mark)

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26