Mercurial > hgrepos > hgweb.cgi > yatex

changeset 244:d5e0c33d7dfd dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 wrap: on
line diff
--- a/yatexlib.el	Thu Feb 09 08:41:53 2012 +0900
+++ b/yatexlib.el	Thu Feb 09 08:45:22 2012 +0900
@@ -2,7 +2,7 @@
 ;;; YaTeX and yahtml common libraries, general functions and definitions
 ;;; yatexlib.el
 ;;; (c)1994-2012 by HIROSE Yuuji.[yuuji@yatex.org]
-;;; Last modified Sun Jan 29 13:17:21 2012 on firestorm
+;;; Last modified Thu Feb  9 08:32:18 2012 on firestorm
 ;;; $Id$
 
 ;; General variables
@@ -759,6 +759,12 @@
       ""
     (apply 'read-string args)))
 
+(defun YaTeX-completing-read-or-skip (&rest args)
+  "Do completing-read, or skip if last input char is \C-j."
+  (if (equal last-input-char YaTeX-skip-next-reader-char)
+      ""
+    (apply 'completing-read args)))
+
 ;;;###autoload
 (fset 'YaTeX-rassoc
       (if (and nil (fboundp 'rassoc) (subrp (symbol-function 'rassoc)))

yatex.org