yatex
diff yatexprc.el @ 147:f9d3c2451d19
get-builtin for yahtml
author | yuuji@gentei.org |
---|---|
date | Mon, 27 Sep 2010 17:07:16 +0900 |
parents | e117bfc8ce66 |
children | 20a8da73ceb3 |
line diff
1.1 --- a/yatexprc.el Fri May 28 13:06:52 2010 +0900 1.2 +++ b/yatexprc.el Mon Sep 27 17:07:16 2010 +0900 1.3 @@ -2,7 +2,7 @@ 1.4 ;;; YaTeX process handler. 1.5 ;;; yatexprc.el 1.6 ;;; (c)1993-2010 by HIROSE Yuuji.[yuuji@yatex.org] 1.7 -;;; Last modified Fri May 28 13:05:14 2010 on firestorm 1.8 +;;; Last modified Fri Sep 10 17:47:38 2010 on firestorm 1.9 ;;; $Id$ 1.10 1.11 ;(require 'yatex) 1.12 @@ -918,28 +918,6 @@ 1.13 (YaTeX-switch-to-buffer-other-window 1.14 (concat (YaTeX-get-preview-file-name) ".tex")))) 1.15 1.16 -(defun YaTeX-get-builtin (key) 1.17 - "Read source built-in command of %# usage." 1.18 - (catch 'builtin 1.19 - (let ((bl (delq nil (list (current-buffer) 1.20 - (and YaTeX-parent-file 1.21 - (get-file-buffer YaTeX-parent-file)))))) 1.22 - (save-excursion 1.23 - (while bl 1.24 - (set-buffer (car bl)) 1.25 - (save-excursion 1.26 - (goto-char (point-min)) 1.27 - (if (and (re-search-forward 1.28 - (concat "^" (regexp-quote (concat "%#" key))) nil t) 1.29 - (not (eolp))) 1.30 - (throw 'builtin 1.31 - (YaTeX-buffer-substring 1.32 - (progn 1.33 - (skip-chars-forward " \t" (point-end-of-line)) 1.34 - (point)) 1.35 - (point-end-of-line))))) 1.36 - (setq bl (cdr bl))))))) 1.37 - 1.38 (defun YaTeX-save-buffers () 1.39 "Save buffers whose major-mode is equal to current major-mode." 1.40 (basic-save-buffer)