Mercurial > emacs

comparison lisp/lpr.el @ 659:505130d1ddf8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Eric S. Raymond <esr@snark.thyrsus.com>
date Sat, 30 May 1992 22:12:04 +0000
parents cde1f15848c6
children 4f28bd14272c
comparison
equal deleted inserted replaced
658:7cbd4fcd8b0f 659:505130d1ddf8
1 ;; Print Emacs buffer on line printer. 1 ;;; lpr.el --- print Emacs buffer on line printer.
2
2 ;; Copyright (C) 1985, 1988, 1992 Free Software Foundation, Inc. 3 ;; Copyright (C) 1985, 1988, 1992 Free Software Foundation, Inc.
3 4
4 ;; This file is part of GNU Emacs. 5 ;; This file is part of GNU Emacs.
5 6
6 ;; GNU Emacs is free software; you can redistribute it and/or modify 7 ;; GNU Emacs is free software; you can redistribute it and/or modify
92 (let ((oldbuf (current-buffer))) 93 (let ((oldbuf (current-buffer)))
93 (set-buffer (get-buffer-create " *spool temp*")) 94 (set-buffer (get-buffer-create " *spool temp*"))
94 (widen) (erase-buffer) 95 (widen) (erase-buffer)
95 (insert-buffer-substring oldbuf start end) 96 (insert-buffer-substring oldbuf start end)
96 (setq start (point-min) end (point-max))))) 97 (setq start (point-min) end (point-max)))))
98
99 ;;; lpr.el ends here