;;; `eval-when-compile' is defined in "poe-18" under v18 with old compiler.
(eval-when-compile (require 'static))
+;; `file-coding' was appeared in the spring of 1998, just before XEmacs
+;; 21.0. Therefore it is not provided in XEmacs with MULE versions 20.4
+;; or earlier.
+(if (and (featurep 'xemacs) (featurep 'mule))
+ (provide 'file-coding))
+
;; imported from emacs-20.3/lisp/emacs-lisp/edebug.el.
;; `def-edebug-spec' is an autoloaded macro in v19 and later.
(defmacro-maybe def-edebug-spec (symbol spec)
(def-edebug-spec defun-maybe defun)
(def-edebug-spec defmacro-maybe defmacro)
(def-edebug-spec defsubst-maybe defun)
+(def-edebug-spec defun-maybe-cond
+ (&define name lambda-list
+ [&optional stringp]
+ [&rest ([¬ eval] [&rest sexp])]
+ [&optional (eval [&optional ("interactive" interactive)] def-body)]
+ &rest (&rest sexp)))
+(def-edebug-spec defmacro-maybe-cond
+ (&define name lambda-list
+ [&rest ([¬ eval] [&rest sexp])]
+ [&optional (eval def-body)]
+ &rest (&rest sexp)))
;;; Emacs 20.1 emulation
(cons 'progn body)
(list 'select-window 'save-selected-window-window))))
-(autoload (function filename-maybe-truncate-by-size) "filename")
-
(defun-maybe-cond convert-standard-filename (filename)
"Convert a standard file's name to something suitable for the current OS.
This function's standard definition is trivial; it just returns the argument.
`filename-limit-length' for the basic filename and each parent directory name.
\[Emacs 19.31 emulating function]"
((memq system-type '(windows-nt ms-dos))
+ (require 'filename)
(let* ((names (split-string filename "/"))
(drive-name (car names))
(filter (function (lambda (string)