4663 |
(let* ((name (concat (file-name-nondirectory (or (buffer-file-name) |
(let* ((name (concat (file-name-nondirectory (or (buffer-file-name) |
4664 |
(buffer-name))) |
(buffer-name))) |
4665 |
".ps")) |
".ps")) |
4666 |
(prompt (format "Save PostScript to file: (default %s) " name)) |
(prompt (format "Save PostScript to file (default %s): " name)) |
4667 |
(res (read-file-name prompt default-directory name nil))) |
(res (read-file-name prompt default-directory name nil))) |
4668 |
(while (cond ((file-directory-p res) |
(while (cond ((file-directory-p res) |
4669 |
(ding) |
(ding) |