mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00
Code Issues Releases Activity

Fix picture-mode with full-width characters

Browse Source 
* lisp/textmodes/picture.el (picture-insert): Don't rely on
'move-to-column' to move to the column that is its argument: this
might be false when full-width characters are involved.
This commit is contained in:
Eli Zaretskii 2024-11-10 11:48:34 +02:00
parent 7dabfe9465
commit 3954e8d9bb
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/textmodes/picture.el
View File

@ -257,12 +257,14 @@ Use \"\\[command-apropos] picture-movement\" to see commands which control motio
(> width 1)
(< (abs picture-horizontal-step) 2))
(* picture-horizontal-step 2)
picture-horizontal-step)))
picture-horizontal-step))
actual-col)
(while (> arg 0)
(setq arg (1- arg))
(if (/= picture-desired-column (current-column))
(move-to-column picture-desired-column t))
(let ((col (+ picture-desired-column width)))
(setq actual-col (move-to-column picture-desired-column t))
(setq actual-col picture-desired-column))
(let ((col (+ actual-col width)))
(or (eolp)
(let ((pos (point))
(col0 (current-column))