* 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.

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.

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

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]

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

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

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
+This means that when the outer block is shown again,
-previously hidden internal blocks remain hidden.")
+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.

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