diff --git a/docs/qanda.eng b/docs/qanda.eng index 631b09b..5e5fd9a 100644 --- a/docs/qanda.eng +++ b/docs/qanda.eng @@ -1,93 +1,98 @@ %% %% Q and A on YaTeX %% -%% C-u C-x $ shows only questions. C-x $ displays the questions. +%% C-u C-x $ shows only questions. C-x $ shows all. %% [Installation] +============== *Installing the manual - Copy yatexe to the info directory where your Emacs is installed, and - add the next line to the dir file of the same directory. + + Copy yatexe to the info directory where your Emacs is installed, + and add the next line to the dir file of the same directory. * YaTeX: (yatexj). Yet Another tex-mode for Emacs. (Japanese). - (After that, M-x info [RET] m yatex [RET] will give you Wild Bird's - manual. Hitting ? will show how to use info) + (After that, M-x info [RET] m yatex [RET] will give you Wild + Bird's manual. Hitting ? will show how to use info) *I ain't got the privilege to write in the Info directory... - - Get yourself made root. If you can't, have them install mule2 and - add + + Get yourself made root. If you can't, have them install Mule2 + and add (setq Info-default-directory-list (cons "YOUR INFO DIRECTORY" Info-default-directory-list)) - to your ~/.emacs. Now your personal files will be added to the menu - when you invoke info. mule1 will not release memories, so processes - will pile up and be heavier on the system compared to mule2. Nemacs - has already become obsolete by the developers, so no further comments - for usage of Nemacs. Get yourself mule2 with flying colors :-) + to your ~/.emacs. Now your personal files will be added to the + menu when you invoke info. By the way, Mule1 will not release + memories, so processes will pile up and be heavier on the system + compared to Mule2. Nemacs has already become obsolete by the + developers, so no further comments for usage of Nemacs. Get + yourself Mule2 with flying colors :-) *Emacs can't find the help file. - - The help file is set to be placed in $EMACS/etc/ for Nemacs, Mule1 - and $EMACS/site-lisp/ for Mule2. If you don't have the privilege to - put them in a public location, copy it to your home directory and - set YaTeX-help-file to that file name. + + The help file is set to be placed in $EMACS/etc/ for Nemacs, + Mule1 and $EMACS/site-lisp/ for Mule2. If you don't have the + privilege to put them in a public location, copy it to your home + directory and set YaTeX-help-file to that file name. *I can't read info on Nemacs - The info file was formatted on Mule, so it can't be read correctly on - Nemacs (or Demacs based on Nemacs) because the internal Japanese - processing is different. Read it on Mule. Use the Emacs-Lisp - package in texinfo-3.1.tar.gz to format the Texinfo file. + The info file was formatted on Mule, so it can't be read + correctly on Nemacs (or Demacs based on Nemacs) because the + internal Japanese processing is different. Read it on Mule. + Use the Emacs-Lisp package in texinfo-3.1.tar.gz to format the + Texinfo file. [Operations] +============ *I accidentally learned in a wrong LaTeX command. - There should be a line with the wrong command in the .yatexrc file - in you home or current directory. Erase that line, do M-x + There should be a line with the wrong command in the .yatexrc + file in you home or current directory. Erase that line, do M-x eval-current-buffer and save the results with C-x C-s. *I can't comment out the region. - Probably the point is on a line withe \begin{} or \end{}. Go up or - down a line and do C-c >. + Probably the point is on a line withe \begin{} or \end{}. Go up + or down a line and do C-c >. *I was asked for a parent file when typesetting, and answered the wrong file. - Re-read the child file with C-x C-v RET or re-type the parent file - with C-u C-c ^. + Re-read the child file with C-x C-v RET or re-type the parent + file with C-u C-c ^. *The typeset buffer is not shown when I get a typeset buffer on Demacs. - This happens on Demacs 1.2.0, when the child process returns an - error level of 1 or more. If you are calling jlatex from a batch - file, call a dummy command that always returns errorlevel 0 at the - end. + This happens on Demacs 1.2.0, when the child process returns an + error level of 1 or more. If you are calling jlatex from a + batch file, call a dummy command that always returns errorlevel + 0 at the end. *How can I enter "\underline{\makebox[4em][l]{x y}{\tt z}}" more easily? - Recursive completion can be used for inputting arguments in the - mini-buffer of a section type completion. Following is an example - showing the command in question. + Recursive completion can be used for inputting arguments in the + mini-buffer of a section type completion. Following is an + example showing the command in question. - PROMPT KEYs ENTERED - C-c s und SPC RET - \underline{???}: C-c s makeb SPC RET - Width: 4em RET - makebox position (`lr'): - l RET - \makebox{???}: x y RET - \underline{???}: \makebox[4em][l]{x y} C-c l tt RET - \underline{???}: \makebox[4em][l]{x y}{\tt } z RET + PROMPT KEYs ENTERED + C-c s und SPC RET + \underline{???}: C-c s makeb SPC RET + Width: 4em RET + makebox position (`lr'): - l RET + \makebox{???}: x y RET + \underline{???}: \makebox[4em][l]{x y} C-c l tt RET + \underline{???}: \makebox[4em][l]{x y}{\tt } z RET *How can I kill \footnote{} from \footnote{HOGE} - Put the point to \footnote and do C-c k. This will kill the - \footnote{}. If you want to kill the whole thing including HOGE, do - C-u C-c k. + Put the point to \footnote and do C-c k. This will kill the + \footnote{}. If you want to kill the whole thing including + HOGE, do C-u C-c k. *I want to make HONYARA into a footnote. @@ -101,23 +106,22 @@ \verb isn't a maketitle-type, so there aren't any quick commands. But you can use C-c $ to do the same thing. - + v v WHAT YOU NEED to make \verb - \verbWHAT YOU NEED to make \verb (insert \verb) - ^(C-@) (mark W) - \verbWHAT YOU NEED to make \verb - ^C-c $ (move point to end enclose - with $) - \verb$WHAT YOU NEED$ to make \verb (done!) + \verbWHAT YOU NEED to make \verb (insert \verb) + ^(C-@) (mark W) + \verbWHAT YOU NEED to make \verb + ^C-c $ (move point to end enclose with $) + \verb$WHAT YOU NEED$ to make \verb (done!) *I want to have commands defined on a upper level file to be read in when doing a typeset-region on a child file. - When you are editing child files broken into sections and some - macros to be used are defined in upper level files, you'll need them - to do typeset-region. The macros needed will be copied to the - temporary file if you add %#REQUIRE to the end of the macro's - definition. + When you are editing child files broken into sections and some + macros to be used are defined in upper level files, you'll need + them to do typeset-region. The macros needed will be copied to + the temporary file if you add %#REQUIRE to the end of the + macro's definition. Say you had a grand-child file +-- main.tex --+ +---- sub.tex ----+ +-- subsub.tex --+ @@ -128,9 +132,9 @@ | : | +-----------------+ |TYPESET IS | +--------------+ ^ |HERE | +-- macros.tex ---+ |%#END | - |\def\foo{bar} | |: | - |\def\hoge{hero} | +----------------+ - +-----------------+ + |\def\foo{bar} | |: | + |\def\hoge{hero} | +----------------+ + +-----------------+ In this case you change the \include{macros} line in sub.tex to @@ -140,52 +144,56 @@ %#REQUIRE \include{macros} - If %#REQUIRE is at the top of the line, the following will be copied - to the temporary file. So, macros.tex will be included only once - whether you are typesetting all the files, or doing a typeset-region - on sub.tex or subsub.tex. + If %#REQUIRE is at the top of the line, the following will be + copied to the temporary file. So, macros.tex will be included + only once whether you are typesetting all the files, or doing a + typeset-region on sub.tex or subsub.tex. *I want to reuse ARGUMENTS I used in the last \foo{ARGUMENTS} - Use the gmhist package. YaTeX works fine with gmhist. When you are - asked \foo{???}: in the mini-buffer, hitting M-p (ESC p) will get - you a history of what you have inputted in reverse. M-n will go - forward in the history. This input history can be used for - begin-type completion, section-type completion, evoking the - previewer, and print out commands. + Use the gmhist package. YaTeX works fine with gmhist. When you + are asked \foo{???}: in the mini-buffer, hitting M-p (ESC p) + will get you a history of what you have inputted in reverse. + M-n will go forward in the history. This input history can be + used for begin-type completion, section-type completion, evoking + the previewer, and print out commands. - gmhist can be found at many Emacs-Lisp archive sights. For example, - ftp.ae.keio.ac.jp:pub/emacs-lisp/util/gmhist.tar.gz + gmhist can be found at many Emacs-Lisp archive sights. For + example, ftp.ae.keio.ac.jp:pub/emacs-lisp/util/gmhist.tar.gz + + Note that Emacs-19(Mule2) doesn't need gmhist for the feature of + minibuffer history. *ref<->label jump doesn't work. - C-c g will start a forward search of ref/label. C-u C-c g will - start a backward search. If you want to continue searching for - \ref, hit C-s (C-r) twice and use the repeated search feature of the - incremental search. If the point to jump is in another file, that - file must be already opened. YaTeX-display-hierarchy (C-c d) can be - used to open all files at once. + C-c g will start a forward search of ref/label. C-u C-c g will + start a backward search. If you want to continue searching for + \ref, hit C-s (C-r) twice and use the repeated search feature of + the incremental search. If the point to jump is in another + file, that file must be already opened. YaTeX-display-hierarchy + (C-c d) can be used to open all files at once. *I get a % at the end of the line when I do a fill-paragraph or auto-fill. - NTT-jTeX will add an unnecessary space in the print out image if the - japanese paragraph is written with an indent. To avoid this, you - need to put a % at the end of the line. YaTeX will automatically - put a % so you can input indented text for NTT-jTeX. But there may - be a bug in the routine so please report if you find any %s otherwise - than at the end of a line. + NTT-jTeX will add an unnecessary space in the print out image if + the japanese paragraph is written with an indent. To avoid + this, you need to put a % at the end of the line. YaTeX will + automatically put a % so you can input indented text for + NTT-jTeX. But there may be a bug in the routine so please + report if you find any %s otherwise than at the end of a line. *Isn't the indentation too deep in itemize environments? - Think so too? An alias Mr. K thought this was better and he's - the only one delighted hitting the TAB key. Wasn't my idea! (still - have a bit of a grudge) If you also think it's too deep, hit TAB at - the end of the line with \begin{itemize} within the environment. - Now it's too shallow? Umm... time for me to take a break. - + Think so too? An alias Mr. K thought this was better and he + feels an ultimate ecstacy with hitting the TAB to indent a line. + Wasn't my idea! (still have a bit of a grudge) If you also + think it's too deep, hit TAB at the end of the line with + \begin{itemize} within the environment. Now it's too shallow? + Umm... time for me to take a break. -[About Mule2] -*Equations are too dark to read when I use Mule2+hilit19. +[About Emacs-19/Mule2] +====================== +*Equations are too dark to read when I use hilit19. The default coloring of hilit19.el is too dark. Try putting the next code in ~/.emacs or yatexhks.el. @@ -198,20 +206,38 @@ *Can't I use font-lock? - The document says, "pattern must be specified within a line". So it - seems you can't chose a pattern like from \begin to \end that laps - more than one line. But on the other hand, multiple line comments - in C seems to work fine... So what's the real story? Anybody know - the answer? If so, teach me, or try sending a fan letter to our - font-lock investigator-in-depress Taguchi (tagu@ae.keio.ac.jp) + The document says, "pattern must be specified within a line". + So it seems you can't chose a pattern like from \begin to \end + that laps more than one line. But on the other hand, multiple + line comments in C seems to work fine... So what's the real + story? Anybody know the answer? If so, teach me, or try + sending a fan letter to our font-lock investigator-in-depress + Taguchi (tagu@ae.keio.ac.jp) *It's sooo slow when I click YaTeX on the menu bar. - I don't know why. Probably a problem with Emacs-19. You'll just - have to bear with it. It won't be so slow the second time. - Anyway, you probably won't use the menu at all, do you? + I don't know why. Probably a problem with Emacs-19. You'll + just have to bear with it. It won't be so slow the second time. + Anyway, you probably won't use the menu at all, do you? + +*Is there any way of displaying `\it' strings in the italic font? + + First, you should find the available italic font on your + system. In, *scratch* buffer, + (set-face-font 'italic "-*-*-medium-i-*--*-*-*-*-*-*-*-*") + or + (set-face-font 'italic "-*-*-medium-o-*--*-*-*-*-*-*-*-*") + and C-j (It takes very very long time!!). + If you get `No matches found', no way. (;_;)/~ + If you get some font name, + "-adobe-courier-medium-i-normal--12-120-75-75-m-0-iso8859-1" + for example, write + (set-face-font 'italic + "-adobe-courier-medium-i-normal--12-120-75-75-m-0-iso8859-1") + in your `yatexhks.el'. [Customization] +=============== *I don't use C-c b i much, so it would be better if I can start completion after hitting C-c b. @@ -219,63 +245,67 @@ *An open parenthesis always get entered in pairs. - This should be better, once you get used to it. If you still don't - like it, turn on modify-mode using C-c w m. Setting - YaTeX-close-paren-always to nil will give this feature from the start. + This should be better, once you get used to it. If you still + don't like it, turn on modify-mode using C-c w m. Setting + YaTeX-close-paren-always to nil will give this feature from the + start. *Funny things happen when I hit ;. - YaTeX think you are in math mode and evokes math-mode-image - completion. If you are writing a equation that TeX will not give an - error and YaTeX mistakes what mode you are in, report it back to the - author. For mistaken judgements or if you want to enter a literal - ;, hit ; twice. C-u ; to use ; as a image-completion prefix. + YaTeX think you are in math mode and evokes math-mode-image + completion. If you are writing a equation that TeX will not + give an error and YaTeX mistakes what mode you are in, report it + back to the author. For mistaken judgements or if you want to + enter a literal ;, hit ; twice. C-u ; to use ; as a + image-completion prefix. *I want YaTeX to enter the option arguments for a newenvironment. - Read yatexadd.doc. If that's not enough, read yatexgen.doc and try - M-x YaTeX-generate. + Read yatexadd.doc. If that's not enough, read yatexgen.doc and + try M-x YaTeX-generate. *I first defined \foo as a macro taking 3 arguments. Later I changed it to take 4 arguments, but the section-type completion will ask me for only 3 arguments. - Use C-u 4 C-c s and tell it will take 4 arguments. You can change - the number of arguments anytime you want. + Use C-u 4 C-c s and tell it will take 4 arguments. You can + change the number of arguments anytime you want. *I made a argument-type addin function, but can't do completion after the first two arguments. - If you made a addin function like \foo{x}{y}{z} that takes 3 - arguments, then you need to learn in the dictionary that \foo will - take 3 arguments. This can be done by C-u 3 C-c s foo. You only - need to do it once. + If you made a addin function like \foo{x}{y}{z} that takes 3 + arguments, then you need to learn in the dictionary that \foo + will take 3 arguments. This can be done by C-u 3 C-c s foo. + You only need to do it once. *My addin functions are overwritten by yatexadd. - Formally, all private functions were written in your own yatexadd.el. - Now, all private functions are put in yatexhks.el. yatexhks.el will - be read in at the end of YaTeX's initialization, so you can overwrite - definitions in yatexadd.el. + Formally, all private functions were written in your own + yatexadd.el. Now, all private functions are put in yatexhks.el. + yatexhks.el will be read in at the end of YaTeX's + initialization, so you can overwrite definitions in yatexadd.el. [ETC] +===== *Mailing lists? - A question, so an answer. The mailing list for YaTeX(Wild Bird) and - it's implementation to Vz, Raicho (by katsura@prc.tsukuba.ac.jp) is - "fj Wild Bird Society". Send a mail like + A question, so an answer. The mailing list for YaTeX (Wild + Bird) and it's implementation to Vz, Raicho (by KATSURAGAWA, + Naoki; katsura@prc.tsukuba.ac.jp) is "fj Wild Bird Society". + Send a mail like To: yatex-control@harvest.jaist.ac.jp Subject: append ----- Hi! See any birds fly by? - - and you're in. The text will be used as your profile. (you can - change it later) Once you're in, you'll get a reply with lists of - commands used in the mailing list. Join along and help adding new - feathers to Wild Bird. BTW, if you haven't guessed it yet, yes, - this mailing list is in Japanese. But give us a try anyway. You're - always welcome. + + and you're in. The text will be used as your profile. (you can + change it later) Once you're in, you'll get a reply with lists + of commands used in the mailing list. Join along and help + adding new feathers to Wild Bird. BTW, if you haven't guessed + it yet, yes, this mailing list is in Japanese. But give us a + try anyway. You're always welcome. *Help, help HELP!! @@ -290,8 +320,9 @@ *Picking a question in this file with C-u C-x $ and hitting C-x $ takes me to a weird world. - You too? Try marking the question before C-x $ and to C-x C-x to - take you back to it. (mule2 doesn't seem to have the same problem) + You too? Try marking the question before C-x $ and to C-x C-x + to take you back to it. (Mule2 doesn't seem to have the same + problem) Local Variables: diff --git a/docs/yatexe.tex b/docs/yatexe.tex index 137d6a7..c8cdaf6 100644 --- a/docs/yatexe.tex +++ b/docs/yatexe.tex @@ -1664,6 +1664,17 @@ section-type command when add-in function for it is not defined. @end defvar +@defvar YaTeX-create-file-prefix-g +When typing @kbd{prefix g} on the @code{\include} line, +open the target file even if the file doesn't exist(@code{nil}). +@end defvar + +@defvar YaTeX-simple-messages +Simplyfy messages of various completions(@code{nil})$B!#(B +@end defvar + + + @node Sample definitions, Hook variables, All customizable variables, Lisp variables @comment node-name, next, previous, up @subsection Sample definitions diff --git a/docs/yatexj.tex b/docs/yatexj.tex index ff555d2..4e5c6ac 100644 --- a/docs/yatexj.tex +++ b/docs/yatexj.tex @@ -1870,6 +1870,15 @@ �~�j�o�b�t�@�ł̓ǂݍ��݂������ɓ��͂�����������B @end defvar +@defvar YaTeX-create-file-prefix-g +@code{\include}�Ȃǂ� @kbd{prefix g}�������ɁA�W�����v�悪���݂��Ȃ��t�@�C +���ł����Ă��I�[�v������(@code{nil})�B +@end defvar + +@defvar YaTeX-simple-messages +�e��⊮���̃��b�Z�[�W�o�͂��ȑf������(@code{nil})�B +@end defvar + @node Sample definitions, Hook variables, All customizable variables, Lisp variables @comment node-name, next, previous, up @subsection �J�X�^�}�C�Y�ϐ��ݒ�� diff --git a/help/YATEXHLP.jp b/help/YATEXHLP.jp index 4200675..d71c18b 100644 --- a/help/YATEXHLP.jp +++ b/help/YATEXHLP.jp @@ -1254,7 +1254,7 @@ �肢�t�������ł��B ���삳��(prc) - �e���Ŗ\��Ă��܂��B + �e���Ŗ\��Ă��܂��B �O���P�Y����(�c���) �J�����ʂ̓��͎��̏����̃��[�h�����̃A�C�f�A�𒸂��܂����B @@ -1323,6 +1323,18 @@ �����\����(�c���) �l�X�g���������itemize�‹��ł�indentation�̕s����w�E���Ē��� �܂����B + +�ΐ�m���(�x�m��) + Mule2�ŎΑ̃t�H���g���g�p���邽�߂̎菇�������Ē����܂����B + +���_�ꂳ��(��B��w) + Mule�Ńt�H�[�}�b�g����info�t�@�C����Nemacs�p�ɃR���o�[�g������@ + �������Ē����܂����B + +�c����������(�c���) + font-lock �̎g�����𒲍�����Ƃ����āA�܂����������Ă���܂���B + �������Ă�������:-)�B + yatex (setq auto-mode-alist (cons '("\\.tex$" . yatex-mode) auto-mode-alist)) diff --git a/yatex.el b/yatex.el index 147a38d..5ec0717 100644 --- a/yatex.el +++ b/yatex.el Binary files differ diff --git a/yatex.new b/yatex.new index def40d8..e093cc7 100644 --- a/yatex.new +++ b/yatex.new @@ -1,7 +1,21 @@ What's new in YaTeX yatex.el �e�o�[�W�����̕ύX�_�ɂ‚��� -1.58 YaTeX-close-paren-always �� 'never �Ȃ��Ɏ����I�Ɋ��ʂ�‚��Ȃ��B +1.59 %(�R�����g)��hilit�̃o�O���C���B + tabular�‹��̂��C�����s�Ŗ������[�v�ɂȂ邱�Ƃ�����̂�����B + �A�h�C���֐��������Ȃ��o�O���C���B + [prefix] i (YaTeX-fill-item) �̕s��C�� + `yatex19.el' �����[�h���Ă���̂��C�� + italic �t�H���g�̎g�����̐����������Ă݂� (docs/qanda) + +1.58 �����‹���p�R�}���h�� maketitle �^�⊮�������ɂ͎����I��$$�ň͂ށB + [prefix] x �ŃL�[�}�b�v YaTeX-user-extensional-map ���Ăяo���B���� + �L�[�}�b�v�ɂ̓��[�U���D���ȃL�[�ɍD���Ȋ֐����`�ł���B + section �^�⊮�� maketitle �^�̂��̂��������悤�ɂ���(����0��)�B + YaTeX-close-paren-always �� 'never �Ȃ��Ɏ����I�Ɋ��ʂ�‚��Ȃ��B + YaTeX-skip-default-reader �� non-nil �Ȃ� section �^�⊮�̃f�t�H + ���g�̈������[�_���Ă΂Ȃ��B + YaTeX-simple-messages �� non-nil �Ȃ�ȑf�ȃ��b�Z�[�W�ŕ\���B �p��ł�LaTeX�w���v�����������B fj.sources�Ƀ|�X�g�B diff --git a/yatex19.el b/yatex19.el index b20c447..d152d56 100644 --- a/yatex19.el +++ b/yatex19.el @@ -1,7 +1,7 @@ ;;; -*- Emacs-Lisp -*- ;;; YaTeX facilities for Emacs 19 ;;; (c )1994-1995 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp] -;;; Last modified Thu Feb 2 23:44:30 1995 on figaro +;;; Last modified Mon May 15 15:50:04 1995 on inspire ;;; $Id$ ;;; �Ƃ肠���� hilit19 ���g���Ă��鎞�ɐF���t���悤�ɂ��� @@ -253,12 +253,16 @@ (defun YaTeX-19-region-comment (pattern) "Return list of comment start and end point." (if (re-search-forward pattern nil t) - (cons (match-beginning 1) (match-end 0)))) + (cons (match-beginning 2) (match-end 0)))) + +;;(make-face 'tt) +;;(set-face-font 'tt "-schumacher-clean-medium-r-normal--*-*-*-*-*-*-*-*") +;;(hilit-translate 'tt "white") (defvar YaTeX-hilit-patterns-alist '( ;; comments - (YaTeX-19-region-comment "[^\\]\\(%\\).*$" comment) + (YaTeX-19-region-comment "\\([^\\]\\|^\\)\\(%\\).*$" comment) (YaTeX-19-region-section-type "\\\\footnote\\(mark\\|text\\)?{" keyword) ("\\\\[a-z]+box" 0 keyword) @@ -302,8 +306,10 @@ ("\\\\\\(include\\|input\\|bibliography\\){" "}" include) ;; "wysiwyg" emphasis -- these don't work with nested expressions - ;; ("{\\\\\\(em\\|it\\|sl\\)" "}" italic) + (YaTeX-19-region-large-type "{\\\\\\(em\\|it\\|sl\\)" italic) (YaTeX-19-region-large-type "{\\\\bf" bold) + ;;;(YaTeX-19-region-large-type "{\\\\tt" tt) + ;;;("\\\\begin{verbatim" "\\\\end{verbatim" tt) ("``" "''" string) @@ -360,7 +366,7 @@ (- fG (/ (* level fG) 40)) (- fB (/ (* level fB) 40))) bg (format "hex-%02x%02x%02x" - (- bR (/ (* level bR) 15)) ;20 musn't be constant + (- bR (/ (* level bR) 15)) ;15 musn't be constant (- bG (/ (* level bG) 15)) (- bB (/ (* level bB) 15))) from (intern (format "sectioning-%d" level)) diff --git a/yatexenv.el b/yatexenv.el index 93ce46d..3eec3b5 100644 --- a/yatexenv.el +++ b/yatexenv.el @@ -1,8 +1,8 @@ ;;; -*- Emacs-Lisp -*- ;;; YaTeX environment-specific functions. ;;; yatexenv.el -;;; (c ) 1994 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp] -;;; Last modified Thu Feb 2 16:11:12 1995 on pajero +;;; (c ) 1994, 1995 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp] +;;; Last modified Thu May 18 11:52:05 1995 on inspire ;;; $Id$ ;;; @@ -105,7 +105,9 @@ ((string-match (char-to-string elt) "p@") ;p or @ expression (setq cols (+ (if (eq elt ?p) 1 0) cols)) (skip-chars-forward "^{" p) - (forward-list 1)))) + (forward-list 1)) + (t (forward-char 1)) ;unknown char + )) (list cols (1+ eoform)))) ) ;; Insert & diff --git a/yatexlib.el b/yatexlib.el index 0e00bde..376a5a9 100644 --- a/yatexlib.el +++ b/yatexlib.el @@ -2,7 +2,7 @@ ;;; YaTeX library of general functions. ;;; yatexlib.el ;;; (c )1994-1995 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp] -;;; Last modified Fri Feb 17 22:08:23 1995 on VFR +;;; Last modified Fri Apr 28 16:17:44 1995 on VFR ;;; $Id$ ;;;###autoload @@ -316,8 +316,8 @@ (and (featurep 'windows) (fboundp 'win:adjust-window) (win:adjust-window)))) ((and (featurep 'windows) (fboundp 'win:get-buffer-window) - (win:get-buffer-window buffer)) - (win:switch-window (win:get-buffer-window buffer)) + (let ((w (win:get-buffer-window buffer))) + (and w (win:switch-window w)))) (select-window (get-buffer-window buffer))) (t (switch-to-buffer buffer)))) ) diff --git a/yatexmth.el b/yatexmth.el index c33fe5d..8381d02 100644 --- a/yatexmth.el +++ b/yatexmth.el @@ -2,7 +2,7 @@ ;;; YaTeX math-mode-specific functions. ;;; yatexmth.el rev.4 ;;; (c )1993-1995 by HIROSE Yuuji [yuuji@ae.keio.ac.jp] -;;; Last modified Fri Jan 27 23:57:40 1995 on VFR +;;; Last modified Sat Feb 18 03:54:50 1995 on VFR ;;; $Id$ ;;; [Customization guide] @@ -604,7 +604,8 @@ (not YaTeX-math-mode))) (throw 'complete 'escape));this tag should be exit, but... (while t - (message "Sequence(TAB for menu): %s" key) + (message "Sequence%s: %s" + (if YaTeX-simple-messages "" "(TAB for menu)") key) (setq last-char (read-char) key (concat key (char-to-string last-char)) i 0) @@ -624,7 +625,8 @@ (setq key (substring key 0 -2)))) (setq regkey (concat "^" (regexp-quote key))) - (message "Sequence(TAB for menu): %s" key) + (message "Sequence%s: %s" + (if YaTeX-simple-messages "" "(TAB for menu)") key) (if (catch 'found ;;(1)input string strictly matches with alist