mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

(tex-file, tex-run, tex-view): Finish `defgroup' description with period.

Browse Source 
(tex-insert-quote, latex-find-indent): "?\ " -> "?\s".
This commit is contained in:
Juanma Barranquero 2005-07-04 03:44:33 +00:00
parent ec85195e69
commit d1218e3e1f
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/textmodes/tex-mode.el
View File

@ -40,17 +40,17 @@
(require 'compile) (require 'compile)
(defgroup tex-file nil (defgroup tex-file nil
"TeX files and directories" "TeX files and directories."
:prefix "tex-" :prefix "tex-"
:group 'tex) :group 'tex)
(defgroup tex-run nil (defgroup tex-run nil
"Running external commands from TeX mode" "Running external commands from TeX mode."
:prefix "tex-" :prefix "tex-"
:group 'tex) :group 'tex)
(defgroup tex-view nil (defgroup tex-view nil
"Viewing and printing TeX files" "Viewing and printing TeX files."
:prefix "tex-" :prefix "tex-"
:group 'tex) :group 'tex)
@ -1114,7 +1114,7 @@ inserts \" characters."
(delete-char (length tex-open-quote)) (delete-char (length tex-open-quote))
t))) t)))
(self-insert-command (prefix-numeric-value arg)) (self-insert-command (prefix-numeric-value arg))
(insert (if (memq (char-syntax (preceding-char)) '(?\( ?> ?\ )) (insert (if (memq (char-syntax (preceding-char)) '(?\( ?> ?\s))
tex-open-quote tex-close-quote)))) tex-open-quote tex-close-quote))))
(defun tex-validate-buffer () (defun tex-validate-buffer ()
@ -2421,7 +2421,7 @@ There might be text before point."
(+ indent (current-column) tex-indent-item)) (+ indent (current-column) tex-indent-item))
(t (t
(let ((col (current-column))) (let ((col (current-column)))
(if (or (not (eq (char-syntax (or (char-after pos) ?\ )) ?\()) (if (or (not (eq (char-syntax (or (char-after pos) ?\s)) ?\())
;; Can't be an arg if there's an empty line inbetween. ;; Can't be an arg if there's an empty line inbetween.
(save-excursion (re-search-forward "^[ \t]*$" pos t))) (save-excursion (re-search-forward "^[ \t]*$" pos t)))
;; If the first char was not an open-paren, there's ;; If the first char was not an open-paren, there's