diff options
47 files changed, 1084 insertions, 1073 deletions
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 Sjgren <asjo@koldfront.dk>) +(preview and save were contributed by Adam Sjøgren <asjo@koldfront.dk>) 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 Sjgren + 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 Sjgren + 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 Niki <hniksic@xemacs.org> +;; Author: Hrvoje Nikšić <hniksic@xemacs.org> ;; 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 <pot@gnu.org> has maintained and improved it since 1993. + * Francesco Potortì <pot@gnu.org> 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 <lomew@cs.utah.edu> (1995) * Additions by Michael Ernst <mernst@alum.mit.edu> (1997) - * Ideas by Kai Grojohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> (2001) + * Ideas by Kai Großjohann <Kai.Grossjohann@CS.Uni-Dortmund.DE> (2001) */ static void Perl_functions (FILE *inf) @@ -5105,7 +5105,7 @@ Texinfo_nodes (FILE *inf) * Contents of <title>, <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%%,%dC]") + "[%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 Franois 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 Franois 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 Franois 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 Franois 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 Franois 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 Franois 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 Franois 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 Grojohann <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 "rksmrgs") + (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 Ldecke <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 Grojohann <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 ai 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 Jank <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 Jank <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 Jank <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 Jank <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 Jank <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 Jank <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 Jank <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 Jank <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, Franois 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 strm <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 Bkman +;; 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 Aurlien 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: Franois 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 Olk'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 Len Lahoz Garca <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: |