From 213543f0f9973626f8a6cb21bf4161fd5b06e6d3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 29 Feb 1996 19:22:05 +0000 Subject: [PATCH] (iso-languages): Add ~? and ~!. --- lisp/international/iso-acc.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/lisp/international/iso-acc.el b/lisp/international/iso-acc.el index abdafe3cf83..26fd5e8c43c 100644 --- a/lisp/international/iso-acc.el +++ b/lisp/international/iso-acc.el @@ -135,6 +135,7 @@ (?\~ (?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) (?\~ . ?\270) + (?! . ?\241) (?? . ?\277) (?\ . ?\~)) (?\/ (?A . ?\305) (?E . ?\306) (?O . ?\330) (?a . ?\345) (?e . ?\346) (?o . ?\370) (?\/ . ?\260) (?\ . ?\/)))) @@ -348,4 +349,14 @@ Noninteractively, this operates on text from START to END." ;; Set up the default settings. (iso-accents-customize "latin-1") +;; 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 + (save-excursion + (set-buffer (window-buffer minibuffer-scroll-window)) + iso-accents-mode))) + +(add-hook 'minibuf-setup-hook 'iso-acc-minibuf-setup) + ;;; iso-acc.el ends here -- 2.39.5