-;;; handwrite.el --- turns your emacs buffer into a handwritten document -*- coding: iso-latin-1; -*-
+;;; handwrite.el --- turns your emacs buffer into a handwritten document -*- coding: utf-8; -*-
-;; Copyright (C) 1996, 2001-2011 Free Software Foundation, Inc.
+;; Copyright (C) 1996, 2001-2015 Free Software Foundation, Inc.
;; Author: Danny Roozendaal (was: <danny@tvs.kun.nl>)
;; Created: October 21 1996
;; Installation
;;
;; type at your prompt "emacs -l handwrite.el" or put this file on your
-;; Emacs-Lisp load path, add the following into your ~/.emacs startup file
+;; Emacs-Lisp load path, add the following into your init file:
;;
;; (require 'handwrite)
;;
(textp)
(ps-buf-name) ;name of the PostScript buffer
(trans-table
- '(("ÿ" . "264") ("á" . "207") ("à" . "210") ("â" . "211")
- ("ä" . "212") ("ã" . "213") ("å" . "214") ("é" . "216")
- ("è" . "217") ("ê" . "220") ("ë" . "221") ("í" . "222")
- ("ì" . "223") ("î" . "224") ("ï" . "225") ("ó" . "227")
- ("ò" . "230") ("ô" . "231") ("ö" . "232") ("õ" . "233")
- ("ú" . "234") ("ù" . "235") ("û" . "236") ("ü" . "237")
- ("ß" . "247") ("°" . "241") ("®" . "250") ("©" . "251")
- ("ij" . "264") ("ç" . "215") ("§" . "244") ("ñ" . "226")
- ("£" . "243")))
+ '(("ÿ" . "264") ("á" . "207") ("à" . "210") ("â" . "211")
+ ("ä" . "212") ("ã" . "213") ("å" . "214") ("é" . "216")
+ ("è" . "217") ("ê" . "220") ("ë" . "221") ("í" . "222")
+ ("ì" . "223") ("î" . "224") ("ï" . "225") ("ó" . "227")
+ ("ò" . "230") ("ô" . "231") ("ö" . "232") ("õ" . "233")
+ ("ú" . "234") ("ù" . "235") ("û" . "236") ("ü" . "237")
+ ("Ã\9f" . "247") ("°" . "241") ("®" . "250") ("©" . "251")
+ ("ij" . "264") ("ç" . "215") ("§" . "244") ("ñ" . "226")
+ ("£" . "243")))
(escape-table '("\\\\" "(" ")")) ; \\ comes first to not work
; on inserted backslashes
line)
(setq next-line-add-newlines t)
(switch-to-buffer ps-buf-name)
(handwrite-insert-header buf-name)
- (insert "%%Creator: GNU Emacs' handwrite version " emacs-version "\n")
+ (insert "%%Creator: GNU Emacs's handwrite version " emacs-version "\n")
(handwrite-insert-preamble)
(handwrite-insert-info)
(handwrite-insert-font)
(insert "showpage exec Hwsave restore\n\n")
(insert "%%Pages " (number-to-string ipage) " 0\n")
(insert "%%EOF\n")
- ;;To avoid cumbersome code we simply ignore pagefeeds
+ ;;To avoid cumbersome code we simply ignore formfeeds
(goto-char textp)
(while (search-forward "\f" nil t)
(replace-match "" nil t) )