From d88444f29243b34c8821b9df0b35e75d6023ad0c Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Tue, 29 Sep 2009 02:26:20 +0000 Subject: [PATCH] * 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 | 12 ++++++++++++ lisp/calc/calc-prog.el | 2 +- lisp/epa.el | 2 +- lisp/hi-lock.el | 2 +- lisp/language/hanja-util.el | 2 +- lisp/progmodes/hideshow.el | 6 +++--- lisp/speedbar.el | 2 +- 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 + + * 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 * 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)) -- 2.39.2