X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/9d6b4d53469a9ffd67bd770fabc6fe254e35c21d..732fd4c7e11debd61c97eaaba3038d61e6ec7024:/lisp/play/handwrite.el

diff --git a/lisp/play/handwrite.el b/lisp/play/handwrite.el
index d2e307c014..32ea663071 100644
--- a/lisp/play/handwrite.el
+++ b/lisp/play/handwrite.el
@@ -1,6 +1,6 @@
-;;; 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-2012 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
@@ -45,7 +45,7 @@
 ;;  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)
 ;;
@@ -170,15 +170,15 @@ Variables: `handwrite-linespace'     (default 12)
        (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")
+	  ("ß" . "247") ("°" . "241") ("®" . "250") ("©" . "251")
+	  ("ij" . "264") ("ç" . "215") ("§" . "244") ("ñ" . "226")
+	  ("£" . "243")))
        (escape-table '("\\\\" "(" ")")) ; \\ comes first to not work
 					; on inserted backslashes
        line)
@@ -244,7 +244,7 @@ Variables: `handwrite-linespace'     (default 12)
     (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) )