1996-05-20 21:07:10 +00:00
|
|
|
|
;;; iso-acc.el --- minor mode providing electric accent keys
|
1996-01-14 07:34:30 +00:00
|
|
|
|
|
2005-08-06 17:48:15 +00:00
|
|
|
|
;; Copyright (C) 1993, 1994, 1996, 2001, 2002, 2003, 2004,
|
2010-01-13 08:35:10 +00:00
|
|
|
|
;; 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
|
1993-09-14 16:51:54 +00:00
|
|
|
|
|
1996-08-08 20:00:16 +00:00
|
|
|
|
;; Author: Johan Vromans
|
1993-11-07 10:28:22 +00:00
|
|
|
|
;; Maintainer: FSF
|
|
|
|
|
|
;; Keywords: i18n
|
1993-09-14 16:51:54 +00:00
|
|
|
|
|
|
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
|
|
|
2008-05-06 04:29:13 +00:00
|
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
1993-09-14 16:51:54 +00:00
|
|
|
|
;; it under the terms of the GNU General Public License as published by
|
2008-05-06 04:29:13 +00:00
|
|
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
|
|
|
|
;; (at your option) any later version.
|
1993-09-14 16:51:54 +00:00
|
|
|
|
|
|
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
|
|
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
|
;; GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
2008-05-06 04:29:13 +00:00
|
|
|
|
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
1993-09-14 16:51:54 +00:00
|
|
|
|
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
|
2008-04-11 07:44:49 +00:00
|
|
|
|
;; This file has been obsolete since Emacs 22.1.
|
|
|
|
|
|
|
1994-10-28 19:03:03 +00:00
|
|
|
|
;; Function `iso-accents-mode' activates a minor mode in which
|
|
|
|
|
|
;; typewriter "dead keys" are emulated. The purpose of this emulation
|
|
|
|
|
|
;; is to provide a simple means for inserting accented characters
|
1997-05-29 06:36:56 +00:00
|
|
|
|
;; according to the ISO-8859-1...3 character sets.
|
1993-09-14 16:51:54 +00:00
|
|
|
|
;;
|
1994-10-28 19:03:03 +00:00
|
|
|
|
;; In `iso-accents-mode', pseudo accent characters are used to
|
1995-01-30 22:46:37 +00:00
|
|
|
|
;; introduce accented keys. The pseudo-accent characters are:
|
1993-09-14 16:51:54 +00:00
|
|
|
|
;;
|
2002-06-21 09:56:25 +00:00
|
|
|
|
;; ' (minute) -> actue accent
|
|
|
|
|
|
;; ` (backtick) -> grave accent
|
1993-09-14 16:51:54 +00:00
|
|
|
|
;; " (second) -> diaeresis
|
1993-11-07 10:28:22 +00:00
|
|
|
|
;; ^ (caret) -> circumflex
|
|
|
|
|
|
;; ~ (tilde) -> tilde over the character
|
|
|
|
|
|
;; / (slash) -> slash through the character.
|
1997-05-29 06:36:56 +00:00
|
|
|
|
;; Also: /A is A-with-ring and /E is AE ligature.
|
|
|
|
|
|
;; These two are enabled only if you set iso-accents-enable
|
|
|
|
|
|
;; to include them:
|
|
|
|
|
|
;; . (period) -> dot over the character (some languages only)
|
|
|
|
|
|
;; , (cedilla) -> cedilla under the character (some languages only)
|
1993-09-14 16:51:54 +00:00
|
|
|
|
;;
|
|
|
|
|
|
;; The action taken depends on the key that follows the pseudo accent.
|
2003-02-04 13:24:35 +00:00
|
|
|
|
;; In general:
|
1993-09-14 16:51:54 +00:00
|
|
|
|
;;
|
|
|
|
|
|
;; pseudo-accent + appropriate letter -> accented letter
|
1997-05-29 06:36:56 +00:00
|
|
|
|
;; pseudo-accent + space -> pseudo-accent (except comma and period)
|
1993-09-14 16:51:54 +00:00
|
|
|
|
;; pseudo-accent + pseudo-accent -> accent (if available)
|
|
|
|
|
|
;; pseudo-accent + other -> pseudo-accent + other
|
|
|
|
|
|
;;
|
2003-02-04 13:24:35 +00:00
|
|
|
|
;; If the pseudo-accent is followed by anything else than a
|
1993-09-14 16:51:54 +00:00
|
|
|
|
;; self-insert-command, the dead-key code is terminated, the
|
|
|
|
|
|
;; pseudo-accent inserted 'as is' and the bell is rung to signal this.
|
|
|
|
|
|
;;
|
1993-09-14 18:20:59 +00:00
|
|
|
|
;; Function `iso-accents-mode' can be used to enable the iso accents
|
|
|
|
|
|
;; minor mode, or disable it.
|
1993-11-21 22:54:37 +00:00
|
|
|
|
|
|
|
|
|
|
;; If you want only some of these characters to serve as accents,
|
1996-01-25 06:34:56 +00:00
|
|
|
|
;; add a language to `iso-languages' which specifies the accent characters
|
|
|
|
|
|
;; that you want, then select the language with `iso-accents-customize'.
|
1993-09-14 16:51:54 +00:00
|
|
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
|
|
|
|
|
|
(provide 'iso-acc)
|
|
|
|
|
|
|
1998-04-18 16:35:35 +00:00
|
|
|
|
(defgroup iso-acc nil
|
|
|
|
|
|
"Minor mode providing electric accent keys."
|
|
|
|
|
|
:prefix "iso-accents-"
|
|
|
|
|
|
:group 'i18n)
|
|
|
|
|
|
|
|
|
|
|
|
(defcustom iso-accents-insert-offset nonascii-insert-offset
|
|
|
|
|
|
"*Offset added by ISO Accents mode to character codes 0200 and above."
|
|
|
|
|
|
:type 'integer
|
|
|
|
|
|
:group 'iso-acc)
|
1997-05-10 01:43:18 +00:00
|
|
|
|
|
1995-07-31 01:28:39 +00:00
|
|
|
|
(defvar iso-languages
|
1996-10-25 04:26:36 +00:00
|
|
|
|
'(("catalan"
|
1996-12-30 00:30:21 +00:00
|
|
|
|
;; Note this includes some extra characters used in Spanish,
|
|
|
|
|
|
;; on the idea that someone who uses Catalan is likely to use Spanish
|
|
|
|
|
|
;; as well.
|
1996-01-25 06:34:56 +00:00
|
|
|
|
(?' (?A . ?\301) (?E . ?\311) (?I . ?\315) (?O . ?\323) (?U . ?\332)
|
1996-12-30 00:30:21 +00:00
|
|
|
|
(?a . ?\341) (?e . ?\351) (?i . ?\355) (?o . ?\363) (?u . ?\372)
|
|
|
|
|
|
(?\ . ?'))
|
|
|
|
|
|
(?` (?A . ?\300) (?E . ?\310) (?O . ?\322)
|
1997-05-29 06:36:56 +00:00
|
|
|
|
(?a . ?\340) (?e . ?\350) (?o . ?\362)
|
|
|
|
|
|
(?\ . ?`))
|
|
|
|
|
|
(?\" (?I . ?\317) (?U . ?\334) (?i . ?\357) (?u . ?\374)
|
|
|
|
|
|
(?\ . ?\"))
|
|
|
|
|
|
(?~ (?C . ?\307) (?N . ?\321) (?c . ?\347) (?n . ?\361)
|
|
|
|
|
|
(?> . ?\273) (?< . ?\253) (?! . ?\241) (?? . ?\277)
|
|
|
|
|
|
(?\ . ?\~)))
|
1996-10-25 04:26:36 +00:00
|
|
|
|
|
|
|
|
|
|
("esperanto"
|
|
|
|
|
|
(?^ (?H . ?\246) (?J . ?\254) (?h . ?\266) (?j . ?\274) (?C . ?\306)
|
|
|
|
|
|
(?G . ?\330) (?S . ?\336) (?c . ?\346) (?g . ?\370) (?s . ?\376)
|
|
|
|
|
|
(?^ . ?^) (?\ . ?^))
|
|
|
|
|
|
(?~ (?U . ?\335) (?u . ?\375) (?\ . ?~)))
|
|
|
|
|
|
|
1995-07-31 01:28:39 +00:00
|
|
|
|
("french"
|
1997-05-29 06:36:56 +00:00
|
|
|
|
(?' (?E . ?\311) (?C . ?\307) (?e . ?\351) (?c . ?\347)
|
|
|
|
|
|
(?\ . ?'))
|
1996-08-07 23:06:08 +00:00
|
|
|
|
(?` (?A . ?\300) (?E . ?\310) (?U . ?\331)
|
1997-05-29 06:36:56 +00:00
|
|
|
|
(?a . ?\340) (?e . ?\350) (?u . ?\371)
|
|
|
|
|
|
(?\ . ?`))
|
1996-01-25 06:34:56 +00:00
|
|
|
|
(?^ (?A . ?\302) (?E . ?\312) (?I . ?\316) (?O . ?\324) (?U . ?\333)
|
|
|
|
|
|
(?a . ?\342) (?e . ?\352) (?i . ?\356) (?o . ?\364) (?u . ?\373)
|
|
|
|
|
|
(?\ . ?^))
|
2003-02-04 13:24:35 +00:00
|
|
|
|
(?\" (?E . ?\313) (?I . ?\317)
|
1997-05-29 06:36:56 +00:00
|
|
|
|
(?e . ?\353) (?i . ?\357)
|
|
|
|
|
|
(?\ . ?\"))
|
|
|
|
|
|
(?~ (?< . ?\253) (?> . ?\273) (?C . ?\307) (?c . ?\347)
|
2002-06-21 09:56:25 +00:00
|
|
|
|
(?\ . ?~))
|
2002-02-01 04:26:56 +00:00
|
|
|
|
(?, (?C . ?\307) (?c . ?\347) (?\ . ?\,)))
|
1996-10-25 04:26:36 +00:00
|
|
|
|
|
1996-12-18 16:41:59 +00:00
|
|
|
|
("german"
|
|
|
|
|
|
(?\" (?A . ?\304) (?O . ?\326) (?U . ?\334)
|
|
|
|
|
|
(?a . ?\344) (?o . ?\366) (?u . ?\374) (?s . ?\337) (?\ . ?\")))
|
|
|
|
|
|
|
1996-10-25 04:26:36 +00:00
|
|
|
|
("irish"
|
1996-09-23 06:57:54 +00:00
|
|
|
|
(?' (?A . ?\301) (?E . ?\311) (?I . ?\315) (?O . ?\323) (?U . ?\332)
|
|
|
|
|
|
(?a . ?\341) (?e . ?\351) (?i . ?\355) (?o . ?\363) (?u . ?\372)
|
1996-10-25 04:26:36 +00:00
|
|
|
|
(?\ . ?')))
|
|
|
|
|
|
|
1997-05-29 06:41:34 +00:00
|
|
|
|
("portuguese"
|
|
|
|
|
|
(?' (?A . ?\301) (?E . ?\311) (?I . ?\315) (?O . ?\323) (?U . ?\332)
|
|
|
|
|
|
(?C . ?\307) (?a . ?\341) (?e . ?\351) (?i . ?\355) (?o . ?\363)
|
|
|
|
|
|
(?u . ?\372) (?c . ?\347)
|
|
|
|
|
|
(?\ . ?'))
|
|
|
|
|
|
(?` (?A . ?\300) (?a . ?\340)
|
|
|
|
|
|
(?\ . ?`))
|
|
|
|
|
|
(?^ (?A . ?\302) (?E . ?\312) (?O . ?\324)
|
|
|
|
|
|
(?a . ?\342) (?e . ?\352) (?o . ?\364)
|
|
|
|
|
|
(?\ . ?^))
|
|
|
|
|
|
(?\" (?U . ?\334) (?u . ?\374)
|
|
|
|
|
|
(?\ . ?\"))
|
1999-11-18 16:37:48 +00:00
|
|
|
|
(?~ (?A . ?\303) (?O . ?\325) (?a . ?\343) (?o . ?\365)
|
|
|
|
|
|
(?C . ?\307) (?N . ?\321) (?c . ?\347) (?n . ?\361)
|
1997-05-29 06:41:34 +00:00
|
|
|
|
(?\ . ?~))
|
|
|
|
|
|
(?, (?c . ?\347) (?C . ?\307) (?, . ?,)))
|
|
|
|
|
|
|
|
|
|
|
|
("spanish"
|
|
|
|
|
|
(?' (?A . ?\301) (?E . ?\311) (?I . ?\315) (?O . ?\323) (?U . ?\332)
|
|
|
|
|
|
(?a . ?\341) (?e . ?\351) (?i . ?\355) (?o . ?\363) (?u . ?\372)
|
|
|
|
|
|
(?\ . ?'))
|
|
|
|
|
|
(?\" (?U . ?\334) (?u . ?\374) (?\ . ?\"))
|
|
|
|
|
|
(?\~ (?N . ?\321) (?n . ?\361) (?> . ?\273) (?< . ?\253) (?! . ?\241)
|
|
|
|
|
|
(?? . ?\277) (?\ . ?\~)))
|
|
|
|
|
|
|
1996-10-25 04:26:36 +00:00
|
|
|
|
("latin-1"
|
|
|
|
|
|
(?' (?A . ?\301) (?E . ?\311) (?I . ?\315) (?O . ?\323) (?U . ?\332)
|
|
|
|
|
|
(?Y . ?\335) (?a . ?\341) (?e . ?\351) (?i . ?\355) (?o . ?\363)
|
1997-05-29 06:36:56 +00:00
|
|
|
|
(?u . ?\372) (?y . ?\375) (?' . ?\264)
|
2003-02-04 13:24:35 +00:00
|
|
|
|
(?\ . ?'))
|
1996-09-23 06:57:54 +00:00
|
|
|
|
(?` (?A . ?\300) (?E . ?\310) (?I . ?\314) (?O . ?\322) (?U . ?\331)
|
|
|
|
|
|
(?a . ?\340) (?e . ?\350) (?i . ?\354) (?o . ?\362) (?u . ?\371)
|
|
|
|
|
|
(?` . ?`) (?\ . ?`))
|
|
|
|
|
|
(?^ (?A . ?\302) (?E . ?\312) (?I . ?\316) (?O . ?\324) (?U . ?\333)
|
|
|
|
|
|
(?a . ?\342) (?e . ?\352) (?i . ?\356) (?o . ?\364) (?u . ?\373)
|
|
|
|
|
|
(?^ . ?^) (?\ . ?^))
|
|
|
|
|
|
(?\" (?A . ?\304) (?E . ?\313) (?I . ?\317) (?O . ?\326) (?U . ?\334)
|
|
|
|
|
|
(?a . ?\344) (?e . ?\353) (?i . ?\357) (?o . ?\366) (?s . ?\337)
|
1997-05-29 06:36:56 +00:00
|
|
|
|
(?u . ?\374) (?y . ?\377)
|
|
|
|
|
|
(?\" . ?\250) (?\ . ?\"))
|
|
|
|
|
|
(?~ (?A . ?\303) (?C . ?\307) (?D . ?\320) (?N . ?\321) (?O . ?\325)
|
|
|
|
|
|
(?T . ?\336) (?a . ?\343) (?c . ?\347) (?d . ?\360) (?n . ?\361)
|
|
|
|
|
|
(?o . ?\365) (?t . ?\376)
|
|
|
|
|
|
(?> . ?\273) (?< . ?\253) (?! . ?\241) (?? . ?\277)
|
|
|
|
|
|
(?\~ . ?\270) (?\ . ?~))
|
|
|
|
|
|
(?/ (?A . ?\305) (?E . ?\306) (?O . ?\330) (?a . ?\345) (?e . ?\346)
|
|
|
|
|
|
(?o . ?\370)
|
|
|
|
|
|
(?/ . ?\260) (?\ . ?/)))
|
1996-10-25 04:26:36 +00:00
|
|
|
|
|
1997-05-10 01:43:18 +00:00
|
|
|
|
("latin-2" latin-iso8859-2
|
1996-01-25 06:34:56 +00:00
|
|
|
|
(?' (?A . ?\301) (?C . ?\306) (?D . ?\320) (?E . ?\311) (?I . ?\315)
|
|
|
|
|
|
(?L . ?\305) (?N . ?\321) (?O . ?\323) (?R . ?\300) (?S . ?\246)
|
1997-05-10 01:47:16 +00:00
|
|
|
|
(?U . ?\332) (?Y . ?\335) (?Z . ?\254)
|
|
|
|
|
|
(?a . ?\341) (?c . ?\346) (?d . ?\360) (?e . ?\351) (?i . ?\355)
|
|
|
|
|
|
(?l . ?\345) (?n . ?\361) (?o . ?\363) (?r . ?\340) (?s . ?\266)
|
|
|
|
|
|
(?u . ?\372) (?y . ?\375) (?z . ?\274)
|
2003-02-04 13:24:35 +00:00
|
|
|
|
(?' . ?\264) (?\ . ?'))
|
1996-01-25 06:34:56 +00:00
|
|
|
|
(?` (?A . ?\241) (?C . ?\307) (?E . ?\312) (?L . ?\243) (?S . ?\252)
|
1997-05-10 01:47:16 +00:00
|
|
|
|
(?T . ?\336) (?Z . ?\257)
|
|
|
|
|
|
(?a . ?\261) (?l . ?\263) (?c . ?\347) (?e . ?\352) (?s . ?\272)
|
|
|
|
|
|
(?t . ?\376) (?z . ?\277)
|
|
|
|
|
|
(?` . ?\252)
|
1996-01-25 06:34:56 +00:00
|
|
|
|
(?. . ?\377) (?\ . ?`))
|
1997-05-10 01:47:16 +00:00
|
|
|
|
(?^ (?A . ?\302) (?I . ?\316) (?O . ?\324)
|
|
|
|
|
|
(?a . ?\342) (?i . ?\356) (?o . ?\364)
|
1996-01-25 06:34:56 +00:00
|
|
|
|
(?^ . ?^) ; no special code?
|
|
|
|
|
|
(?\ . ?^))
|
1997-05-10 01:47:16 +00:00
|
|
|
|
(?\" (?A . ?\304) (?E . ?\313) (?O . ?\326) (?U . ?\334)
|
|
|
|
|
|
(?a . ?\344) (?e . ?\353) (?o . ?\366) (?s . ?\337) (?u . ?\374)
|
|
|
|
|
|
(?\" . ?\250)
|
1996-01-25 06:34:56 +00:00
|
|
|
|
(?\ . ?\"))
|
1997-05-29 06:36:56 +00:00
|
|
|
|
(?~ (?A . ?\303) (?C . ?\310) (?D . ?\317) (?L . ?\245) (?N . ?\322)
|
|
|
|
|
|
(?O . ?\325) (?R . ?\330) (?S . ?\251) (?T . ?\253) (?U . ?\333)
|
|
|
|
|
|
(?Z . ?\256)
|
|
|
|
|
|
(?a . ?\343) (?c . ?\350) (?d . ?\357) (?l . ?\265) (?n . ?\362)
|
|
|
|
|
|
(?o . ?\365) (?r . ?\370) (?s . ?\271) (?t . ?\273) (?u . ?\373)
|
|
|
|
|
|
(?z . ?\276)
|
|
|
|
|
|
(?v . ?\242) ; v accent
|
|
|
|
|
|
(?\~ . ?\242) ; v accent
|
|
|
|
|
|
(?\. . ?\270) ; cedilla accent
|
|
|
|
|
|
(?\ . ?~)))
|
1996-01-25 06:34:56 +00:00
|
|
|
|
|
1997-05-10 01:43:18 +00:00
|
|
|
|
("latin-3" latin-iso8859-3
|
1996-01-25 06:34:56 +00:00
|
|
|
|
(?' (?A . ?\301) (?E . ?\311) (?I . ?\315) (?O . ?\323) (?U . ?\332)
|
1996-10-25 04:26:36 +00:00
|
|
|
|
(?a . ?\341) (?e . ?\351) (?i . ?\355) (?o . ?\363) (?u . ?\372)
|
2003-02-04 13:24:35 +00:00
|
|
|
|
(?' . ?\264) (?\ . ?'))
|
1996-01-25 06:34:56 +00:00
|
|
|
|
(?` (?A . ?\300) (?E . ?\310) (?I . ?\314) (?O . ?\322) (?U . ?\331)
|
|
|
|
|
|
(?a . ?\340) (?e . ?\350) (?i . ?\354) (?o . ?\362) (?u . ?\371)
|
|
|
|
|
|
(?` . ?`) (?\ . ?`))
|
1997-05-29 06:36:56 +00:00
|
|
|
|
(?^ (?A . ?\302) (?C . ?\306) (?E . ?\312) (?G . ?\330) (?H . ?\246)
|
|
|
|
|
|
(?I . ?\316) (?J . ?\254) (?O . ?\324) (?S . ?\336) (?U . ?\333)
|
|
|
|
|
|
(?a . ?\342) (?c . ?\346) (?e . ?\352) (?g . ?\370) (?h . ?\266)
|
|
|
|
|
|
(?i . ?\356) (?j . ?\274) (?o . ?\364) (?s . ?\376) (?u . ?\373)
|
1996-01-25 06:34:56 +00:00
|
|
|
|
(?^ . ?^) (?\ . ?^))
|
|
|
|
|
|
(?\" (?A . ?\304) (?E . ?\313) (?I . ?\317) (?O . ?\326) (?U . ?\334)
|
1997-05-29 06:36:56 +00:00
|
|
|
|
(?a . ?\344) (?e . ?\353) (?i . ?\357) (?o . ?\366) (?u . ?\374)
|
|
|
|
|
|
(?s . ?\337)
|
|
|
|
|
|
(?\" . ?\250) (?\ . ?\"))
|
1996-10-25 04:26:36 +00:00
|
|
|
|
(?~ (?A . ?\303) (?C . ?\307) (?D . ?\320) (?N . ?\321) (?O . ?\325)
|
|
|
|
|
|
(?a . ?\343) (?c . ?\347) (?d . ?\360) (?n . ?\361) (?o . ?\365)
|
|
|
|
|
|
(?$ . ?\245) (?S . ?\252) (?s . ?\272) (?G . ?\253) (?g . ?\273)
|
1997-05-29 06:36:56 +00:00
|
|
|
|
(?U . ?\335) (?u . ?\375) (?` . ?\242)
|
|
|
|
|
|
(?~ . ?\270) (?\ . ?~))
|
2003-02-04 13:24:35 +00:00
|
|
|
|
(?/ (?C . ?\305) (?G . ?\325) (?H . ?\241) (?I . ?\251) (?Z . ?\257)
|
1997-05-29 06:36:56 +00:00
|
|
|
|
(?c . ?\345) (?g . ?\365) (?h . ?\261) (?i . ?\271) (?z . ?\277)
|
|
|
|
|
|
(?r . ?\256)
|
|
|
|
|
|
(?. . ?\377) (?# . ?\243) (?$ . ?\244)
|
1997-05-29 06:38:45 +00:00
|
|
|
|
(?/ . ?\260) (?\ . ?/))
|
1997-05-29 06:36:56 +00:00
|
|
|
|
(?. (?C . ?\305) (?G . ?\325) (?I . ?\251) (?Z . ?\257)
|
1997-05-29 06:41:34 +00:00
|
|
|
|
(?c . ?\345) (?g . ?\365) (?z . ?\277))))
|
1995-07-31 01:28:39 +00:00
|
|
|
|
"List of language-specific customizations for the ISO Accents mode.
|
|
|
|
|
|
|
1996-01-25 06:34:56 +00:00
|
|
|
|
Each element of the list is of the form
|
1995-07-31 01:28:39 +00:00
|
|
|
|
|
1997-05-10 01:43:18 +00:00
|
|
|
|
(LANGUAGE [CHARSET]
|
1996-01-25 06:34:56 +00:00
|
|
|
|
(PSEUDO-ACCENT MAPPINGS)
|
|
|
|
|
|
(PSEUDO-ACCENT MAPPINGS)
|
|
|
|
|
|
...)
|
1995-07-31 01:28:39 +00:00
|
|
|
|
|
1996-01-25 06:34:56 +00:00
|
|
|
|
LANGUAGE is a string naming the language.
|
1997-05-10 01:43:18 +00:00
|
|
|
|
CHARSET (which may be omitted) is the symbol name
|
|
|
|
|
|
of the character set used in this language.
|
|
|
|
|
|
If CHARSET is omitted, latin-iso8859-1 is the default.
|
1996-01-25 06:34:56 +00:00
|
|
|
|
PSEUDO-ACCENT is a char specifying an accent key.
|
|
|
|
|
|
MAPPINGS are cons cells of the form (CHAR . ISO-CHAR).
|
1995-07-31 01:28:39 +00:00
|
|
|
|
|
1996-01-25 06:34:56 +00:00
|
|
|
|
The net effect is that the key sequence PSEUDO-ACCENT CHAR is mapped
|
|
|
|
|
|
to ISO-CHAR on input.")
|
1995-07-31 01:28:39 +00:00
|
|
|
|
|
|
|
|
|
|
(defvar iso-language nil
|
|
|
|
|
|
"Language for which ISO Accents mode is currently customized.
|
|
|
|
|
|
Change it with the `iso-accents-customize' function.")
|
|
|
|
|
|
|
|
|
|
|
|
(defvar iso-accents-list nil
|
|
|
|
|
|
"Association list for ISO accent combinations, for the chosen language.")
|
1993-09-14 16:51:54 +00:00
|
|
|
|
|
1998-04-18 16:35:35 +00:00
|
|
|
|
(defcustom iso-accents-mode nil
|
1993-11-07 21:23:36 +00:00
|
|
|
|
"*Non-nil enables ISO Accents mode.
|
1993-09-17 16:49:28 +00:00
|
|
|
|
Setting this variable makes it local to the current buffer.
|
1998-04-18 16:35:35 +00:00
|
|
|
|
See the function `iso-accents-mode'."
|
|
|
|
|
|
:type 'boolean
|
|
|
|
|
|
:group 'iso-acc)
|
1994-10-28 19:03:03 +00:00
|
|
|
|
(make-variable-buffer-local 'iso-accents-mode)
|
1993-09-14 16:51:54 +00:00
|
|
|
|
|
1998-04-18 16:35:35 +00:00
|
|
|
|
(defcustom iso-accents-enable '(?' ?` ?^ ?\" ?~ ?/)
|
1996-01-09 23:18:40 +00:00
|
|
|
|
"*List of accent keys that become prefixes in ISO Accents mode.
|
|
|
|
|
|
The default is (?' ?` ?^ ?\" ?~ ?/), which contains all the supported
|
|
|
|
|
|
accent keys. If you set this variable to a list in which some of those
|
|
|
|
|
|
characters are missing, the missing ones do not act as accents.
|
|
|
|
|
|
|
|
|
|
|
|
Note that if you specify a language with `iso-accents-customize',
|
|
|
|
|
|
that can also turn off certain prefixes (whichever ones are not needed in
|
1998-04-18 16:35:35 +00:00
|
|
|
|
the language you choose)."
|
|
|
|
|
|
:type '(repeat character)
|
|
|
|
|
|
:group 'iso-acc)
|
1996-01-09 23:18:40 +00:00
|
|
|
|
|
1993-10-24 23:21:21 +00:00
|
|
|
|
(defun iso-accents-accent-key (prompt)
|
|
|
|
|
|
"Modify the following character by adding an accent to it."
|
|
|
|
|
|
;; Pick up the accent character.
|
1996-01-09 23:18:40 +00:00
|
|
|
|
(if (and iso-accents-mode
|
2009-01-09 05:00:56 +00:00
|
|
|
|
(memq last-input-event iso-accents-enable))
|
1993-10-24 23:21:21 +00:00
|
|
|
|
(iso-accents-compose prompt)
|
2009-01-09 05:00:56 +00:00
|
|
|
|
(vector last-input-event)))
|
1993-09-17 16:49:28 +00:00
|
|
|
|
|
2005-02-24 13:56:29 +00:00
|
|
|
|
|
|
|
|
|
|
;; The iso-accents-compose function is called deep inside Emacs' read
|
|
|
|
|
|
;; key sequence machinery, so the call to read-event below actually
|
|
|
|
|
|
;; recurses into that machinery. Doing that does not cause any
|
|
|
|
|
|
;; problem on its own, but read-event will have marked the window's
|
|
|
|
|
|
;; display matrix to be accurate -- which is broken by the subsequent
|
|
|
|
|
|
;; call to delete-region. Therefore, we must call force-window-update
|
|
|
|
|
|
;; after delete-region to explicitly clear the accurate state of the
|
|
|
|
|
|
;; window's display matrix.
|
|
|
|
|
|
|
1993-10-24 23:21:21 +00:00
|
|
|
|
(defun iso-accents-compose (prompt)
|
2009-01-09 05:00:56 +00:00
|
|
|
|
(let* ((first-char last-input-event)
|
1996-01-25 06:34:56 +00:00
|
|
|
|
(list (assq first-char iso-accents-list))
|
1993-10-24 23:21:21 +00:00
|
|
|
|
;; Wait for the second key and look up the combination.
|
|
|
|
|
|
(second-char (if (or prompt
|
|
|
|
|
|
(not (eq (key-binding "a")
|
1995-10-06 15:12:44 +00:00
|
|
|
|
'self-insert-command))
|
1996-05-05 17:32:15 +00:00
|
|
|
|
;; Not at start of a key sequence.
|
|
|
|
|
|
(> (length (this-single-command-keys)) 1)
|
1995-10-06 15:12:44 +00:00
|
|
|
|
;; Called from anything but the command loop.
|
|
|
|
|
|
this-command)
|
1993-10-24 23:21:21 +00:00
|
|
|
|
(progn
|
|
|
|
|
|
(message "%s%c"
|
|
|
|
|
|
(or prompt "Compose with ")
|
|
|
|
|
|
first-char)
|
|
|
|
|
|
(read-event))
|
|
|
|
|
|
(insert first-char)
|
|
|
|
|
|
(prog1 (read-event)
|
2005-02-24 13:56:29 +00:00
|
|
|
|
(delete-region (1- (point)) (point))
|
|
|
|
|
|
;; Display is no longer up-to-date.
|
|
|
|
|
|
(force-window-update (selected-window)))))
|
1996-01-25 06:34:56 +00:00
|
|
|
|
(entry (cdr (assq second-char list))))
|
1993-10-24 23:21:21 +00:00
|
|
|
|
(if entry
|
1996-01-25 06:34:56 +00:00
|
|
|
|
;; Found it: return the mapped char
|
1997-05-12 23:18:58 +00:00
|
|
|
|
(vector
|
|
|
|
|
|
(if (and enable-multibyte-characters
|
|
|
|
|
|
(>= entry ?\200))
|
|
|
|
|
|
(+ iso-accents-insert-offset entry)
|
|
|
|
|
|
entry))
|
1993-10-24 23:21:21 +00:00
|
|
|
|
;; Otherwise, advance and schedule the second key for execution.
|
2001-10-30 16:10:09 +00:00
|
|
|
|
(push second-char unread-command-events)
|
1993-10-24 23:21:21 +00:00
|
|
|
|
(vector first-char))))
|
|
|
|
|
|
|
1993-09-14 16:51:54 +00:00
|
|
|
|
;; It is a matter of taste if you want the minor mode indicated
|
|
|
|
|
|
;; in the mode line...
|
1993-09-17 16:49:28 +00:00
|
|
|
|
;; If so, uncomment the next four lines.
|
1997-05-08 14:51:57 +00:00
|
|
|
|
;; (or (assq 'iso-accents-mode minor-mode-alist)
|
1993-09-14 16:51:54 +00:00
|
|
|
|
;; (setq minor-mode-alist
|
|
|
|
|
|
;; (append minor-mode-alist
|
1994-10-28 19:03:03 +00:00
|
|
|
|
;; '((iso-accents-mode " ISO-Acc")))))
|
1993-09-14 16:51:54 +00:00
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
1993-09-14 18:20:59 +00:00
|
|
|
|
(defun iso-accents-mode (&optional arg)
|
1993-11-07 21:23:36 +00:00
|
|
|
|
"Toggle ISO Accents mode, in which accents modify the following letter.
|
1993-09-14 18:20:59 +00:00
|
|
|
|
This permits easy insertion of accented characters according to ISO-8859-1.
|
|
|
|
|
|
When Iso-accents mode is enabled, accent character keys
|
1993-11-07 10:28:22 +00:00
|
|
|
|
\(`, ', \", ^, / and ~) do not self-insert; instead, they modify the following
|
1993-09-14 18:20:59 +00:00
|
|
|
|
letter key so that it inserts an ISO accented letter.
|
|
|
|
|
|
|
1995-12-21 17:50:40 +00:00
|
|
|
|
You can customize ISO Accents mode to a particular language
|
|
|
|
|
|
with the command `iso-accents-customize'.
|
1993-11-21 22:54:37 +00:00
|
|
|
|
|
1993-11-07 10:28:22 +00:00
|
|
|
|
Special combinations: ~c gives a c with cedilla,
|
1995-01-30 22:46:37 +00:00
|
|
|
|
~d gives an Icelandic eth (d with dash).
|
|
|
|
|
|
~t gives an Icelandic thorn.
|
1993-11-18 05:45:07 +00:00
|
|
|
|
\"s gives German sharp s.
|
|
|
|
|
|
/a gives a with ring.
|
|
|
|
|
|
/e gives an a-e ligature.
|
1996-01-04 23:42:43 +00:00
|
|
|
|
~< and ~> give guillemots.
|
1995-05-02 00:52:53 +00:00
|
|
|
|
~! gives an inverted exclamation mark.
|
|
|
|
|
|
~? gives an inverted question mark.
|
1993-11-07 10:28:22 +00:00
|
|
|
|
|
2003-02-04 13:24:35 +00:00
|
|
|
|
With an argument, a positive argument enables ISO Accents mode,
|
1993-09-14 18:20:59 +00:00
|
|
|
|
and a negative argument disables it."
|
1993-09-14 16:51:54 +00:00
|
|
|
|
|
|
|
|
|
|
(interactive "P")
|
|
|
|
|
|
|
1993-09-14 18:20:59 +00:00
|
|
|
|
(if (if arg
|
|
|
|
|
|
;; Negative arg means switch it off.
|
|
|
|
|
|
(<= (prefix-numeric-value arg) 0)
|
|
|
|
|
|
;; No arg means toggle.
|
1994-10-28 19:03:03 +00:00
|
|
|
|
iso-accents-mode)
|
|
|
|
|
|
(setq iso-accents-mode nil)
|
1993-09-14 16:51:54 +00:00
|
|
|
|
|
|
|
|
|
|
;; Enable electric accents.
|
1994-10-28 19:03:03 +00:00
|
|
|
|
(setq iso-accents-mode t)))
|
1993-09-14 16:51:54 +00:00
|
|
|
|
|
1995-07-31 01:28:39 +00:00
|
|
|
|
(defun iso-accents-customize (language)
|
|
|
|
|
|
"Customize the ISO accents machinery for a particular language.
|
|
|
|
|
|
It selects the customization based on the specifications in the
|
|
|
|
|
|
`iso-languages' variable."
|
|
|
|
|
|
(interactive (list (completing-read "Language: " iso-languages nil t)))
|
1997-05-10 01:43:18 +00:00
|
|
|
|
(let ((table (cdr (assoc language iso-languages)))
|
1996-01-09 23:18:40 +00:00
|
|
|
|
all-accents tail)
|
1995-07-31 01:28:39 +00:00
|
|
|
|
(if (not table)
|
1997-05-10 01:43:18 +00:00
|
|
|
|
(error "Unknown language `%s'" language)
|
|
|
|
|
|
(setq iso-accents-insert-offset (- (make-char (if (symbolp (car table))
|
|
|
|
|
|
(car table)
|
|
|
|
|
|
'latin-iso8859-1))
|
|
|
|
|
|
128))
|
|
|
|
|
|
(if (symbolp (car table))
|
|
|
|
|
|
(setq table (cdr table)))
|
1996-01-25 06:34:56 +00:00
|
|
|
|
(setq iso-language language
|
1997-05-10 01:43:18 +00:00
|
|
|
|
iso-accents-list table)
|
1995-07-31 01:28:39 +00:00
|
|
|
|
(if key-translation-map
|
|
|
|
|
|
(substitute-key-definition
|
|
|
|
|
|
'iso-accents-accent-key nil key-translation-map)
|
|
|
|
|
|
(setq key-translation-map (make-sparse-keymap)))
|
1996-01-25 06:34:56 +00:00
|
|
|
|
;; Set up translations for all the characters that are used as
|
|
|
|
|
|
;; accent prefixes in this language.
|
1996-01-09 23:18:40 +00:00
|
|
|
|
(setq tail iso-accents-list)
|
|
|
|
|
|
(while tail
|
1996-01-25 06:34:56 +00:00
|
|
|
|
(define-key key-translation-map (vector (car (car tail)))
|
1996-01-09 23:18:40 +00:00
|
|
|
|
'iso-accents-accent-key)
|
|
|
|
|
|
(setq tail (cdr tail))))))
|
1995-07-31 01:28:39 +00:00
|
|
|
|
|
|
|
|
|
|
(defun iso-accentuate (start end)
|
|
|
|
|
|
"Convert two-character sequences in region into accented characters.
|
|
|
|
|
|
Noninteractively, this operates on text from START to END.
|
|
|
|
|
|
This uses the same conversion that ISO Accents mode uses for type-in."
|
|
|
|
|
|
(interactive "r")
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(save-restriction
|
|
|
|
|
|
(narrow-to-region start end)
|
|
|
|
|
|
(goto-char start)
|
|
|
|
|
|
(forward-char 1)
|
|
|
|
|
|
(let (entry)
|
|
|
|
|
|
(while (< (point) end)
|
|
|
|
|
|
(if (and (memq (preceding-char) iso-accents-enable)
|
1996-01-25 06:34:56 +00:00
|
|
|
|
(setq entry (cdr (assq (following-char) (assq (preceding-char) iso-accents-list)))))
|
1995-07-31 01:28:39 +00:00
|
|
|
|
(progn
|
|
|
|
|
|
(forward-char -1)
|
|
|
|
|
|
(delete-char 2)
|
1996-01-25 06:34:56 +00:00
|
|
|
|
(insert entry)
|
1995-07-31 01:28:39 +00:00
|
|
|
|
(setq end (1- end)))
|
|
|
|
|
|
(forward-char 1)))))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun iso-accent-rassoc-unit (value alist)
|
1996-01-25 06:34:56 +00:00
|
|
|
|
(let (elt acc)
|
|
|
|
|
|
(while (and alist (not elt))
|
|
|
|
|
|
(setq acc (car (car alist))
|
|
|
|
|
|
elt (car (rassq value (cdr (car alist))))
|
|
|
|
|
|
alist (cdr alist)))
|
|
|
|
|
|
(if elt
|
|
|
|
|
|
(cons acc elt))))
|
1995-07-31 01:28:39 +00:00
|
|
|
|
|
|
|
|
|
|
(defun iso-unaccentuate (start end)
|
|
|
|
|
|
"Convert accented characters in the region into two-character sequences.
|
|
|
|
|
|
Noninteractively, this operates on text from START to END.
|
|
|
|
|
|
This uses the opposite of the conversion done by ISO Accents mode for type-in."
|
|
|
|
|
|
(interactive "r")
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(save-restriction
|
|
|
|
|
|
(narrow-to-region start end)
|
|
|
|
|
|
(goto-char start)
|
|
|
|
|
|
(let (entry)
|
|
|
|
|
|
(while (< (point) end)
|
|
|
|
|
|
(if (and (> (following-char) 127)
|
|
|
|
|
|
(setq entry (iso-accent-rassoc-unit (following-char)
|
|
|
|
|
|
iso-accents-list)))
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(delete-char 1)
|
1996-01-25 06:34:56 +00:00
|
|
|
|
(insert (car entry) (cdr entry))
|
1995-07-31 01:28:39 +00:00
|
|
|
|
(setq end (1+ end)))
|
|
|
|
|
|
(forward-char 1)))))))
|
|
|
|
|
|
|
|
|
|
|
|
(defun iso-deaccentuate (start end)
|
|
|
|
|
|
"Convert accented characters in the region into unaccented characters.
|
|
|
|
|
|
Noninteractively, this operates on text from START to END."
|
|
|
|
|
|
(interactive "r")
|
|
|
|
|
|
(save-excursion
|
|
|
|
|
|
(save-restriction
|
|
|
|
|
|
(narrow-to-region start end)
|
|
|
|
|
|
(goto-char start)
|
|
|
|
|
|
(let (entry)
|
|
|
|
|
|
(while (< (point) end)
|
|
|
|
|
|
(if (and (> (following-char) 127)
|
|
|
|
|
|
(setq entry (iso-accent-rassoc-unit (following-char)
|
|
|
|
|
|
iso-accents-list)))
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(delete-char 1)
|
1996-01-25 06:34:56 +00:00
|
|
|
|
(insert (cdr entry)))
|
1995-07-31 01:28:39 +00:00
|
|
|
|
(forward-char 1)))))))
|
|
|
|
|
|
|
1996-01-09 23:18:40 +00:00
|
|
|
|
;; Set up the default settings.
|
1996-01-24 23:27:59 +00:00
|
|
|
|
(iso-accents-customize "latin-1")
|
1995-07-31 01:28:39 +00:00
|
|
|
|
|
1996-02-29 19:22:05 +00:00
|
|
|
|
;; Use Iso-Accents mode in the minibuffer
|
|
|
|
|
|
;; if it was in use in the previous buffer.
|
|
|
|
|
|
(defun iso-acc-minibuf-setup ()
|
|
|
|
|
|
(setq iso-accents-mode
|
* textmodes/two-column.el (2C-split):
* textmodes/texnfo-upd.el (texinfo-multi-file-included-list):
* textmodes/tex-mode.el (tex-set-buffer-directory):
* textmodes/spell.el (spell-region, spell-string):
* textmodes/reftex.el (reftex-erase-buffer):
(reftex-get-file-buffer-force, reftex-kill-temporary-buffers):
* textmodes/reftex-toc.el (reftex-toc-promote-action):
* textmodes/reftex-sel.el (reftex-get-offset, reftex-insert-docstruct)
(reftex-select-item):
* textmodes/reftex-ref.el (reftex-label-info-update)
(reftex-offer-label-menu):
* textmodes/reftex-index.el (reftex-index-change-entry)
(reftex-index-phrases-info):
* textmodes/reftex-global.el (reftex-create-tags-file)
(reftex-save-all-document-buffers, reftex-ensure-write-access):
* textmodes/reftex-dcr.el (reftex-echo-ref, reftex-echo-cite)
(reftex-view-crossref-from-bibtex):
* textmodes/reftex-cite.el (reftex-bibtex-selection-callback)
(reftex-extract-bib-entries-from-thebibliography)
(reftex-all-used-citation-keys, reftex-create-bibtex-file):
* textmodes/refbib.el (r2b-capitalize-title):
(r2b-convert-buffer, r2b-help):
* textmodes/page-ext.el (pages-directory)
(pages-directory-goto-with-mouse):
* textmodes/bibtex.el (bibtex-validate-globally):
* textmodes/bib-mode.el (bib-capitalize-title):
* textmodes/artist.el (artist-clear-buffer, artist-system):
* progmodes/xscheme.el (global-set-scheme-interaction-buffer):
(local-set-scheme-interaction-buffer, xscheme-process-filter)
(verify-xscheme-buffer, xscheme-enter-interaction-mode)
(xscheme-enter-debugger-mode, xscheme-debugger-mode-p)
(xscheme-send-control-g-interrupt, xscheme-start-process)
(xscheme-process-sentinel, xscheme-cd):
* progmodes/verilog-mode.el (verilog-read-always-signals)
(verilog-set-define, verilog-getopt-file)
(verilog-module-inside-filename-p):
* progmodes/sh-script.el:
* progmodes/python.el (python-pdbtrack-get-source-buffer)
(python-pdbtrack-grub-for-buffer, python-execute-file):
* progmodes/octave-inf.el (inferior-octave):
* progmodes/idlwave.el (idlwave-scan-user-lib-files)
(idlwave-shell-compile-helper-routines, idlwave-set-local)
(idlwave-display-completion-list-xemacs, idlwave-list-abbrevs)
(idlwave-display-completion-list-emacs, idlwave-list-load-path-shadows)
(idlwave-completion-fontify-classes, idlwave-display-calling-sequence):
* progmodes/idlw-shell.el (idlwave-shell-examine-display-clear)
(idlwave-shell-filter, idlwave-shell-examine-highlight)
(idlwave-shell-sentinel, idlwave-shell-filter-directory)
(idlwave-shell-display-line, idlwave-shell-set-bp-in-module)
(idlwave-shell-examine-display, idlwave-shell-run-region)
(idlwave-shell-filter-bp, idlwave-shell-save-and-action)
(idlwave-shell-sources-filter, idlwave-shell-goto-next-error):
* progmodes/idlw-help.el (idlwave-help-get-special-help)
(idlwave-help-get-help-buffer):
* progmodes/gud.el (gud-basic-call, gud-find-class)
(gud-tooltip-activate-mouse-motions-if-enabled):
* progmodes/gdb-mi.el (gdb-mouse-toggle-breakpoint-fringe):
* progmodes/ebrowse.el (ebrowse-member-table, ebrowse-save-tree-as)
(ebrowse-view-exit-fn, ebrowse-tags-list-members-in-file)
(ebrowse-tags-next-file):
* progmodes/ebnf2ps.el (ebnf-generate-eps, ebnf-generate-eps)
(ebnf-eps-production-list, ebnf-begin-file, ebnf-log)
(ebnf-eps-finish-and-write):
* progmodes/cpp.el (cpp-edit-save):
* progmodes/cperl-mode.el (cperl-pod-to-manpage):
* progmodes/cc-defs.el (c-emacs-features):
* progmodes/antlr-mode.el (antlr-invalidate-context-cache)
(antlr-directory-dependencies):
* progmodes/ada-xref.el (ada-gnat-parse-gpr, ada-get-ali-file-name)
(ada-run-application, ada-find-in-src-path, ada-goto-parent)
(ada-find-any-references, ada-make-filename-from-adaname)
(ada-make-body-gnatstub):
* obsolete/rnews.el (news-list-news-groups):
* obsolete/resume.el (resume-suspend-hook,resume-write-buffer-to-file):
* obsolete/iso-acc.el (iso-acc-minibuf-setup):
* net/rcirc.el (rcirc-debug):
* net/newst-treeview.el (newsticker--treeview-list-add-item)
(newsticker--treeview-list-clear, newsticker-treeview-browse-url)
(newsticker--treeview-list-update-faces, newsticker-treeview-save)
(newsticker--treeview-item-show-text, newsticker--treeview-item-show)
(newsticker--treeview-tree-update-tag,newsticker--treeview-buffer-init)
(newsticker-treeview-show-item, newsticker--treeview-unfold-node)
(newsticker--treeview-list-clear-highlight)
(newsticker--treeview-list-update-highlight)
(newsticker--treeview-list-highlight-start)
(newsticker--treeview-tree-update-highlight)
(newsticker--treeview-get-selected-item)
(newsticker-treeview-mark-list-items-old)
(newsticker--treeview-set-current-node):
* net/newst-plainview.el (newsticker--buffer-set-uptodate):
* net/newst-backend.el (newsticker--get-news-by-funcall)
(newsticker--get-news-by-wget, newsticker--image-get)
(newsticker--image-sentinel):
* net/mairix.el (mairix-rmail-fetch-field, mairix-gnus-fetch-field):
* net/eudcb-ph.el (eudc-ph-do-request, eudc-ph-open-session):
(eudc-ph-close-session):
* net/eudc.el (eudc-save-options):
* language/thai-word.el (thai-update-word-table):
* language/japan-util.el (japanese-string-conversion):
* international/titdic-cnv.el (tsang-quick-converter)
(ziranma-converter, ctlau-converter):
* international/mule-cmds.el (describe-language-environment):
* international/ja-dic-cnv.el (skkdic-convert-okuri-ari)
(skkdic-convert-postfix, skkdic-convert-prefix):
(skkdic-convert-okuri-nasi, skkdic-convert):
* emacs-lisp/re-builder.el (reb-update-overlays):
* emacs-lisp/pp.el (pp-to-string, pp-display-expression):
* emacs-lisp/gulp.el (gulp-send-requests):
* emacs-lisp/find-gc.el (trace-call-tree):
* emacs-lisp/eieio-opt.el (eieio-browse, eieio-describe-class)
(eieio-describe-generic):
* emacs-lisp/eieio-base.el (eieio-persistent-read):
* emacs-lisp/edebug.el (edebug-outside-excursion):
* emacs-lisp/debug.el (debugger-make-xrefs):
* emacs-lisp/cust-print.el (custom-prin1-to-string):
* emacs-lisp/chart.el (chart-new-buffer):
* emacs-lisp/authors.el (authors-scan-el, authors-scan-change-log):
Use with-current-buffer.
* textmodes/artist.el (artist-system): Don't call
copy-sequence on a fresh string.
* progmodes/idlw-shell.el (easymenu setup): Use dolist.
2009-10-31 02:38:34 +00:00
|
|
|
|
(with-current-buffer (window-buffer minibuffer-scroll-window)
|
1996-02-29 19:22:05 +00:00
|
|
|
|
iso-accents-mode)))
|
|
|
|
|
|
|
1996-08-25 02:31:33 +00:00
|
|
|
|
(add-hook 'minibuffer-setup-hook 'iso-acc-minibuf-setup)
|
1996-02-29 19:22:05 +00:00
|
|
|
|
|
2005-03-27 14:25:33 +00:00
|
|
|
|
;; arch-tag: 149ff409-7c3e-4574-9b5d-ac038939c0a6
|
1993-09-14 16:51:54 +00:00
|
|
|
|
;;; iso-acc.el ends here
|