(ps-print-preprint): Special handling if

file entered in the minibuffer is a directory.

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 7ae9814e45fe926d63ac5a1d8cb6cd95c0d25202..cc5066bcf6f079197efcfb38c850f8cb1faf6d5b 100644 (file)
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -1168,9 +1168,11 @@ StandardEncoding 46 82 getinterval aload pop
               (listp filename)))
       (let* ((name (concat (buffer-name) ".ps"))
             (prompt (format "Save PostScript to file: (default %s) "
-                            name)))
-       (read-file-name prompt default-directory
-                       name nil))))
+                            name))
+            (res (read-file-name prompt default-directory name nil)))
+       (if (file-directory-p res)
+           (expand-file-name name (file-name-as-directory res))
+         res))))
 
 ;; The following functions implement a simple list-buffering scheme so
 ;; that ps-print doesn't have to repeatedly switch between buffers