update.
[elisp/apel.git] / poe.el
diff --git a/poe.el b/poe.el
index a114a76..1e585ff 100644 (file)
--- a/poe.el
+++ b/poe.el
@@ -215,6 +215,17 @@ Both SYMBOL and SPEC are unevaluated. The SPEC can be 0, t, a symbol
 (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 ([&not eval] [&rest sexp])]
+          [&optional (eval [&optional ("interactive" interactive)] def-body)]
+          &rest (&rest sexp)))
+(def-edebug-spec defmacro-maybe-cond
+  (&define name lambda-list
+          [&rest ([&not eval] [&rest sexp])]
+          [&optional (eval def-body)]
+          &rest (&rest sexp)))
 
 ;;; Emacs 20.1 emulation
 
@@ -368,8 +379,6 @@ Value is nil if OBJECT is not a buffer or if it has been killed.
              (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.
@@ -379,17 +388,17 @@ Under `windows-nt' or `ms-dos', it refers `filename-replacement-alist' and
 `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)
                              (filename-maybe-truncate-by-size
                               (filename-special-filter string))))))
-     (concat (if (and (string-match "^[^/]:$" drive-name)
-                     (>= (length names) 2))
-                drive-name
-              (funcall filter drive-name))
-            "/"
-            (mapconcat filter (cdr names) "/"))))
+     (cond ((eq 1 (length names))
+           (funcall filter drive-name))
+          ((string-match "^[^/]:$" drive-name)
+           (concat drive-name "/" (mapconcat filter (cdr names) "/")))
+          (t (mapconcat filter names "/")))))
   (t filename))