(ps-print-preprint): Special handling if

file entered in the minibuffer is a directory.

1 files changed, 5 insertions, 3 deletions

diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index 7ae9814e45f..cc5066bcf6f 100644
--- 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