yatex
changeset 188:9828ebe7b545 dev
Calculation of indentation depth revised.
All itemizing elements including dt/dd are assumed as environment.
author | HIROSE Yuuji <yuuji@e.koeki-u.ac.jp> |
---|---|
date | Sat, 17 Dec 2011 12:46:27 +0900 |
parents | a925cf5222f3 |
children | 8abdd3cc87d0 |
files | yahtml.el |
diffstat | 1 files changed, 6 insertions(+), 5 deletions(-) [+] |
line diff
1.1 --- a/yahtml.el Thu Mar 31 09:41:48 2011 +0900 1.2 +++ b/yahtml.el Sat Dec 17 12:46:27 2011 +0900 1.3 @@ -1,6 +1,6 @@ 1.4 ;;; -*- Emacs-Lisp -*- 1.5 ;;; (c) 1994-2011 by HIROSE Yuuji [yuuji(@)yatex.org] 1.6 -;;; Last modified Mon Feb 14 12:48:22 2011 on firestorm 1.7 +;;; Last modified Sat Dec 17 11:17:59 2011 on roy 1.8 ;;; $Id$ 1.9 1.10 (defconst yahtml-revision-number "1.74.2" 1.11 @@ -250,7 +250,8 @@ 1.12 %x: width, %y: height, %s: size in bytes, %c: first comment string, 1.13 %f: filename") 1.14 1.15 -(defvar yahtml-faithful-to-htmllint nil) 1.16 +(defvar yahtml-faithful-to-htmllint (not yahtml-always-/li) 1.17 + "*Non-nil doesn't put space after opening tags.") 1.18 (defvar yahtml-error-line-regexp 1.19 "^\\(.*\\)(\\([0-9]+\\)):\\|^line \\([0-9]+\\)" 1.20 "*Regexp of error position which is produced by lint program.") 1.21 @@ -2509,11 +2510,11 @@ 1.22 (yahtml-indent-line-real)))) 1.23 1.24 (defun yahtml-this-indent () 1.25 - (let ((envs "[uod]l\\|table\\|[ht][rhd0-6]\\|select\\|blockquote\\|center\\|menu\\|dir\\|font") 1.26 - (itemizing-envs "^\\([uod]l\\|menu\\|dir\\)$") 1.27 + (let ((envs "[uod]l\\|table\\|[ht][rhd0-6]\\|select\\|blockquote\\|center\\|menu\\|dir\\|d[td]\\|li") 1.28 + (itemizing-envs "^\\([uod]l\\|menu\\|dir\\|li\\|d[td]\\)$") 1.29 (itms "<\\(dt\\|dd\\|li\\|t[rdh]\\|option\\)\\b") 1.30 (excludes 1.31 - "\\(a\\|p\\|span\\|code\\|tt\\|em\\|u\\|i\\|big\\|small\\|font\\)\\b") 1.32 + "\\b\\(a\\|p\\|span\\|code\\|tt\\|em\\|u\\|i\\|big\\|small\\|font\\)\\b") 1.33 inenv p col peol (case-fold-search t)) 1.34 (save-excursion 1.35 (beginning-of-line)