mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-28 01:00:52 -07:00
Code Issues Projects Releases Wiki Activity

(bookmark-jump-noselect): Use goto-char instead of

Browse source 
forward-char/backward-char to pay attention to multibyte
 	characters..
This commit is contained in:
Kenichi Handa 1997-02-26 11:53:15 +00:00
parent db61442bbf
commit c5536f37a6
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/bookmark.el
View file

@ -1114,10 +1114,10 @@ of the old one in the permanent bookmark record."
;; rather than after and remain perhaps unaware of the changes.
(if forward-str
(if (search-forward forward-str (point-max) t)
(backward-char (length forward-str))))
(goto-char (match-beginning 0))))
(if behind-str
(if (search-backward behind-str (point-min) t)
(forward-char (length behind-str))))
(goto-char (match-end 0))))
;; added by db
(setq bookmark-current-bookmark str)
(cons (current-buffer) (point)))