Commits

jpw  committed a958d66

2002-02-26 Adrian Aichner <adrian@xemacs.org>

* ibuf-ext.el (ibuffer-occur-engine): Use compatibility functions
`ibuffer-line-beginning' and `ibuffer-line-end'.

2002-02-26 John Paul Wallington <jpw@xemacs.org>

* ibuf-ext.el (ibuffer-do-occur): don't quote ibuffer-marked-char
argument in ibuffer-set-mark call.

  • Participants
  • Parent commits ce4405c

Comments (0)

Files changed (2)

-2002-02-27  John Paul Wallington  <jpw@xemacs.org>
+2002-02-26  Adrian Aichner  <adrian@xemacs.org>
+
+	* ibuf-ext.el (ibuffer-occur-engine): Use compatibility functions
+	`ibuffer-line-beginning' and `ibuffer-line-end'.
+
+2002-02-26  John Paul Wallington  <jpw@xemacs.org>
+
+	* ibuf-ext.el (ibuffer-do-occur): don't quote ibuffer-marked-char
+	argument in ibuffer-set-mark call.
+	
+2002-02-26  John Paul Wallington  <jpw@xemacs.org>
 
 	* ibuffer.el (ibuffer-operate-menu-data): fix entries for
 	ibuffer-do-shell-command-pipe, ibuffer-do-shell-command-pipe-replace.
 	  (< nlines 0))
       (setq nlines 1))
   (when (zerop (ibuffer-count-marked-lines))
-    (ibuffer-set-mark 'ibuffer-marked-char))
+    (ibuffer-set-mark ibuffer-marked-char))
   (let ((ibuffer-do-occur-bufs nil))
     ;; Accumulate a list of marked buffers
     (ibuffer-map-marked-lines
 		  (while (not (eobp))
 		    ;; The line we're matching against
 		    (let ((curline (buffer-substring
-				    (line-beginning-position)
-				    (line-end-position))))
+				    (ibuffer-line-beginning-position)
+				    (ibuffer-line-end-position))))
 		      (when (string-match regexp curline)
 			(incf c) ;; increment match count
 			(incf globalcount)