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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 14b2c748b7d18230a62e429e4e75f2296d9429dc..df4cec1f59e8a7400507a1b60c44e3ee6a96f2bc 100644 (file)
--- 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 87e143c65027aeb5c811083e2531bb829b1312a9..32f665978e1303ddd46fb80b55460bc8f7c86dc2 100644 (file)
--- 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 4f4d62567d43c65f32c856a12dd6666e5e74dc9e..541d26724d5403b5fadae94b13bb9ba36502357c 100644 (file)
--- 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 672f399d9a16b3cc4c4be110bda53bda122c6fb6..a4d7d7f24c6b916380ac439e7846f78484d7065d 100644 (file)
--- 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 aa9fdef1daca9e15373ed86915901c2f6bf1846d..aa3bd5146096150f93bcf22bb1ba4ce44654c5a0 100644 (file)
--- 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 5928d18e46f290a795bd27c62ab1e9ecbe623bd7..6c4d7b8261393c806aec77798426d53e92783ed7 100644 (file)
--- 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 38d2327d36bd7b09d6541c83f6ef0fb83727b227..2559057cc2228111dfd2f4eff625bff08fcabc7e 100644 (file)
--- 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))