Mercurial > hgrepos > hgweb.cgi > yatex
diff yahtml.el @ 79:0734be649cb8
Do not care file-coding-system when YaTeX-kanji-code is nil.
New completion yatexpkg.el is introduced.
| author | yuuji |
|---|---|
| date | Thu, 25 Dec 2003 04:10:32 +0000 |
| parents | 1b172d26b55e |
| children | 9b4354af748c |
line wrap: on
line diff
--- a/yahtml.el Fri May 02 11:23:59 2003 +0000 +++ b/yahtml.el Thu Dec 25 04:10:32 2003 +0000 @@ -1,6 +1,6 @@ ;;; -*- Emacs-Lisp -*- -;;; (c ) 1994-2002 by HIROSE Yuuji [yuuji@yatex.org] -;;; Last modified Thu Nov 21 17:55:40 2002 on firestorm +;;; (c) 1994-2003 by HIROSE Yuuji [yuuji@yatex.org] +;;; Last modified Mon Nov 17 18:28:50 2003 on firestorm ;;; $Id$ (defconst yahtml-revision-number "1.70" @@ -202,9 +202,7 @@ (defvar yahtml-environment-indent 1 "*Indentation depth of HTML's listing environment") -(defvar YaTeX-japan (or (boundp 'NEMACS) (boundp 'MULE) YaTeX-emacs-20) - "Whether yatex mode is running on Japanese environment or not.") - +;; YaTeX-japan is defined in yatexlib.el (defvar yahtml-lint-program (if YaTeX-japan "jweblint" "weblint") "*Program name to lint HTML file") (defvar yahtml-hate-too-deep-indentation nil @@ -345,6 +343,9 @@ (yahtml-define-begend-key "ba" "a" map) (yahtml-define-begend-key "bf" "form" map) (yahtml-define-begend-key "bs" "select" map) + (yahtml-define-begend-key "bv" "div" map) + (yahtml-define-begend-key "bS" "div" map) + (yahtml-define-begend-key "bp" "pre" map) (YaTeX-define-key "b " 'yahtml-insert-begend map) (YaTeX-define-key "B " 'yahtml-insert-begend-region map) ) @@ -571,6 +572,7 @@ (set (make-local-variable 'yahtml-mode-old-mode) old-mm))) (let ((coding (or (yahtml-dir-default-charset) yahtml-kanji-code))) (cond + ((null coding) nil) ((and YaTeX-emacs-20 (boundp 'buffer-file-coding-system)) (setq buffer-file-coding-system (or (and (fboundp 'set-auto-coding) buffer-file-name
