diff lisp/textmodes/bibtex.el @ 49599:5ade352e8d1c

Trailing whitespace deleted.

--- 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)))