yatex

changeset 244:d5e0c33d7dfd dev

find changesets by author, revision, files, or words in the commit message
YaTeX-completing-read-or-skip introduced
author yuuji@gentei.org
date Thu, 09 Feb 2012 08:45:22 +0900
parents 74229d191b17
children 8ad85ce1ee98
files yatexlib.el
diffstat 1 files changed, 7 insertions(+), 1 deletions(-) [+]
line diff
     1.1 --- a/yatexlib.el	Thu Feb 09 08:41:53 2012 +0900
     1.2 +++ b/yatexlib.el	Thu Feb 09 08:45:22 2012 +0900
     1.3 @@ -2,7 +2,7 @@
     1.4  ;;; YaTeX and yahtml common libraries, general functions and definitions
     1.5  ;;; yatexlib.el
     1.6  ;;; (c)1994-2012 by HIROSE Yuuji.[yuuji@yatex.org]
     1.7 -;;; Last modified Sun Jan 29 13:17:21 2012 on firestorm
     1.8 +;;; Last modified Thu Feb  9 08:32:18 2012 on firestorm
     1.9  ;;; $Id$
    1.10  
    1.11  ;; General variables
    1.12 @@ -759,6 +759,12 @@
    1.13        ""
    1.14      (apply 'read-string args)))
    1.15  
    1.16 +(defun YaTeX-completing-read-or-skip (&rest args)
    1.17 +  "Do completing-read, or skip if last input char is \C-j."
    1.18 +  (if (equal last-input-char YaTeX-skip-next-reader-char)
    1.19 +      ""
    1.20 +    (apply 'completing-read args)))
    1.21 +
    1.22  ;;;###autoload
    1.23  (fset 'YaTeX-rassoc
    1.24        (if (and nil (fboundp 'rassoc) (subrp (symbol-function 'rassoc)))