From: Paul Eggert Date: Tue, 5 Mar 2013 17:13:01 +0000 (-0800) Subject: Prefer UTF-8 when the encoding shouldn't matter and changes are small. X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~2026^2~621 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c38e0c974e11c5c273ef8f6adb58442f4e30f460;p=emacs.git Prefer UTF-8 when the encoding shouldn't matter and changes are small. --- diff --git a/admin/make-tarball.txt b/admin/make-tarball.txt index 3825ac49278..144c34da15c 100644 --- a/admin/make-tarball.txt +++ b/admin/make-tarball.txt @@ -1,5 +1,5 @@ -Instructions to create pretest or release tarballs. --- originally written by Gerd Moellmann, amended by Francesco Potortì +Instructions to create pretest or release tarballs. -*- coding: utf-8 -*- +-- originally written by Gerd Moellmann, amended by Francesco Potortì with the initial help of Eli Zaretskii diff --git a/admin/notes/unicode b/admin/notes/unicode index 21704c78a00..a9e4117e2d4 100644 --- a/admin/notes/unicode +++ b/admin/notes/unicode @@ -1,4 +1,4 @@ - -*-mode: text; coding: latin-1;-*- + -*-mode: text; coding: utf-8;-*- Copyright (C) 2002-2013 Free Software Foundation, Inc. See the end of the file for license conditions. @@ -12,9 +12,9 @@ regard to completeness. * SINGLE_BYTE_CHAR_P returns true for Latin-1 characters, which has undesirable effects. E.g.: - (multibyte-string-p (let ((s "x")) (aset s 0 ?£) s)) => nil - (multibyte-string-p (concat [?£])) => nil - (text-char-description ?£) => "M-#" + (multibyte-string-p (let ((s "x")) (aset s 0 ?£) s)) => nil + (multibyte-string-p (concat [?£])) => nil + (text-char-description ?£) => "M-#" These examples are all fixed by the change of 2002-10-14, but there still exist questionable SINGLE_BYTE_CHAR_P in the @@ -77,7 +77,7 @@ regard to completeness. spelling and calendar, but that's not a Unicode issue.) * Handle Unicode combining characters usefully, e.g. diacritics, and - handle more scripts specifically (à la Devanagari). There are + handle more scripts specifically (à la Devanagari). There are issues with canonicalization. * We need tabular input methods, e.g. for maths symbols. (Not diff --git a/etc/images/mail/README b/etc/images/mail/README index 962206e6ae8..279e9cc5723 100644 --- a/etc/images/mail/README +++ b/etc/images/mail/README @@ -1,4 +1,4 @@ -COPYRIGHT AND LICENSE INFORMATION FOR IMAGE FILES +COPYRIGHT AND LICENSE INFORMATION FOR IMAGE FILES -*- coding: utf-8 -*- The following icons are from GNOME 2.x. They are not part of Emacs, but are distributed and used by Emacs. They are licensed under the @@ -25,7 +25,7 @@ save.xpm combines stock_mail, io/stock_save and send.xpm stock_mail-send spam.xpm stock_spam -(preview and save were contributed by Adam Sjøgren ) +(preview and save were contributed by Adam Sjøgren ) repack is a slightly modified version of package-x-generic. reply-from is a slightly modified version of reply. diff --git a/etc/images/smilies/grayscale/README b/etc/images/smilies/grayscale/README index 43f91b7af3a..031b096ee21 100644 --- a/etc/images/smilies/grayscale/README +++ b/etc/images/smilies/grayscale/README @@ -1,6 +1,7 @@ +-*- coding: utf-8 -*- Files: blink.xpm braindamaged.xpm cry.xpm dead.xpm evil.xpm forced.xpm frown.xpm grin.xpm indifferent.xpm reverse-smile.xpm sad.xpm - smile.xpm wry.xpm -Author: Adam Sjøgren + smile.xpm wry.xpm +Author: Adam Sjøgren Copyright (C) 2007-2013 Free Software Foundation, Inc. License: GNU General Public License version 3 or later (see COPYING) diff --git a/etc/images/smilies/medium/README b/etc/images/smilies/medium/README index 43f91b7af3a..031b096ee21 100644 --- a/etc/images/smilies/medium/README +++ b/etc/images/smilies/medium/README @@ -1,6 +1,7 @@ +-*- coding: utf-8 -*- Files: blink.xpm braindamaged.xpm cry.xpm dead.xpm evil.xpm forced.xpm frown.xpm grin.xpm indifferent.xpm reverse-smile.xpm sad.xpm - smile.xpm wry.xpm -Author: Adam Sjøgren + smile.xpm wry.xpm +Author: Adam Sjøgren Copyright (C) 2007-2013 Free Software Foundation, Inc. License: GNU General Public License version 3 or later (see COPYING) diff --git a/leim/quail/croatian.el b/leim/quail/croatian.el index 2b5755f3557..412f68fe70a 100644 --- a/leim/quail/croatian.el +++ b/leim/quail/croatian.el @@ -1,8 +1,8 @@ -;;; quail/croatian.el -- Quail package for inputting Croatian -*-coding: iso-8859-2;-*- +;;; quail/croatian.el -- Quail package for inputting Croatian -*-coding: utf-8;-*- ;; Copyright (C) 2003-2013 Free Software Foundation, Inc. -;; Author: Hrvoje Nik¹iæ +;; Author: Hrvoje NikÅ¡ić ;; Keywords: i18n ;; This file is part of GNU Emacs. @@ -44,16 +44,16 @@ ("_" ??) ("=" ?+) ("+" ?*) - ("[" ?¹) - ("{" ?©) - ("]" ?ð) - ("}" ?Ð) - (";" ?è) - (":" ?È) - ("'" ?æ) - ("\"" ?Æ) - ("\\" ?¾) - ("|" ?®) + ("[" ?Å¡) + ("{" ?Å ) + ("]" ?đ) + ("}" ?Đ) + (";" ?č) + (":" ?Č) + ("'" ?ć) + ("\"" ?Ć) + ("\\" ?ž) + ("|" ?Ž) ("<" ?\;) (">" ?:) ("/" ?-) @@ -79,16 +79,16 @@ ("_" ??) ("=" ?+) ("+" ?*) - ("[" ?¹) - ("{" ?©) - ("]" ?ð) - ("}" ?Ð) - (";" ?è) - (":" ?È) - ("'" ?æ) - ("\"" ?Æ) - ("\\" ?¾) - ("|" ?®) + ("[" ?Å¡) + ("{" ?Å ) + ("]" ?đ) + ("}" ?Đ) + (";" ?č) + (":" ?Č) + ("'" ?ć) + ("\"" ?Ć) + ("\\" ?ž) + ("|" ?Ž) ("<" ?\;) (">" ?:) ("/" ?-) @@ -98,102 +98,102 @@ "croatian-prefix" "Croatian" "HR" nil "Croatian input method, postfix. -\"c -> è -'c -> æ -\"s -> ¹ -\"z -> ¾ -/d -> ð" +\"c -> č +'c -> ć +\"s -> Å¡ +\"z -> ž +/d -> đ" nil t nil nil nil nil nil nil nil nil t) (quail-define-rules - ("\"c" ?è) - ("\"C" ?È) - ("'c" ?æ) - ("'C" ?Æ) - ("\"s" ?¹) - ("\"S" ?©) - ("\"z" ?¾) - ("\"Z" ?®) - ("/d" ?ð) - ("/D" ?Ð)) + ("\"c" ?č) + ("\"C" ?Č) + ("'c" ?ć) + ("'C" ?Ć) + ("\"s" ?Å¡) + ("\"S" ?Å ) + ("\"z" ?ž) + ("\"Z" ?Ž) + ("/d" ?đ) + ("/D" ?Đ)) (quail-define-package "croatian-postfix" "Croatian" "HR" nil "Croatian input method, postfix. -c\" -> è -c' -> æ -s\" -> ¹ -z\" -> ¾ -d/ -> ð" +c\" -> č +c' -> ć +s\" -> Å¡ +z\" -> ž +d/ -> đ" nil t nil nil nil nil nil nil nil nil t) (quail-define-rules - ("c\"" ?è) - ("C\"" ?È) - ("c'" ?æ) - ("C'" ?Æ) - ("s\"" ?¹) - ("S\"" ?©) - ("z\"" ?¾) - ("Z\"" ?®) - ("d/" ?ð) - ("D/" ?Ð)) + ("c\"" ?č) + ("C\"" ?Č) + ("c'" ?ć) + ("C'" ?Ć) + ("s\"" ?Å¡) + ("S\"" ?Å ) + ("z\"" ?ž) + ("Z\"" ?Ž) + ("d/" ?đ) + ("D/" ?Đ)) (quail-define-package "croatian-xy" "Croatian" "HR" nil "An alternative Croatian input method. -cx -> è -cy -> æ -sx -> ¹ -zx -> ¾ -dy -> ð" +cx -> č +cy -> ć +sx -> Å¡ +zx -> ž +dy -> đ" nil t nil nil nil nil nil nil nil nil t) (quail-define-rules - ("cx" ?è) - ("CX" ?È) - ("Cx" ?È) - ("cy" ?æ) - ("CY" ?Æ) - ("Cy" ?Æ) - ("sx" ?¹) - ("SX" ?©) - ("Sx" ?©) - ("zx" ?¾) - ("ZX" ?®) - ("Zx" ?®) - ("dy" ?ð) - ("DY" ?Ð) - ("Dy" ?Ð)) + ("cx" ?č) + ("CX" ?Č) + ("Cx" ?Č) + ("cy" ?ć) + ("CY" ?Ć) + ("Cy" ?Ć) + ("sx" ?Å¡) + ("SX" ?Å ) + ("Sx" ?Å ) + ("zx" ?ž) + ("ZX" ?Ž) + ("Zx" ?Ž) + ("dy" ?đ) + ("DY" ?Đ) + ("Dy" ?Đ)) (quail-define-package "croatian-cc" "Croatian" "HR" nil "Another alternative Croatian input method. -cc -> è -ch -> æ -ss -> ¹ -zz -> ¾ -dd -> ð" +cc -> č +ch -> ć +ss -> Å¡ +zz -> ž +dd -> đ" nil t nil nil nil nil nil nil nil nil t) (quail-define-rules - ("cc" ?è) - ("CC" ?È) - ("Cc" ?È) - ("ch" ?æ) - ("CH" ?Æ) - ("Ch" ?Æ) - ("ss" ?¹) - ("SS" ?©) - ("Ss" ?©) - ("zz" ?¾) - ("ZZ" ?®) - ("Zz" ?®) - ("dd" ?ð) - ("DD" ?Ð) - ("Dd" ?Ð)) + ("cc" ?č) + ("CC" ?Č) + ("Cc" ?Č) + ("ch" ?ć) + ("CH" ?Ć) + ("Ch" ?Ć) + ("ss" ?Å¡) + ("SS" ?Å ) + ("Ss" ?Å ) + ("zz" ?ž) + ("ZZ" ?Ž) + ("Zz" ?Ž) + ("dd" ?đ) + ("DD" ?Đ) + ("Dd" ?Đ)) ;;; croatian.el ends here diff --git a/lib-src/etags.c b/lib-src/etags.c index ec96f45fc94..c1e12e95da4 100644 --- a/lib-src/etags.c +++ b/lib-src/etags.c @@ -1,4 +1,4 @@ -/* Tags file maker to go with GNU Emacs -*- coding: latin-1 -*- +/* Tags file maker to go with GNU Emacs -*- coding: utf-8 -*- Copyright (C) 1984 The Regents of the University of California @@ -64,12 +64,12 @@ University of California, as described above. */ * 1985 Emacs TAGS format by Richard Stallman. * 1989 Sam Kendall added C++. * 1992 Joseph B. Wells improved C and C++ parsing. - * 1993 Francesco Potortì reorganized C and C++. + * 1993 Francesco Potortì reorganized C and C++. * 1994 Line-by-line regexp tags by Tom Tromey. - * 2001 Nested classes by Francesco Potortì (concept by Mykola Dzyuba). - * 2002 #line directives by Francesco Potortì. + * 2001 Nested classes by Francesco Potortì (concept by Mykola Dzyuba). + * 2002 #line directives by Francesco Potortì. * - * Francesco Potortì has maintained and improved it since 1993. + * Francesco Potortì has maintained and improved it since 1993. */ /* @@ -4275,7 +4275,7 @@ Asm_labels (FILE *inf) * Perl variable names: /^(my|local).../ * Original code by Bart Robinson (1995) * Additions by Michael Ernst (1997) - * Ideas by Kai Großjohann (2001) + * Ideas by Kai Großjohann (2001) */ static void Perl_functions (FILE *inf) @@ -5105,7 +5105,7 @@ Texinfo_nodes (FILE *inf) * Contents of , <h1>, <h2>, <h3> are tags. * Contents of <a name=xxx> are tags with name xxx. * - * Francesco Potortì, 2002. + * Francesco Potortì, 2002. */ static void HTML_labels (FILE *inf) diff --git a/lisp/battery.el b/lisp/battery.el index 98ba7d1b631..d4e4d8b3a31 100644 --- a/lisp/battery.el +++ b/lisp/battery.el @@ -1,4 +1,4 @@ -;;; battery.el --- display battery status information -*- coding: iso-8859-1 -*- +;;; battery.el --- display battery status information -*- coding: utf-8 -*- ;; Copyright (C) 1997-1998, 2000-2013 Free Software Foundation, Inc. @@ -116,7 +116,7 @@ string are substituted as defined by the current value of the variable (defcustom battery-mode-line-format (cond ((eq battery-status-function 'battery-linux-proc-acpi) - "[%b%p%%,%d°C]") + "[%b%p%%,%d°C]") (battery-status-function "[%b%p%%]")) "Control string formatting the string to display in the mode line. diff --git a/lisp/filesets.el b/lisp/filesets.el index 62ab7423f67..978512bd3a4 100644 --- a/lisp/filesets.el +++ b/lisp/filesets.el @@ -1,4 +1,4 @@ -;;; filesets.el --- handle group of files +;;; filesets.el --- handle group of files -*- coding: utf-8 -*- ;; Copyright (C) 2002-2013 Free Software Foundation, Inc. @@ -805,8 +805,8 @@ In order to view pdf or rtf files in an Emacs buffer, you could use these: (:match-number 2) (:get-file-name (lambda (master file) (filesets-which-file master file load-path)))))) - ("^\\([A-ZÄÖÜ][a-zäöüß]+\\([A-ZÄÖÜ][a-zäöüß]+\\)+\\)$" t - (((:pattern "\\<\\([A-ZÄÖÜ][a-zäöüß]+\\([A-ZÄÖÜ][a-zäöüß]+\\)+\\)\\>") + ("^\\([A-ZÄÖÜ][a-zäöüß]+\\([A-ZÄÖÜ][a-zäöüß]+\\)+\\)$" t + (((:pattern "\\<\\([A-ZÄÖÜ][a-zäöüß]+\\([A-ZÄÖÜ][a-zäöüß]+\\)+\\)\\>") (:scan-depth 5) (:stubp (lambda (a b) (not (filesets-files-in-same-directory-p a b)))) (:case-sensitive t) diff --git a/lisp/gnus/ChangeLog.1 b/lisp/gnus/ChangeLog.1 index 34533f31bff..9043a23361e 100644 --- a/lisp/gnus/ChangeLog.1 +++ b/lisp/gnus/ChangeLog.1 @@ -452,7 +452,7 @@ * gnus-sum.el (gnus-remove-thread): Didn't work with sparse threads. -1998-08-14 François Pinard <pinard@iro.umontreal.ca> +1998-08-14 François Pinard <pinard@iro.umontreal.ca> * nndoc.el (nndoc-generate-mime-parts-head): Use original Subject, Message-ID, and References in fully blown articles. @@ -619,7 +619,7 @@ * gnus.el: Gnus v5.6.31 is released. -1998-08-09 François Pinard <pinard@iro.umontreal.ca> +1998-08-09 François Pinard <pinard@iro.umontreal.ca> * nndoc.el: Split MIME multipart messages, maybe recursively. (nndoc-mime-parts-type-p, nndoc-transform-mime-parts, @@ -760,7 +760,7 @@ * gnus-group.el (gnus-group-read-ephemeral-group): Make the server unique. -1998-07-28 François Pinard <pinard@iro.umontreal.ca> +1998-07-28 François Pinard <pinard@iro.umontreal.ca> * gnus-uu.el (gnus-uu-reginize-string): Consider the number of parts as part of the fixed subject, instead of a wild quantity. @@ -943,7 +943,7 @@ * nntp.el (nntp-server-opened-hook): Doc change. -1998-07-10 François Pinard <pinard@iro.umontreal.ca> +1998-07-10 François Pinard <pinard@iro.umontreal.ca> * gnus-sum.el (gnus-summary-respool-trace): New command and keystroke. @@ -1003,7 +1003,7 @@ * nntp.el (nntp-record-command): Give more precise time info. (nntp-next-result-arrived-p): Look for the end of error lines. -1998-07-01 François Pinard <pinard@iro.umontreal.ca> +1998-07-01 François Pinard <pinard@iro.umontreal.ca> * gnus-util.el (gnus-delete-if): Would do the opposite. @@ -2016,7 +2016,7 @@ * gnus-picon.el (gnus-picons-display-x-face): `buf' -- unbound var. -1998-02-28 François Pinard <pinard@iro.umontreal.ca> +1998-02-28 François Pinard <pinard@iro.umontreal.ca> * gnus: configure'd. @@ -2370,7 +2370,7 @@ * gnus-sum.el (gnus-summary-exit): Call purging function. -1998-02-13 François Pinard <pinard@iro.umontreal.ca> +1998-02-13 François Pinard <pinard@iro.umontreal.ca> * nnmail.el (nnmail-get-new-mail): Don't clear split-history. (nnmail-purge-split-history): New function. @@ -3724,3 +3724,7 @@ You should have received a copy of the GNU General Public License along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. + +;; Local Variables: +;; coding: utf-8 +;; End: diff --git a/lisp/gnus/deuglify.el b/lisp/gnus/deuglify.el index 8ef89a9e56d..36e91980ba2 100644 --- a/lisp/gnus/deuglify.el +++ b/lisp/gnus/deuglify.el @@ -270,7 +270,7 @@ :group 'gnus-outlook-deuglify) (defcustom gnus-outlook-deuglify-attrib-verb-regexp - "wrote\\|writes\\|says\\|schrieb\\|schreibt\\|meinte\\|skrev\\|a écrit\\|schreef\\|escribió" + "wrote\\|writes\\|says\\|schrieb\\|schreibt\\|meinte\\|skrev\\|a écrit\\|schreef\\|escribió" "Regular expression matching the verb used in an attribution line." :version "22.1" :type 'string @@ -472,7 +472,7 @@ NODISPLAY is non-nil, don't redisplay the article buffer." (provide 'deuglify) ;; Local Variables: -;; coding: iso-8859-1 +;; coding: utf-8 ;; End: ;;; deuglify.el ends here diff --git a/lisp/gnus/gnus-delay.el b/lisp/gnus/gnus-delay.el index 5c14ffcfbdf..921d24109c2 100644 --- a/lisp/gnus/gnus-delay.el +++ b/lisp/gnus/gnus-delay.el @@ -2,7 +2,7 @@ ;; Copyright (C) 2001-2013 Free Software Foundation, Inc. -;; Author: Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> +;; Author: Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> ;; Keywords: mail, news, extensions ;; This file is part of GNU Emacs. @@ -186,7 +186,7 @@ Checking delayed messages is skipped if optional arg NO-CHECK is non-nil." (provide 'gnus-delay) ;; Local Variables: -;; coding: iso-8859-1 +;; coding: utf-8 ;; End: ;;; gnus-delay.el ends here diff --git a/lisp/gnus/gnus-spec.el b/lisp/gnus/gnus-spec.el index 446e8260203..2606b8860af 100644 --- a/lisp/gnus/gnus-spec.el +++ b/lisp/gnus/gnus-spec.el @@ -418,7 +418,7 @@ characters when given a pad value." ;; them will have the balloon-help text property. (let ((case-fold-search nil)) (if (string-match - "\\`\\(.*\\)%[0-9]?[{(«]\\(.*\\)%[0-9]?[»})]\\(.*\n?\\)\\'\\|%[-0-9]*=\\|%[-0-9]*\\*" + "\\`\\(.*\\)%[0-9]?[{(«]\\(.*\\)%[0-9]?[»})]\\(.*\n?\\)\\'\\|%[-0-9]*=\\|%[-0-9]*\\*" format) (gnus-parse-complex-format format spec-alist) ;; This is a simple format. @@ -435,13 +435,13 @@ characters when given a pad value." (goto-char (point-min)) (insert "(\"") ;; Convert all font specs into font spec lists. - (while (re-search-forward "%\\([0-9]+\\)?\\([«»{}()]\\)" nil t) + (while (re-search-forward "%\\([0-9]+\\)?\\([«»{}()]\\)" nil t) (let ((number (if (match-beginning 1) (match-string 1) "0")) (delim (aref (match-string 2) 0))) (if (or (= delim ?\() (= delim ?\{) - (= delim ?\«)) + (= delim ?\«)) (replace-match (concat "\"(" (cond ((= delim ?\() "mouse") ((= delim ?\{) "face") @@ -733,7 +733,7 @@ If PROPS, insert the result." (provide 'gnus-spec) ;; Local Variables: -;; coding: iso-8859-1 +;; coding: utf-8 ;; End: ;;; gnus-spec.el ends here diff --git a/lisp/gnus/gnus-sum.el b/lisp/gnus/gnus-sum.el index 183eabca6dc..93bc35af3bd 100644 --- a/lisp/gnus/gnus-sum.el +++ b/lisp/gnus/gnus-sum.el @@ -451,7 +451,7 @@ current article is unread." :group 'gnus-summary-maneuvering :type 'boolean) -(defcustom gnus-auto-center-summary +(defcustom gnus-auto-center-summary (max (or (bound-and-true-p scroll-margin) 0) 2) "*If non-nil, always center the current summary buffer. In particular, if `vertical' do only vertical recentering. If non-nil @@ -9788,7 +9788,7 @@ installed for this command to work." (when (message-goto-body) (gnus-narrow-to-body)) (goto-char (point-min)) - (while (search-forward "·" (point-max) t) + (while (search-forward "·" (point-max) t) (replace-match ".")) (unmorse-region (point-min) (point-max)) (widen) @@ -12978,7 +12978,7 @@ BOOKMARK is a bookmark name or a bookmark record." (run-hooks 'gnus-sum-load-hook) ;; Local Variables: -;; coding: iso-8859-1 +;; coding: utf-8 ;; End: ;;; gnus-sum.el ends here diff --git a/lisp/gnus/html2text.el b/lisp/gnus/html2text.el index 4e05f1abb40..68e75196c87 100644 --- a/lisp/gnus/html2text.el +++ b/lisp/gnus/html2text.el @@ -1,4 +1,4 @@ -;;; html2text.el --- a simple html to plain text converter +;;; html2text.el --- a simple html to plain text converter -*- coding: utf-8 -*- ;; Copyright (C) 2002-2013 Free Software Foundation, Inc. @@ -65,14 +65,14 @@ ("–" . "-") ("‰" . "%%") ("±" . "+-") - ("£" . "£") + ("£" . "£") (""" . "\"") ("»" . ">>") ("&rdquo" . "\"") ("®" . "(R)") ("›" . ")") ("’" . "'") - ("§" . "§") + ("§" . "§") ("¹" . "^1") ("²" . "^2") ("³" . "^3") diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el index 808e1edd6c3..a6638097b47 100644 --- a/lisp/gnus/message.el +++ b/lisp/gnus/message.el @@ -1743,7 +1743,7 @@ no, only reply back to the author." (file-error)) (mm-coding-system-p 'utf-8) (executable-find idna-program) - (string= (idna-to-ascii "räksmörgås") + (string= (idna-to-ascii "räksmörgÃ¥s") "xn--rksmrgs-5wao1o") t) "Whether to encode non-ASCII in domain names into ASCII according to IDNA. @@ -8421,7 +8421,7 @@ Used in `message-simplify-recipients'." (run-hooks 'message-load-hook) ;; Local Variables: -;; coding: iso-8859-1 +;; coding: utf-8 ;; End: ;;; message.el ends here diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index 812ee7396dd..04f325633ba 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el @@ -1803,7 +1803,7 @@ If RECURSIVE, search recursively." (replace-match (char-to-string char)))) ;; Remove "soft hyphens". (goto-char (point-min)) - (while (search-forward "­" nil t) + (while (search-forward "­" nil t) (replace-match "" t t)) (libxml-parse-html-region (point-min) (point-max)))) (unless (bobp) @@ -1825,7 +1825,7 @@ If RECURSIVE, search recursively." (provide 'mm-decode) ;; Local Variables: -;; coding: iso-8859-1 +;; coding: utf-8 ;; End: ;;; mm-decode.el ends here diff --git a/lisp/gnus/mml1991.el b/lisp/gnus/mml1991.el index 88dee4ad883..5af7639019a 100644 --- a/lisp/gnus/mml1991.el +++ b/lisp/gnus/mml1991.el @@ -2,7 +2,7 @@ ;; Copyright (C) 1998-2013 Free Software Foundation, Inc. -;; Author: Sascha Lüdecke <sascha@meta-x.de>, +;; Author: Sascha Lüdecke <sascha@meta-x.de>, ;; Simon Josefsson <simon@josefsson.org> (Mailcrypt interface, Gnus glue) ;; Keywords: PGP @@ -480,7 +480,7 @@ If no one is selected, default secret key is used. " (provide 'mml1991) ;; Local Variables: -;; coding: iso-8859-1 +;; coding: utf-8 ;; End: ;;; mml1991.el ends here diff --git a/lisp/gnus/nnir.el b/lisp/gnus/nnir.el index 0e2e76f25be..cf5a813c5a8 100644 --- a/lisp/gnus/nnir.el +++ b/lisp/gnus/nnir.el @@ -1,8 +1,8 @@ -;;; nnir.el --- search mail with various search engines -*- coding: iso-8859-1 -*- +;;; nnir.el --- search mail with various search engines -*- coding: utf-8 -*- ;; Copyright (C) 1998-2013 Free Software Foundation, Inc. -;; Author: Kai Großjohann <grossjohann@ls6.cs.uni-dortmund.de> +;; Author: Kai Großjohann <grossjohann@ls6.cs.uni-dortmund.de> ;; Swish-e and Swish++ backends by: ;; Christoph Conrad <christoph.conrad@gmx.de>. ;; IMAP backend by: Simon Josefsson <jas@pdc.kth.se>. diff --git a/lisp/gnus/shr.el b/lisp/gnus/shr.el index 9bf14ee147a..5df5297ba8a 100644 --- a/lisp/gnus/shr.el +++ b/lisp/gnus/shr.el @@ -347,11 +347,11 @@ size, and full-buffer size." ((eq shr-folding-mode 'none) (insert text)) (t - (when (and (string-match "\\`[ \t\n ]" text) + (when (and (string-match "\\`[ \t\n ]" text) (not (bolp)) (not (eq (char-after (1- (point))) ? ))) (insert " ")) - (dolist (elem (split-string text "[ \f\t\n\r\v ]+" t)) + (dolist (elem (split-string text "[ \f\t\n\r\v ]+" t)) (when (and (bolp) (> shr-indentation 0)) (shr-indent)) @@ -391,7 +391,7 @@ size, and full-buffer size." (shr-indent)) (end-of-line)) (insert " "))) - (unless (string-match "[ \t\r\n ]\\'" text) + (unless (string-match "[ \t\r\n ]\\'" text) (delete-char -1))))) (defun shr-find-fill-point () @@ -1476,7 +1476,7 @@ ones, in case fg and bg are nil." (provide 'shr) ;; Local Variables: -;; coding: iso-8859-1 +;; coding: utf-8 ;; End: ;;; shr.el ends here diff --git a/lisp/gnus/utf7.el b/lisp/gnus/utf7.el index 69b189b6b53..b55b77a383b 100644 --- a/lisp/gnus/utf7.el +++ b/lisp/gnus/utf7.el @@ -1,4 +1,4 @@ -;;; utf7.el --- UTF-7 encoding/decoding for Emacs -*-coding: iso-8859-1;-*- +;;; utf7.el --- UTF-7 encoding/decoding for Emacs -*-coding: utf-8;-*- ;; Copyright (C) 1999-2013 Free Software Foundation, Inc. @@ -52,10 +52,10 @@ ;; necessary coding system. The code below doesn't seem to DTRT ;; generally. E.g.: ;; -;; (utf7-encode "a+£") +;; (utf7-encode "a+£") ;; => "a+ACsAow-" ;; -;; $ echo "a+£"|iconv -f iso-8859-1 -t utf-7 +;; $ echo "a+£"|iconv -f utf-8 -t utf-7 ;; a+-+AKM ;; ;; -- fx diff --git a/lisp/international/iso-cvt.el b/lisp/international/iso-cvt.el index 34488db5f17..407ff3ae7a4 100644 --- a/lisp/international/iso-cvt.el +++ b/lisp/international/iso-cvt.el @@ -1,4 +1,4 @@ -;;; iso-cvt.el --- translate ISO 8859-1 from/to various encodings -*- coding: iso-latin-1 -*- +;;; iso-cvt.el --- translate ISO 8859-1 from/to various encodings -*- coding: utf-8 -*- ;; This file was formerly called gm-lingo.el. ;; Copyright (C) 1993-1998, 2000-2013 Free Software Foundation, Inc. @@ -45,19 +45,19 @@ (defvar iso-spanish-trans-tab '( - ("~n" "ñ") - ("\([a-zA-Z]\)#" "\\1ñ") - ("~N" "Ñ") - ("\\([-a-zA-Z\"`]\\)\"u" "\\1ü") - ("\\([-a-zA-Z\"`]\\)\"U" "\\1Ü") - ("\\([-a-zA-Z]\\)'o" "\\1ó") - ("\\([-a-zA-Z]\\)'O" "\\Ó") - ("\\([-a-zA-Z]\\)'e" "\\1é") - ("\\([-a-zA-Z]\\)'E" "\\1É") - ("\\([-a-zA-Z]\\)'a" "\\1á") + ("~n" "ñ") + ("\([a-zA-Z]\)#" "\\1ñ") + ("~N" "Ñ") + ("\\([-a-zA-Z\"`]\\)\"u" "\\1ü") + ("\\([-a-zA-Z\"`]\\)\"U" "\\1Ü") + ("\\([-a-zA-Z]\\)'o" "\\1ó") + ("\\([-a-zA-Z]\\)'O" "\\Ó") + ("\\([-a-zA-Z]\\)'e" "\\1é") + ("\\([-a-zA-Z]\\)'E" "\\1É") + ("\\([-a-zA-Z]\\)'a" "\\1á") ("\\([-a-zA-Z]\\)'A" "\\1A") - ("\\([-a-zA-Z]\\)'i" "\\1í") - ("\\([-a-zA-Z]\\)'I" "\\1Í") + ("\\([-a-zA-Z]\\)'i" "\\1í") + ("\\([-a-zA-Z]\\)'I" "\\1Í") ) "Spanish translation table.") @@ -89,14 +89,14 @@ Optional arg BUFFER is ignored (for use in `format-alist')." (defvar iso-aggressive-german-trans-tab '( - ("\"a" "ä") - ("\"A" "Ä") - ("\"o" "ö") - ("\"O" "Ö") - ("\"u" "ü") - ("\"U" "Ü") - ("\"s" "ß") - ("\\\\3" "ß") + ("\"a" "ä") + ("\"A" "Ä") + ("\"o" "ö") + ("\"O" "Ö") + ("\"u" "ü") + ("\"U" "Ü") + ("\"s" "ß") + ("\\\\3" "ß") ) "German translation table. This table uses an aggressive translation approach @@ -104,14 +104,14 @@ and may erroneously translate too much.") (defvar iso-conservative-german-trans-tab '( - ("\\([-a-zA-Z\"`]\\)\"a" "\\1ä") - ("\\([-a-zA-Z\"`]\\)\"A" "\\1Ä") - ("\\([-a-zA-Z\"`]\\)\"o" "\\1ö") - ("\\([-a-zA-Z\"`]\\)\"O" "\\1Ö") - ("\\([-a-zA-Z\"`]\\)\"u" "\\1ü") - ("\\([-a-zA-Z\"`]\\)\"U" "\\1Ü") - ("\\([-a-zA-Z\"`]\\)\"s" "\\1ß") - ("\\([-a-zA-Z\"`]\\)\\\\3" "\\1ß") + ("\\([-a-zA-Z\"`]\\)\"a" "\\1ä") + ("\\([-a-zA-Z\"`]\\)\"A" "\\1Ä") + ("\\([-a-zA-Z\"`]\\)\"o" "\\1ö") + ("\\([-a-zA-Z\"`]\\)\"O" "\\1Ö") + ("\\([-a-zA-Z\"`]\\)\"u" "\\1ü") + ("\\([-a-zA-Z\"`]\\)\"U" "\\1Ü") + ("\\([-a-zA-Z\"`]\\)\"s" "\\1ß") + ("\\([-a-zA-Z\"`]\\)\\\\3" "\\1ß") ) "German translation table. This table uses a conservative translation approach @@ -131,65 +131,65 @@ Optional arg BUFFER is ignored (for use in `format-alist')." (defvar iso-iso2tex-trans-tab '( - ("ä" "{\\\\\"a}") - ("à" "{\\\\`a}") - ("á" "{\\\\'a}") - ("ã" "{\\\\~a}") - ("â" "{\\\\^a}") - ("ë" "{\\\\\"e}") - ("è" "{\\\\`e}") - ("é" "{\\\\'e}") - ("ê" "{\\\\^e}") - ("ï" "{\\\\\"\\\\i}") - ("ì" "{\\\\`\\\\i}") - ("í" "{\\\\'\\\\i}") - ("î" "{\\\\^\\\\i}") - ("ö" "{\\\\\"o}") - ("ò" "{\\\\`o}") - ("ó" "{\\\\'o}") - ("õ" "{\\\\~o}") - ("ô" "{\\\\^o}") - ("ü" "{\\\\\"u}") - ("ù" "{\\\\`u}") - ("ú" "{\\\\'u}") - ("û" "{\\\\^u}") - ("Ä" "{\\\\\"A}") - ("À" "{\\\\`A}") - ("Á" "{\\\\'A}") - ("Ã" "{\\\\~A}") - ("Â" "{\\\\^A}") - ("Ë" "{\\\\\"E}") - ("È" "{\\\\`E}") - ("É" "{\\\\'E}") - ("Ê" "{\\\\^E}") - ("Ï" "{\\\\\"I}") - ("Ì" "{\\\\`I}") - ("Í" "{\\\\'I}") - ("Î" "{\\\\^I}") - ("Ö" "{\\\\\"O}") - ("Ò" "{\\\\`O}") - ("Ó" "{\\\\'O}") - ("Õ" "{\\\\~O}") - ("Ô" "{\\\\^O}") - ("Ü" "{\\\\\"U}") - ("Ù" "{\\\\`U}") - ("Ú" "{\\\\'U}") - ("Û" "{\\\\^U}") - ("ñ" "{\\\\~n}") - ("Ñ" "{\\\\~N}") - ("ç" "{\\\\c c}") - ("Ç" "{\\\\c C}") - ("ß" "{\\\\ss}") + ("ä" "{\\\\\"a}") + ("à" "{\\\\`a}") + ("á" "{\\\\'a}") + ("ã" "{\\\\~a}") + ("â" "{\\\\^a}") + ("ë" "{\\\\\"e}") + ("è" "{\\\\`e}") + ("é" "{\\\\'e}") + ("ê" "{\\\\^e}") + ("ï" "{\\\\\"\\\\i}") + ("ì" "{\\\\`\\\\i}") + ("í" "{\\\\'\\\\i}") + ("î" "{\\\\^\\\\i}") + ("ö" "{\\\\\"o}") + ("ò" "{\\\\`o}") + ("ó" "{\\\\'o}") + ("õ" "{\\\\~o}") + ("ô" "{\\\\^o}") + ("ü" "{\\\\\"u}") + ("ù" "{\\\\`u}") + ("ú" "{\\\\'u}") + ("û" "{\\\\^u}") + ("Ä" "{\\\\\"A}") + ("À" "{\\\\`A}") + ("Á" "{\\\\'A}") + ("Ã" "{\\\\~A}") + ("Â" "{\\\\^A}") + ("Ë" "{\\\\\"E}") + ("È" "{\\\\`E}") + ("É" "{\\\\'E}") + ("Ê" "{\\\\^E}") + ("Ï" "{\\\\\"I}") + ("Ì" "{\\\\`I}") + ("Í" "{\\\\'I}") + ("Î" "{\\\\^I}") + ("Ö" "{\\\\\"O}") + ("Ò" "{\\\\`O}") + ("Ó" "{\\\\'O}") + ("Õ" "{\\\\~O}") + ("Ô" "{\\\\^O}") + ("Ü" "{\\\\\"U}") + ("Ù" "{\\\\`U}") + ("Ú" "{\\\\'U}") + ("Û" "{\\\\^U}") + ("ñ" "{\\\\~n}") + ("Ñ" "{\\\\~N}") + ("ç" "{\\\\c c}") + ("Ç" "{\\\\c C}") + ("ß" "{\\\\ss}") ("\306" "{\\\\AE}") ("\346" "{\\\\ae}") ("\305" "{\\\\AA}") ("\345" "{\\\\aa}") ("\251" "{\\\\copyright}") - ("£" "{\\\\pounds}") - ("¶" "{\\\\P}") - ("§" "{\\\\S}") - ("¿" "{?`}") - ("¡" "{!`}") + ("£" "{\\\\pounds}") + ("¶" "{\\\\P}") + ("§" "{\\\\S}") + ("¿" "{?`}") + ("¡" "{!`}") ) "Translation table for translating ISO 8859-1 characters to TeX sequences.") @@ -204,183 +204,183 @@ Optional arg BUFFER is ignored (for use in `format-alist')." (defvar iso-tex2iso-trans-tab '( - ("{\\\\\"a}" "ä") - ("{\\\\`a}" "à") - ("{\\\\'a}" "á") - ("{\\\\~a}" "ã") - ("{\\\\^a}" "â") - ("{\\\\\"e}" "ë") - ("{\\\\`e}" "è") - ("{\\\\'e}" "é") - ("{\\\\^e}" "ê") - ("{\\\\\"\\\\i}" "ï") - ("{\\\\`\\\\i}" "ì") - ("{\\\\'\\\\i}" "í") - ("{\\\\^\\\\i}" "î") - ("{\\\\\"i}" "ï") - ("{\\\\`i}" "ì") - ("{\\\\'i}" "í") - ("{\\\\^i}" "î") - ("{\\\\\"o}" "ö") - ("{\\\\`o}" "ò") - ("{\\\\'o}" "ó") - ("{\\\\~o}" "õ") - ("{\\\\^o}" "ô") - ("{\\\\\"u}" "ü") - ("{\\\\`u}" "ù") - ("{\\\\'u}" "ú") - ("{\\\\^u}" "û") - ("{\\\\\"A}" "Ä") - ("{\\\\`A}" "À") - ("{\\\\'A}" "Á") - ("{\\\\~A}" "Ã") - ("{\\\\^A}" "Â") - ("{\\\\\"E}" "Ë") - ("{\\\\`E}" "È") - ("{\\\\'E}" "É") - ("{\\\\^E}" "Ê") - ("{\\\\\"I}" "Ï") - ("{\\\\`I}" "Ì") - ("{\\\\'I}" "Í") - ("{\\\\^I}" "Î") - ("{\\\\\"O}" "Ö") - ("{\\\\`O}" "Ò") - ("{\\\\'O}" "Ó") - ("{\\\\~O}" "Õ") - ("{\\\\^O}" "Ô") - ("{\\\\\"U}" "Ü") - ("{\\\\`U}" "Ù") - ("{\\\\'U}" "Ú") - ("{\\\\^U}" "Û") - ("{\\\\~n}" "ñ") - ("{\\\\~N}" "Ñ") - ("{\\\\c c}" "ç") - ("{\\\\c C}" "Ç") - ("\\\\\"a" "ä") - ("\\\\`a" "à") - ("\\\\'a" "á") - ("\\\\~a" "ã") - ("\\\\^a" "â") - ("\\\\\"e" "ë") - ("\\\\`e" "è") - ("\\\\'e" "é") - ("\\\\^e" "ê") + ("{\\\\\"a}" "ä") + ("{\\\\`a}" "à") + ("{\\\\'a}" "á") + ("{\\\\~a}" "ã") + ("{\\\\^a}" "â") + ("{\\\\\"e}" "ë") + ("{\\\\`e}" "è") + ("{\\\\'e}" "é") + ("{\\\\^e}" "ê") + ("{\\\\\"\\\\i}" "ï") + ("{\\\\`\\\\i}" "ì") + ("{\\\\'\\\\i}" "í") + ("{\\\\^\\\\i}" "î") + ("{\\\\\"i}" "ï") + ("{\\\\`i}" "ì") + ("{\\\\'i}" "í") + ("{\\\\^i}" "î") + ("{\\\\\"o}" "ö") + ("{\\\\`o}" "ò") + ("{\\\\'o}" "ó") + ("{\\\\~o}" "õ") + ("{\\\\^o}" "ô") + ("{\\\\\"u}" "ü") + ("{\\\\`u}" "ù") + ("{\\\\'u}" "ú") + ("{\\\\^u}" "û") + ("{\\\\\"A}" "Ä") + ("{\\\\`A}" "À") + ("{\\\\'A}" "Á") + ("{\\\\~A}" "Ã") + ("{\\\\^A}" "Â") + ("{\\\\\"E}" "Ë") + ("{\\\\`E}" "È") + ("{\\\\'E}" "É") + ("{\\\\^E}" "Ê") + ("{\\\\\"I}" "Ï") + ("{\\\\`I}" "Ì") + ("{\\\\'I}" "Í") + ("{\\\\^I}" "Î") + ("{\\\\\"O}" "Ö") + ("{\\\\`O}" "Ò") + ("{\\\\'O}" "Ó") + ("{\\\\~O}" "Õ") + ("{\\\\^O}" "Ô") + ("{\\\\\"U}" "Ü") + ("{\\\\`U}" "Ù") + ("{\\\\'U}" "Ú") + ("{\\\\^U}" "Û") + ("{\\\\~n}" "ñ") + ("{\\\\~N}" "Ñ") + ("{\\\\c c}" "ç") + ("{\\\\c C}" "Ç") + ("\\\\\"a" "ä") + ("\\\\`a" "à") + ("\\\\'a" "á") + ("\\\\~a" "ã") + ("\\\\^a" "â") + ("\\\\\"e" "ë") + ("\\\\`e" "è") + ("\\\\'e" "é") + ("\\\\^e" "ê") ;; Discard spaces and/or one EOF after macro \i. ;; Converting it back will use braces. - ("\\\\\"\\\\i *\n\n" "ï\n\n") - ("\\\\\"\\\\i *\n?" "ï") - ("\\\\`\\\\i *\n\n" "ì\n\n") - ("\\\\`\\\\i *\n?" "ì") - ("\\\\'\\\\i *\n\n" "í\n\n") - ("\\\\'\\\\i *\n?" "í") - ("\\\\^\\\\i *\n\n" "î\n\n") - ("\\\\^\\\\i *\n?" "î") - ("\\\\\"i" "ï") - ("\\\\`i" "ì") - ("\\\\'i" "í") - ("\\\\^i" "î") - ("\\\\\"o" "ö") - ("\\\\`o" "ò") - ("\\\\'o" "ó") - ("\\\\~o" "õ") - ("\\\\^o" "ô") - ("\\\\\"u" "ü") - ("\\\\`u" "ù") - ("\\\\'u" "ú") - ("\\\\^u" "û") - ("\\\\\"A" "Ä") - ("\\\\`A" "À") - ("\\\\'A" "Á") - ("\\\\~A" "Ã") - ("\\\\^A" "Â") - ("\\\\\"E" "Ë") - ("\\\\`E" "È") - ("\\\\'E" "É") - ("\\\\^E" "Ê") - ("\\\\\"I" "Ï") - ("\\\\`I" "Ì") - ("\\\\'I" "Í") - ("\\\\^I" "Î") - ("\\\\\"O" "Ö") - ("\\\\`O" "Ò") - ("\\\\'O" "Ó") - ("\\\\~O" "Õ") - ("\\\\^O" "Ô") - ("\\\\\"U" "Ü") - ("\\\\`U" "Ù") - ("\\\\'U" "Ú") - ("\\\\^U" "Û") - ("\\\\~n" "ñ") - ("\\\\~N" "Ñ") - ("\\\\\"{a}" "ä") - ("\\\\`{a}" "à") - ("\\\\'{a}" "á") - ("\\\\~{a}" "ã") - ("\\\\^{a}" "â") - ("\\\\\"{e}" "ë") - ("\\\\`{e}" "è") - ("\\\\'{e}" "é") - ("\\\\^{e}" "ê") - ("\\\\\"{\\\\i}" "ï") - ("\\\\`{\\\\i}" "ì") - ("\\\\'{\\\\i}" "í") - ("\\\\^{\\\\i}" "î") - ("\\\\\"{i}" "ï") - ("\\\\`{i}" "ì") - ("\\\\'{i}" "í") - ("\\\\^{i}" "î") - ("\\\\\"{o}" "ö") - ("\\\\`{o}" "ò") - ("\\\\'{o}" "ó") - ("\\\\~{o}" "õ") - ("\\\\^{o}" "ô") - ("\\\\\"{u}" "ü") - ("\\\\`{u}" "ù") - ("\\\\'{u}" "ú") - ("\\\\^{u}" "û") - ("\\\\\"{A}" "Ä") - ("\\\\`{A}" "À") - ("\\\\'{A}" "Á") - ("\\\\~{A}" "Ã") - ("\\\\^{A}" "Â") - ("\\\\\"{E}" "Ë") - ("\\\\`{E}" "È") - ("\\\\'{E}" "É") - ("\\\\^{E}" "Ê") - ("\\\\\"{I}" "Ï") - ("\\\\`{I}" "Ì") - ("\\\\'{I}" "Í") - ("\\\\^{I}" "Î") - ("\\\\\"{O}" "Ö") - ("\\\\`{O}" "Ò") - ("\\\\'{O}" "Ó") - ("\\\\~{O}" "Õ") - ("\\\\^{O}" "Ô") - ("\\\\\"{U}" "Ü") - ("\\\\`{U}" "Ù") - ("\\\\'{U}" "Ú") - ("\\\\^{U}" "Û") - ("\\\\~{n}" "ñ") - ("\\\\~{N}" "Ñ") - ("\\\\c{c}" "ç") - ("\\\\c{C}" "Ç") - ("{\\\\ss}" "ß") + ("\\\\\"\\\\i *\n\n" "ï\n\n") + ("\\\\\"\\\\i *\n?" "ï") + ("\\\\`\\\\i *\n\n" "ì\n\n") + ("\\\\`\\\\i *\n?" "ì") + ("\\\\'\\\\i *\n\n" "í\n\n") + ("\\\\'\\\\i *\n?" "í") + ("\\\\^\\\\i *\n\n" "î\n\n") + ("\\\\^\\\\i *\n?" "î") + ("\\\\\"i" "ï") + ("\\\\`i" "ì") + ("\\\\'i" "í") + ("\\\\^i" "î") + ("\\\\\"o" "ö") + ("\\\\`o" "ò") + ("\\\\'o" "ó") + ("\\\\~o" "õ") + ("\\\\^o" "ô") + ("\\\\\"u" "ü") + ("\\\\`u" "ù") + ("\\\\'u" "ú") + ("\\\\^u" "û") + ("\\\\\"A" "Ä") + ("\\\\`A" "À") + ("\\\\'A" "Á") + ("\\\\~A" "Ã") + ("\\\\^A" "Â") + ("\\\\\"E" "Ë") + ("\\\\`E" "È") + ("\\\\'E" "É") + ("\\\\^E" "Ê") + ("\\\\\"I" "Ï") + ("\\\\`I" "Ì") + ("\\\\'I" "Í") + ("\\\\^I" "Î") + ("\\\\\"O" "Ö") + ("\\\\`O" "Ò") + ("\\\\'O" "Ó") + ("\\\\~O" "Õ") + ("\\\\^O" "Ô") + ("\\\\\"U" "Ü") + ("\\\\`U" "Ù") + ("\\\\'U" "Ú") + ("\\\\^U" "Û") + ("\\\\~n" "ñ") + ("\\\\~N" "Ñ") + ("\\\\\"{a}" "ä") + ("\\\\`{a}" "à") + ("\\\\'{a}" "á") + ("\\\\~{a}" "ã") + ("\\\\^{a}" "â") + ("\\\\\"{e}" "ë") + ("\\\\`{e}" "è") + ("\\\\'{e}" "é") + ("\\\\^{e}" "ê") + ("\\\\\"{\\\\i}" "ï") + ("\\\\`{\\\\i}" "ì") + ("\\\\'{\\\\i}" "í") + ("\\\\^{\\\\i}" "î") + ("\\\\\"{i}" "ï") + ("\\\\`{i}" "ì") + ("\\\\'{i}" "í") + ("\\\\^{i}" "î") + ("\\\\\"{o}" "ö") + ("\\\\`{o}" "ò") + ("\\\\'{o}" "ó") + ("\\\\~{o}" "õ") + ("\\\\^{o}" "ô") + ("\\\\\"{u}" "ü") + ("\\\\`{u}" "ù") + ("\\\\'{u}" "ú") + ("\\\\^{u}" "û") + ("\\\\\"{A}" "Ä") + ("\\\\`{A}" "À") + ("\\\\'{A}" "Á") + ("\\\\~{A}" "Ã") + ("\\\\^{A}" "Â") + ("\\\\\"{E}" "Ë") + ("\\\\`{E}" "È") + ("\\\\'{E}" "É") + ("\\\\^{E}" "Ê") + ("\\\\\"{I}" "Ï") + ("\\\\`{I}" "Ì") + ("\\\\'{I}" "Í") + ("\\\\^{I}" "Î") + ("\\\\\"{O}" "Ö") + ("\\\\`{O}" "Ò") + ("\\\\'{O}" "Ó") + ("\\\\~{O}" "Õ") + ("\\\\^{O}" "Ô") + ("\\\\\"{U}" "Ü") + ("\\\\`{U}" "Ù") + ("\\\\'{U}" "Ú") + ("\\\\^{U}" "Û") + ("\\\\~{n}" "ñ") + ("\\\\~{N}" "Ñ") + ("\\\\c{c}" "ç") + ("\\\\c{C}" "Ç") + ("{\\\\ss}" "ß") ("{\\\\AE}" "\306") ("{\\\\ae}" "\346") ("{\\\\AA}" "\305") ("{\\\\aa}" "\345") ("{\\\\copyright}" "\251") ("\\\\copyright{}" "\251") - ("{\\\\pounds}" "£" ) - ("{\\\\P}" "¶" ) - ("{\\\\S}" "§" ) - ("\\\\pounds{}" "£" ) - ("\\\\P{}" "¶" ) - ("\\\\S{}" "§" ) - ("{\\?`}" "¿") - ("{!`}" "¡") - ("\\?`" "¿") - ("!`" "¡") + ("{\\\\pounds}" "£" ) + ("{\\\\P}" "¶" ) + ("{\\\\S}" "§" ) + ("\\\\pounds{}" "£" ) + ("\\\\P{}" "¶" ) + ("\\\\S{}" "§" ) + ("{\\?`}" "¿") + ("{!`}" "¡") + ("\\?`" "¿") + ("!`" "¡") ) "Translation table for translating TeX sequences to ISO 8859-1 characters. This table is not exhaustive (and due to TeX's power can never be). @@ -397,185 +397,185 @@ Optional arg BUFFER is ignored (for use in `format-alist')." (defvar iso-gtex2iso-trans-tab '( - ("{\\\\\"a}" "ä") - ("{\\\\`a}" "à") - ("{\\\\'a}" "á") - ("{\\\\~a}" "ã") - ("{\\\\^a}" "â") - ("{\\\\\"e}" "ë") - ("{\\\\`e}" "è") - ("{\\\\'e}" "é") - ("{\\\\^e}" "ê") - ("{\\\\\"\\\\i}" "ï") - ("{\\\\`\\\\i}" "ì") - ("{\\\\'\\\\i}" "í") - ("{\\\\^\\\\i}" "î") - ("{\\\\\"i}" "ï") - ("{\\\\`i}" "ì") - ("{\\\\'i}" "í") - ("{\\\\^i}" "î") - ("{\\\\\"o}" "ö") - ("{\\\\`o}" "ò") - ("{\\\\'o}" "ó") - ("{\\\\~o}" "õ") - ("{\\\\^o}" "ô") - ("{\\\\\"u}" "ü") - ("{\\\\`u}" "ù") - ("{\\\\'u}" "ú") - ("{\\\\^u}" "û") - ("{\\\\\"A}" "Ä") - ("{\\\\`A}" "À") - ("{\\\\'A}" "Á") - ("{\\\\~A}" "Ã") - ("{\\\\^A}" "Â") - ("{\\\\\"E}" "Ë") - ("{\\\\`E}" "È") - ("{\\\\'E}" "É") - ("{\\\\^E}" "Ê") - ("{\\\\\"I}" "Ï") - ("{\\\\`I}" "Ì") - ("{\\\\'I}" "Í") - ("{\\\\^I}" "Î") - ("{\\\\\"O}" "Ö") - ("{\\\\`O}" "Ò") - ("{\\\\'O}" "Ó") - ("{\\\\~O}" "Õ") - ("{\\\\^O}" "Ô") - ("{\\\\\"U}" "Ü") - ("{\\\\`U}" "Ù") - ("{\\\\'U}" "Ú") - ("{\\\\^U}" "Û") - ("{\\\\~n}" "ñ") - ("{\\\\~N}" "Ñ") - ("{\\\\c c}" "ç") - ("{\\\\c C}" "Ç") - ("\\\\\"a" "ä") - ("\\\\`a" "à") - ("\\\\'a" "á") - ("\\\\~a" "ã") - ("\\\\^a" "â") - ("\\\\\"e" "ë") - ("\\\\`e" "è") - ("\\\\'e" "é") - ("\\\\^e" "ê") - ("\\\\\"\\\\i" "ï") - ("\\\\`\\\\i" "ì") - ("\\\\'\\\\i" "í") - ("\\\\^\\\\i" "î") - ("\\\\\"i" "ï") - ("\\\\`i" "ì") - ("\\\\'i" "í") - ("\\\\^i" "î") - ("\\\\\"o" "ö") - ("\\\\`o" "ò") - ("\\\\'o" "ó") - ("\\\\~o" "õ") - ("\\\\^o" "ô") - ("\\\\\"u" "ü") - ("\\\\`u" "ù") - ("\\\\'u" "ú") - ("\\\\^u" "û") - ("\\\\\"A" "Ä") - ("\\\\`A" "À") - ("\\\\'A" "Á") - ("\\\\~A" "Ã") - ("\\\\^A" "Â") - ("\\\\\"E" "Ë") - ("\\\\`E" "È") - ("\\\\'E" "É") - ("\\\\^E" "Ê") - ("\\\\\"I" "Ï") - ("\\\\`I" "Ì") - ("\\\\'I" "Í") - ("\\\\^I" "Î") - ("\\\\\"O" "Ö") - ("\\\\`O" "Ò") - ("\\\\'O" "Ó") - ("\\\\~O" "Õ") - ("\\\\^O" "Ô") - ("\\\\\"U" "Ü") - ("\\\\`U" "Ù") - ("\\\\'U" "Ú") - ("\\\\^U" "Û") - ("\\\\~n" "ñ") - ("\\\\~N" "Ñ") - ("\\\\\"{a}" "ä") - ("\\\\`{a}" "à") - ("\\\\'{a}" "á") - ("\\\\~{a}" "ã") - ("\\\\^{a}" "â") - ("\\\\\"{e}" "ë") - ("\\\\`{e}" "è") - ("\\\\'{e}" "é") - ("\\\\^{e}" "ê") - ("\\\\\"{\\\\i}" "ï") - ("\\\\`{\\\\i}" "ì") - ("\\\\'{\\\\i}" "í") - ("\\\\^{\\\\i}" "î") - ("\\\\\"{i}" "ï") - ("\\\\`{i}" "ì") - ("\\\\'{i}" "í") - ("\\\\^{i}" "î") - ("\\\\\"{o}" "ö") - ("\\\\`{o}" "ò") - ("\\\\'{o}" "ó") - ("\\\\~{o}" "õ") - ("\\\\^{o}" "ô") - ("\\\\\"{u}" "ü") - ("\\\\`{u}" "ù") - ("\\\\'{u}" "ú") - ("\\\\^{u}" "û") - ("\\\\\"{A}" "Ä") - ("\\\\`{A}" "À") - ("\\\\'{A}" "Á") - ("\\\\~{A}" "Ã") - ("\\\\^{A}" "Â") - ("\\\\\"{E}" "Ë") - ("\\\\`{E}" "È") - ("\\\\'{E}" "É") - ("\\\\^{E}" "Ê") - ("\\\\\"{I}" "Ï") - ("\\\\`{I}" "Ì") - ("\\\\'{I}" "Í") - ("\\\\^{I}" "Î") - ("\\\\\"{O}" "Ö") - ("\\\\`{O}" "Ò") - ("\\\\'{O}" "Ó") - ("\\\\~{O}" "Õ") - ("\\\\^{O}" "Ô") - ("\\\\\"{U}" "Ü") - ("\\\\`{U}" "Ù") - ("\\\\'{U}" "Ú") - ("\\\\^{U}" "Û") - ("\\\\~{n}" "ñ") - ("\\\\~{N}" "Ñ") - ("\\\\c{c}" "ç") - ("\\\\c{C}" "Ç") - ("{\\\\ss}" "ß") + ("{\\\\\"a}" "ä") + ("{\\\\`a}" "à") + ("{\\\\'a}" "á") + ("{\\\\~a}" "ã") + ("{\\\\^a}" "â") + ("{\\\\\"e}" "ë") + ("{\\\\`e}" "è") + ("{\\\\'e}" "é") + ("{\\\\^e}" "ê") + ("{\\\\\"\\\\i}" "ï") + ("{\\\\`\\\\i}" "ì") + ("{\\\\'\\\\i}" "í") + ("{\\\\^\\\\i}" "î") + ("{\\\\\"i}" "ï") + ("{\\\\`i}" "ì") + ("{\\\\'i}" "í") + ("{\\\\^i}" "î") + ("{\\\\\"o}" "ö") + ("{\\\\`o}" "ò") + ("{\\\\'o}" "ó") + ("{\\\\~o}" "õ") + ("{\\\\^o}" "ô") + ("{\\\\\"u}" "ü") + ("{\\\\`u}" "ù") + ("{\\\\'u}" "ú") + ("{\\\\^u}" "û") + ("{\\\\\"A}" "Ä") + ("{\\\\`A}" "À") + ("{\\\\'A}" "Á") + ("{\\\\~A}" "Ã") + ("{\\\\^A}" "Â") + ("{\\\\\"E}" "Ë") + ("{\\\\`E}" "È") + ("{\\\\'E}" "É") + ("{\\\\^E}" "Ê") + ("{\\\\\"I}" "Ï") + ("{\\\\`I}" "Ì") + ("{\\\\'I}" "Í") + ("{\\\\^I}" "Î") + ("{\\\\\"O}" "Ö") + ("{\\\\`O}" "Ò") + ("{\\\\'O}" "Ó") + ("{\\\\~O}" "Õ") + ("{\\\\^O}" "Ô") + ("{\\\\\"U}" "Ü") + ("{\\\\`U}" "Ù") + ("{\\\\'U}" "Ú") + ("{\\\\^U}" "Û") + ("{\\\\~n}" "ñ") + ("{\\\\~N}" "Ñ") + ("{\\\\c c}" "ç") + ("{\\\\c C}" "Ç") + ("\\\\\"a" "ä") + ("\\\\`a" "à") + ("\\\\'a" "á") + ("\\\\~a" "ã") + ("\\\\^a" "â") + ("\\\\\"e" "ë") + ("\\\\`e" "è") + ("\\\\'e" "é") + ("\\\\^e" "ê") + ("\\\\\"\\\\i" "ï") + ("\\\\`\\\\i" "ì") + ("\\\\'\\\\i" "í") + ("\\\\^\\\\i" "î") + ("\\\\\"i" "ï") + ("\\\\`i" "ì") + ("\\\\'i" "í") + ("\\\\^i" "î") + ("\\\\\"o" "ö") + ("\\\\`o" "ò") + ("\\\\'o" "ó") + ("\\\\~o" "õ") + ("\\\\^o" "ô") + ("\\\\\"u" "ü") + ("\\\\`u" "ù") + ("\\\\'u" "ú") + ("\\\\^u" "û") + ("\\\\\"A" "Ä") + ("\\\\`A" "À") + ("\\\\'A" "Á") + ("\\\\~A" "Ã") + ("\\\\^A" "Â") + ("\\\\\"E" "Ë") + ("\\\\`E" "È") + ("\\\\'E" "É") + ("\\\\^E" "Ê") + ("\\\\\"I" "Ï") + ("\\\\`I" "Ì") + ("\\\\'I" "Í") + ("\\\\^I" "Î") + ("\\\\\"O" "Ö") + ("\\\\`O" "Ò") + ("\\\\'O" "Ó") + ("\\\\~O" "Õ") + ("\\\\^O" "Ô") + ("\\\\\"U" "Ü") + ("\\\\`U" "Ù") + ("\\\\'U" "Ú") + ("\\\\^U" "Û") + ("\\\\~n" "ñ") + ("\\\\~N" "Ñ") + ("\\\\\"{a}" "ä") + ("\\\\`{a}" "à") + ("\\\\'{a}" "á") + ("\\\\~{a}" "ã") + ("\\\\^{a}" "â") + ("\\\\\"{e}" "ë") + ("\\\\`{e}" "è") + ("\\\\'{e}" "é") + ("\\\\^{e}" "ê") + ("\\\\\"{\\\\i}" "ï") + ("\\\\`{\\\\i}" "ì") + ("\\\\'{\\\\i}" "í") + ("\\\\^{\\\\i}" "î") + ("\\\\\"{i}" "ï") + ("\\\\`{i}" "ì") + ("\\\\'{i}" "í") + ("\\\\^{i}" "î") + ("\\\\\"{o}" "ö") + ("\\\\`{o}" "ò") + ("\\\\'{o}" "ó") + ("\\\\~{o}" "õ") + ("\\\\^{o}" "ô") + ("\\\\\"{u}" "ü") + ("\\\\`{u}" "ù") + ("\\\\'{u}" "ú") + ("\\\\^{u}" "û") + ("\\\\\"{A}" "Ä") + ("\\\\`{A}" "À") + ("\\\\'{A}" "Á") + ("\\\\~{A}" "Ã") + ("\\\\^{A}" "Â") + ("\\\\\"{E}" "Ë") + ("\\\\`{E}" "È") + ("\\\\'{E}" "É") + ("\\\\^{E}" "Ê") + ("\\\\\"{I}" "Ï") + ("\\\\`{I}" "Ì") + ("\\\\'{I}" "Í") + ("\\\\^{I}" "Î") + ("\\\\\"{O}" "Ö") + ("\\\\`{O}" "Ò") + ("\\\\'{O}" "Ó") + ("\\\\~{O}" "Õ") + ("\\\\^{O}" "Ô") + ("\\\\\"{U}" "Ü") + ("\\\\`{U}" "Ù") + ("\\\\'{U}" "Ú") + ("\\\\^{U}" "Û") + ("\\\\~{n}" "ñ") + ("\\\\~{N}" "Ñ") + ("\\\\c{c}" "ç") + ("\\\\c{C}" "Ç") + ("{\\\\ss}" "ß") ("{\\\\AE}" "\306") ("{\\\\ae}" "\346") ("{\\\\AA}" "\305") ("{\\\\aa}" "\345") ("{\\\\copyright}" "\251") ("\\\\copyright{}" "\251") - ("{\\\\pounds}" "£" ) - ("{\\\\P}" "¶" ) - ("{\\\\S}" "§" ) - ("\\\\pounds{}" "£" ) - ("\\\\P{}" "¶" ) - ("\\\\S{}" "§" ) - ("?`" "¿") - ("!`" "¡") - ("{?`}" "¿") - ("{!`}" "¡") - ("\"a" "ä") - ("\"A" "Ä") - ("\"o" "ö") - ("\"O" "Ö") - ("\"u" "ü") - ("\"U" "Ü") - ("\"s" "ß") - ("\\\\3" "ß") + ("{\\\\pounds}" "£" ) + ("{\\\\P}" "¶" ) + ("{\\\\S}" "§" ) + ("\\\\pounds{}" "£" ) + ("\\\\P{}" "¶" ) + ("\\\\S{}" "§" ) + ("?`" "¿") + ("!`" "¡") + ("{?`}" "¿") + ("{!`}" "¡") + ("\"a" "ä") + ("\"A" "Ä") + ("\"o" "ö") + ("\"O" "Ö") + ("\"u" "ü") + ("\"U" "Ü") + ("\"s" "ß") + ("\\\\3" "ß") ) "Translation table for translating German TeX sequences to ISO 8859-1. This table is not exhaustive (and due to TeX's power can never be). @@ -583,65 +583,65 @@ It only contains commonly used sequences.") (defvar iso-iso2gtex-trans-tab '( - ("ä" "\"a") - ("à" "{\\\\`a}") - ("á" "{\\\\'a}") - ("ã" "{\\\\~a}") - ("â" "{\\\\^a}") - ("ë" "{\\\\\"e}") - ("è" "{\\\\`e}") - ("é" "{\\\\'e}") - ("ê" "{\\\\^e}") - ("ï" "{\\\\\"\\\\i}") - ("ì" "{\\\\`\\\\i}") - ("í" "{\\\\'\\\\i}") - ("î" "{\\\\^\\\\i}") - ("ö" "\"o") - ("ò" "{\\\\`o}") - ("ó" "{\\\\'o}") - ("õ" "{\\\\~o}") - ("ô" "{\\\\^o}") - ("ü" "\"u") - ("ù" "{\\\\`u}") - ("ú" "{\\\\'u}") - ("û" "{\\\\^u}") - ("Ä" "\"A") - ("À" "{\\\\`A}") - ("Á" "{\\\\'A}") - ("Ã" "{\\\\~A}") - ("Â" "{\\\\^A}") - ("Ë" "{\\\\\"E}") - ("È" "{\\\\`E}") - ("É" "{\\\\'E}") - ("Ê" "{\\\\^E}") - ("Ï" "{\\\\\"I}") - ("Ì" "{\\\\`I}") - ("Í" "{\\\\'I}") - ("Î" "{\\\\^I}") - ("Ö" "\"O") - ("Ò" "{\\\\`O}") - ("Ó" "{\\\\'O}") - ("Õ" "{\\\\~O}") - ("Ô" "{\\\\^O}") - ("Ü" "\"U") - ("Ù" "{\\\\`U}") - ("Ú" "{\\\\'U}") - ("Û" "{\\\\^U}") - ("ñ" "{\\\\~n}") - ("Ñ" "{\\\\~N}") - ("ç" "{\\\\c c}") - ("Ç" "{\\\\c C}") - ("ß" "\"s") + ("ä" "\"a") + ("à" "{\\\\`a}") + ("á" "{\\\\'a}") + ("ã" "{\\\\~a}") + ("â" "{\\\\^a}") + ("ë" "{\\\\\"e}") + ("è" "{\\\\`e}") + ("é" "{\\\\'e}") + ("ê" "{\\\\^e}") + ("ï" "{\\\\\"\\\\i}") + ("ì" "{\\\\`\\\\i}") + ("í" "{\\\\'\\\\i}") + ("î" "{\\\\^\\\\i}") + ("ö" "\"o") + ("ò" "{\\\\`o}") + ("ó" "{\\\\'o}") + ("õ" "{\\\\~o}") + ("ô" "{\\\\^o}") + ("ü" "\"u") + ("ù" "{\\\\`u}") + ("ú" "{\\\\'u}") + ("û" "{\\\\^u}") + ("Ä" "\"A") + ("À" "{\\\\`A}") + ("Á" "{\\\\'A}") + ("Ã" "{\\\\~A}") + ("Â" "{\\\\^A}") + ("Ë" "{\\\\\"E}") + ("È" "{\\\\`E}") + ("É" "{\\\\'E}") + ("Ê" "{\\\\^E}") + ("Ï" "{\\\\\"I}") + ("Ì" "{\\\\`I}") + ("Í" "{\\\\'I}") + ("Î" "{\\\\^I}") + ("Ö" "\"O") + ("Ò" "{\\\\`O}") + ("Ó" "{\\\\'O}") + ("Õ" "{\\\\~O}") + ("Ô" "{\\\\^O}") + ("Ü" "\"U") + ("Ù" "{\\\\`U}") + ("Ú" "{\\\\'U}") + ("Û" "{\\\\^U}") + ("ñ" "{\\\\~n}") + ("Ñ" "{\\\\~N}") + ("ç" "{\\\\c c}") + ("Ç" "{\\\\c C}") + ("ß" "\"s") ("\306" "{\\\\AE}") ("\346" "{\\\\ae}") ("\305" "{\\\\AA}") ("\345" "{\\\\aa}") ("\251" "{\\\\copyright}") - ("£" "{\\\\pounds}") - ("¶" "{\\\\P}") - ("§" "{\\\\S}") - ("¿" "{?`}") - ("¡" "{!`}") + ("£" "{\\\\pounds}") + ("¶" "{\\\\P}") + ("§" "{\\\\S}") + ("¿" "{?`}") + ("¡" "{!`}") ) "Translation table for translating ISO 8859-1 characters to German TeX.") @@ -664,13 +664,13 @@ Optional arg BUFFER is ignored (for use in `format-alist')." (iso-translate-conventions from to iso-iso2gtex-trans-tab)) (defvar iso-iso2duden-trans-tab - '(("ä" "ae") - ("Ä" "Ae") - ("ö" "oe") - ("Ö" "Oe") - ("ü" "ue") - ("Ü" "Ue") - ("ß" "ss")) + '(("ä" "ae") + ("Ä" "Ae") + ("ö" "oe") + ("Ö" "Oe") + ("ü" "ue") + ("Ü" "Ue") + ("ß" "ss")) "Translation table for translating ISO 8859-1 characters to Duden sequences.") ;;;###autoload @@ -683,133 +683,133 @@ Optional arg BUFFER is ignored (for use in `format-alist')." (iso-translate-conventions from to iso-iso2duden-trans-tab)) (defvar iso-iso2sgml-trans-tab - '(("À" "À") - ("Á" "Á") - ("Â" "Â") - ("Ã" "Ã") - ("Ä" "Ä") - ("Å" "Å") - ("Æ" "Æ") - ("Ç" "Ç") - ("È" "È") - ("É" "É") - ("Ê" "Ê") - ("Ë" "Ë") - ("Ì" "Ì") - ("Í" "Í") - ("Î" "Î") - ("Ï" "Ï") - ("Ð" "Ð") - ("Ñ" "Ñ") - ("Ò" "Ò") - ("Ó" "Ó") - ("Ô" "Ô") - ("Õ" "Õ") - ("Ö" "Ö") - ("Ø" "Ø") - ("Ù" "Ù") - ("Ú" "Ú") - ("Û" "Û") - ("Ü" "Ü") - ("Ý" "Ý") - ("Þ" "Þ") - ("ß" "ß") - ("à" "à") - ("á" "á") - ("â" "â") - ("ã" "ã") - ("ä" "ä") - ("å" "å") - ("æ" "æ") - ("ç" "ç") - ("è" "è") - ("é" "é") - ("ê" "ê") - ("ë" "ë") - ("ì" "ì") - ("í" "í") - ("î" "î") - ("ï" "ï") - ("ð" "ð") - ("ñ" "ñ") - ("ò" "ò") - ("ó" "ó") - ("ô" "ô") - ("õ" "õ") - ("ö" "ö") - ("ø" "ø") - ("ù" "ù") - ("ú" "ú") - ("û" "û") - ("ü" "ü") - ("ý" "ý") - ("þ" "þ") - ("ÿ" "ÿ"))) + '(("À" "À") + ("Á" "Á") + ("Â" "Â") + ("Ã" "Ã") + ("Ä" "Ä") + ("Å" "Å") + ("Æ" "Æ") + ("Ç" "Ç") + ("È" "È") + ("É" "É") + ("Ê" "Ê") + ("Ë" "Ë") + ("Ì" "Ì") + ("Í" "Í") + ("Î" "Î") + ("Ï" "Ï") + ("Ð" "Ð") + ("Ñ" "Ñ") + ("Ò" "Ò") + ("Ó" "Ó") + ("Ô" "Ô") + ("Õ" "Õ") + ("Ö" "Ö") + ("Ø" "Ø") + ("Ù" "Ù") + ("Ú" "Ú") + ("Û" "Û") + ("Ü" "Ü") + ("Ý" "Ý") + ("Þ" "Þ") + ("ß" "ß") + ("à" "à") + ("á" "á") + ("â" "â") + ("ã" "ã") + ("ä" "ä") + ("Ã¥" "å") + ("æ" "æ") + ("ç" "ç") + ("è" "è") + ("é" "é") + ("ê" "ê") + ("ë" "ë") + ("ì" "ì") + ("í" "í") + ("î" "î") + ("ï" "ï") + ("ð" "ð") + ("ñ" "ñ") + ("ò" "ò") + ("ó" "ó") + ("ô" "ô") + ("õ" "õ") + ("ö" "ö") + ("ø" "ø") + ("ù" "ù") + ("ú" "ú") + ("û" "û") + ("ü" "ü") + ("ý" "ý") + ("þ" "þ") + ("ÿ" "ÿ"))) (defvar iso-sgml2iso-trans-tab - '(("À" "À") - ("Á" "Á") - ("Â" "Â") - ("Ã" "Ã") - ("Ä" "Ä") - ("Å" "Å") - ("Æ" "Æ") - ("Ç" "Ç") - ("È" "È") - ("É" "É") - ("Ê" "Ê") - ("Ë" "Ë") - ("Ì" "Ì") - ("Í" "Í") - ("Î" "Î") - ("Ï" "Ï") - ("Ð" "Ð") - ("Ñ" "Ñ") - ("Ò" "Ò") - ("Ó" "Ó") - ("Ô" "Ô") - ("Õ" "Õ") - ("Ö" "Ö") - ("Ø" "Ø") - ("Ù" "Ù") - ("Ú" "Ú") - ("Û" "Û") - ("Ü" "Ü") - ("Ý" "Ý") - ("Þ" "Þ") - ("ß" "ß") - ("à" "à") - ("á" "á") - ("â" "â") - ("ã" "ã") - ("ä" "ä") - ("å" "å") - ("æ" "æ") - ("ç" "ç") - ("è" "è") - ("é" "é") - ("ê" "ê") - ("ë" "ë") - ("ì" "ì") - ("í" "í") - ("î" "î") - ("ï" "ï") - ("ð" "ð") - ("ñ" "ñ") - (" " " ") - ("ò" "ò") - ("ó" "ó") - ("ô" "ô") - ("õ" "õ") - ("ö" "ö") - ("ø" "ø") - ("ù" "ù") - ("ú" "ú") - ("û" "û") - ("ü" "ü") - ("ý" "ý") - ("þ" "þ") - ("ÿ" "ÿ"))) + '(("À" "À") + ("Á" "Á") + ("Â" "Â") + ("Ã" "Ã") + ("Ä" "Ä") + ("Å" "Å") + ("Æ" "Æ") + ("Ç" "Ç") + ("È" "È") + ("É" "É") + ("Ê" "Ê") + ("Ë" "Ë") + ("Ì" "Ì") + ("Í" "Í") + ("Î" "Î") + ("Ï" "Ï") + ("Ð" "Ð") + ("Ñ" "Ñ") + ("Ò" "Ò") + ("Ó" "Ó") + ("Ô" "Ô") + ("Õ" "Õ") + ("Ö" "Ö") + ("Ø" "Ø") + ("Ù" "Ù") + ("Ú" "Ú") + ("Û" "Û") + ("Ü" "Ü") + ("Ý" "Ý") + ("Þ" "Þ") + ("ß" "ß") + ("à" "à") + ("á" "á") + ("â" "â") + ("ã" "ã") + ("ä" "ä") + ("å" "Ã¥") + ("æ" "æ") + ("ç" "ç") + ("è" "è") + ("é" "é") + ("ê" "ê") + ("ë" "ë") + ("ì" "ì") + ("í" "í") + ("î" "î") + ("ï" "ï") + ("ð" "ð") + ("ñ" "ñ") + (" " " ") + ("ò" "ò") + ("ó" "ó") + ("ô" "ô") + ("õ" "õ") + ("ö" "ö") + ("ø" "ø") + ("ù" "ù") + ("ú" "ú") + ("û" "û") + ("ü" "ü") + ("ý" "ý") + ("þ" "þ") + ("ÿ" "ÿ"))) ;;;###autoload (defun iso-iso2sgml (from to &optional buffer) diff --git a/lisp/international/iso-transl.el b/lisp/international/iso-transl.el index 4bc0400ef23..4bbb89c7087 100644 --- a/lisp/international/iso-transl.el +++ b/lisp/international/iso-transl.el @@ -1,4 +1,4 @@ -;;; iso-transl.el --- keyboard input definitions for ISO 8859-1 -*- coding: iso-8859-1 -*- +;;; iso-transl.el --- keyboard input definitions for ISO 8859-1 -*- coding: utf-8 -*- ;; Copyright (C) 1987, 1993-1999, 2001-2013 Free Software Foundation, ;; Inc. @@ -73,125 +73,125 @@ ;; language-specific table might override the short form for its own use. (defvar iso-transl-char-map - '(("* " . [? ]) - (" " . [? ]) - ("*!" . [?¡]) - ("!" . [?¡]) - ("\"\"" . [?¨]) - ("\"A" . [?Ä]) - ("\"E" . [?Ë]) - ("\"I" . [?Ï]) - ("\"O" . [?Ö]) - ("\"U" . [?Ü]) - ("\"a" . [?ä]) - ("\"e" . [?ë]) - ("\"i" . [?ï]) - ("\"o" . [?ö]) - ("\"s" . [?ß]) - ("\"u" . [?ü]) - ("\"y" . [?ÿ]) - ("''" . [?´]) - ("'A" . [?Á]) - ("'E" . [?É]) - ("'I" . [?Í]) - ("'O" . [?Ó]) - ("'U" . [?Ú]) - ("'Y" . [?Ý]) - ("'a" . [?á]) - ("'e" . [?é]) - ("'i" . [?í]) - ("'o" . [?ó]) - ("'u" . [?ú]) - ("'y" . [?ý]) - ("*$" . [?¤]) - ("$" . [?¤]) - ("*+" . [?±]) - ("+" . [?±]) - (",," . [?¸]) - (",C" . [?Ç]) - (",c" . [?ç]) - ("*-" . [?­]) - ("-" . [?­]) - ("*." . [?·]) - ("." . [?·]) - ("//" . [?÷]) - ("/A" . [?Å]) - ("/E" . [?Æ]) - ("/O" . [?Ø]) - ("/a" . [?å]) - ("/e" . [?æ]) - ("/o" . [?ø]) - ("1/2" . [?½]) - ("1/4" . [?¼]) - ("3/4" . [?¾]) - ("*<" . [?«]) - ("<" . [?«]) - ("*=" . [?¯]) - ("=" . [?¯]) - ("*>" . [?»]) - (">" . [?»]) - ("*?" . [?¿]) - ("?" . [?¿]) - ("*C" . [?©]) - ("C" . [?©]) - ("*L" . [?£]) - ("L" . [?£]) - ("*P" . [?¶]) - ("P" . [?¶]) - ("*R" . [?®]) - ("R" . [?®]) - ("*S" . [?§]) - ("S" . [?§]) - ("*Y" . [?¥]) - ("Y" . [?¥]) - ("^1" . [?¹]) - ("^2" . [?²]) - ("^3" . [?³]) - ("^A" . [?Â]) - ("^E" . [?Ê]) - ("^I" . [?Î]) - ("^O" . [?Ô]) - ("^U" . [?Û]) - ("^a" . [?â]) - ("^e" . [?ê]) - ("^i" . [?î]) - ("^o" . [?ô]) - ("^u" . [?û]) - ("_a" . [?ª]) - ("_o" . [?º]) - ("`A" . [?À]) - ("`E" . [?È]) - ("`I" . [?Ì]) - ("`O" . [?Ò]) - ("`U" . [?Ù]) - ("`a" . [?à]) - ("`e" . [?è]) - ("`i" . [?ì]) - ("`o" . [?ò]) - ("`u" . [?ù]) - ("*c" . [?¢]) - ("c" . [?¢]) - ("*o" . [?°]) - ("o" . [?°]) - ("*u" . [?µ]) - ("u" . [?µ]) - ("*m" . [?µ]) - ("m" . [?µ]) - ("*x" . [?×]) - ("x" . [?×]) - ("*|" . [?¦]) - ("|" . [?¦]) - ("~A" . [?Ã]) - ("~D" . [?Ð]) - ("~N" . [?Ñ]) - ("~O" . [?Õ]) - ("~T" . [?Þ]) - ("~a" . [?ã]) - ("~d" . [?ð]) - ("~n" . [?ñ]) - ("~o" . [?õ]) - ("~t" . [?þ]) - ("~~" . [?¬]) + '(("* " . [? ]) + (" " . [? ]) + ("*!" . [?¡]) + ("!" . [?¡]) + ("\"\"" . [?¨]) + ("\"A" . [?Ä]) + ("\"E" . [?Ë]) + ("\"I" . [?Ï]) + ("\"O" . [?Ö]) + ("\"U" . [?Ü]) + ("\"a" . [?ä]) + ("\"e" . [?ë]) + ("\"i" . [?ï]) + ("\"o" . [?ö]) + ("\"s" . [?ß]) + ("\"u" . [?ü]) + ("\"y" . [?ÿ]) + ("''" . [?´]) + ("'A" . [?Á]) + ("'E" . [?É]) + ("'I" . [?Í]) + ("'O" . [?Ó]) + ("'U" . [?Ú]) + ("'Y" . [?Ý]) + ("'a" . [?á]) + ("'e" . [?é]) + ("'i" . [?í]) + ("'o" . [?ó]) + ("'u" . [?ú]) + ("'y" . [?ý]) + ("*$" . [?¤]) + ("$" . [?¤]) + ("*+" . [?±]) + ("+" . [?±]) + (",," . [?¸]) + (",C" . [?Ç]) + (",c" . [?ç]) + ("*-" . [?­]) + ("-" . [?­]) + ("*." . [?·]) + ("." . [?·]) + ("//" . [?÷]) + ("/A" . [?Å]) + ("/E" . [?Æ]) + ("/O" . [?Ø]) + ("/a" . [?Ã¥]) + ("/e" . [?æ]) + ("/o" . [?ø]) + ("1/2" . [?½]) + ("1/4" . [?¼]) + ("3/4" . [?¾]) + ("*<" . [?«]) + ("<" . [?«]) + ("*=" . [?¯]) + ("=" . [?¯]) + ("*>" . [?»]) + (">" . [?»]) + ("*?" . [?¿]) + ("?" . [?¿]) + ("*C" . [?©]) + ("C" . [?©]) + ("*L" . [?£]) + ("L" . [?£]) + ("*P" . [?¶]) + ("P" . [?¶]) + ("*R" . [?®]) + ("R" . [?®]) + ("*S" . [?§]) + ("S" . [?§]) + ("*Y" . [?Â¥]) + ("Y" . [?Â¥]) + ("^1" . [?¹]) + ("^2" . [?²]) + ("^3" . [?³]) + ("^A" . [?Â]) + ("^E" . [?Ê]) + ("^I" . [?Î]) + ("^O" . [?Ô]) + ("^U" . [?Û]) + ("^a" . [?â]) + ("^e" . [?ê]) + ("^i" . [?î]) + ("^o" . [?ô]) + ("^u" . [?û]) + ("_a" . [?ª]) + ("_o" . [?º]) + ("`A" . [?À]) + ("`E" . [?È]) + ("`I" . [?Ì]) + ("`O" . [?Ò]) + ("`U" . [?Ù]) + ("`a" . [?à]) + ("`e" . [?è]) + ("`i" . [?ì]) + ("`o" . [?ò]) + ("`u" . [?ù]) + ("*c" . [?¢]) + ("c" . [?¢]) + ("*o" . [?°]) + ("o" . [?°]) + ("*u" . [?µ]) + ("u" . [?µ]) + ("*m" . [?µ]) + ("m" . [?µ]) + ("*x" . [?×]) + ("x" . [?×]) + ("*|" . [?¦]) + ("|" . [?¦]) + ("~A" . [?Ã]) + ("~D" . [?Ð]) + ("~N" . [?Ñ]) + ("~O" . [?Õ]) + ("~T" . [?Þ]) + ("~a" . [?ã]) + ("~d" . [?ð]) + ("~n" . [?ñ]) + ("~o" . [?õ]) + ("~t" . [?þ]) + ("~~" . [?¬]) ("' " . "'") ("` " . "`") ("\" " . "\"") @@ -205,37 +205,37 @@ sequence VECTOR. (VECTOR is normally one character long.)") ;; Language-specific translation lists. (defvar iso-transl-language-alist '(("Esperanto" - ("C" . [?Æ]) - ("G" . [?Ø]) - ("H" . [?¦]) - ("J" . [?¬]) - ("S" . [?Þ]) - ("U" . [?Ý]) - ("c" . [?æ]) - ("g" . [?ø]) - ("h" . [?¶]) - ("j" . [?¼]) - ("s" . [?þ]) - ("u" . [?ý])) + ("C" . [?Æ]) + ("G" . [?Ø]) + ("H" . [?¦]) + ("J" . [?¬]) + ("S" . [?Þ]) + ("U" . [?Ý]) + ("c" . [?æ]) + ("g" . [?ø]) + ("h" . [?¶]) + ("j" . [?¼]) + ("s" . [?þ]) + ("u" . [?ý])) ("French" - ("C" . [?Ç]) - ("c" . [?ç])) + ("C" . [?Ç]) + ("c" . [?ç])) ("German" - ("A" . [?Ä]) - ("O" . [?Ö]) - ("U" . [?Ü]) - ("a" . [?ä]) - ("o" . [?ö]) - ("s" . [?ß]) - ("u" . [?ü])) + ("A" . [?Ä]) + ("O" . [?Ö]) + ("U" . [?Ü]) + ("a" . [?ä]) + ("o" . [?ö]) + ("s" . [?ß]) + ("u" . [?ü])) ("Portuguese" - ("C" . [?Ç]) - ("c" . [?ç])) + ("C" . [?Ç]) + ("c" . [?ç])) ("Spanish" - ("!" . [?¡]) - ("?" . [?¿]) - ("N" . [?Ñ]) - ("n" . [?ñ])))) + ("!" . [?¡]) + ("?" . [?¿]) + ("N" . [?Ñ]) + ("n" . [?ñ])))) (defvar iso-transl-ctl-x-8-map nil "Keymap for C-x 8 prefix.") diff --git a/lisp/language/romanian.el b/lisp/language/romanian.el index 98eff2a7db7..608ff811923 100644 --- a/lisp/language/romanian.el +++ b/lisp/language/romanian.el @@ -1,4 +1,4 @@ -;;; romanian.el --- support for Romanian -*- coding: iso-latin-2 -*- +;;; romanian.el --- support for Romanian -*- coding: utf-8 -*- ;; Copyright (C) 1998, 2001-2013 Free Software Foundation, Inc. @@ -34,7 +34,7 @@ (input-method . "latin-2-postfix") (unibyte-display . iso-8859-2) (tutorial . "TUTORIAL.ro") - (sample-text . "Bunã ziua, bine aþi venit!") + (sample-text . "Bună ziua, bine aÅ£i venit!") (documentation . "Romanian environment using Latin-2 encoding. An environment for generic Latin-10 encoding is also available.")) '("European")) diff --git a/lisp/mh-e/ChangeLog.1 b/lisp/mh-e/ChangeLog.1 index 07320246c49..e57911947b1 100644 --- a/lisp/mh-e/ChangeLog.1 +++ b/lisp/mh-e/ChangeLog.1 @@ -5114,7 +5114,7 @@ (mail-abbrevs): Declare it in XEmacs. (mh-alias-add-alias-to-file): Remove unused code. -2003-02-14 Ville Skyttä <scop@xemacs.org> +2003-02-14 Ville Skyttä <scop@xemacs.org> * mh-comp.el: Add autoloaded auto-mode-alist association. @@ -11416,3 +11416,7 @@ You should have received a copy of the GNU General Public License along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. + +;; Local Variables: +;; coding: utf-8 +;; End: diff --git a/lisp/net/eudc-bob.el b/lisp/net/eudc-bob.el index 45f15b14a54..106aab2ac0a 100644 --- a/lisp/net/eudc-bob.el +++ b/lisp/net/eudc-bob.el @@ -1,9 +1,9 @@ -;;; eudc-bob.el --- Binary Objects Support for EUDC +;;; eudc-bob.el --- Binary Objects Support for EUDC -*- coding: utf-8 -*- ;; Copyright (C) 1999-2013 Free Software Foundation, Inc. ;; Author: Oscar Figueiredo <oscar@cpe.fr> -;; Maintainer: Pavel Janík <Pavel@Janik.cz> +;; Maintainer: Pavel Janík <Pavel@Janik.cz> ;; Keywords: comm ;; Package: eudc diff --git a/lisp/net/eudc-export.el b/lisp/net/eudc-export.el index 690a5f15c40..b43a8c631e3 100644 --- a/lisp/net/eudc-export.el +++ b/lisp/net/eudc-export.el @@ -1,9 +1,9 @@ -;;; eudc-export.el --- functions to export EUDC query results +;;; eudc-export.el --- functions to export EUDC query results -*- coding: utf-8 -*- ;; Copyright (C) 1998-2013 Free Software Foundation, Inc. ;; Author: Oscar Figueiredo <oscar@cpe.fr> -;; Maintainer: Pavel Janík <Pavel@Janik.cz> +;; Maintainer: Pavel Janík <Pavel@Janik.cz> ;; Keywords: comm ;; Package: eudc diff --git a/lisp/net/eudc-hotlist.el b/lisp/net/eudc-hotlist.el index 0322fa766f3..a8a51b7d61b 100644 --- a/lisp/net/eudc-hotlist.el +++ b/lisp/net/eudc-hotlist.el @@ -1,9 +1,9 @@ -;;; eudc-hotlist.el --- hotlist management for EUDC +;;; eudc-hotlist.el --- hotlist management for EUDC -*- coding: utf-8 -*- ;; Copyright (C) 1998-2013 Free Software Foundation, Inc. ;; Author: Oscar Figueiredo <oscar@cpe.fr> -;; Maintainer: Pavel Janík <Pavel@Janik.cz> +;; Maintainer: Pavel Janík <Pavel@Janik.cz> ;; Keywords: comm ;; Package: eudc diff --git a/lisp/net/eudc-vars.el b/lisp/net/eudc-vars.el index c2cc0154151..d53fd83eee7 100644 --- a/lisp/net/eudc-vars.el +++ b/lisp/net/eudc-vars.el @@ -1,9 +1,9 @@ -;;; eudc-vars.el --- Emacs Unified Directory Client +;;; eudc-vars.el --- Emacs Unified Directory Client -*- coding: utf-8 -*- ;; Copyright (C) 1998-2013 Free Software Foundation, Inc. ;; Author: Oscar Figueiredo <oscar@cpe.fr> -;; Maintainer: Pavel Janík <Pavel@Janik.cz> +;; Maintainer: Pavel Janík <Pavel@Janik.cz> ;; Keywords: comm ;; Package: eudc diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el index 621b9b90879..ef09267f854 100644 --- a/lisp/net/eudc.el +++ b/lisp/net/eudc.el @@ -1,9 +1,9 @@ -;;; eudc.el --- Emacs Unified Directory Client +;;; eudc.el --- Emacs Unified Directory Client -*- coding: utf-8 -*- ;; Copyright (C) 1998-2013 Free Software Foundation, Inc. ;; Author: Oscar Figueiredo <oscar@cpe.fr> -;; Maintainer: Pavel Janík <Pavel@Janik.cz> +;; Maintainer: Pavel Janík <Pavel@Janik.cz> ;; Keywords: comm ;; This file is part of GNU Emacs. diff --git a/lisp/net/eudcb-bbdb.el b/lisp/net/eudcb-bbdb.el index 58d94622486..9f6dba703b1 100644 --- a/lisp/net/eudcb-bbdb.el +++ b/lisp/net/eudcb-bbdb.el @@ -1,9 +1,9 @@ -;;; eudcb-bbdb.el --- Emacs Unified Directory Client - BBDB Backend +;;; eudcb-bbdb.el --- Emacs Unified Directory Client - BBDB Backend -*- coding: utf-8 -*- ;; Copyright (C) 1998-2013 Free Software Foundation, Inc. ;; Author: Oscar Figueiredo <oscar@cpe.fr> -;; Maintainer: Pavel Janík <Pavel@Janik.cz> +;; Maintainer: Pavel Janík <Pavel@Janik.cz> ;; Keywords: comm ;; Package: eudc diff --git a/lisp/net/eudcb-ldap.el b/lisp/net/eudcb-ldap.el index 23eed4b3c0a..d0ba47ad753 100644 --- a/lisp/net/eudcb-ldap.el +++ b/lisp/net/eudcb-ldap.el @@ -1,9 +1,9 @@ -;;; eudcb-ldap.el --- Emacs Unified Directory Client - LDAP Backend +;;; eudcb-ldap.el --- Emacs Unified Directory Client - LDAP Backend -*- coding: utf-8 -*- ;; Copyright (C) 1998-2013 Free Software Foundation, Inc. ;; Author: Oscar Figueiredo <oscar@cpe.fr> -;; Maintainer: Pavel Janík <Pavel@Janik.cz> +;; Maintainer: Pavel Janík <Pavel@Janik.cz> ;; Keywords: comm ;; Package: eudc diff --git a/lisp/net/eudcb-ph.el b/lisp/net/eudcb-ph.el index 3033e945c24..1796f2d9806 100644 --- a/lisp/net/eudcb-ph.el +++ b/lisp/net/eudcb-ph.el @@ -1,9 +1,9 @@ -;;; eudcb-ph.el --- Emacs Unified Directory Client - CCSO PH/QI Backend +;;; eudcb-ph.el --- Emacs Unified Directory Client - CCSO PH/QI Backend -*- coding: utf-8 -*- ;; Copyright (C) 1998-2013 Free Software Foundation, Inc. ;; Author: Oscar Figueiredo <oscar@cpe.fr> -;; Maintainer: Pavel Janík <Pavel@Janik.cz> +;; Maintainer: Pavel Janík <Pavel@Janik.cz> ;; Keywords: comm ;; Package: eudc diff --git a/lisp/obsolete/iso-insert.el b/lisp/obsolete/iso-insert.el index 18cf87a4c6f..2c0adf32d12 100644 --- a/lisp/obsolete/iso-insert.el +++ b/lisp/obsolete/iso-insert.el @@ -1,4 +1,4 @@ -;;; iso-insert.el --- insert functions for ISO 8859/1 -*- coding: iso-8859-1;-*- +;;; iso-insert.el --- insert functions for ISO 8859/1 -*- coding: utf-8;-*- ;; Copyright (C) 1987, 1994, 2001-2013 Free Software Foundation, Inc. @@ -31,482 +31,482 @@ (defun insert-no-break-space () (interactive "*") - (insert ?\ ) + (insert ?\ ) ) (defun insert-inverted-exclamation-mark () (interactive "*") - (insert ?\¡) + (insert ?\¡) ) (defun insert-cent-sign () (interactive "*") - (insert ?\¢) + (insert ?\¢) ) (defun insert-pound-sign () (interactive "*") - (insert ?\£) + (insert ?\£) ) (defun insert-general-currency-sign () (interactive "*") - (insert ?\¤) + (insert ?\¤) ) (defun insert-yen-sign () (interactive "*") - (insert ?\¥) + (insert ?\Â¥) ) (defun insert-broken-vertical-line () (interactive "*") - (insert ?\¦) + (insert ?\¦) ) (defun insert-section-sign () (interactive "*") - (insert ?\§) + (insert ?\§) ) (defun insert-diaeresis () (interactive "*") - (insert ?\¨) + (insert ?\¨) ) (defun insert-copyright-sign () (interactive "*") - (insert ?\©) + (insert ?\©) ) (defun insert-ordinal-indicator-feminine () (interactive "*") - (insert ?\ª) + (insert ?\ª) ) (defun insert-angle-quotation-mark-left () (interactive "*") - (insert ?\«) + (insert ?\«) ) (defun insert-not-sign () (interactive "*") - (insert ?\¬) + (insert ?\¬) ) (defun insert-soft-hyphen () (interactive "*") - (insert ?\­) + (insert ?\­) ) (defun insert-registered-sign () (interactive "*") - (insert ?\®) + (insert ?\®) ) (defun insert-macron () (interactive "*") - (insert ?\¯) + (insert ?\¯) ) (defun insert-degree-sign () (interactive "*") - (insert ?\°) + (insert ?\°) ) (defun insert-plus-or-minus-sign () (interactive "*") - (insert ?\±) + (insert ?\±) ) (defun insert-superscript-two () (interactive "*") - (insert ?\²) + (insert ?\²) ) (defun insert-superscript-three () (interactive "*") - (insert ?\³) + (insert ?\³) ) (defun insert-acute-accent () (interactive "*") - (insert ?\´) + (insert ?\´) ) (defun insert-micro-sign () (interactive "*") - (insert ?\µ) + (insert ?\µ) ) (defun insert-pilcrow () (interactive "*") - (insert ?\¶) + (insert ?\¶) ) (defun insert-middle-dot () (interactive "*") - (insert ?\·) + (insert ?\·) ) (defun insert-cedilla () (interactive "*") - (insert ?\¸) + (insert ?\¸) ) (defun insert-superscript-one () (interactive "*") - (insert ?\¹) + (insert ?\¹) ) (defun insert-ordinal-indicator-masculine () (interactive "*") - (insert ?\º) + (insert ?\º) ) (defun insert-angle-quotation-mark-right () (interactive "*") - (insert ?\») + (insert ?\») ) (defun insert-fraction-one-quarter () (interactive "*") - (insert ?\¼) + (insert ?\¼) ) (defun insert-fraction-one-half () (interactive "*") - (insert ?\½) + (insert ?\½) ) (defun insert-fraction-three-quarters () (interactive "*") - (insert ?\¾) + (insert ?\¾) ) (defun insert-inverted-question-mark () (interactive "*") - (insert ?\¿) + (insert ?\¿) ) (defun insert-A-grave () (interactive "*") - (insert ?\À) + (insert ?\À) ) (defun insert-A-acute () (interactive "*") - (insert ?\Á) + (insert ?\Á) ) (defun insert-A-circumflex () (interactive "*") - (insert ?\Â) + (insert ?\Â) ) (defun insert-A-tilde () (interactive "*") - (insert ?\Ã) + (insert ?\Ã) ) (defun insert-A-umlaut () (interactive "*") - (insert ?\Ä) + (insert ?\Ä) ) (defun insert-A-ring () (interactive "*") - (insert ?\Å) + (insert ?\Å) ) (defun insert-AE () (interactive "*") - (insert ?\Æ) + (insert ?\Æ) ) (defun insert-C-cedilla () (interactive "*") - (insert ?\Ç) + (insert ?\Ç) ) (defun insert-E-grave () (interactive "*") - (insert ?\È) + (insert ?\È) ) (defun insert-E-acute () (interactive "*") - (insert ?\É) + (insert ?\É) ) (defun insert-E-circumflex () (interactive "*") - (insert ?\Ê) + (insert ?\Ê) ) (defun insert-E-umlaut () (interactive "*") - (insert ?\Ë) + (insert ?\Ë) ) (defun insert-I-grave () (interactive "*") - (insert ?\Ì) + (insert ?\Ì) ) (defun insert-I-acute () (interactive "*") - (insert ?\Í) + (insert ?\Í) ) (defun insert-I-circumflex () (interactive "*") - (insert ?\Î) + (insert ?\Î) ) (defun insert-I-umlaut () (interactive "*") - (insert ?\Ï) + (insert ?\Ï) ) (defun insert-D-stroke () (interactive "*") - (insert ?\Ð) + (insert ?\Ð) ) (defun insert-N-tilde () (interactive "*") - (insert ?\Ñ) + (insert ?\Ñ) ) (defun insert-O-grave () (interactive "*") - (insert ?\Ò) + (insert ?\Ò) ) (defun insert-O-acute () (interactive "*") - (insert ?\Ó) + (insert ?\Ó) ) (defun insert-O-circumflex () (interactive "*") - (insert ?\Ô) + (insert ?\Ô) ) (defun insert-O-tilde () (interactive "*") - (insert ?\Õ) + (insert ?\Õ) ) (defun insert-O-umlaut () (interactive "*") - (insert ?\Ö) + (insert ?\Ö) ) (defun insert-multiplication-sign () (interactive "*") - (insert ?\×) + (insert ?\×) ) (defun insert-O-slash () (interactive "*") - (insert ?\Ø) + (insert ?\Ø) ) (defun insert-U-grave () (interactive "*") - (insert ?\Ù) + (insert ?\Ù) ) (defun insert-U-acute () (interactive "*") - (insert ?\Ú) + (insert ?\Ú) ) (defun insert-U-circumflex () (interactive "*") - (insert ?\Û) + (insert ?\Û) ) (defun insert-U-umlaut () (interactive "*") - (insert ?\Ü) + (insert ?\Ü) ) (defun insert-Y-acute () (interactive "*") - (insert ?\Ý) + (insert ?\Ý) ) (defun insert-THORN () (interactive "*") - (insert ?\Þ) + (insert ?\Þ) ) (defun insert-ss () (interactive "*") - (insert ?\ß) + (insert ?\ß) ) (defun insert-a-grave () (interactive "*") - (insert ?\à) + (insert ?\à) ) (defun insert-a-acute () (interactive "*") - (insert ?\á) + (insert ?\á) ) (defun insert-a-circumflex () (interactive "*") - (insert ?\â) + (insert ?\â) ) (defun insert-a-tilde () (interactive "*") - (insert ?\ã) + (insert ?\ã) ) (defun insert-a-umlaut () (interactive "*") - (insert ?\ä) + (insert ?\ä) ) (defun insert-a-ring () (interactive "*") - (insert ?\å) + (insert ?\Ã¥) ) (defun insert-ae () (interactive "*") - (insert ?\æ) + (insert ?\æ) ) (defun insert-c-cedilla () (interactive "*") - (insert ?\ç) + (insert ?\ç) ) (defun insert-e-grave () (interactive "*") - (insert ?\è) + (insert ?\è) ) (defun insert-e-acute () (interactive "*") - (insert ?\é) + (insert ?\é) ) (defun insert-e-circumflex () (interactive "*") - (insert ?\ê) + (insert ?\ê) ) (defun insert-e-umlaut () (interactive "*") - (insert ?\ë) + (insert ?\ë) ) (defun insert-i-grave () (interactive "*") - (insert ?\ì) + (insert ?\ì) ) (defun insert-i-acute () (interactive "*") - (insert ?\í) + (insert ?\í) ) (defun insert-i-circumflex () (interactive "*") - (insert ?\î) + (insert ?\î) ) (defun insert-i-umlaut () (interactive "*") - (insert ?\ï) + (insert ?\ï) ) (defun insert-d-stroke () (interactive "*") - (insert ?\ð) + (insert ?\ð) ) (defun insert-n-tilde () (interactive "*") - (insert ?\ñ) + (insert ?\ñ) ) (defun insert-o-grave () (interactive "*") - (insert ?\ò) + (insert ?\ò) ) (defun insert-o-acute () (interactive "*") - (insert ?\ó) + (insert ?\ó) ) (defun insert-o-circumflex () (interactive "*") - (insert ?\ô) + (insert ?\ô) ) (defun insert-o-tilde () (interactive "*") - (insert ?\õ) + (insert ?\õ) ) (defun insert-o-umlaut () (interactive "*") - (insert ?\ö) + (insert ?\ö) ) (defun insert-division-sign () (interactive "*") - (insert ?\÷) + (insert ?\÷) ) (defun insert-o-slash () (interactive "*") - (insert ?\ø) + (insert ?\ø) ) (defun insert-u-grave () (interactive "*") - (insert ?\ù) + (insert ?\ù) ) (defun insert-u-acute () (interactive "*") - (insert ?\ú) + (insert ?\ú) ) (defun insert-u-circumflex () (interactive "*") - (insert ?\û) + (insert ?\û) ) (defun insert-u-umlaut () (interactive "*") - (insert ?\ü) + (insert ?\ü) ) (defun insert-y-acute () (interactive "*") - (insert ?\ý) + (insert ?\ý) ) (defun insert-thorn () (interactive "*") - (insert ?\þ) + (insert ?\þ) ) (defun insert-y-umlaut () (interactive "*") - (insert ?\ÿ) + (insert ?\ÿ) ) (defvar 8859-1-map nil "Keymap for ISO 8859/1 character insertion.") diff --git a/lisp/org/org-freemind.el b/lisp/org/org-freemind.el index c33b70224fa..3b1c6863f54 100644 --- a/lisp/org/org-freemind.el +++ b/lisp/org/org-freemind.el @@ -275,7 +275,7 @@ will also unescape &#nn;." ))) org-str)))) -;; (let* ((str1 "a quote: \", an amp: &, lt: <; over 256: öåäÖÅÄ") +;; (let* ((str1 "a quote: \", an amp: &, lt: <; over 256: öåäÖÅÄ") ;; (str2 (org-freemind-escape-str-from-org str1)) ;; (str3 (org-freemind-unescape-str-to-org str2))) ;; (unless (string= str1 str3) @@ -1221,6 +1221,7 @@ PATH should be a list of steps, where each step has the form ;; Local variables: ;; generated-autoload-file: "org-loaddefs.el" +;; coding: utf-8 ;; End: ;;; org-freemind.el ends here diff --git a/lisp/play/bubbles.el b/lisp/play/bubbles.el index 10493093aad..665e98a69b2 100644 --- a/lisp/play/bubbles.el +++ b/lisp/play/bubbles.el @@ -1,4 +1,4 @@ -;;; bubbles.el --- Puzzle game for Emacs +;;; bubbles.el --- Puzzle game for Emacs -*- coding: utf-8 -*- ;; Copyright (C) 2007-2013 Free Software Foundation, Inc. @@ -198,7 +198,7 @@ types are present." :group 'bubbles) (defcustom bubbles-chars - '(?+ ?O ?# ?X ?. ?* ?& ?§) + '(?+ ?O ?# ?X ?. ?* ?& ?§) "Characters used for bubbles. Note that the actual number of different bubbles is determined by the number of colors, see `bubbles-colors'." diff --git a/lisp/play/handwrite.el b/lisp/play/handwrite.el index de6c198092e..63b09895e85 100644 --- a/lisp/play/handwrite.el +++ b/lisp/play/handwrite.el @@ -1,4 +1,4 @@ -;;; 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-2013 Free Software Foundation, Inc. @@ -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) diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el index 977bc755e32..368b1fc50dc 100644 --- a/lisp/progmodes/cc-engine.el +++ b/lisp/progmodes/cc-engine.el @@ -1,4 +1,4 @@ -;;; cc-engine.el --- core syntax guessing engine for CC mode +;;; cc-engine.el --- core syntax guessing engine for CC mode -*- coding: utf-8 -*- ;; Copyright (C) 1985, 1987, 1992-2013 Free Software Foundation, Inc. @@ -2280,25 +2280,25 @@ comment at the start of cc-engine.el for more info." (while (and c (> (car c) c-state-semi-nonlit-pos-cache-limit)) (setq c (cdr c))) (setq c-state-semi-nonlit-pos-cache c) - + (while (and c (> (car c) here)) (setq high-pos (car c)) (setq c (cdr c))) (setq pos (or (car c) (point-min))) - + (unless high-pos (while ;; Add an element to `c-state-semi-nonlit-pos-cache' each iteration. (and (<= (setq npos (+ pos c-state-nonlit-pos-interval)) here) - + ;; Test for being in a literal. If so, go to after it. (progn (setq lit (car (cddr (c-state-pp-to-literal pos npos)))) (or (null lit) (prog1 (<= (cdr lit) here) (setq npos (cdr lit)))))) - + (setq pos npos) (setq c-state-semi-nonlit-pos-cache (cons pos c-state-semi-nonlit-pos-cache)))) @@ -2606,11 +2606,11 @@ comment at the start of cc-engine.el for more info." ;; OLD: { (.) {...........} ;; ^ ^ ;; FROM HERE - ;; + ;; ;; NEW: { {....} (.) {......... ;; ^ ^ ^ ;; LOWER BRACE PAIR HERE or HERE - ;; + ;; ;; This routine should be fast. Since it can get called a LOT, we maintain ;; `c-state-brace-pair-desert', a small cache of "failures", such that we ;; reduce the time wasted in repeated fruitless searches in brace deserts. @@ -2907,7 +2907,7 @@ comment at the start of cc-engine.el for more info." start-point)) (goto-char pos) (while (and c-state-cache - (or (numberp (car c-state-cache)) ; Have we a { at all? + (or (numberp (car c-state-cache)) ; Have we a { at all? (cdr c-state-cache)) (< (point) here)) (cond @@ -4610,7 +4610,7 @@ comment at the start of cc-engine.el for more info." s ; state 'syntax-table))) ; stop-comment (setq pos (point))) - + ;; Now try and find enough non-literal characters recorded on the stack. ;; Go back one recorded literal each time round this loop. (while (and (< count how-far-back) @@ -8516,8 +8516,8 @@ comment at the start of cc-engine.el for more info." )) (defun c-looking-at-special-brace-list (&optional lim) - ;; If we're looking at the start of a pike-style list, ie `({ })', - ;; `([ ])', `(< >)' etc, a cons of a cons of its starting and ending + ;; If we're looking at the start of a pike-style list, i.e., `({ })', + ;; `([ ])', `(< >)', etc., a cons of a cons of its starting and ending ;; positions and its entry in c-special-brace-lists is returned, nil ;; otherwise. The ending position is nil if the list is still open. ;; LIM is the limit for forward search. The point may either be at @@ -8762,7 +8762,7 @@ comment at the start of cc-engine.el for more info." (c-simple-skip-symbol-backward) (looking-at c-macro-with-semi-re) (goto-char pos) - (not (c-in-literal)))))) ; The most expensive check last. + (not (c-in-literal)))))) ; The most expensive check last. (defun c-macro-vsemi-status-unknown-p () t) ; See cc-defs.el. diff --git a/lisp/progmodes/cc-langs.el b/lisp/progmodes/cc-langs.el index 0d5549e4441..ba9c42e4c89 100644 --- a/lisp/progmodes/cc-langs.el +++ b/lisp/progmodes/cc-langs.el @@ -1,4 +1,4 @@ -;;; cc-langs.el --- language specific settings for CC Mode +;;; cc-langs.el --- language specific settings for CC Mode -*- coding: utf-8 -*- ;; Copyright (C) 1985, 1987, 1992-2013 Free Software Foundation, Inc. @@ -2907,7 +2907,7 @@ is in effect or not." (c-lang-defconst c-special-brace-lists "List of open- and close-chars that makes up a pike-style brace list, -i.e. for a ([ ]) list there should be a cons (?\\[ . ?\\]) in this +i.e. for a ([ ]) list there should be a cons (?\\[ . ?\\]) in this list." t nil pike '((?{ . ?}) (?\[ . ?\]) (?< . ?>))) diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el index fbd1ded35a0..fc753bf7264 100644 --- a/lisp/progmodes/hideshow.el +++ b/lisp/progmodes/hideshow.el @@ -1,4 +1,4 @@ -;;; hideshow.el --- minor mode cmds to selectively display code/comment blocks +;;; hideshow.el --- minor mode cmds to selectively display code/comment blocks -*- coding: utf-8 -*- ;; Copyright (C) 1994-2013 Free Software Foundation, Inc. @@ -207,7 +207,7 @@ ;; Dean Andrews, Alf-Ivar Holm, Holger Bauer, Christoph Conrad, Dave Love, ;; Dirk Herrmann, Gael Marziou, Jan Djarv, Guillaume Leray, Moody Ahmad, ;; Preston F. Crow, Lars Lindberg, Reto Zimmermann, Keith Sheffield, -;; Chew Meng Kuan, Tony Lam, Pete Ware, François Pinard, Stefan Monnier, +;; Chew Meng Kuan, Tony Lam, Pete Ware, François Pinard, Stefan Monnier, ;; Joseph Eydelnant, Michael Ernst, Peter Heslin ;; ;; Special thanks go to Dan Nicolaescu, who reimplemented hideshow using diff --git a/lisp/progmodes/prolog.el b/lisp/progmodes/prolog.el index 460dcd69447..85e4172c8fe 100644 --- a/lisp/progmodes/prolog.el +++ b/lisp/progmodes/prolog.el @@ -1,9 +1,9 @@ -;;; prolog.el --- major mode for editing and running Prolog (and Mercury) code +;;; prolog.el --- major mode for Prolog (and Mercury) -*- coding: utf-8 -*- ;; Copyright (C) 1986-1987, 1997-1999, 2002-2003, 2011-2013 Free ;; Software Foundation, Inc. -;; Authors: Emil Åström <emil_astrom(at)hotmail(dot)com> +;; Authors: Emil Åström <emil_astrom(at)hotmail(dot)com> ;; Milan Zamazal <pdm(at)freesoft(dot)cz> ;; Stefan Bruda <stefan(at)bruda(dot)ca> ;; * See below for more details @@ -31,7 +31,7 @@ ;; Original author: Masanobu UMEDA <umerin(at)mse(dot)kyutech(dot)ac(dot)jp> ;; Parts of this file was taken from a modified version of the original ;; by Johan Andersson, Peter Olin, Mats Carlsson, Johan Bevemyr, Stefan -;; Andersson, and Per Danielsson (all SICS people), and Henrik Båkman +;; Andersson, and Per Danielsson (all SICS people), and Henrik BÃ¥kman ;; at Uppsala University, Sweden. ;; ;; Some ideas and also a few lines of code have been borrowed (not stolen ;-) diff --git a/lisp/progmodes/sh-script.el b/lisp/progmodes/sh-script.el index da30edf272b..8f1954402e5 100644 --- a/lisp/progmodes/sh-script.el +++ b/lisp/progmodes/sh-script.el @@ -1842,7 +1842,7 @@ May return nil if the line should not be treated as continued." ;; (defconst sh-smie-csh-grammar ;; (smie-prec2->grammar ;; (smie-bnf->prec2 -;; '((exp) ;A constant, or a $var, or a sequence of them… +;; '((exp) ;A constant, or a $var, or a sequence of them... ;; (elseifcmd (cmd) ;; (cmd "else" "else-if" exp "then" elseifcmd)) ;; (cmd ("switch" branches "endsw") diff --git a/lisp/ruler-mode.el b/lisp/ruler-mode.el index 08c4ba51905..009bb11fc10 100644 --- a/lisp/ruler-mode.el +++ b/lisp/ruler-mode.el @@ -137,8 +137,8 @@ or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or (format "Invalid character value: %S" value)) widget)))) -(defcustom ruler-mode-fill-column-char (if (char-displayable-p ?¶) - ?\¶ +(defcustom ruler-mode-fill-column-char (if (char-displayable-p ?¶) + ?\¶ ?\|) "Character used at the `fill-column' location." :group 'ruler-mode @@ -163,8 +163,8 @@ or remove a tab stop. \\[ruler-mode-toggle-show-tab-stops] or (integer :tag "Integer char value" :validate ruler-mode-character-validate))) -(defcustom ruler-mode-current-column-char (if (char-displayable-p ?¦) - ?\¦ +(defcustom ruler-mode-current-column-char (if (char-displayable-p ?¦) + ?\¦ ?\@) "Character used at the `current-column' location." :group 'ruler-mode @@ -774,7 +774,7 @@ Optional argument PROPS specifies other text properties to apply." (provide 'ruler-mode) ;; Local Variables: -;; coding: iso-latin-1 +;; coding: utf-8 ;; End: ;;; ruler-mode.el ends here diff --git a/lisp/textmodes/conf-mode.el b/lisp/textmodes/conf-mode.el index 93ff179229b..67f2d96d003 100644 --- a/lisp/textmodes/conf-mode.el +++ b/lisp/textmodes/conf-mode.el @@ -1,4 +1,4 @@ -;;; conf-mode.el --- Simple major mode for editing conf/ini/properties files +;;; conf-mode.el --- Simple major mode for editing conf/ini/properties files -*- coding: utf-8 -*- ;; Copyright (C) 2004-2013 Free Software Foundation, Inc. @@ -23,7 +23,7 @@ ;;; Commentary: ;; ;; This mode is designed to edit many similar varieties of Conf/Ini files and -;; Java properties. It started out from Aurélien Tisné's ini-mode. +;; Java properties. It started out from Aurélien Tisné's ini-mode. ;; `conf-space-keywords' were inspired by Robert Fitzgerald's any-ini-mode. diff --git a/lisp/textmodes/po.el b/lisp/textmodes/po.el index 331f220f95b..610227af794 100644 --- a/lisp/textmodes/po.el +++ b/lisp/textmodes/po.el @@ -1,8 +1,8 @@ -;;; po.el --- basic support of PO translation files -*- coding: latin-1; -*- +;;; po.el --- basic support of PO translation files -*- coding: utf-8; -*- ;; Copyright (C) 1995-1998, 2000-2013 Free Software Foundation, Inc. -;; Authors: François Pinard <pinard@iro.umontreal.ca>, +;; Authors: François Pinard <pinard@iro.umontreal.ca>, ;; Greg McGary <gkm@magilla.cichlid.com>, ;; Bruno Haible <bruno@clisp.org>. ;; Keywords: i18n, files diff --git a/lisp/textmodes/tildify.el b/lisp/textmodes/tildify.el index 3ba19bb9f40..f25fa87d0ec 100644 --- a/lisp/textmodes/tildify.el +++ b/lisp/textmodes/tildify.el @@ -40,7 +40,7 @@ ;; The default variable settings are suited for Czech, so do not try to ;; understand them if you are not familiar with Czech grammar and spelling. ;; -;; The algorithm was inspired by Petr Ol¹ák's program `vlna'. Abilities of +;; The algorithm was inspired by Petr Olšák's program `vlna'. Abilities of ;; `tildify.el' are a little limited; if you have improvement suggestions, let ;; me know. @@ -349,7 +349,7 @@ further questions)." ;; Local variables: -;; coding: iso-latin-2 +;; coding: utf-8 ;; End: ;;; tildify.el ends here diff --git a/lisp/wdired.el b/lisp/wdired.el index 59a09d6d5a0..47cd99f45ac 100644 --- a/lisp/wdired.el +++ b/lisp/wdired.el @@ -3,7 +3,7 @@ ;; Copyright (C) 2004-2013 Free Software Foundation, Inc. ;; Filename: wdired.el -;; Author: Juan León Lahoz García <juanleon1@gmail.com> +;; Author: Juan León Lahoz García <juanleon1@gmail.com> ;; Version: 2.0 ;; Keywords: dired, environment, files, renaming @@ -851,7 +851,7 @@ Like original function but it skips read-only words." (provide 'wdired) ;; Local Variables: -;; coding: latin-1 +;; coding: utf-8 ;; byte-compile-dynamic: t ;; End: