/[emacs]/emacs/lisp/ps-print.el
ViewVC logotype

Diff of /emacs/lisp/ps-print.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.164 by ttn, Sat Aug 6 22:13:43 2005 UTC revision 1.165 by rfrancoise, Sat Sep 24 13:44:01 2005 UTC
# Line 4663  page-height == ((floor print-height ((th Line 4663  page-height == ((floor print-height ((th
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)

Legend:
Removed from v.1.164  
changed lines
  Added in v.1.165

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26