Spelling fixes.

6 files changed, 30 insertions, 30 deletions

diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el
index 20d9c18c43..d13437f4c7 100644
--- a/lisp/textmodes/artist.el
+++ b/lisp/textmodes/artist.el
@@ -2514,7 +2514,7 @@ This function returns a point-list."
 
 
 ;;
-;; functions for accessing endoints and elements in object requiring
+;; functions for accessing endpoints and elements in object requiring
 ;; 2 endpoints
 ;;
 
@@ -3582,7 +3582,7 @@ FILL-INFO is a list of vectors on the form [X Y ELLIPSE-WIDTH-ON-THIS-LINE]."
          (width (abs (- x2 x1)))
 	 (height (abs (- y2 y1)))
 	 ;; When drawing our circle, we want it to through the cursor
-	 ;; just as when drawing the ellispe, but we have to take
+	 ;; just as when drawing the ellipse, but we have to take
 	 ;; care for the aspect-ratio.
 	 ;; The equation for the ellipse  (where a is the x-radius and
 	 ;; b is the y-radius):
diff --git a/lisp/textmodes/reftex-dcr.el b/lisp/textmodes/reftex-dcr.el
index 9b924ba7ad..7de15c66ce 100644
--- a/lisp/textmodes/reftex-dcr.el
+++ b/lisp/textmodes/reftex-dcr.el
@@ -59,7 +59,7 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
 	    (error "Not on a crossref macro argument"))
 
       (setq reftex-call-back-to-this-buffer (current-buffer))
-      
+
       (cond
        ((string-match "\\`\\\\cite\\|cite\\*?\\'\\|bibentry" macro)
 	;; A citation macro: search for bibitems or BibTeX entries
@@ -87,7 +87,7 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
 		  (format reftex-find-index-entry-regexp-format
 			  (regexp-quote key))
 		  3 nil nil)))
