comparison lisp/textmodes/tex-mode.el @ 64060:fa1dc4af6eee

(tex-file, tex-run, tex-view): Finish `defgroup' description with period. (tex-insert-quote, latex-find-indent): "?\ " -> "?\s".

64059:77cc3a2cedb3

(require 'shell)
(require 'compile)

(defgroup tex-file nil
  "TeX files and directories"
  :prefix "tex-"
  :group 'tex)

(defgroup tex-run nil
  "Running external commands from TeX mode"
  :prefix "tex-"
  :group 'tex)

(defgroup tex-view nil
  "Viewing and printing TeX files"
  :prefix "tex-"
  :group 'tex)

;;;###autoload
(defcustom tex-shell-file-name nil

	    (when (or (looking-at (regexp-quote tex-open-quote))
		      (looking-at (regexp-quote tex-close-quote)))
	      (delete-char (length tex-open-quote))
	      t)))
      (self-insert-command (prefix-numeric-value arg))
    (insert (if (memq (char-syntax (preceding-char)) '(?\( ?> ?\ ))
		tex-open-quote tex-close-quote))))

(defun tex-validate-buffer ()
  "Check current buffer for paragraphs containing mismatched braces or $s.
Their positions are recorded in the buffer `*Occur*'.

	((looking-at tex-indent-item-re)
	 ;; Indenting relative to an item, have to re-add the outdenting.
	 (+ indent (current-column) tex-indent-item))
	(t
	 (let ((col (current-column)))
	   (if (or (not (eq (char-syntax (or (char-after pos) ?\ )) ?\())
		   ;; 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
	       ;; a risk that this is really not an argument to the
	       ;; macro at all.

64060:fa1dc4af6eee

(require 'shell)
(require 'compile)

(defgroup tex-file nil
  "TeX files and directories."
  :prefix "tex-"
  :group 'tex)

(defgroup tex-run nil
  "Running external commands from TeX mode."
  :prefix "tex-"
  :group 'tex)

(defgroup tex-view nil
  "Viewing and printing TeX files."
  :prefix "tex-"
  :group 'tex)

;;;###autoload
(defcustom tex-shell-file-name nil

	    (when (or (looking-at (regexp-quote tex-open-quote))
		      (looking-at (regexp-quote tex-close-quote)))
	      (delete-char (length tex-open-quote))
	      t)))
      (self-insert-command (prefix-numeric-value arg))
    (insert (if (memq (char-syntax (preceding-char)) '(?\( ?> ?\s))
		tex-open-quote tex-close-quote))))

(defun tex-validate-buffer ()
  "Check current buffer for paragraphs containing mismatched braces or $s.
Their positions are recorded in the buffer `*Occur*'.

	((looking-at tex-indent-item-re)
	 ;; Indenting relative to an item, have to re-add the outdenting.
	 (+ indent (current-column) tex-indent-item))
	(t
	 (let ((col (current-column)))
	   (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
	       ;; a risk that this is really not an argument to the
	       ;; macro at all.