Detect remote uid and gid in tramp-gvfs.el

[gnu-emacs] / lisp / play / handwrite.el

diff --git a/lisp/play/handwrite.el b/lisp/play/handwrite.el
index 85c128b08e2ee9ec5e1493a8dea3e6367dd72b7c..1c01106915a2196b24a0bc88dfe434a77d4ecfdc 100644 (file)
--- 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
 
-;; Copyright (C) 1996, 2001-2012 Free Software Foundation, Inc.
+;; Copyright (C) 1996, 2001-2016 Free Software Foundation, Inc.
 
 ;; Author: Danny Roozendaal (was: <danny@tvs.kun.nl>)
 ;; Created: October 21 1996
@@ -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")
+         ("Ã\9f" . "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) )
@@ -279,7 +279,7 @@ Variables: `handwrite-linespace'     (default 12)
     (handwrite-set-pagenumber-on)))
 
 (defun handwrite-10pt ()
-  "Specify 10-point output for `handwrite.
+  "Specify 10-point output for `handwrite'.
 This sets `handwrite-fontsize' to 10 and finds correct
 values for `handwrite-linespace' and `handwrite-numlines'."
   (interactive)
@@ -290,7 +290,7 @@ values for `handwrite-linespace' and `handwrite-numlines'."
 
 
 (defun handwrite-11pt ()
-  "Specify 11-point output for `handwrite.
+  "Specify 11-point output for `handwrite'.
 This sets `handwrite-fontsize' to 11 and finds correct
 values for `handwrite-linespace' and `handwrite-numlines'."
   (interactive)
@@ -300,7 +300,7 @@ values for `handwrite-linespace' and `handwrite-numlines'."
   (message "Handwrite output size set to 11 points"))
 
 (defun handwrite-12pt ()
-  "Specify 12-point output for `handwrite.
+  "Specify 12-point output for `handwrite'.
 This sets `handwrite-fontsize' to 12 and finds correct
 values for `handwrite-linespace' and `handwrite-numlines'."
   (interactive)
@@ -310,7 +310,7 @@ values for `handwrite-linespace' and `handwrite-numlines'."
   (message "Handwrite output size set to 12 points"))
 
 (defun handwrite-13pt ()
-  "Specify 13-point output for `handwrite.
+  "Specify 13-point output for `handwrite'.
 This sets `handwrite-fontsize' to 13 and finds correct
 values for `handwrite-linespace' and `handwrite-numlines'."
   (interactive)