-       (t 
+       (t
 	(reftex-access-scan-info arg)
 	(catch 'exit
 	  (let ((list reftex-view-crossref-extra)
@@ -97,14 +97,14 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
 		    action (nth 1 entry)
 		    group (nth 2 entry))
 	      (when (string-match mre macro)
-		(setq dw (reftex-view-regexp-match 
+		(setq dw (reftex-view-regexp-match
 			  (format action key) group nil nil))
 		(throw 'exit t))))
 	  (error "Not on a crossref macro argument"))))
       (if (and (eq arg 2) (windowp dw)) (select-window dw)))))
-     
+
 (defun reftex-view-cr-cite (arg key how)
-  ;; View crossreference of a ref cite.  HOW can have the values 
+  ;; View crossreference of a ref cite.  HOW can have the values
   ;; nil:         Show in another window.
   ;; echo:        Show one-line info in echo area.
   ;; tmp-window:  Show in small window and arrange for window to disappear.
@@ -114,7 +114,7 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
 
   (if (eq how 'tmp-window)
       ;; Remember the window configuration
-      (put 'reftex-auto-view-crossref 'last-window-conf 
+      (put 'reftex-auto-view-crossref 'last-window-conf
            (current-window-configuration)))
 
   (let (files size item (pos (point)) (win (selected-window)) pop-win
@@ -130,7 +130,7 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
       (setq item t
             files (reftex-uniquify
                    (mapcar 'cdr
-                           (reftex-all-assq 
+                           (reftex-all-assq
                             'thebib (symbol-value reftex-docstruct-symbol))))))
      (reftex-default-bibliography
       (setq item nil
@@ -169,17 +169,17 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
         (select-window pop-win)))))
 
 (defun reftex-view-cr-ref (arg label how)
-  ;; View crossreference of a ref macro.  HOW can have the values 
+  ;; View crossreference of a ref macro.  HOW can have the values
   ;; nil:         Show in another window.
   ;; echo:        Show one-line info in echo area.
   ;; tmp-window:  Show in small window and arrange for window to disappear.
 
   ;; Ensure access to scanning info
   (reftex-access-scan-info (or arg current-prefix-arg))
-  
+
   (if (eq how 'tmp-window)
       ;; Remember the window configuration
-      (put 'reftex-auto-view-crossref 'last-window-conf 
+      (put 'reftex-auto-view-crossref 'last-window-conf
            (current-window-configuration)))
 
   (let* ((xr-data (assoc 'xr (symbol-value reftex-docstruct-symbol)))
@@ -191,14 +191,14 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
         ;; Label is defined in external document
         (save-excursion
           (save-match-data
-            (set-buffer 
+            (set-buffer
              (or (reftex-get-file-buffer-force
                   (cdr (assoc (match-string 1 label) (nth 1
                                                           xr-data))))
                  (error "Problem with external label %s" label))))
           (setq label (substring label (match-end 1)))
           (reftex-access-scan-info)
-          (setq entry 
+          (setq entry
                 (assoc label (symbol-value reftex-docstruct-symbol)))))
     (if (eq how 'echo)
         ;; Display in echo area
@@ -234,7 +234,7 @@ With argument, actually select the window showing the cross reference."
 
 (defun reftex-view-crossref-when-idle ()
   ;; Display info about crossref at point in echo area or a window.
-  ;; This function was desigend to work with an idle timer.
+  ;; This function was designed to work with an idle timer.
   ;; We try to get out of here as quickly as possible if the call is useless.
   (and reftex-mode
        ;; Make sure message area is free if we need it.
@@ -244,7 +244,7 @@ With argument, actually select the window showing the cross reference."
                                  reftex-mouse-view-crossref)))
        ;; Quick precheck if this might be a relevant spot
        ;; `reftex-view-crossref' will do a more thorough check.
-       (save-excursion  
+       (save-excursion
          (search-backward "\\" nil t)
          (looking-at "\\\\[a-zA-Z]*\\(cite\\|ref\\|bibentry\\)"))
 
@@ -262,12 +262,12 @@ With argument, actually select the window showing the cross reference."
   (set-window-configuration (get 'reftex-auto-view-crossref 'last-window-conf))
   (put 'reftex-auto-view-crossref 'last-window-conf nil)
   (remove-hook 'pre-command-hook 'reftex-restore-window-conf))
-                  
+
 (defun reftex-echo-ref (label entry docstruct)
   ;; Display crossref info in echo area.
   (cond
    ((null docstruct)
-    (message "%s" 
+    (message "%s"
 	     (substitute-command-keys (format reftex-no-info-message "ref"))))
    ((null entry)
     (message "ref: unknown label: %s" label))
@@ -293,14 +293,14 @@ With argument, actually select the window showing the cross reference."
       (unless reftex-revisit-to-echo
         (setq files (reftex-visited-files files)))
 
-      (setq entry 
+      (setq entry
             (condition-case nil
                 (save-excursion
                   (reftex-pop-to-bibtex-entry key files nil nil item t))
               (error
                (if (and files (= (length all-files) (length files)))
                    (message "cite: no such database entry: %s" key)
-                 (message "%s" (substitute-command-keys 
+                 (message "%s" (substitute-command-keys
 				(format reftex-no-info-message "cite"))))
                nil)))
       (when entry
@@ -337,7 +337,7 @@ will display info in the echo area."
           (if (featurep 'xemacs)
               (if reftex-use-itimer-in-xemacs
                   (start-itimer "RefTeX Idle Timer"
-                                'reftex-view-crossref-when-idle 
+                                'reftex-view-crossref-when-idle
                                 reftex-idle-time reftex-idle-time t)
                 (add-hook 'post-command-hook 'reftex-start-itimer-once)
                 t)
@@ -352,7 +352,7 @@ will display info in the echo area."
         (not (itimer-live-p reftex-auto-view-crossref-timer))
         (setq reftex-auto-view-crossref-timer
               (start-itimer "RefTeX Idle Timer"
-                            'reftex-view-crossref-when-idle 
+                            'reftex-view-crossref-when-idle
                             reftex-idle-time nil t))))
 
 (declare-function bibtex-beginning-of-entry "bibtex" ())
@@ -364,7 +364,7 @@ prompts upon first use for a buffer in RefTeX mode.  To reset this
 link to a document, call the function with with a prefix arg.
 Calling this function several times find successive citation locations."
   (interactive "P")
-  (when arg 
+  (when arg
     ;; Break connection to reference buffer
     (put 'reftex-bibtex-view-cite-locations :ref-buffer nil))
   (let ((ref-buffer (get 'reftex-bibtex-view-cite-locations :ref-buffer)))
@@ -372,10 +372,10 @@ Calling this function several times find successive citation locations."
     (unless ref-buffer
       (setq ref-buffer
             (save-current-buffer
-              (completing-read 
+              (completing-read
                "Reference buffer: "
                (delq nil
-                     (mapcar 
+                     (mapcar
                       (lambda (b)
                         (set-buffer b)
                         (if reftex-mode (list (buffer-name b)) nil))
diff --git a/lisp/textmodes/reftex-global.el b/lisp/textmodes/reftex-global.el
index b7978fb37b..bf46635c47 100644
--- a/lisp/textmodes/reftex-global.el
+++ b/lisp/textmodes/reftex-global.el
@@ -230,7 +230,7 @@ one with the `xr' package."
     ;; Save all document buffers before this operation
     (reftex-save-all-document-buffers)
 
-    ;; First test to check for erros
+    ;; First test to check for errors.
     (setq n (reftex-translate
              files search-re translate-alist error-fmt 'test))
 
diff --git a/lisp/textmodes/reftex-toc.el b/lisp/textmodes/reftex-toc.el
index dbed09c9cc..d8b5384c6d 100644
--- a/lisp/textmodes/reftex-toc.el
+++ b/lisp/textmodes/reftex-toc.el
@@ -470,7 +470,7 @@ Label context is only displayed when the labels are there as well."
 (defun reftex-toc-max-level (arg)
   "Set the maximum level of toc lines in this buffer to value of prefix ARG.
 When no prefix is given, set the max level to a large number, so that all
-levels are shown.  For eaxample, to set the level to 3, type `3 m'."
+levels are shown.  For example, to set the level to 3, type `3 m'."
   (interactive "P")
   (setq reftex-toc-max-level (if arg
                                  (prefix-numeric-value arg)
@@ -850,7 +850,7 @@ When finished, we exit with an error message."
 (defun reftex-toc-rename-label ()
   "Rename the currently selected label in the *TOC* buffer.
 This launches a global search and replace in order to rename a label.
-Renaming a label is hardly ever necessary - the only exeption is after
+Renaming a label is hardly ever necessary - the only exception is after
 promotion/demotion in connection with a package like fancyref, where the
 label prefix determines the wording of a reference."
   (interactive)
diff --git a/lisp/textmodes/reftex.el b/lisp/textmodes/reftex.el
index c4dbd365c4..b73056a803 100644
--- a/lisp/textmodes/reftex.el
+++ b/lisp/textmodes/reftex.el
@@ -42,7 +42,7 @@
 ;; - For XEmacs 21.x, you need to install the RefTeX plug-in package
 ;;   available from the XEmacs distribution sites.
 ;; - If you have downloaded this file from the maintainers webpage, follow
-;;   the instructions in the INSTALL file of the distrubution.
+;;   the instructions in the INSTALL file of the distribution.
 ;;
 ;; To turn RefTeX Mode on and off in a buffer, use `M-x reftex-mode'.
 ;;
diff --git a/lisp/textmodes/texinfmt.el b/lisp/textmodes/texinfmt.el
index 1194742a24..094885bb0d 100644
--- a/lisp/textmodes/texinfmt.el
+++ b/lisp/textmodes/texinfmt.el
@@ -620,7 +620,7 @@ if large.  You can use `Info-split' to do this manually."
    "var{\\|"
    "w{\\|"
    "xref{\\|"
-   "@-\\|"    ; @- is a descretionary hyphen (not an accent) (a noop).
+   "@-\\|"    ; @- is a discretionary hyphen (not an accent) (a noop).
    texinfo-accent-commands
    "\\)"
    )