mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

(print-region-new-buffer): Return new start and end.

Browse Source 
(print-region-1): Use new calling convention.
This commit is contained in:
Richard M. Stallman 1995-02-08 06:35:50 +00:00
parent d75f49aa5a
commit 8fa64b34f5
1 changed files with 15 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lisp/lpr.el
View File

@ -97,8 +97,8 @@ See definition of `print-region-1' for calling conventions.")
(save-excursion
(message "Spooling...")
(if (/= tab-width 8)
(progn
(print-region-new-buffer start end)
(let ((new-coords (print-region-new-buffer start end)))
(setq start (car new-coords) end (cdr new-coords))
(setq tab-width width)
(save-excursion
(goto-char end)
@ -113,7 +113,8 @@ See definition of `print-region-1' for calling conventions.")
lpr-headers-switches)
switches))
;; Run a separate program to get page headers.
(print-region-new-buffer start end)
(let ((new-coords (print-region-new-buffer start end)))
(setq start (car new-coords) end (cdr new-coords)))
(apply 'call-process-region start end lpr-page-header-program
t t nil
(nconc (and lpr-add-switches
@ -134,16 +135,18 @@ See definition of `print-region-1' for calling conventions.")
(message "Spooling...done"))))
;; This function copies the text between start and end
;; into a new buffer, makes that buffer current,
;; and sets start and end to the buffer bounds.
;; start and end are used free.
;; into a new buffer, makes that buffer current.
;; It returns the new range to print from the new current buffer
;; as (START . END).
(defun print-region-new-buffer (ostart oend)
(or (string= (buffer-name) " *spool temp*")
(let ((oldbuf (current-buffer)))
(set-buffer (get-buffer-create " *spool temp*"))
(widen) (erase-buffer)
(insert-buffer-substring oldbuf ostart oend)
(setq start (point-min) end (point-max)))))
(if (string= (buffer-name) " *spool temp*")
(cons ostart oend)
(let ((oldbuf (current-buffer)))
(set-buffer (get-buffer-create " *spool temp*"))
(widen) (erase-buffer)
(insert-buffer-substring oldbuf ostart oend)
(cons (point-min) (point-max)))))
(defun printify-region (begin end)
"Turn nonprinting characters (other than TAB, LF, SPC, RET, and FF)