Mercurial > hg > xemacs-beta

diff lisp/mule/canna.el @ 118:7d55a9ba150c r20-1b11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b11
author cvs
date Mon, 13 Aug 2007 09:24:17 +0200
parents 9f59509498e1
children cca96a509cfe
line wrap: on
line diff
--- a/lisp/mule/canna.el	Mon Aug 13 09:23:08 2007 +0200
+++ b/lisp/mule/canna.el	Mon Aug 13 09:24:17 2007 +0200
@@ -29,6 +29,11 @@
 
 ;; #### This is far from working in XEmacs.
 
+;; added by MORIOKA Tomohiko <morioka@jaist.ac.jp>, 1996/6/18
+(defvar running-xemacs (string-match "XEmacs" emacs-version))
+
+(if running-xemacs (require 'overlay))
+
 ;; added by MORIOKA Tomohiko <morioka@jaist.ac.jp>, 1996/6/7
 (or (fboundp 'minibuffer-prompt-width)
     (defun minibuffer-prompt-width ()
@@ -42,14 +47,6 @@
       (char-after (1- (point)))
       )
     )
-(or (fboundp 'overlayp)
-    (defalias 'overlayp 'extentp)
-    )
-
-;; 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