Mercurial > hg > xemacs-beta

comparison lisp/mule/canna.el @ 116:9f59509498e1 r20-1b10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b10
author cvs
date Mon, 13 Aug 2007 09:23:06 +0200
parents 0d2f883870bc
children 7d55a9ba150c
comparison
equal deleted inserted replaced
115:f109f7dabbe2 116:9f59509498e1
46 (defalias 'overlayp 'extentp) 46 (defalias 'overlayp 'extentp)
47 ) 47 )
48 48
49 ;; added by MORIOKA Tomohiko <morioka@jaist.ac.jp>, 1996/6/18 49 ;; added by MORIOKA Tomohiko <morioka@jaist.ac.jp>, 1996/6/18
50 (defvar running-xemacs (string-match "XEmacs" emacs-version)) 50 (defvar running-xemacs (string-match "XEmacs" emacs-version))
51
52 (if running-xemacs (require 'overlay))
51 53
52 (if running-xemacs 54 (if running-xemacs
53 (progn 55 (progn
54 (defun self-insert-string (string) 56 (defun self-insert-string (string)
55 (let ((len (length string)) 57 (let ((len (length string))
933 (cond 935 (cond
934 ((or (and (boundp 'hilit-background-mode) 936 ((or (and (boundp 'hilit-background-mode)
935 (eq hilit-background-mode 'dark)) 937 (eq hilit-background-mode 'dark))
936 (string-match 938 (string-match
937 "on\\|t" 939 "on\\|t"
938 (or (x-get-resource "ReverseVideo" "reverseVideo") 940 (or (if running-xemacs
941 (x-get-resource "ReverseVideo" "reverseVideo" 'string)
942 (x-get-resource "ReverseVideo" "reverseVideo"))
939 ""))) 943 "")))
940 'reverse) ;$BH?E>$7$F$$$k$J$i(B 'reverse 944 'reverse) ;$BH?E>$7$F$$$k$J$i(B 'reverse
941 (t 'normal))) 945 (t 'normal)))
942 (setq canna:attr-yomi 946 (setq canna:attr-yomi
943 (if (listp canna-use-color) 947 (if (listp canna-use-color)