Mercurial > hgrepos > hgweb.cgi > yatex
comparison yatexprc.el @ 530:fb4822efb1f5 dev
Workaround for Emacs26 (switch-to-buffer)
| author | HIROSE Yuuji <yuuji@gentei.org> |
|---|---|
| date | Wed, 30 May 2018 07:03:38 +0900 |
| parents | af4601ee3c6a |
| children | 6ea85aaae6f2 |
comparison
equal
deleted
inserted
replaced
| 529:b742adfa30e2 | 530:fb4822efb1f5 |
|---|---|
| 1 ;;; yatexprc.el --- YaTeX process handler -*- coding: sjis -*- | 1 ;;; yatexprc.el --- YaTeX process handler -*- coding: sjis -*- |
| 2 ;;; | 2 ;;; |
| 3 ;;; (c)1993-2018 by HIROSE Yuuji.[yuuji@yatex.org] | 3 ;;; (c)1993-2018 by HIROSE Yuuji.[yuuji@yatex.org] |
| 4 ;;; Last modified Sat Feb 24 16:40:46 2018 on firestorm | 4 ;;; Last modified Wed May 30 07:02:49 2018 on firestorm |
| 5 ;;; $Id$ | 5 ;;; $Id$ |
| 6 | 6 |
| 7 ;;; Code: | 7 ;;; Code: |
| 8 ;(require 'yatex) | 8 ;(require 'yatex) |
| 9 (require 'yatexlib) | 9 (require 'yatexlib) |
| 797 (s (buffer-substring b e)) c | 797 (s (buffer-substring b e)) c |
| 798 (pardir (file-name-directory (buffer-file-name)))) | 798 (pardir (file-name-directory (buffer-file-name)))) |
| 799 (if (string-match (concat "[{,/]" me "[,}]") s) | 799 (if (string-match (concat "[{,/]" me "[,}]") s) |
| 800 nil ; Nothing to do when it's already in includeonly. | 800 nil ; Nothing to do when it's already in includeonly. |
| 801 (ding) | 801 (ding) |
| 802 (switch-to-buffer (current-buffer));Display this buffer. | 802 (set-window-buffer nil (current-buffer));Display this buffer. |
| 803 (setq | 803 (setq |
| 804 me ;;Rewrite my name(me) to contain sub directory name. | 804 me ;;Rewrite my name(me) to contain sub directory name. |
| 805 (concat | 805 (concat |
| 806 (if (string-match pardir mydir) ;if mydir is child of main | 806 (if (string-match pardir mydir) ;if mydir is child of main |
| 807 (substring mydir (length pardir)) ;cut absolute path | 807 (substring mydir (length pardir)) ;cut absolute path |
