Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
117:578fd4947a72 118:7d55a9ba150c
26 26
27 ;; Written by Akira Kon, NEC Corporation. 27 ;; Written by Akira Kon, NEC Corporation.
28 ;; E-Mail: kon@d1.bs2.mt.nec.co.jp. 28 ;; E-Mail: kon@d1.bs2.mt.nec.co.jp.
29 29
30 ;; #### This is far from working in XEmacs. 30 ;; #### This is far from working in XEmacs.
31
32 ;; added by MORIOKA Tomohiko <morioka@jaist.ac.jp>, 1996/6/18
33 (defvar running-xemacs (string-match "XEmacs" emacs-version))
34
35 (if running-xemacs (require 'overlay))
31 36
32 ;; added by MORIOKA Tomohiko <morioka@jaist.ac.jp>, 1996/6/7 37 ;; added by MORIOKA Tomohiko <morioka@jaist.ac.jp>, 1996/6/7
33 (or (fboundp 'minibuffer-prompt-width) 38 (or (fboundp 'minibuffer-prompt-width)
34 (defun minibuffer-prompt-width () 39 (defun minibuffer-prompt-width ()
35 (save-excursion 40 (save-excursion
40 (or (fboundp 'char-before) 45 (or (fboundp 'char-before)
41 (defun char-before (pos) 46 (defun char-before (pos)
42 (char-after (1- (point))) 47 (char-after (1- (point)))
43 ) 48 )
44 ) 49 )
45 (or (fboundp 'overlayp)
46 (defalias 'overlayp 'extentp)
47 )
48
49 ;; added by MORIOKA Tomohiko <morioka@jaist.ac.jp>, 1996/6/18
50 (defvar running-xemacs (string-match "XEmacs" emacs-version))
51
52 (if running-xemacs (require 'overlay))
53 50
54 (if running-xemacs 51 (if running-xemacs
55 (progn 52 (progn
56 (defun self-insert-string (string) 53 (defun self-insert-string (string)
57 (let ((len (length string)) 54 (let ((len (length string))