# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 812992364 0
# Node ID b37ba01d6e27b4024f9c50d6fa410707ce772db6
# Parent  d619c5216f7da34c0612c460e9dab258d7970f87
Fix typo calling iso-accents-customize.
(iso-accents-compose): If this-command is non-nil, do prompt.

diff -r d619c5216f7d -r b37ba01d6e27 lisp/international/iso-acc.el
--- a/lisp/international/iso-acc.el	Fri Oct 06 04:36:30 1995 +0000
+++ b/lisp/international/iso-acc.el	Fri Oct 06 15:12:44 1995 +0000
@@ -156,7 +156,9 @@
 	 ;; Wait for the second key and look up the combination.
 	 (second-char (if (or prompt
 			      (not (eq (key-binding "a")
-				       'self-insert-command)))
+				       'self-insert-command))
+			      ;; Called from anything but the command loop.
+			      this-command)
 			  (progn
 			    (message "%s%c"
 				     (or prompt "Compose with ")
@@ -316,7 +318,7 @@
 		(insert (car (cdr (car entry)))))
 	    (forward-char 1)))))))
 
-(iso-customize-accents "default")
+(iso-accents-customize "default")
 
 ;;; iso-acc.el ends here