yatex
changeset 243:74229d191b17 dev
C-j skip can be used at <ol> and <input>.
| author | yuuji@gentei.org |
|---|---|
| date | Thu, 09 Feb 2012 08:41:53 +0900 |
| parents | cb4449ecb9f3 |
| children | d5e0c33d7dfd |
| files | yahtml.el |
| diffstat | 1 files changed, 7 insertions(+), 7 deletions(-) [+] |
line diff
1.1 --- a/yahtml.el Sun Jan 29 23:01:57 2012 +0900 1.2 +++ b/yahtml.el Thu Feb 09 08:41:53 2012 +0900 1.3 @@ -1,6 +1,6 @@ 1.4 ;;; -*- Emacs-Lisp -*- 1.5 ;;; (c) 1994-2012 by HIROSE Yuuji [yuuji(@)yatex.org] 1.6 -;;; Last modified Thu Jan 12 11:40:53 2012 on firestorm 1.7 +;;; Last modified Thu Feb 9 08:36:16 2012 on firestorm 1.8 ;;; $Id$ 1.9 1.10 (defconst yahtml-revision-number "1.75" 1.11 @@ -1401,8 +1401,8 @@ 1.12 (defun yahtml:ol () 1.13 "Add-in function for <ol>" 1.14 (setq yahtml-last-single-cmd "li") 1.15 - (let ((start (read-string "start=")) 1.16 - (type (completing-read 1.17 + (let ((start (YaTeX-read-string-or-skip "start=")) 1.18 + (type (YaTeX-completing-read-or-skip 1.19 "type=" '(("1") ("a") ("A") ("i") ("I")) nil t))) 1.20 (concat 1.21 (yahtml-make-optional-argument "start" start) 1.22 @@ -1428,12 +1428,12 @@ 1.23 (let ((size "") name type value checked (maxlength "") 1.24 (l yahtml-prefer-upcase-attributes)) 1.25 (setq name (read-string "name: ") 1.26 - type (completing-read "type (default=text): " 1.27 + type (YaTeX-completing-read-or-skip "type (default=text): " 1.28 yahtml-input-types nil t) 1.29 - value (read-string "value: ")) 1.30 + value (YaTeX-read-string-or-skip "value: ")) 1.31 (if (string-match "text\\|password\\|^$" type) 1.32 - (setq size (read-string "size: ") 1.33 - maxlength (read-string "maxlength: "))) 1.34 + (setq size (YaTeX-read-string-or-skip "size: ") 1.35 + maxlength (YaTeX-read-string-or-skip "maxlength: "))) 1.36 (concat 1.37 (if l "NAME" "name") "=\"" name "\"" 1.38 (yahtml-make-optional-argument "type" type)