[AUCTeX-diffs] Changes to auctex/tex.el

[Ralf Angeli]

Index: auctex/tex.el
diff -u auctex/tex.el:5.549 auctex/tex.el:5.550
--- auctex/tex.el:5.549 Wed Nov 30 09:31:42 2005
+++ auctex/tex.el       Mon Dec  5 10:50:52 2005
@@ -2117,6 +2117,20 @@
   (when (memq symbol list)
     (eval form)))
 
+(defun TeX-arg-free (optional &rest args)
+  "Parse its arguments but use no braces when they are inserted."
+  (let ((TeX-arg-opening-brace "")
+       (TeX-arg-closing-brace ""))
+    (if (equal (length args) 1)
+       (TeX-parse-argument optional (car args))
+      (TeX-parse-argument optional args))))
+
+(defun TeX-arg-literal (optional &rest args)
+  "Insert its arguments ARGS into the buffer.
+Used for specifying extra syntax for a macro."
+  ;; FIXME: What is the purpose of OPTIONAL here?  -- rs
+  (apply 'insert args))
+
 
 ;;; Font Locking
 
@@ -3175,12 +3189,6 @@
     (skip-chars-backward " \t\n")
     (bobp)))
 
-(defun TeX-arg-literal (optional &rest args)
-  "Insert its arguments ARGS into the buffer.
-Used for specifying extra syntax for a macro."
-  ;; FIXME: What is the purpose of OPTIONAL here?  -- rs
-  (apply 'insert args))
-
 (defalias 'TeX-run-mode-hooks
   (if (fboundp 'run-mode-hooks) 'run-mode-hooks 'run-hooks))
 
@@ -4363,8 +4371,9 @@
                       (buffer-substring (point)
                                         (progn (end-of-line) (point)))))))
       ;; Math mode was not entered with dollar - we cannot finish it with one.
-      (error "Math mode because of `%s'.  Use `C-q $' to force a dollar"
-            (car texmathp-why))))
+      (message "Math mode started with `%s' cannot be closed with dollar"
+              (car texmathp-why))
+      (insert "$")))
    (t
     ;; Just somewhere in the text.
     (insert "$")))