* speedbar.el (speedbar-item-delete):

* calc/calc-prog.el (calc-kbd-if):
* language/hanja-util.el (hanja-init-load): Fix typos in messages.

* epa.el (epa-key-list-mode-map):
* hi-lock.el (hi-lock-menu): Fix typos in menus.

* progmodes/hideshow.el (hs-allow-nesting): Reflow docstring.
(hs-show-hook): Fix typo in docstring.

7 files changed, 20 insertions, 8 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 14b2c748b7d..df4cec1f59e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2009-09-29  Juanma Barranquero  <lekktu@gmail.com>
+
+	* speedbar.el (speedbar-item-delete):
+	* calc/calc-prog.el (calc-kbd-if):
+	* language/hanja-util.el (hanja-init-load): Fix typos in messages.
+
+	* epa.el (epa-key-list-mode-map):
+	* hi-lock.el (hi-lock-menu): Fix typos in menus.
+
+	* progmodes/hideshow.el (hs-allow-nesting): Reflow docstring.
+	(hs-show-hook): Fix typo in docstring.
+
 2009-09-29  Glenn Morris  <rgm@gnu.org>
 
 	* Makefile.in (lisptagsfiles4): New.
diff --git a/lisp/calc/calc-prog.el b/lisp/calc/calc-prog.el
index 87e143c6502..32f665978e1 100644
--- a/lisp/calc/calc-prog.el
+++ b/lisp/calc/calc-prog.el
@@ -1209,7 +1209,7 @@ Redefine the corresponding command."
      (calc-pop-stack 1)
      (if (math-is-true cond)
 	 (if defining-kbd-macro
-	     (message "If true.."))
+	     (message "If true..."))
        (if defining-kbd-macro
 	   (message "Condition is false; skipping to Z: or Z] ..."))
        (calc-kbd-skip-to-else-if t)))))
diff --git a/lisp/epa.el b/lisp/epa.el
index 4f4d62567d4..541d26724d5 100644
--- a/lisp/epa.el
+++ b/lisp/epa.el
@@ -234,7 +234,7 @@ You should bind this variable with `let', but do not set it globally.")
       '(menu-item "Decrypt File..." epa-decrypt-file
 		  :help "Decrypt FILE"))
     (define-key menu-map [epa-encrypt-file]
-      '(menu-item "Encrypt File.." epa-encrypt-file
+      '(menu-item "Encrypt File..." epa-encrypt-file
 		  :help "Encrypt FILE for RECIPIENTS"))
     (define-key menu-map [separator-epa-key-list] '(menu-item "--"))
     (define-key menu-map [epa-key-list-delete-keys]
diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el
index 672f399d9a1..a4d7d7f24c6 100644
--- a/lisp/hi-lock.el
+++ b/lisp/hi-lock.el
@@ -253,7 +253,7 @@ a library is being loaded.")
 
 (define-key-after hi-lock-menu [highlight-lines-matching-regexp]
   '(menu-item "Highlight Lines..." highlight-lines-matching-regexp
-              :help "Highlight lines containing match of PATTERN (a regexp).."))
+              :help "Highlight lines containing match of PATTERN (a regexp)."))
 
 (define-key-after hi-lock-menu [unhighlight-regexp]
   '(menu-item "Remove Highlighting..." unhighlight-regexp
diff --git a/lisp/language/hanja-util.el b/lisp/language/hanja-util.el
index aa9fdef1dac..aa3bd514609 100644
--- a/lisp/language/hanja-util.el
+++ b/lisp/language/hanja-util.el
@@ -39,7 +39,7 @@ character.  This variable is initialized by `hanja-init-load'.")
 (defun hanja-init-load ()
   "Initialize `hanja-table' (which see)."
   (when (not hanja-table)
-    (message "Hanja table loading..")
+    (message "Hanja table loading...")
     (setq hanja-table (make-char-table nil))
     (mapc
      (lambda (x) (aset hanja-table (car x) (cdr x)))
diff --git a/lisp/progmodes/hideshow.el b/lisp/progmodes/hideshow.el
index 5928d18e46f..6c4d7b82613 100644
--- a/lisp/progmodes/hideshow.el
+++ b/lisp/progmodes/hideshow.el
@@ -304,8 +304,8 @@ whitespace.  Case does not matter.")
 
 (defvar hs-allow-nesting nil
   "*If non-nil, hiding remembers internal blocks.
-This means that when the outer block is shown again, any
-previously hidden internal blocks remain hidden.")
+This means that when the outer block is shown again,
+any previously hidden internal blocks remain hidden.")
 
 (defvar hs-hide-hook nil
   "*Hook called (with `run-hooks') at the end of commands to hide text.
@@ -315,7 +315,7 @@ a block), `hs-hide-all', `hs-hide-block' and `hs-hide-level'.")
 (defvar hs-show-hook nil
   "*Hook called (with `run-hooks') at the end of commands to show text.
 These commands include the toggling commands (when the result is to show
-a block), `hs-show-all' and `hs-show-block'..")
+a block), `hs-show-all' and `hs-show-block'.")
 
 (defvar hs-set-up-overlay nil
   "*Function called with one arg, OV, a newly initialized overlay.
diff --git a/lisp/speedbar.el b/lisp/speedbar.el
index 38d2327d36b..2559057cc22 100644
--- a/lisp/speedbar.el
+++ b/lisp/speedbar.el
@@ -1648,7 +1648,7 @@ Files can be renamed to new names or moved to new directories."
 	  (if (file-directory-p f)
 	      (delete-directory f)
 	    (delete-file f))
-	  (speedbar-message "Okie dokie..")
+	  (speedbar-message "Okie dokie.")
 	  (let ((p (point)))
 	    (speedbar-refresh)
 	    (goto-char p))