/[auctex]/auctex/tex.el
ViewVC logotype

Diff of /auctex/tex.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 5.549 by angeli, Wed Nov 30 09:31:42 2005 UTC revision 5.550 by angeli, Mon Dec 5 10:50:52 2005 UTC
# Line 2117  Return the number as car and unit as cdr Line 2117  Return the number as car and unit as cdr
2117    (when (memq symbol list)    (when (memq symbol list)
2118      (eval form)))      (eval form)))
2119    
2120    (defun TeX-arg-free (optional &rest args)
2121      "Parse its arguments but use no braces when they are inserted."
2122      (let ((TeX-arg-opening-brace "")
2123            (TeX-arg-closing-brace ""))
2124        (if (equal (length args) 1)
2125            (TeX-parse-argument optional (car args))
2126          (TeX-parse-argument optional args))))
2127    
2128    (defun TeX-arg-literal (optional &rest args)
2129      "Insert its arguments ARGS into the buffer.
2130    Used for specifying extra syntax for a macro."
2131      ;; FIXME: What is the purpose of OPTIONAL here?  -- rs
2132      (apply 'insert args))
2133    
2134    
2135  ;;; Font Locking  ;;; Font Locking
2136    
# Line 3175  to look backward for." Line 3189  to look backward for."
3189      (skip-chars-backward " \t\n")      (skip-chars-backward " \t\n")
3190      (bobp)))      (bobp)))
3191    
 (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))  
   
3192  (defalias 'TeX-run-mode-hooks  (defalias 'TeX-run-mode-hooks
3193    (if (fboundp 'run-mode-hooks) 'run-mode-hooks 'run-hooks))    (if (fboundp 'run-mode-hooks) 'run-mode-hooks 'run-hooks))
3194    
# Line 4363  With optional ARG, insert that many doll Line 4371  With optional ARG, insert that many doll
4371                         (buffer-substring (point)                         (buffer-substring (point)
4372                                           (progn (end-of-line) (point)))))))                                           (progn (end-of-line) (point)))))))
4373        ;; Math mode was not entered with dollar - we cannot finish it with one.        ;; Math mode was not entered with dollar - we cannot finish it with one.
4374        (error "Math mode because of `%s'.  Use `C-q $' to force a dollar"        (message "Math mode started with `%s' cannot be closed with dollar"
4375               (car texmathp-why))))                 (car texmathp-why))
4376          (insert "$")))
4377     (t     (t
4378      ;; Just somewhere in the text.      ;; Just somewhere in the text.
4379      (insert "$")))      (insert "$")))

Legend:
Removed from v.5.549  
changed lines
  Added in v.5.550

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26