Mercurial > hg > xemacs-beta
diff lisp/mule/canna.el @ 116:9f59509498e1 r20-1b10
Import from CVS: tag r20-1b10
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:23:06 +0200 |
| parents | 0d2f883870bc |
| children | 7d55a9ba150c |
line wrap: on
line diff
--- a/lisp/mule/canna.el Mon Aug 13 09:21:56 2007 +0200 +++ b/lisp/mule/canna.el Mon Aug 13 09:23:06 2007 +0200 @@ -49,6 +49,8 @@ ;; added by MORIOKA Tomohiko <morioka@jaist.ac.jp>, 1996/6/18 (defvar running-xemacs (string-match "XEmacs" emacs-version)) +(if running-xemacs (require 'overlay)) + (if running-xemacs (progn (defun self-insert-string (string) @@ -935,7 +937,9 @@ (eq hilit-background-mode 'dark)) (string-match "on\\|t" - (or (x-get-resource "ReverseVideo" "reverseVideo") + (or (if running-xemacs + (x-get-resource "ReverseVideo" "reverseVideo" 'string) + (x-get-resource "ReverseVideo" "reverseVideo")) ""))) 'reverse) ;$BH?E>$7$F$$$k$J$i(B 'reverse (t 'normal)))