mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-17 17:58:46 +00:00
Code Issues Releases Activity

Prefer UTF-8 when the encoding shouldn't matter and changes are small.

Browse Source
This commit is contained in:
Paul Eggert 2013-03-05 09:13:01 -08:00
parent 11f4d68f25
commit c38e0c974e
47 changed files with 1084 additions and 1073 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
admin/make-tarball.txt
View File

@ -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

10
admin/notes/unicode
View File

@ -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

4
etc/images/mail/README
View File

@ -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 <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.

3
etc/images/smilies/grayscale/README
View File

@ -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
Author: Adam Sjøgren
Copyright (C) 2007-2013 Free Software Foundation, Inc.
License: GNU General Public License version 3 or later (see COPYING)

3
etc/images/smilies/medium/README
View File

@ -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
Author: Adam Sjøgren
Copyright (C) 2007-2013 Free Software Foundation, Inc.
License: GNU General Public License version 3 or later (see COPYING)

184
leim/quail/croatian.el
View File

@ -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ж <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

14
lib-src/etags.c
View File

@ -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 Großjohann <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)

4
lisp/battery.el
View File

@ -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.

6
lisp/filesets.el
View File

@ -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)

18
lisp/gnus/ChangeLog.1
View File

@ -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:

4
lisp/gnus/deuglify.el
View File

@ -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

4
lisp/gnus/gnus-delay.el
View File

@ -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

8
lisp/gnus/gnus-spec.el
View File

@ -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

4
lisp/gnus/gnus-sum.el
View File

@ -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

6
lisp/gnus/html2text.el
View File

@ -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 @@
("&ndash;" . "-")
("&permil;" . "%%")
("&plusmn;" . "+-")
("&pound;" . "£")
("&pound;" . "£")
("&quot;" . "\"")
("&raquo;" . ">>")
("&rdquo" . "\"")
("&reg;" . "(R)")
("&rsaquo;" . ")")
("&rsquo;" . "'")
("&sect;" . "§")
("&sect;" . "§")
("&sup1;" . "^1")
("&sup2;" . "^2")
("&sup3;" . "^3")

4
lisp/gnus/message.el
View File

@ -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

4
lisp/gnus/mm-decode.el
View File

@ -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

4
lisp/gnus/mml1991.el
View File

@ -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

4
lisp/gnus/nnir.el
View File

@ -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>.

8
lisp/gnus/shr.el
View File

@ -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

6
lisp/gnus/utf7.el
View File

@ -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

1222
lisp/international/iso-cvt.el
View File

File diff suppressed because it is too large Load Diff

294
lisp/international/iso-transl.el
View File

@ -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.")

4
lisp/language/romanian.el
View File

@ -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"))

6
lisp/mh-e/ChangeLog.1
View File

@ -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:

4
lisp/net/eudc-bob.el
View File

@ -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

4
lisp/net/eudc-export.el
View File

@ -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

4
lisp/net/eudc-hotlist.el
View File

@ -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

4
lisp/net/eudc-vars.el
View File

@ -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

4
lisp/net/eudc.el
View File

@ -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.

4
lisp/net/eudcb-bbdb.el
View File

@ -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

4
lisp/net/eudcb-ldap.el
View File

@ -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

4
lisp/net/eudcb-ph.el
View File

@ -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

194
lisp/obsolete/iso-insert.el
View File

@ -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.")

3
lisp/org/org-freemind.el
View File

@ -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

4
lisp/play/bubbles.el
View File

@ -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'."

20
lisp/play/handwrite.el
View File

@ -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)

6
lisp/progmodes/cc-engine.el
View File

@ -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.
@ -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

4
lisp/progmodes/cc-langs.el
View File

@ -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 '((?{ . ?}) (?\[ . ?\]) (?< . ?>)))

4
lisp/progmodes/hideshow.el
View File

@ -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

6
lisp/progmodes/prolog.el
View File

@ -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 ;-)

2
lisp/progmodes/sh-script.el
View File

@ -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")

10
lisp/ruler-mode.el
View File

@ -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

4
lisp/textmodes/conf-mode.el
View File

@ -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.

4
lisp/textmodes/po.el
View File

@ -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

4
lisp/textmodes/tildify.el
View File

@ -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

4
lisp/wdired.el
View File

@ -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: