From 4c36be58ca2b4777a5e7bf0d3e692cfd9fa1aea3 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Thu, 17 Nov 2011 01:09:20 -0800 Subject: Spelling fixes. --- lisp/speedbar.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lisp/speedbar.el') diff --git a/lisp/speedbar.el b/lisp/speedbar.el index 00f68a0b45f..23a91888c1b 100644 --- a/lisp/speedbar.el +++ b/lisp/speedbar.el @@ -631,7 +631,7 @@ with `.' followed by extensions, followed by full-filenames." (substring (car extlist) 1))) (setq regex2 (concat regex2 (if regex2 "\\|" "") (car extlist)))) (setq extlist (cdr extlist))) - ;; concat all the sub-exressions together, making sure all types + ;; Concatenate all the subexpressions together, making sure all types ;; of parts exist during concatenation. (concat "\\(" (if regex1 (concat "\\(\\.\\(" regex1 "\\)\\)") "") @@ -2105,7 +2105,7 @@ cell of the form ( 'DIRLIST . 'FILELIST )." (let ((sf (cdr (reverse speedbar-shown-directories)))) (setq speedbar-shown-directories (list (expand-file-name default-directory))) - ;; exand them all as we find them + ;; Expand them all as we find them. (while sf (if (speedbar-goto-this-file (car sf)) (progn @@ -3292,7 +3292,7 @@ With universal argument ARG, flush cached data." Optional argument ARG indicates that any cache should be flushed." (interactive "P") (speedbar-expand-line arg) - ;; Now, inside the area expaded here, expand all subnodes of + ;; Now, inside the area expanded here, expand all subnodes of ;; the same descendant type. (save-excursion (speedbar-next 1) ;; Move into the list. -- cgit v1.2.1