Mercurial > emacs
diff lisp/textmodes/bibtex.el @ 49599:5ade352e8d1c
Trailing whitespace deleted.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Tue, 04 Feb 2003 13:30:45 +0000 |
parents | 9545a9f6a23e |
children | 762217a72cae d7ddb3e565de |
line wrap: on
line diff
--- a/lisp/textmodes/bibtex.el Tue Feb 04 13:24:35 2003 +0000 +++ b/lisp/textmodes/bibtex.el Tue Feb 04 13:30:45 2003 +0000 @@ -1019,7 +1019,7 @@ "\\(" "[^\"\\]" ;; anything but quote or backslash "\\|" - "\\(" + "\\(" "\\\\\\(.\\|\n\\)" ;; any backslash quoted character "\\)" "\\)*" @@ -1038,7 +1038,7 @@ (if (looking-at "\"") (setq end-point (bibtex-parse-quoted-string))) (goto-char starting-point) - (if end-point + (if end-point (cons starting-point end-point) nil)))) @@ -1153,11 +1153,11 @@ (setq bibtex-field-name-for-parsing name) (let ((starting-point (point)) (boundaries nil)) - (while (and (not boundaries) + (while (and (not boundaries) (< (point) bound) (search-forward "," bound t)) (goto-char (match-beginning 0)) - (let ((temp-boundaries + (let ((temp-boundaries (bibtex-parse-association 'bibtex-parse-field-name 'bibtex-parse-field-text))) (if (and temp-boundaries (<= (cdr (cdr temp-boundaries)) bound)) @@ -1178,7 +1178,7 @@ (while (and (not boundaries) (>= (point) bound) (search-backward "," bound t)) - (let ((temp-boundaries + (let ((temp-boundaries (bibtex-parse-association 'bibtex-parse-field-name 'bibtex-parse-field-text))) (if temp-boundaries @@ -1224,7 +1224,7 @@ (progn (goto-char (cdr text-boundaries)) (if (looking-at "[ \t\n]*[})]") - (let ((boundaries (list (car text-boundaries) + (let ((boundaries (list (car text-boundaries) (cdr text-boundaries) (match-end 0)))) (goto-char (match-end 0)) @@ -1245,8 +1245,8 @@ (let* ((case-fold-search t) (starting-point (point)) (boundaries nil)) - (while (and (not boundaries) - (search-forward-regexp + (while (and (not boundaries) + (search-forward-regexp "^[ \t]*@string[ \t\n]*[({][ \t\n]*" nil t)) (goto-char (match-beginning 0)) (let ((temp-boundaries (bibtex-parse-string))) @@ -1265,7 +1265,7 @@ (starting-point (point)) (boundaries nil)) (while (and (not boundaries) - (search-backward-regexp + (search-backward-regexp "^[ \t]*@string[ \t\n]*[({][ \t\n]*" nil t)) (goto-char (match-beginning 0)) (let ((temp-boundaries (bibtex-parse-string))) @@ -2090,7 +2090,7 @@ (let* ((case-fold-search t) (year (bibtex-autokey-get-yearfield-digits max))) (if (and (string= year "") bibtex-autokey-year-use-crossref-entry) - (let* ((bounds + (let* ((bounds (bibtex-search-forward-field "\\(OPT\\)?crossref" max)) (crossref-field (if bounds @@ -2518,12 +2518,12 @@ (while (and (not failure) (> arg 0)) (cond ((eq direction 'previous) (setq bounds (bibtex-search-backward-field field-name (point-min))) - (if bounds + (if bounds (goto-char (bibtex-start-of-field bounds)) (setq failure t))) ((eq direction 'next) (setq bounds (bibtex-search-forward-field field-name (point-max))) - (if bounds + (if bounds (goto-char (bibtex-end-of-field bounds)) (setq failure t)))) (setq arg (- arg 1)))