ibuffer-do-occur bugs

1. It needs to check whether any buffers are marked else will continue to: Signaling: (wrong-type-argument characterp ibuffer-marked-char) string(ibuffer-marked-char) (save-current-buffer (set-buffer buffer) (string mark)) (with-current-buffer buffer (string mark)) (setq str (with-current-buffer buffer (string mark)) strlen (length str)) (let nil (setq str (with-current-buffer buffer ...) strlen (length str)) (when (< strlen 0) (progn ...)) (insert str)) (let (str strlen tmp1 tmp2) (let nil (setq str ... strlen ...) (when ... ...) (insert str)) (let nil (setq str ... strlen ...) (when ... ...) (insert str)) (let nil (setq str ... strlen ...) (when ... ...) (insert str)) (insert " ") (let nil (setq str ... strlen ...) (if ... ... ...) (insert str)) (insert " ") (let nil (setq str ... strlen ...) (when ... ...) (insert str)) (insert " ") (let nil (setq str ... strlen ...) (if ... ... ...) (insert str)) (insert " ") (let nil (setq str ... strlen ...) (when ... ...) (insert str))) (lambda (buffer mark) (let (str strlen tmp1 tmp2) (let nil ... ... ...) (let nil ... ... ...) (let nil ... ... ...) (insert " ") (let nil ... ... ...) (insert " ") (let nil ... ... ...) (insert " ") (let nil ... ... ...) (insert " ") (let nil ... ... ...)))(#<buffer "html<packages>"> ibuffer-marked-char) ibuffer-insert-buffer-line(#<buffer "html<packages>"> ibuffer-marked-char (lambda (buffer mark) (let (str strlen tmp1 tmp2) (let nil ... ... ...) (let nil ... ... ...) (let nil ... ... ...) (insert " ") (let nil ... ... ...) (insert " ") (let nil ... ... ...) (insert " ") (let nil ... ... ...) (insert " ") (let nil ... ... ...)))) ibuffer-redisplay-current() ibuffer-set-mark(ibuffer-marked-char) #<compiled-function (regexp &optional nlines) "...(45)" [regexp ibuffer-marked-char func ibuffer-do-occur-bufs nlines 0 1 ibuffer-count-marked-lines ibuffer-set-mark nil #<compiled-function ... "...(6)" ... 2> ibuffer-map-on-mark ibuffer-redisplay t ibuffer-do-occur-1 get-buffer-create "*Ibuffer-occur*"] 5 ("c:\\Program Files\\XEmacs\\xemacs-packages\\lisp\\ibuffer\\ibuf-ext.elc" . 35847) (list (let* ... ...) current-prefix-arg)>("index" nil) call-interactively(ibuffer-do-occur) 2. Use compatibility functions `ibuffer-line-beginning' and `ibuffer-line-end'. I will send a patch for this soon. Best regards, Adrian -- Adrian Aichner mailto:adrian＠xemacs.org http://www.xemacs.org/