Mercurial > hgrepos > hgweb.cgi > yatex
comparison yatexlib.el @ 46:cd1b63102eed
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 |