mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-13 09:32:47 +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)
(defgroup tex-file nil
"TeX files and directories"
"TeX files and directories."
:prefix "tex-"
:group 'tex)
(defgroup tex-run nil
"Running external commands from TeX mode"
"Running external commands from TeX mode."
:prefix "tex-"
:group 'tex)
(defgroup tex-view nil
"Viewing and printing TeX files"
"Viewing and printing TeX files."
:prefix "tex-"
:group 'tex)
@ -1114,7 +1114,7 @@ inserts \" characters."
(delete-char (length tex-open-quote))
t)))
(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))))
(defun tex-validate-buffer ()
@ -2421,7 +2421,7 @@ There might be text before point."
(+ indent (current-column) tex-indent-item))
(t
(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.
(save-excursion (re-search-forward "^[ \t]*$" pos t)))
;; If the first char was not an open-paren, there's