/[emacs]/emacs/lisp/ibuf-ext.el
ViewVC logotype

Diff of /emacs/lisp/ibuf-ext.el

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

revision 1.21 by walters, Tue May 7 08:13:13 2002 UTC revision 1.22 by walters, Thu May 9 21:29:20 2002 UTC
# Line 1406  defaults to one." Line 1406  defaults to one."
1406    (interactive (occur-read-primary-args))    (interactive (occur-read-primary-args))
1407    (if (or (not (integerp nlines))    (if (or (not (integerp nlines))
1408            (< nlines 0))            (< nlines 0))
1409        (setq nlines 1))        (setq nlines 0))
1410    (when (zerop (ibuffer-count-marked-lines))    (when (zerop (ibuffer-count-marked-lines))
1411      (ibuffer-set-mark ibuffer-marked-char))      (ibuffer-set-mark ibuffer-marked-char))
1412    (let ((ibuffer-do-occur-bufs nil))    (let ((ibuffer-do-occur-bufs nil))

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

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