Mercurial > hgrepos > hgweb.cgi > yatex
changeset 244:d5e0c33d7dfd dev
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)))