[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[AUCTeX-diffs] Changes to auctex/font-latex.el
From: |
Ralf Angeli |
Subject: |
[AUCTeX-diffs] Changes to auctex/font-latex.el |
Date: |
Tue, 10 May 2005 09:05:08 -0400 |
Index: auctex/font-latex.el
diff -u auctex/font-latex.el:5.115 auctex/font-latex.el:5.116
--- auctex/font-latex.el:5.115 Tue May 10 08:44:52 2005
+++ auctex/font-latex.el Tue May 10 13:05:07 2005
@@ -1083,14 +1083,11 @@
(if (eq major-mode 'doctex-mode)
;; XXX: We should probably cater for ^^A as well.
(progn
- (when (bolp) (skip-chars-forward "%"))
- (skip-chars-forward " \t\n")
- (while (and (looking-at "^%*[ \t]*$") (not (eobp)))
- (beginning-of-line 2))
- (when (bolp) (skip-chars-forward "%"))
- (skip-chars-forward " \t")
+ (while (progn (if (bolp) (skip-chars-forward "%"))
+ (> (skip-chars-forward " \t\n") 0)))
(when (eq (char-after) ?%)
- (beginning-of-line 2)))
+ (beginning-of-line 2)
+ t))
(forward-comment 1)))
@@ -1262,32 +1259,27 @@
kend sbeg send cbeg cend
cache-reset
(parse-sexp-ignore-comments t)) ; scan-sexps ignores comments
- (goto-char (match-end 0))
- (if (and asterisk (eq (following-char) ?\*))
- (forward-char 1))
- (setq kend (point))
- (while (and (< (point) limit) (font-latex-forward-comment)))
- ;; Optional arguments [...]
- (while (and (< (point) limit)
- (eq (following-char) ?\[))
- (setq sbeg (point))
- (save-restriction
- ;; Restrict to LIMIT.
- (narrow-to-region (point-min) limit)
+ (save-restriction
+ ;; Restrict to LIMIT.
+ (narrow-to-region (point-min) limit)
+ (goto-char (match-end 0))
+ (if (and asterisk (eq (following-char) ?\*))
+ (forward-char 1))
+ (setq kend (point))
+ (while (font-latex-forward-comment))
+ ;; Optional arguments [...]
+ (while (eq (following-char) ?\[)
+ (setq sbeg (point))
(if (font-latex-find-matching-close ?\[ ?\])
(setq send (point))
(setq cache-reset t)
(setq send (point-max))
- (goto-char send))))
- ;; Mandatory arguments {...}
- (dotimes (i arg-count)
- (while (and (< (point) limit) (font-latex-forward-comment)))
- (when (and (< (point) limit)
- (eq (following-char) ?\{))
- (when (= i 0) (setq cbeg (point)))
- (save-restriction
- ;; Restrict to LIMIT.
- (narrow-to-region (point-min) limit)
+ (goto-char send)))
+ ;; Mandatory arguments {...}
+ (dotimes (i arg-count)
+ (while (font-latex-forward-comment))
+ (when (eq (following-char) ?\{)
+ (when (= i 0) (setq cbeg (point)))
(if (font-latex-find-matching-close ?\{ ?\})
(setq cend (point))
(setq cache-reset t)
- [AUCTeX-diffs] Changes to auctex/font-latex.el, Ralf Angeli, 2005/05/01
- [AUCTeX-diffs] Changes to auctex/font-latex.el, Ralf Angeli, 2005/05/09
- [AUCTeX-diffs] Changes to auctex/font-latex.el, Ralf Angeli, 2005/05/10
- [AUCTeX-diffs] Changes to auctex/font-latex.el, Ralf Angeli, 2005/05/10
- [AUCTeX-diffs] Changes to auctex/font-latex.el, Ralf Angeli, 2005/05/10
- [AUCTeX-diffs] Changes to auctex/font-latex.el,
Ralf Angeli <=
- [AUCTeX-diffs] Changes to auctex/font-latex.el, Ralf Angeli, 2005/05/10
- [AUCTeX-diffs] Changes to auctex/font-latex.el, Ralf Angeli, 2005/05/11
- [AUCTeX-diffs] Changes to auctex/font-latex.el, Ralf Angeli, 2005/05/12
- [AUCTeX-diffs] Changes to auctex/font-latex.el, Ralf Angeli, 2005/05/24