mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-04 20:27:45 +00:00
Code Issues Releases Activity

(ps-print-preprint): Special handling if

Browse Source 
file entered in the minibuffer is a directory.
This commit is contained in:
Richard M. Stallman 1996-05-05 03:56:36 +00:00
parent df0d89b112
commit 03f962fbc4
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/ps-print.el
View File

@ -1168,9 +1168,11 @@ StandardEncoding 46 82 getinterval aload pop
(listp filename))) (listp filename)))
(let* ((name (concat (buffer-name) ".ps")) (let* ((name (concat (buffer-name) ".ps"))
(prompt (format "Save PostScript to file: (default %s) " (prompt (format "Save PostScript to file: (default %s) "
name))) name))
(read-file-name prompt default-directory (res (read-file-name prompt default-directory name nil)))
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 ;; The following functions implement a simple list-buffering scheme so
;; that ps-print doesn't have to repeatedly switch between buffers ;; that ps-print doesn't have to repeatedly switch between buffers