mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-26 19:18:50 +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)))
(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