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,