1.1 --- a/yatexmth.el	Wed May 01 15:35:40 1996 +0000
     1.2 +++ b/yatexmth.el	Fri Jan 24 09:04:06 1997 +0000
     1.3 @@ -1,8 +1,8 @@
     1.4  ;;; -*- Emacs-Lisp -*-
     1.5  ;;; YaTeX math-mode-specific functions.
     1.6  ;;; yatexmth.el rev.4
     1.7 -;;; (c )1993-1995 by HIROSE Yuuji [yuuji@ae.keio.ac.jp]
     1.8 -;;; Last modified Tue Apr 23 23:17:24 1996 on inspire
     1.9 +;;; (c )1993-1997 by HIROSE Yuuji [yuuji@ae.keio.ac.jp]
    1.10 +;;; Last modified Fri Jan 24 18:00:08 1997 on supra
    1.11  ;;; $Id$
    1.12  
    1.13  ;;; [Customization guide]
    1.14 @@ -541,6 +541,7 @@
    1.15  	(setq list (cdr list)))
    1.16        (goto-line 4)
    1.17        (use-local-map YaTeX-math-menu-map)
    1.18 +      (setq buffer-read-only t)
    1.19        (unwind-protect
    1.20  	  (recursive-edit)
    1.21  	(skip-chars-backward "^ \t\n")
    1.22 @@ -597,9 +598,14 @@
    1.23    (let*((key (or initial "")) regkey str  last-char list i
    1.24  	(case-fold-search nil) match sign
    1.25  	(this-key (char-to-string last-command-char))
    1.26 -	(alist (symbol-value (cdr (assoc this-key YaTeX-math-key-list))))
    1.27 +	(alistsym (cdr (assoc this-key YaTeX-math-key-list)))
    1.28 +	(alistname (symbol-name alistsym))
    1.29 +	(alist (symbol-value alistsym))
    1.30  	(n (length alist)) (beg (point)) result)
    1.31      (if initial (insert YaTeX-ec (car (cdr (assoc initial alist)))))
    1.32 +    (if (string-match "^YaTeX-" alistname)
    1.33 +	(setq alistname (substring alistname (length "YaTeX-"))))
    1.34 +    (setq alistname (substring alistname 0 (string-match "-" alistname)))
    1.35      (setq result
    1.36  	  (catch 'complete
    1.37  	    (if (and (not force)
    1.38 @@ -608,7 +614,8 @@
    1.39  		       (not YaTeX-math-mode)))
    1.40  		(throw 'complete 'escape));this tag should be exit, but...
    1.41  	    (while t
    1.42 -	      (message "Sequence%s: %s"
    1.43 +	      (message "%ssequence%s: %s"
    1.44 +		       (if YaTeX-simple-messages "" (concat alistname " "))
    1.45  		       (if YaTeX-simple-messages "" "(TAB for menu)") key)
    1.46  	      (setq last-char (read-char)
    1.47  		    key (concat key (char-to-string last-char))