(ctree-find-calist): fixed duplicated result.

[elisp/apel.git] / emu-mule.el

diff --git a/emu-mule.el b/emu-mule.el
index eed2bd7..63be74e 100644 (file)
--- a/emu-mule.el
+++ b/emu-mule.el
@@ -29,7 +29,7 @@
 ;;;
 
 (cond (running-emacs-19
-       (require 'emu-19)
+       (require 'emu-e19)
        
        ;; Suggested by SASAKI Osamu <osamu@shuugr.bekkoame.or.jp>
        ;; (cf. [os2-emacs-ja:78])
@@ -319,14 +319,14 @@ It must be symbol.")
 
 (defmacro char-next-index (char index)
   "Return index of character succeeding CHAR whose index is INDEX."
-  (` (+ index (char-bytes char))))
+  (` (+ (, index) (char-bytes (, char)))))
 
 ;;; @@ obsoleted aliases
 ;;;
 ;;; You should not use them.
 
 (defalias 'char-length 'char-bytes)
-(defalias 'char-columns 'char-width)
+;;(defalias 'char-columns 'char-width)
 
 
 ;;; @ string