yatex

changeset 467:4f8551386af2 dev

Do not ask `align' when html4-strict mode
author HIROSE Yuuji <yuuji@gentei.org>
date Mon, 24 Jul 2017 11:08:34 +0859
parents c7b93cfceb1b
children 84aa8dc36fd6
files yahtml.el
diffstat 1 files changed, 3 insertions(+), 5 deletions(-) [+]
line diff
     1.1 --- a/yahtml.el	Wed Jul 19 13:17:23 2017 +0859
     1.2 +++ b/yahtml.el	Mon Jul 24 11:08:34 2017 +0859
     1.3 @@ -1,6 +1,6 @@
     1.4  ;;; yahtml.el --- Yet Another HTML mode -*- coding: sjis -*-
     1.5  ;;; (c) 1994-2017 by HIROSE Yuuji [yuuji(@)yatex.org]
     1.6 -;;; Last modified Wed Jul 19 13:10:28 2017 on firestorm
     1.7 +;;; Last modified Mon Jul 24 11:03:07 2017 on firestorm
     1.8  ;;; $Id$
     1.9  
    1.10  (defconst yahtml-revision-number "1.79.3"
    1.11 @@ -1270,7 +1270,7 @@
    1.12  (defun yahtml:img ()
    1.13    "Add-in function for <img>"
    1.14    (let ((src (yahtml-read-parameter "src"))
    1.15 -	(alg (yahtml-read-parameter "align"))
    1.16 +	(alg (if yahtml-html4-strict nil (yahtml-read-parameter "align")))
    1.17  	alt
    1.18  	(brd (read-string-with-history "border="))
    1.19  	(l yahtml-prefer-upcase-attributes)
    1.20 @@ -1678,9 +1678,7 @@
    1.21         (yahtml-make-optional-argument
    1.22  	"width" (yahtml-read-parameter "width"))
    1.23         (yahtml-make-optional-argument
    1.24 -	"height" (yahtml-read-parameter "height"))
    1.25 -       (yahtml-make-optional-argument
    1.26 -	"align" (yahtml-read-parameter "align"))))
    1.27 +	"height" (yahtml-read-parameter "height"))))
    1.28       (t
    1.29        ""))))
    1.30