Mercurial > hgrepos > hgweb.cgi > yatex

comparison yatexlib.el @ 46:cd1b63102eed

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Support Mule2
author yuuji
date Mon, 19 Sep 1994 16:54:19 +0000
parents b00c74813e56
children d7e7b4654058
comparison
equal deleted inserted replaced
45:b0fc9c2950cd 46:cd1b63102eed
1 ;;; -*- Emacs-Lisp -*- 1 ;;; -*- Emacs-Lisp -*-
2 ;;; YaTeX library of general functions. 2 ;;; YaTeX library of general functions.
3 ;;; yatexlib.el 3 ;;; yatexlib.el
4 ;;; (c )1994 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp] 4 ;;; (c )1994 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp]
5 ;;; Last modified Fri Jul 8 00:44:41 1994 on figaro 5 ;;; Last modified Fri Sep 16 01:50:34 1994 on figaro
6 ;;; $Id$ 6 ;;; $Id$
7 7
8 ;;;###autoload 8 ;;;###autoload
9 (defun YaTeX-search-active-forward (string cmntrx &optional bound err cnt func) 9 (defun YaTeX-search-active-forward (string cmntrx &optional bound err cnt func)
10 "Search STRING which is not commented out by CMNTRX. 10 "Search STRING which is not commented out by CMNTRX.
51 (progn 51 (progn
52 (funcall (if setbuf 'set-buffer 'switch-to-buffer) 52 (funcall (if setbuf 'set-buffer 'switch-to-buffer)
53 (file-name-nondirectory file)) 53 (file-name-nondirectory file))
54 buf) 54 buf)
55 (if (file-exists-p file) 55 (if (file-exists-p file)
56 (progn (find-file file) (current-buffer)) 56 (funcall
57 (if setbuf 'find-file-noselect 'find-file)
58 file)
57 (message "%s was not found in this directory." file) 59 (message "%s was not found in this directory." file)
58 nil))) 60 nil)))
59 ) 61 )
60 62
61 ;;;###autoload 63 ;;;###autoload

yatex.org