From 03f962fbc4ac4f958931a9c73423b49fe9315077 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 5 May 1996 03:56:36 +0000 Subject: [PATCH] (ps-print-preprint): Special handling if file entered in the minibuffer is a directory. --- lisp/ps-print.el | 8 +++++--- 1 file 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 -- 2.39.2