procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Avoid infloop in ERC

Browse source 
* lisp/simple.el (line-move-to-column): Ignore field boundaries
while computing line beginning position.  (Bug#20498)
This commit is contained in:
Eli Zaretskii 2015-05-09 16:06:48 +03:00
parent b18353c61c
commit d2c7e14ac3
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/simple.el
View file

@ -6000,7 +6000,11 @@ and `current-column' to be able to ignore invisible text."
;; that will get us to the same place on the screen
;; but with a more reasonable buffer position.
(goto-char normal-location)
(let ((line-beg (line-beginning-position)))
(let ((line-beg
;; We want the real line beginning, so it's consistent
;; with bolp below, otherwise we might infloop.
(let ((inhibit-field-text-motion t))
(line-beginning-position))))
(while (and (not (bolp)) (invisible-p (1- (point))))
(goto-char (previous-char-property-change (point) line-beg))))))))