changeset 14720:52a6ccf7c0a8

(iso-languages): Add ~? and ~!.
author Richard M. Stallman <rms@gnu.org>
date Thu, 29 Feb 1996 19:22:05 +0000
parents d477c6f756df
children 2630ac774647
files lisp/international/iso-acc.el
diffstat 1 files changed, 11 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/iso-acc.el	Thu Feb 29 08:19:46 1996 +0000
+++ b/lisp/international/iso-acc.el	Thu Feb 29 19:22:05 1996 +0000
@@ -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 @@
 ;; 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