mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

* simple.el (line-move-visual): If point is stuck moving backwards

Browse source 
against a display string, temporarily ignore the goal
column (Bug#3020).
This commit is contained in:
Chong Yidong 2009-04-25 15:27:45 +00:00
parent af17b9836b
commit 624a662f9a
2 changed files with 27 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,5 +1,9 @@
2009-04-25 Chong Yidong <cyd@stupidchicken.com>
* simple.el (line-move-visual): If point is stuck moving backwards
against a display string, temporarily ignore the goal
column (Bug#3020).
* startup.el (normal-top-level): Implement a work-around to handle
changes to face-font-rescale-alist during
initialization (Bug#1785).

39
lisp/simple.el
View file

@ -4056,24 +4056,31 @@ into account variable-width characters and line continuation."
;; Arg says how many lines to move. The value is t if we can move the
;; specified number of lines.
(defun line-move-visual (arg &optional noerror)
(unless (and (floatp temporary-goal-column)
(or (memq last-command '(next-line previous-line))
;; In case we're called from some other command.
(eq last-command this-command)))
(let ((posn (posn-at-point))
x)
(let ((posn (posn-at-point))
(opoint (point))
x)
;; Reset temporary-goal-column, unless the previous command was a
;; line-motion command or we were called from some other command.
(unless (and (floatp temporary-goal-column)
(memq last-command `(next-line previous-line ,this-command)))
(cond ((eq (nth 1 posn) 'right-fringe) ; overflow-newline-into-fringe
(setq temporary-goal-column (- (window-width) 1)))
((setq x (car (nth 2 posn)))
(setq temporary-goal-column (/ (float x) (frame-char-width)))))))
(or (= (vertical-motion
(cons (or goal-column (truncate temporary-goal-column)) arg))
arg)
(unless noerror
(signal (if (< arg 0)
'beginning-of-buffer
'end-of-buffer)
nil))))
((setq x (car (posn-x-y posn)))
(setq temporary-goal-column (/ (float x) (frame-char-width))))))
;; Move using `vertical-motion'.
(or (and (= (vertical-motion
(cons (or goal-column (truncate temporary-goal-column)) arg))
arg)
(or (>= arg 0)
(/= (point) opoint)
;; If the goal column lies on a display string,
;; `vertical-motion' advances the cursor to the end
;; of the string. For arg < 0, this can cause the
;; cursor to get stuck. (Bug#3020).
(= (vertical-motion arg) arg)))
(unless noerror
(signal (if (< arg 0) 'beginning-of-buffer 'end-of-buffer)
nil)))))
;; This is the guts of next-line and previous-line.
;; Arg says how many lines to move.