1.1 --- a/yahtml.el	Sun Sep 12 10:59:55 2010 +0900
     1.2 +++ b/yahtml.el	Mon Sep 27 17:07:16 2010 +0900
     1.3 @@ -1,6 +1,6 @@
     1.4  ;;; -*- Emacs-Lisp -*-
     1.5  ;;; (c) 1994-2010 by HIROSE Yuuji [yuuji(@)yatex.org]
     1.6 -;;; Last modified Sun Sep 12 10:58:31 2010 on firestorm
     1.7 +;;; Last modified Mon Sep 13 08:09:46 2010 on firestorm
     1.8  ;;; $Id$
     1.9  
    1.10  (defconst yahtml-revision-number "1.74.2"
    1.11 @@ -907,6 +907,7 @@
    1.12        (and (setq a (yahtml-css-get-element-completion-alist form))
    1.13  	   (not (equal last-command-char ?\C-j))
    1.14  	   (memq yahtml-current-completion-type '(multiline inline))
    1.15 +	   (not (string-match "#" form))
    1.16  	   (yahtml-make-optional-argument ;should be made generic?
    1.17  	    "class" (yahtml-read-css a)))
    1.18        (if (and (intern-soft addin) (fboundp (intern-soft addin))
    1.19 @@ -1135,6 +1136,10 @@
    1.20       ((eq alist 'file)
    1.21        (let ((insert-default-directory))
    1.22  	(read-file-name prompt "" default nil "")))
    1.23 +     ((eq alist 'command)
    1.24 +      (if (fboundp 'read-shell-command)
    1.25 +	  (read-shell-command prompt)
    1.26 +	(read-string prompt)))
    1.27       ((and alist (symbolp alist))
    1.28        (completing-read prompt (symbol-value alist) nil nil default))
    1.29       (alist
    1.30 @@ -1685,7 +1690,8 @@
    1.31      (format "%s=\"%s\"--" (if (string-match "/" file) "virtual" "file") file)))
    1.32  
    1.33  (defun yahtml:!--\#exec ()
    1.34 -  (format "cmd=\"%s\"--" (yahtml-read-parameter "cmd" "" '(("cmd" . file)))))
    1.35 +  (format "cmd=\"%s\"--"
    1.36 +	  (yahtml-read-parameter "cmd" "" '(("cmd" . command)))))
    1.37  
    1.38  ;;; ---------- Jump ----------
    1.39  (defun yahtml-on-href-p ()