# HG changeset patch # User HIROSE Yuuji # Date 1527656086 -32400 # Node ID 5eb2b1d824f38ea9e8dcf4ee7ed9251fa83cc11e # Parent 6ea85aaae6f25e3ffe103d2bdb7b9b52a992765a 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. diff -r 6ea85aaae6f2 -r 5eb2b1d824f3 yatexadd.el --- 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)) diff -r 6ea85aaae6f2 -r 5eb2b1d824f3 yatexsec.el --- 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,