diff lisp/textmodes/reftex-ref.el @ 49599:5ade352e8d1c

Trailing whitespace deleted.

--- a/lisp/textmodes/reftex-ref.el	Tue Feb 04 13:24:35 2003 +0000
+++ b/lisp/textmodes/reftex-ref.el	Tue Feb 04 13:30:45 2003 +0000
@@ -165,8 +165,8 @@
 		(string-match "^[ \t]*$" default))
 	    (setq default prefix
 		  force-prompt t)	; need to prompt
-	  (setq default 
-		(concat prefix 
+	  (setq default
+		(concat prefix
 			(funcall reftex-string-to-label-function default)))
 
 	  ;; Make it unique.
@@ -212,7 +212,7 @@
 	     ((setq entry (assoc label
 				 (symbol-value reftex-docstruct-symbol)))
 	      (ding)
-	      (if (y-or-n-p 
+	      (if (y-or-n-p
 		   (format "Label '%s' exists. Use anyway? " label))
 		  (setq valid t)))
 
@@ -222,9 +222,9 @@
 	(setq label default))
 
       ;; Insert the label into the label list
-      (let* ((here-I-am-info 
+      (let* ((here-I-am-info
 	      (save-excursion
-		(if (and (or naked no-insert) 
+		(if (and (or naked no-insert)
 			 (integerp (cdr macro-cell)))
 		    (goto-char (cdr macro-cell)))
 		(reftex-where-am-I)))
@@ -279,7 +279,7 @@
   ;; Translate the upper 128 chars in the Latin-1 charset to ASCII equivalents
   (let ((tab "@@@@@@@@@@@@@@@@@@'@@@@@@@@@@@@@ icLxY|S\"ca<--R-o|23'uq..1o>423?AAAAAAACEEEEIIIIDNOOOOOXOUUUUYP3aaaaaaaceeeeiiiidnooooo:ouuuuypy")
 	(emacsp (not (featurep 'xemacs))))
-    (mapconcat 
+    (mapconcat
      (lambda (c)
        (cond ((and (> c 127) (< c 256))                 ; 8 bit Latin-1
 	      (char-to-string (aref tab (- c 128))))
@@ -407,7 +407,7 @@
 	      type (car type))
       (setq type (reftex-query-label-type))))
 
-  (let* ((refstyle 
+  (let* ((refstyle
 	  (cond ((reftex-typekey-check type reftex-vref-is-default) "\\vref")
 		((reftex-typekey-check type reftex-fref-is-default) "\\fref")
 		(t "\\ref")))
@@ -429,7 +429,7 @@
     (setq type (nth 1 (car labels))
 	  form (or (cdr (assoc type reftex-typekey-to-format-alist))
 		   form))
-    
+
     (cond
      (no-insert
       ;; Just return the first label
@@ -443,7 +443,7 @@
 	      sep (nth 2 (car labels))
 	      sep1 (cdr (assoc sep reftex-multiref-punctuation))
 	      labels (cdr labels))
-	(when cut 
+	(when cut
 	  (backward-delete-char cut)
 	  (setq cut nil))
 
@@ -478,7 +478,7 @@
 	matched	cell)
     (save-excursion
       (while (and (setq cell (pop words))
-		  (not (setq matched 
+		  (not (setq matched
 			     (re-search-backward (car cell) bound t))))))
     (if matched
 	(cons (cdr cell) (- (match-end 0) (match-end 1)))
@@ -543,9 +543,9 @@
 				context
 				counter
 				commented
-				(or here-I-am offset) 
+				(or here-I-am offset)
 				prefix
-				nil  ; no a toc buffer 
+				nil  ; no a toc buffer
 				))))
 	       (here-I-am
 		(setq offset (reftex-get-offset buf here-I-am typekey)))
@@ -640,7 +640,7 @@
       (save-excursion
 	(while reftex-buffers-with-changed-invisibility
 	  (set-buffer (car (car reftex-buffers-with-changed-invisibility)))
-	  (setq buffer-invisibility-spec 
+	  (setq buffer-invisibility-spec
 		(cdr (pop reftex-buffers-with-changed-invisibility)))))
       (mapcar (lambda (buf) (and (buffer-live-p buf) (bury-buffer buf)))
 	      selection-buffers)
@@ -669,13 +669,13 @@
 
 (defun reftex-query-label-type ()
   ;; Ask for label type
-  (let ((key (reftex-select-with-char 
+  (let ((key (reftex-select-with-char
 	      reftex-type-query-prompt reftex-type-query-help 3)))
     (unless (member (char-to-string key) reftex-typekey-list)
       (error "No such label type: %s" (char-to-string key)))
     (char-to-string key)))
 
-(defun reftex-show-label-location (data forward no-revisit 
+(defun reftex-show-label-location (data forward no-revisit
 					&optional stay error)
   ;; View the definition site of a label in another window.
   ;; DATA is an entry from the docstruct list.
@@ -697,7 +697,7 @@
 	(throw 'exit nil))
 
       ;; Goto the file in another window
-      (setq buffer 
+      (setq buffer
 	    (if no-revisit
 		(reftex-get-buffer-visiting file)
 	      (reftex-get-file-buffer-force
@@ -763,7 +763,7 @@
 	    (when (or (not (eq major-mode 'latex-mode))
 		      (not font-lock-mode))
 	      (latex-mode)
-	      (run-hook-with-args 
+	      (run-hook-with-args
 	       'reftex-pre-refontification-functions
 	       reftex-call-back-to-this-buffer 'reftex-hidden)
 	      (turn-on-font-lock))
@@ -829,7 +829,7 @@
     (unless other-window
       (set-window-configuration wcfg)
       (switch-to-buffer (marker-buffer where))
-      (goto-char where))      
+      (goto-char where))
     (reftex-unhighlight 0)))