yatex

changeset 180:8b8593e02dad dev

find changesets by author, revision, files, or words in the commit message
Care about lower case.
author yuuji@gentei.org
date Mon, 16 May 2011 15:50:05 +0900
parents a925cf5222f3
children ab7cd5129797
files yahtml.el
diffstat 1 files changed, 10 insertions(+), 10 deletions(-) [+]
line diff
     1.1 --- a/yahtml.el	Thu Mar 31 09:41:48 2011 +0900
     1.2 +++ b/yahtml.el	Mon May 16 15:50:05 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 Mon May 16 15:49:38 2011 on firestorm
     1.8  ;;; $Id$
     1.9  
    1.10  (defconst yahtml-revision-number "1.74.2"
    1.11 @@ -755,29 +755,29 @@
    1.12        (strong	"Strong" .
    1.13  	(lambda () (interactive) (yahtml-insert-tag nil "STRONG")))
    1.14        (VAR	"Variable notation" .
    1.15 -	(lambda () (interactive) (yahtml-insert-tag nil "VAR"))))))
    1.16 +	(lambda () (interactive) (yahtml-insert-tag nil "var"))))))
    1.17    (setq yahtml-menu-map-typeface (make-sparse-keymap "typeface tags"))
    1.18    (YaTeX-define-menu
    1.19     'yahtml-menu-map-typeface
    1.20     (nreverse
    1.21      '((b	"Bold" .
    1.22 -	  (lambda () (interactive) (yahtml-insert-tag nil "B")))
    1.23 +	  (lambda () (interactive) (yahtml-insert-tag nil "b")))
    1.24        (i	"Italic" .
    1.25 -	(lambda () (interactive) (yahtml-insert-tag nil "I")))
    1.26 +	(lambda () (interactive) (yahtml-insert-tag nil "i")))
    1.27        (tt	"Typewriter" .
    1.28 -	(lambda () (interactive) (yahtml-insert-tag nil "TT")))
    1.29 +	(lambda () (interactive) (yahtml-insert-tag nil "tt")))
    1.30        (u	"Underlined" .
    1.31 -	(lambda () (interactive) (yahtml-insert-tag nil  "U"))))))
    1.32 +	(lambda () (interactive) (yahtml-insert-tag nil  "u"))))))
    1.33    (setq yahtml-menu-map-listing (make-sparse-keymap "listing"))
    1.34    (YaTeX-define-menu
    1.35     'yahtml-menu-map-listing
    1.36     (nreverse
    1.37      '((ul	"Unordered" .
    1.38 -		(lambda () (interactive) (yahtml-insert-begend nil "UL")))
    1.39 +		(lambda () (interactive) (yahtml-insert-begend nil "ul")))
    1.40        (ol	"Ordered" .
    1.41 -		(lambda () (interactive) (yahtml-insert-begend nil "OL")))
    1.42 +		(lambda () (interactive) (yahtml-insert-begend nil "ol")))
    1.43        (dl	"Definition" .
    1.44 -		(lambda () (interactive) (yahtml-insert-begend nil "DL"))))))
    1.45 +		(lambda () (interactive) (yahtml-insert-begend nil "dl"))))))
    1.46    (setq yahtml-menu-map-item (make-sparse-keymap "item"))
    1.47    (YaTeX-define-menu
    1.48     'yahtml-menu-map-item
    1.49 @@ -832,7 +832,7 @@
    1.50  	  (or (cdr (assoc yahtml-last-begend yahtml-env-table))
    1.51  	      yahtml-last-begend))
    1.52      (setq cmd yahtml-last-begend)
    1.53 -    (if yahtml-prefer-upcases (setq cmd (upcase cmd)))
    1.54 +    (setq cmd (funcall (if yahtml-prefer-upcases 'upcase 'downcase) cmd))
    1.55      (if region
    1.56  	;; We want to keep region effective for new tagged environment
    1.57  	;; to enable continuous regioning by another environment