diff --git a/yatexadd.el b/yatexadd.el
index 9efe2f3..877208c 100644
--- a/yatexadd.el
+++ b/yatexadd.el
@@ -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 --git a/yatexsec.el b/yatexsec.el
index 993f98a..743cccc 100644
--- a/yatexsec.el
+++ b/yatexsec.el
@@ -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,