Mercurial > hgrepos > hgweb.cgi > yatex

changeset 243:74229d191b17 dev

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 wrap: on
line diff
--- a/yahtml.el	Sun Jan 29 23:01:57 2012 +0900
+++ b/yahtml.el	Thu Feb 09 08:41:53 2012 +0900
@@ -1,6 +1,6 @@
 ;;; -*- Emacs-Lisp -*-
 ;;; (c) 1994-2012 by HIROSE Yuuji [yuuji(@)yatex.org]
-;;; Last modified Thu Jan 12 11:40:53 2012 on firestorm
+;;; Last modified Thu Feb  9 08:36:16 2012 on firestorm
 ;;; $Id$
 
 (defconst yahtml-revision-number "1.75"
@@ -1401,8 +1401,8 @@
 (defun yahtml:ol ()
   "Add-in function for <ol>"
   (setq yahtml-last-single-cmd "li")
-  (let ((start (read-string "start="))
-	(type (completing-read
+  (let ((start (YaTeX-read-string-or-skip "start="))
+	(type (YaTeX-completing-read-or-skip
 	       "type=" '(("1") ("a") ("A") ("i") ("I")) nil t)))
     (concat
      (yahtml-make-optional-argument "start" start)
@@ -1428,12 +1428,12 @@
   (let ((size "") name type value checked (maxlength "")
 	(l yahtml-prefer-upcase-attributes))
     (setq name (read-string "name: ")
-	  type (completing-read "type (default=text): "
+	  type (YaTeX-completing-read-or-skip "type (default=text): "
 				yahtml-input-types nil t)
-	  value (read-string "value: "))
+	  value (YaTeX-read-string-or-skip "value: "))
     (if (string-match "text\\|password\\|^$" type)
-	(setq size (read-string "size: ")
-	      maxlength (read-string "maxlength: ")))
+	(setq size (YaTeX-read-string-or-skip "size: ")
+	      maxlength (YaTeX-read-string-or-skip "maxlength: ")))
     (concat
      (if l "NAME" "name") "=\"" name "\""
      (yahtml-make-optional-argument "type" type)

yatex.org