diff options
| author | Juanma Barranquero | 2005-07-04 03:44:33 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2005-07-04 03:44:33 +0000 |
| commit | d1218e3e1ff9d892c0c41a91529d7b33c84ffb77 (patch) | |
| tree | 752bbba9e76f458a1aa7c34add8111141f28faef | |
| parent | ec85195e69ebdcb5b078fde306b9442f86d0c94b (diff) | |
| download | emacs-d1218e3e1ff9d892c0c41a91529d7b33c84ffb77.tar.gz emacs-d1218e3e1ff9d892c0c41a91529d7b33c84ffb77.zip | |
(tex-file, tex-run, tex-view): Finish `defgroup' description with period.
(tex-insert-quote, latex-find-indent): "?\ " -> "?\s".
| -rw-r--r-- | lisp/textmodes/tex-mode.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/textmodes/tex-mode.el b/lisp/textmodes/tex-mode.el index 7d04464346a..e0f1d78bb31 100644 --- a/lisp/textmodes/tex-mode.el +++ b/lisp/textmodes/tex-mode.el | |||
| @@ -40,17 +40,17 @@ | |||
| 40 | (require 'compile) | 40 | (require 'compile) |
| 41 | 41 | ||
| 42 | (defgroup tex-file nil | 42 | (defgroup tex-file nil |
| 43 | "TeX files and directories" | 43 | "TeX files and directories." |
| 44 | :prefix "tex-" | 44 | :prefix "tex-" |
| 45 | :group 'tex) | 45 | :group 'tex) |
| 46 | 46 | ||
| 47 | (defgroup tex-run nil | 47 | (defgroup tex-run nil |
| 48 | "Running external commands from TeX mode" | 48 | "Running external commands from TeX mode." |
| 49 | :prefix "tex-" | 49 | :prefix "tex-" |
| 50 | :group 'tex) | 50 | :group 'tex) |
| 51 | 51 | ||
| 52 | (defgroup tex-view nil | 52 | (defgroup tex-view nil |
| 53 | "Viewing and printing TeX files" | 53 | "Viewing and printing TeX files." |
| 54 | :prefix "tex-" | 54 | :prefix "tex-" |
| 55 | :group 'tex) | 55 | :group 'tex) |
| 56 | 56 | ||
| @@ -1114,7 +1114,7 @@ inserts \" characters." | |||
| 1114 | (delete-char (length tex-open-quote)) | 1114 | (delete-char (length tex-open-quote)) |
| 1115 | t))) | 1115 | t))) |
| 1116 | (self-insert-command (prefix-numeric-value arg)) | 1116 | (self-insert-command (prefix-numeric-value arg)) |
| 1117 | (insert (if (memq (char-syntax (preceding-char)) '(?\( ?> ?\ )) | 1117 | (insert (if (memq (char-syntax (preceding-char)) '(?\( ?> ?\s)) |
| 1118 | tex-open-quote tex-close-quote)))) | 1118 | tex-open-quote tex-close-quote)))) |
| 1119 | 1119 | ||
| 1120 | (defun tex-validate-buffer () | 1120 | (defun tex-validate-buffer () |
| @@ -2421,7 +2421,7 @@ There might be text before point." | |||
| 2421 | (+ indent (current-column) tex-indent-item)) | 2421 | (+ indent (current-column) tex-indent-item)) |
| 2422 | (t | 2422 | (t |
| 2423 | (let ((col (current-column))) | 2423 | (let ((col (current-column))) |
| 2424 | (if (or (not (eq (char-syntax (or (char-after pos) ?\ )) ?\()) | 2424 | (if (or (not (eq (char-syntax (or (char-after pos) ?\s)) ?\()) |
| 2425 | ;; Can't be an arg if there's an empty line inbetween. | 2425 | ;; Can't be an arg if there's an empty line inbetween. |
| 2426 | (save-excursion (re-search-forward "^[ \t]*$" pos t))) | 2426 | (save-excursion (re-search-forward "^[ \t]*$" pos t))) |
| 2427 | ;; If the first char was not an open-paren, there's | 2427 | ;; If the first char was not an open-paren, there's |