Mercurial > hgrepos > hgweb.cgi > yatex
changeset 532:5eb2b1d824f3 dev
Emacs26's switch-to-buffer does not keep logical point.
So we need to use set-window-buffer to bring current but non-interactive
buffer up to interactive buffer.
author | HIROSE Yuuji <yuuji@gentei.org> |
---|---|
date | Wed, 30 May 2018 13:54:46 +0900 |
parents | 6ea85aaae6f2 |
children | 81af9784a013 |
files | yatexadd.el yatexsec.el |
diffstat | 2 files changed, 4 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/yatexadd.el Wed May 30 08:33:07 2018 +0900 +++ b/yatexadd.el Wed May 30 13:54:46 2018 +0900 @@ -1,6 +1,6 @@ ;;; yatexadd.el --- YaTeX add-in functions -*- coding: sjis -*- ;;; (c)1991-2018 by HIROSE Yuuji.[yuuji@yatex.org] -;;; Last modified Wed May 16 22:41:56 2018 on firestorm +;;; Last modified Wed May 30 13:35:42 2018 on firestorm ;;; $Id$ ;;; Code: @@ -1296,7 +1296,7 @@ (overlay-put (setq ov (make-overlay b e)) 'face repface))) - (switch-to-buffer buf) + (set-window-buffer nil buf) ;Emacs26 (while t (message qmsg new) (setq ch (read-char))
--- a/yatexsec.el Wed May 30 08:33:07 2018 +0900 +++ b/yatexsec.el Wed May 30 13:54:46 2018 +0900 @@ -1,7 +1,7 @@ ;;; yatexsec.el --- YaTeX sectioning browser ;;; ;;; (c) 1994-2017 by HIROSE Yuuji [yuuji@yatex.org] -;;; Last modified Sun Dec 21 14:16:35 2014 on firestorm +;;; Last modified Wed May 30 13:29:50 2018 on firestorm ;;; $Id$ ;;; Code: @@ -192,6 +192,7 @@ (other-window 1) (setq sb (current-buffer)) (switch-to-buffer hb) + (setq buffer-read-only nil) ;; Emacs26 (erase-buffer) (insert "===== View sectioning ===== C-p Up sectioning level. 0 Show only \\part,