Commit 214b39be authored by Colin Walters's avatar Colin Walters

(ibuffer-mark-interactive): Use `ibuffer-forward-line' instead of

`forward-line'.
(ibuffer-forward-line): Be sure to skip over special properties
before moving, too.
parent 3fb819e5
2002-03-29 Colin Walters <walters@verbum.org>
* ibuffer.el (ibuffer-mark-interactive): Use
`ibuffer-forward-line' instead of `forward-line'.
(ibuffer-forward-line): Be sure to skip over special properties
before moving, too.
* calc/calc.el (calc-was-split): Var deleted.
(calc): Remove reference to it.
(calc): Ditto.
(calc-quit): Ditto.
* calc/calc-misc.el (calc-delete-windows-keep): Function deleted.
2002-03-29 Eli Zaretskii <eliz@is.elta.co.il>
* files.el (auto-save-file-name-transforms): Don't run "\\2" via
......
......@@ -823,6 +823,11 @@ width and the longest string in LIST."
(unless arg
(setq arg 1))
(beginning-of-line)
(when (or (eobp)
(get-text-property (point) 'ibuffer-summary))
(goto-char (point-min)))
(while (get-text-property (point) 'ibuffer-title)
(forward-line 1))
(if (< arg 0)
(ibuffer-backward-line (- arg))
(while (> arg 0)
......@@ -1144,20 +1149,11 @@ become unmarked."
(assert (eq major-mode 'ibuffer-mode))
(unless arg
(setq arg 1))
(while (and (get-text-property (line-beginning-position)
'ibuffer-title)
(not (eobp)))
(forward-line 1))
(ibuffer-forward-line 0)
(let ((inhibit-read-only t))
(while (> arg 0)
(ibuffer-set-mark mark)
(forward-line movement)
(when (or (get-text-property (line-beginning-position)
'ibuffer-title)
(eobp))
(forward-line (- movement))
(setq arg 0))
(ibuffer-forward-line movement)
(setq arg (1- arg)))))
(defun ibuffer-set-mark (mark)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment