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 |
|
|
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 |
|
|
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 "$"))) |