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)