Mercurial > hgrepos > hgweb.cgi > yatex

comparison yatexadd.el @ 532:5eb2b1d824f3 dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 523f54775325
children e7356faf50df
comparison
equal deleted inserted replaced
531:6ea85aaae6f2 532:5eb2b1d824f3
1 ;;; yatexadd.el --- YaTeX add-in functions -*- coding: sjis -*- 1 ;;; yatexadd.el --- YaTeX add-in functions -*- coding: sjis -*-
2 ;;; (c)1991-2018 by HIROSE Yuuji.[yuuji@yatex.org] 2 ;;; (c)1991-2018 by HIROSE Yuuji.[yuuji@yatex.org]
3 ;;; Last modified Wed May 16 22:41:56 2018 on firestorm 3 ;;; Last modified Wed May 30 13:35:42 2018 on firestorm
4 ;;; $Id$ 4 ;;; $Id$
5 5
6 ;;; Code: 6 ;;; Code:
7 ;;; 7 ;;;
8 ;;Sample functions for LaTeX environment. 8 ;;Sample functions for LaTeX environment.
1294 (if repface 1294 (if repface
1295 (if ov (move-overlay ov b e) 1295 (if ov (move-overlay ov b e)
1296 (overlay-put 1296 (overlay-put
1297 (setq ov (make-overlay b e)) 1297 (setq ov (make-overlay b e))
1298 'face repface))) 1298 'face repface)))
1299 (switch-to-buffer buf) 1299 (set-window-buffer nil buf) ;Emacs26
1300 (while t 1300 (while t
1301 (message qmsg new) 1301 (message qmsg new)
1302 (setq ch (read-char)) 1302 (setq ch (read-char))
1303 (cond 1303 (cond
1304 ((= ch ?q) (throw 'exit t)) 1304 ((= ch ?q) (throw 'exit t))

yatex.org