;;; handwrite.el --- turns your emacs buffer into a handwritten document -*- coding: iso-latin-1; -*-
-;; (C) Copyright 1996 Free Software Foundation, Inc.
+;; Copyright (C) 1996, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
;; Author: Danny Roozendaal (was: <danny@tvs.kun.nl>)
;; Created: October 21 1996
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Commentary:
;;
((pmin) ; thanks, Havard
(lastp)
(cur-buf (current-buffer))
- (tpoint (point))
+ (tpoint (point))
(ps-ypos 63)
(lcount 0)
(ipage 1)
(setq next-line-add-newlines t)
(switch-to-buffer ps-buf-name)
(handwrite-insert-header buf-name)
- (insert "\n(\\nCreated by GNU Emacs' handwrite version "
- emacs-version "\\n\\n)=print flush\n")
+ (insert "%%Creator: GNU Emacs' handwrite version " emacs-version "\n")
(handwrite-insert-preamble)
(handwrite-insert-info)
(handwrite-insert-font)
(switch-to-buffer cur-buf)
(goto-char (point-min)) ;start at beginning
(save-excursion
- ;;as long as we see a newline the document is not ended.
+ ;;as long as we see a newline the document is not ended.
(while (re-search-forward "\n" nil t)
(previous-line 1)
(beginning-of-line)
}def
%%EndPreamble\n"))
-;;The the font size for the PostScript output.
+;;The font size for the PostScript output.
;;Also the x-y-translations of the PostScript stuff.
(defun handwrite-insert-info ()
(insert "\n%%BeginSizeTranslate\n")
;; Key bindings
-;;; I'd rather not fill up the menu bar menus with
+;;; I'd rather not fill up the menu bar menus with
;;; lots of random miscellaneous features. -- rms.
;;;(define-key-after
;;; (lookup-key global-map [menu-bar edit])
(provide 'handwrite)
+;;; arch-tag: f2285ae9-e41b-4c96-8343-87dce41e44b7
;;; handwrite.el ends here