1.1 --- a/yatexenv.el	Thu Feb 02 17:18:29 1995 +0000
     1.2 +++ b/yatexenv.el	Thu Jun 29 13:46:57 1995 +0000
     1.3 @@ -1,8 +1,8 @@
     1.4  ;;; -*- Emacs-Lisp -*-
     1.5  ;;; YaTeX environment-specific functions.
     1.6  ;;; yatexenv.el
     1.7 -;;; (c ) 1994 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp]
     1.8 -;;; Last modified Thu Feb  2 16:11:12 1995 on pajero
     1.9 +;;; (c ) 1994, 1995 by HIROSE Yuuji.[yuuji@ae.keio.ac.jp]
    1.10 +;;; Last modified Thu May 18 11:52:05 1995 on inspire
    1.11  ;;; $Id$
    1.12  
    1.13  ;;;
    1.14 @@ -105,7 +105,9 @@
    1.15  	 ((string-match (char-to-string elt) "p@") ;p or @ expression
    1.16  	  (setq cols (+ (if (eq elt ?p) 1 0) cols))
    1.17  	  (skip-chars-forward "^{" p)
    1.18 -	  (forward-list 1))))
    1.19 +	  (forward-list 1))
    1.20 +	 (t (forward-char 1))		;unknown char
    1.21 +	 ))
    1.22        (list cols (1+ eoform))))
    1.23  )
    1.24  ;; Insert &