;; Please specify emu prefix [optional]
(setq EMU_PREFIX
- (if (string-match "XEmacs" emacs-version)
+ (if (or (featurep 'xemacs)
+ (and (fboundp 'set-buffer-multibyte)
+ (subrp (symbol-function 'set-buffer-multibyte))))
"emu"
""))
;;; @ optional settings
;;;
-(setq EMU_DIR
- (expand-file-name
- EMU_PREFIX
- (install-detect-elisp-directory PREFIX nil 'version-specific)))
+(defvar VERSION_SPECIFIC_LISPDIR
+ (install-detect-elisp-directory PREFIX nil 'version-specific))
+
+(setq EMU_DIR (expand-file-name EMU_PREFIX VERSION_SPECIFIC_LISPDIR))
;; It is generated by automatically. Please set variable `PREFIX'.
;; If you don't like default directory tree, please set it.