diff options
Diffstat (limited to 'lisp')
62 files changed, 177 insertions, 129 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 11a4acd3b16..8f9038ffede 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2011-11-20 Juanma Barranquero <lekktu@gmail.com> + + * progmodes/cwarn.el (cwarn-is-enabled, cwarn-font-lock-keywords): + * progmodes/pascal.el (electric-pascal-equal): + * textmodes/reftex-dcr.el (reftex-view-crossref-from-bibtex): + * xml.el (xml-substitute-special): Fix typos. + 2011-11-20 Glenn Morris <rgm@gnu.org> * mail/rmail.el (rmail-enable-mime-composing): Make it a defcustom. diff --git a/lisp/ChangeLog.10 b/lisp/ChangeLog.10 index e40f419b32a..b67cc2f67bc 100644 --- a/lisp/ChangeLog.10 +++ b/lisp/ChangeLog.10 @@ -374,7 +374,7 @@ the function is advised in cc-defs. However, that advice doesn't help if the autoloads are updated in an old (X)Emacs with this version of CC Mode, but I believe it's unlikely that - anyone does that when CC Mode isn't distributed with with it. + anyone does that when CC Mode isn't distributed with it. * progmodes/cc-defs.el (add-to-list): Add advice to get the optional third append argument in older (X)Emacsen. @@ -2440,7 +2440,7 @@ * gdb-ui.el (gud-gdba-command-name): Use -noasync option for Gdb with MS windows. - (gdb-display-end): Only make buffer writeable temporarily. + (gdb-display-end): Only make buffer writable temporarily. Move "View" submenu up one level. 2003-05-21 Nick Roberts <nick@nick.uklinux.net> @@ -9827,7 +9827,7 @@ (uniquify-delay-rationalize-file-buffer-names): Remove useless check. (kill-buffer-hook): Don't change globally. -2002-09-27 Stefan Monnier <monnier@cs.yale.edu>. +2002-09-27 Stefan Monnier <monnier@cs.yale.edu> * calc/calc.el (calc-bug-address, calc-scan-for-dels, calc-stack) (calc-stack-top, calc-always-load-extensions) @@ -20778,7 +20778,7 @@ * Makefile.in (distclean): Remove Makefile in the build directory, not in the source directory. -2001-12-21 Simon Josefsson <jas@extundo.com>. +2001-12-21 Simon Josefsson <jas@extundo.com> * mail/smtpmail.el (smtpmail-send-queued-mail): Use with-temp-buffer instead of find-file-noselect, and bind diff --git a/lisp/ChangeLog.13 b/lisp/ChangeLog.13 index 0642a4d14ab..9f7c26c5d4b 100644 --- a/lisp/ChangeLog.13 +++ b/lisp/ChangeLog.13 @@ -14943,7 +14943,7 @@ 2007-07-05 Thien-Thi Nguyen <ttn@gnuvola.org> * Makefile.in (bootstrap-prepare): When copying from - ldefs-boot.el, make sure loaddefs.el is writeable. + ldefs-boot.el, make sure loaddefs.el is writable. (bootstrap-prepare): Make $(lisp)/ps-print.el and $(lisp)/emacs-lisp/cl-loaddefs.el writable, as well. diff --git a/lisp/ChangeLog.15 b/lisp/ChangeLog.15 index dfd9b94b53e..04133f17364 100644 --- a/lisp/ChangeLog.15 +++ b/lisp/ChangeLog.15 @@ -13225,7 +13225,7 @@ 2010-02-04 Michael Albinus <michael.albinus@gmx.de> * dired.el (dired-revert): If DIRED-DIRECTORY is a cons cell, call - `dired-uncache' for every elemnt which is an absolute file name. + `dired-uncache' for every element which is an absolute file name. * net/tramp.el (tramp-handle-dired-uncache): When DIR is not a directory, handle its directory component. diff --git a/lisp/ChangeLog.2 b/lisp/ChangeLog.2 index 5b0f2ac4270..65005a4ba47 100644 --- a/lisp/ChangeLog.2 +++ b/lisp/ChangeLog.2 @@ -3788,7 +3788,7 @@ 1986-06-17 Richard M. Stallman (rms@prep) - * nroff-mode.el: Add elements to nrofff-brace-table. + * nroff-mode.el: Add elements to nroff-brace-table. 1986-06-16 Richard M. Stallman (rms@prep) diff --git a/lisp/ChangeLog.3 b/lisp/ChangeLog.3 index 8cafac2c0c4..2b384d79169 100644 --- a/lisp/ChangeLog.3 +++ b/lisp/ChangeLog.3 @@ -1905,7 +1905,7 @@ * Makefile: Created. This exists mainly so developers elsewhere can unlock the lisp files to accept an update tar, then relock - them without locking the few that should stay writeable. + them without locking the few that should stay writable. * solar.el, ange-ftp.el: Corrected Keywords header diff --git a/lisp/ChangeLog.8 b/lisp/ChangeLog.8 index dea5137d246..7aca1b521a2 100644 --- a/lisp/ChangeLog.8 +++ b/lisp/ChangeLog.8 @@ -5516,7 +5516,7 @@ 1999-04-08 Andre Spiegel <spiegel@inf.fu-berlin.de> * vc.el (vc-backend-revert): For CVS files that were made - writeable with "cvs edit", call "cvs unedit" to undo that. + writable with "cvs edit", call "cvs unedit" to undo that. 1999-04-08 Dave Love <fx@gnu.org> diff --git a/lisp/ChangeLog.9 b/lisp/ChangeLog.9 index f08e6fb8863..538f3f1d401 100644 --- a/lisp/ChangeLog.9 +++ b/lisp/ChangeLog.9 @@ -8638,7 +8638,7 @@ 2000-11-15 Gerd Moellmann <gerd@gnu.org> * faces.el (face-set-after-frame-default): - If `inhibit-default-face-x-resources' is bound, don't intialize the + If `inhibit-default-face-x-resources' is bound, don't initialize the default face from X resources. 2000-11-15 Eli Zaretskii <eliz@is.elta.co.il> diff --git a/lisp/allout.el b/lisp/allout.el index a08aa05d581..bd2094da253 100644 --- a/lisp/allout.el +++ b/lisp/allout.el @@ -170,7 +170,7 @@ respective allout-mode keybinding variables, `allout-command-prefix', ;; the function value keymap of allout-mode-map is used in ;; minor-mode-map-alist - update it: (fset allout-mode-map allout-mode-map-value)) -;;;_ * intialize the mode map: +;;;_ * initialize the mode map: ;; ensure that allout-mode-map has some setting even if allout-mode hasn't ;; been invoked: (allout-compose-and-institute-keymap) diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog index e5969a3c291..788bf71845f 100644 --- a/lisp/cedet/ChangeLog +++ b/lisp/cedet/ChangeLog @@ -1,3 +1,27 @@ +2011-11-20 Juanma Barranquero <lekktu@gmail.com> + + * cedet-cscope.el (cedet-cscope-version-check): + * cedet-global.el (cedet-global-min-version) + (cedet-gnu-global-version-check): + * cedet.el (cedet-version): + * data-debug.el (data-debug-prev, data-debug-contract-current-line): + * ede.el (ede-buffer-belongs-to-project-p, ede-auto-add-to-target) + (ede-new, ede-invoke-method, project-edit-file-target, project-rescan) + (ede-add-project-to-global-list, ede-map-all-subprojects): + * inversion.el (inversion-check-version): + * mode-local.el (mode-local-map-file-buffers, define-child-mode) + (define-overloadable-function): + * pulse.el (pulse-flag, pulse): + * semantic.el (semantic-elapsed-time, semantic-parse-region) + (navigate-menu): + * ede/proj-comp.el (ede-compilation-program): + * semantic/debug.el (semantic-debug-parser-go) + (semantic-debug-parser-fail, semantic-debug-parser-quit) + (semantic-debug-parser-abort): + * semantic/idle.el (semantic-idle-core-handler): + * semantic/bovine/debug.el (semantic-bovine-debug-error-frame): + Fix typos. + 2011-11-16 Juanma Barranquero <lekktu@gmail.com> * semantic/lex.el (semantic-lex-tokens): diff --git a/lisp/cedet/cedet-cscope.el b/lisp/cedet/cedet-cscope.el index 74892533ab6..71942698c5f 100644 --- a/lisp/cedet/cedet-cscope.el +++ b/lisp/cedet/cedet-cscope.el @@ -135,8 +135,8 @@ the error code." (defun cedet-cscope-version-check (&optional noerror) "Check the version of the installed CScope command. -If optional programatic argument NOERROR is non-nil, then -instead of throwing an error if CScope isn't available, then +If optional programmatic argument NOERROR is non-nil, +then instead of throwing an error if CScope isn't available, return nil." (interactive) (require 'inversion) diff --git a/lisp/cedet/cedet-files.el b/lisp/cedet/cedet-files.el index ae037028bf7..6f40ee7030f 100644 --- a/lisp/cedet/cedet-files.el +++ b/lisp/cedet/cedet-files.el @@ -83,7 +83,7 @@ specific conversions during tests." (setq file (concat driveletter ":" (substring file (match-end 1)))))) - ;; Handle the \\file\name nomenclature on some windows boxes. + ;; Handle the \\file\name nomenclature on some Windows boxes. (when (string-match "^!" file) (setq file (concat "//" (substring file 1))))) file)) diff --git a/lisp/cedet/cedet-global.el b/lisp/cedet/cedet-global.el index d2a9794ec81..aa18c0d2f42 100644 --- a/lisp/cedet/cedet-global.el +++ b/lisp/cedet/cedet-global.el @@ -27,7 +27,7 @@ (declare-function inversion-check-version "inversion") (defvar cedet-global-min-version "5.0" - "Minimum version of GNU global required.") + "Minimum version of GNU Global required.") (defcustom cedet-global-command "global" "Command name for the GNU Global executable." @@ -131,8 +131,8 @@ If a default starting DIR is not specified, the current buffer's (defun cedet-gnu-global-version-check (&optional noerror) "Check the version of the installed GNU Global command. -If optional programatic argument NOERROR is non-nil, then -instead of throwing an error if Global isn't available, then +If optional programmatic argument NOERROR is non-nil, +then instead of throwing an error if Global isn't available, return nil." (interactive) (require 'inversion) diff --git a/lisp/cedet/cedet-idutils.el b/lisp/cedet/cedet-idutils.el index e071265c143..ee8e432ddd9 100644 --- a/lisp/cedet/cedet-idutils.el +++ b/lisp/cedet/cedet-idutils.el @@ -84,7 +84,7 @@ Note: Scope is not yet supported." (defun cedet-idutils-fnid-call (flags) "Call ID Utils fnid with the list of FLAGS. -Return the created buffer with with program output." +Return the created buffer with program output." (let ((b (get-buffer-create "*CEDET fnid*")) (cd default-directory) ) @@ -112,7 +112,7 @@ Return the created buffer with with program output." (defun cedet-idutils-mkid-call (flags) "Call ID Utils mkid with the list of FLAGS. -Return the created buffer with with program output." +Return the created buffer with program output." (let ((b (get-buffer-create "*CEDET mkid*")) (cd default-directory) ) @@ -163,8 +163,8 @@ the error code." (defun cedet-idutils-version-check (&optional noerror) "Check the version of the installed ID Utils command. -If optional programatic argument NOERROR is non-nil, then -instead of throwing an error if Global isn't available, then +If optional programmatic argument NOERROR is non-nil, +then instead of throwing an error if Global isn't available, return nil." (interactive) (require 'inversion) diff --git a/lisp/cedet/cedet.el b/lisp/cedet/cedet.el index d7645bc97ed..9ccf74de27a 100644 --- a/lisp/cedet/cedet.el +++ b/lisp/cedet/cedet.el @@ -75,7 +75,7 @@ This is used by `semantic-mode' and `global-ede-mode'.") (defun cedet-version () - "Display all active versions of CEDET and Dependent packages. + "Display all active versions of CEDET and dependent packages. The PACKAGE column is the name of a given package from CEDET. @@ -85,7 +85,7 @@ See `cedet-packages' for details. FILE VERSION is the version number found in the source file for the specified PACKAGE. -LOADED VERSION is the version of PACKAGE current loaded in Emacs +LOADED VERSION is the version of PACKAGE currently loaded in Emacs memory and (presumably) running in this Emacs instance. Value is X if the package has not been loaded." (interactive) diff --git a/lisp/cedet/data-debug.el b/lisp/cedet/data-debug.el index e50e9993af0..329d1c608c2 100644 --- a/lisp/cedet/data-debug.el +++ b/lisp/cedet/data-debug.el @@ -916,7 +916,7 @@ If PARENT is non-nil, it is somehow related as a parent to thing." (skip-chars-forward " *-><[]" (point-at-eol))) (defun data-debug-prev () - "Go to the next line in the Ddebug buffer." + "Go to the previous line in the Ddebug buffer." (interactive) (forward-line -1) (beginning-of-line) @@ -972,7 +972,7 @@ Do nothing if already expanded." (defun data-debug-contract-current-line () "Contract the current line (if possible). -Do nothing if already expanded." +Do nothing if already contracted." (when (and (data-debug-current-line-expanded-p) ;; Don't contract if the current line is not expandable. (get-text-property (point) 'ddebug-function)) diff --git a/lisp/cedet/ede.el b/lisp/cedet/ede.el index 987351a25e0..741e1ffbe5f 100644 --- a/lisp/cedet/ede.el +++ b/lisp/cedet/ede.el @@ -214,7 +214,7 @@ Argument LIST-O-O is the list of objects to choose from." (and obj (obj-of-class-p obj ede-target)))) (defun ede-buffer-belongs-to-project-p () - "Return non-nil if this buffer belongs to at least one target." + "Return non-nil if this buffer belongs to at least one project." (if (or (null ede-object) (consp ede-object)) nil (obj-of-class-p ede-object ede-project))) @@ -243,7 +243,7 @@ Argument MENU-DEF is the menu definition to use." ede-obj (if (listp ede-object) ede-object (list ede-object))) ;; First, collect the build items from the project (setq newmenu (append newmenu (ede-menu-items-build obj t))) - ;; Second, Declare the current target menu items + ;; Second, declare the current target menu items (if (and ede-obj (ede-menu-obj-of-class-p ede-target)) (while ede-obj (setq newmenu (append newmenu @@ -264,7 +264,7 @@ Argument MENU-DEF is the menu definition to use." (setq targets (cdr targets))) ;; Fourth, build sub projects. ;; -- nerp - ;; Fifth, Add make distribution + ;; Fifth, add make distribution (append newmenu (list [ "Make distribution" ede-make-dist t ])) ))))) @@ -512,7 +512,7 @@ an EDE controlled project." "Look for a target that wants to own the current file. Follow the preference set with `ede-auto-add-method' and get the list of objects with the `ede-want-file-p' method." - (if ede-object (error "Ede-object already defined for %s" (buffer-name))) + (if ede-object (error "ede-object already defined for %s" (buffer-name))) (if (or (eq ede-auto-add-method 'never) (ede-ignore-file (buffer-file-name))) nil @@ -566,7 +566,7 @@ Argument FILE is the file or directory to load a project from." (ede-load-project-file (file-name-directory file)))) (defun ede-new (type &optional name) - "Create a new project starting of project type TYPE. + "Create a new project starting from project type TYPE. Optional argument NAME is the name to give this project." (interactive (list (completing-read "Project Type: " @@ -642,7 +642,7 @@ Optional argument NAME is the name to give this project." (defun ede-invoke-method (sym &rest args) "Invoke method SYM on the current buffer's project object. -ARGS are additional arguments to pass to method sym." +ARGS are additional arguments to pass to method SYM." (if (not ede-object) (error "Cannot invoke %s for %s" (symbol-name sym) (buffer-name))) @@ -815,7 +815,7 @@ Argument FNND is an argument." (error "remove-file not supported by %s" (object-name ot))) (defmethod project-edit-file-target ((ot ede-target)) - "Edit the target OT associated w/ this file." + "Edit the target OT associated with this file." (find-file (oref (ede-current-project) file))) (defmethod project-new-target ((proj ede-project) &rest args) @@ -857,7 +857,7 @@ Argument COMMAND is the command to use for compiling the target." (error "Dist-files is not supported by %s" (object-name this))) (defmethod project-rescan ((this ede-project)) - "Rescan the EDE proj project THIS." + "Rescan the EDE project THIS." (error "Rescanning a project is not supported by %s" (object-name this))) (defun ede-ecb-project-paths () @@ -879,7 +879,7 @@ On success, return the added project." (when (not proj) (error "No project created to add to master list")) (when (not (eieio-object-p proj)) - (error "Attempt to add Non-object to master project list")) + (error "Attempt to add non-object to master project list")) (when (not (obj-of-class-p proj ede-project-placeholder)) (error "Attempt to add a non-project to the ede projects list")) (add-to-list 'ede-projects proj) @@ -1157,7 +1157,7 @@ See also `ede-map-all-subprojects'." (mapcar proc (oref this subproj))) (defmethod ede-map-all-subprojects ((this ede-project) allproc) - "For object THIS, execute PROC on THIS and all subprojects. + "For object THIS, execute PROC on THIS and all subprojects. This function also applies PROC to sub-sub projects. See also `ede-map-subprojects'." (apply 'append diff --git a/lisp/cedet/ede/proj-comp.el b/lisp/cedet/ede/proj-comp.el index ae5796e042b..84bf8ebf1a0 100644 --- a/lisp/cedet/ede/proj-comp.el +++ b/lisp/cedet/ede/proj-comp.el @@ -97,8 +97,8 @@ use the same autoconf form.") (objectextention :initarg :objectextention :type string :documentation - "A string which is the extention used for object files. -For example, C code uses .o on unix, and Emacs Lisp uses .elc.") + "A string which is the extension used for object files. +For example, C code uses .o on Unix, and Emacs Lisp uses .elc.") ) "A program used to compile or link a program via a Makefile. Contains everything needed to output code into a Makefile, or autoconf diff --git a/lisp/cedet/inversion.el b/lisp/cedet/inversion.el index 065ac6d0559..53639b19a96 100644 --- a/lisp/cedet/inversion.el +++ b/lisp/cedet/inversion.el @@ -216,14 +216,14 @@ not an indication of new features or bug fixes." ))) (defun inversion-check-version (version incompatible-version - minimum &rest reserved) + minimum &rest reserved) "Check that a given version meets the minimum requirement. VERSION, INCOMPATIBLE-VERSION and MINIMUM are of similar format to return entries of `inversion-decode-version', or a classic version string. INCOMPATIBLE-VERSION can be nil. RESERVED arguments are kept for a later use. Return: -- nil if everything is ok +- nil if everything is ok. - 'outdated if VERSION is less than MINIMUM. - 'incompatible if VERSION is not backward compatible with MINIMUM. - t if the check failed." @@ -374,7 +374,7 @@ Return nil when VERSION-STRING was not found." (with-temp-buffer ;; The 3000 is a bit arbitrary, but should cut down on ;; fileio as version info usually is at the very top - ;; of a file. AFter a long commentary could be bad. + ;; of a file. After a long commentary could be bad. (insert-file-contents-literally file nil 0 3000) (goto-char (point-min)) (when (re-search-forward (format tag package 'version) nil t) diff --git a/lisp/cedet/mode-local.el b/lisp/cedet/mode-local.el index 0e7657642c2..511a3cd1d8b 100644 --- a/lisp/cedet/mode-local.el +++ b/lisp/cedet/mode-local.el @@ -36,7 +36,7 @@ ;; ;; You should use a mode-local variable or override to allow extension ;; only if you expect a mode author to provide that extension. If a -;; user might wish to customize a give variable or function then +;; user might wish to customize a given variable or function then ;; the existing customization mechanism should be used. ;; To Do: @@ -55,7 +55,7 @@ FUNCTION does not have arguments; when it is entered `current-buffer' is the currently selected file buffer. If optional argument PREDICATE is non nil, only select file buffers -for which the function PREDICATE return non-nil. +for which the function PREDICATE returns non-nil. If optional argument BUFFERS is non-nil, it is a list of buffers to walk through. It defaults to `buffer-list'." (dolist (b (or buffers (buffer-list))) @@ -146,7 +146,7 @@ local variables have been defined." (mode-local-map-mode-buffers #'activate-mode-local-bindings mode)) (defmacro define-child-mode (mode parent &optional docstring) - "Make major mode MODE inherits behavior from PARENT mode. + "Make major mode MODE inherit behavior from PARENT mode. DOCSTRING is optional and not used. To work properly, this should be put after PARENT mode local variables definition." @@ -523,11 +523,11 @@ See also the function `define-overload'." result))) (defmacro define-overloadable-function (name args docstring &rest body) - "Define a new function, as with `defun' which can be overloaded. + "Define a new function, as with `defun', which can be overloaded. NAME is the name of the function to create. ARGS are the arguments to the function. DOCSTRING is a documentation string to describe the function. The -docstring will automatically had details about its overload symbol +docstring will automatically have details about its overload symbol appended to the end. BODY is code that would be run when there is no override defined. The default is to call the function `NAME-default' with the appropriate diff --git a/lisp/cedet/pulse.el b/lisp/cedet/pulse.el index e3d2bd967b6..4929feb0302 100644 --- a/lisp/cedet/pulse.el +++ b/lisp/cedet/pulse.el @@ -36,7 +36,7 @@ ;; ;; `pulse-momentary-highlight-one-line' - Pulse a single line at POINT. ;; `pulse-momentary-highlight-region' - Pulse a region. -;; `pulse-momentary-highlight-overlay' - Pulse an overlay +;; `pulse-momentary-highlight-overlay' - Pulse an overlay. ;; These three functions will just blink the specified area if ;; the version of Emacs you are using doesn't support pulsing. ;; @@ -65,7 +65,7 @@ background color. If the value is nil, highlight with an unchanging color until a key is pressed. If the value is `never', do no coloring at all. -Any other value means to the default pulsing behavior. +Any other value means to do the default pulsing behavior. If `pulse-flag' is non-nil, but `pulse-available-p' is nil, then this flag is ignored." @@ -163,7 +163,7 @@ Return t if there is more drift to do, nil if completed." (defun pulse (&optional face) "Pulse the colors on our highlight face. -If optional FACE is provide, reset the face to FACE color, +If optional FACE is provided, reset the face to FACE color, instead of `pulse-highlight-start-face'. Be sure to call `pulse-reset-face' after calling pulse." (unwind-protect diff --git a/lisp/cedet/semantic.el b/lisp/cedet/semantic.el index 639b46ad2cf..3ffb6baee9f 100644 --- a/lisp/cedet/semantic.el +++ b/lisp/cedet/semantic.el @@ -344,7 +344,7 @@ to use Semantic, and `semantic-init-hook' is run." ;; don't go along for the ride. (add-hook 'clone-indirect-buffer-hook 'semantic-clear-toplevel-cache nil t) - ;; Specify that this function has done it's work. At this point + ;; Specify that this function has done its work. At this point ;; we can consider that semantic is active in this buffer. (setq semantic-new-buffer-fcn-was-run t) ;; Here are some buffer local variables we can initialize ourselves @@ -378,7 +378,7 @@ Do not set this yourself. Call `semantic-debug'.") (defun semantic-elapsed-time (start end) "Copied from elp.el. Was `elp-elapsed-time'. -Argument START and END bound the time being calculated." +Arguments START and END bound the time being calculated." (float-time (time-subtract end start))) (defun bovinate (&optional clear) @@ -431,7 +431,7 @@ will be silently ignored. Optional arguments: NONTERMINAL is the rule to start parsing at. -DEPTH specifies the lexical depth to descend for parser that use +DEPTH specifies the lexical depth to descend for parsers that use lexical analysis as their first step. RETURNONERROR specifies that parsing should stop on the first unmatched syntax encountered. When nil, parsing skips the syntax, @@ -960,7 +960,7 @@ Throw away all the old tags, and recreate the tag database." '("--")) (define-key navigate-menu [senator-go-to-up-reference] '(menu-item "Parent Tag" senator-go-to-up-reference - :help "Navigate up one reference by tag.")) + :help "Navigate up one reference by tag")) (define-key navigate-menu [senator-next-tag] '(menu-item "Next Tag" senator-next-tag :help "Go to the next tag")) @@ -971,7 +971,7 @@ Throw away all the old tags, and recreate the tag database." ;; Top level menu items: (define-key cedet-menu-map [semantic-force-refresh] '(menu-item "Reparse Buffer" semantic-force-refresh - :help "Force a full reparse of the current buffer." + :help "Force a full reparse of the current buffer" :visible semantic-mode)) (define-key cedet-menu-map [semantic-edit-menu] `(menu-item "Edit Tags" ,edit-menu diff --git a/lisp/cedet/semantic/bovine/c.el b/lisp/cedet/semantic/bovine/c.el index 9a862c64d10..7de0011ce92 100644 --- a/lisp/cedet/semantic/bovine/c.el +++ b/lisp/cedet/semantic/bovine/c.el @@ -1591,7 +1591,7 @@ DO NOT return the list of tags encompassing point." (setq tagreturn (cons (semantic-tag-type (car (semanticdb-find-result-nth tmp idx))) tagreturn)) (setq idx (1+ idx))) ) - ;; Use the encompased types around point to also look for using statements. + ;; Use the encompassed types around point to also look for using statements. ;;(setq tagreturn (cons "bread_name" tagreturn)) (while (cdr tagsaroundpoint) ; don't search the last one (setq tmp (semantic-find-tags-by-class 'using (semantic-tag-components (car tagsaroundpoint)))) diff --git a/lisp/cedet/semantic/bovine/debug.el b/lisp/cedet/semantic/bovine/debug.el index 9ca7409e335..684db1e7bbf 100644 --- a/lisp/cedet/semantic/bovine/debug.el +++ b/lisp/cedet/semantic/bovine/debug.el @@ -114,7 +114,7 @@ LEXTOKEN, is a token returned by the lexer which is being matched." :documentation "An error condition caught in an action.") ) - "Debugger frame representaion of a lisp error thrown during parsing.") + "Debugger frame representation of a lisp error thrown during parsing.") (defun semantic-create-bovine-debug-error-frame (condition) "Create an error frame for bovine debugger. diff --git a/lisp/cedet/semantic/db-typecache.el b/lisp/cedet/semantic/db-typecache.el index a4c4bd99f26..7d23ad17009 100644 --- a/lisp/cedet/semantic/db-typecache.el +++ b/lisp/cedet/semantic/db-typecache.el @@ -368,7 +368,7 @@ a master list." (semanticdb-typecache-merge-streams incstream ;; Getting the cache from this table will also cause this - ;; file to update its cache from its decendents. + ;; file to update its cache from its descendants. ;; ;; In theory, caches are only built for most includes ;; only once (in the loop before this one), so this ends diff --git a/lisp/cedet/semantic/debug.el b/lisp/cedet/semantic/debug.el index ecab73a80dc..45b807df12b 100644 --- a/lisp/cedet/semantic/debug.el +++ b/lisp/cedet/semantic/debug.el @@ -519,22 +519,22 @@ down to your parser later." ) (defmethod semantic-debug-parser-go ((parser semantic-debug-parser)) - "Continue executiong in this PARSER until the next breakpoint." + "Continue execution in this PARSER until the next breakpoint." (setq semantic-debug-user-command 'go) ) (defmethod semantic-debug-parser-fail ((parser semantic-debug-parser)) - "Continue executiong in this PARSER until the next breakpoint." + "Continue execution in this PARSER until the next breakpoint." (setq semantic-debug-user-command 'fail) ) (defmethod semantic-debug-parser-quit ((parser semantic-debug-parser)) - "Continue executiong in this PARSER until the next breakpoint." + "Continue execution in this PARSER until the next breakpoint." (setq semantic-debug-user-command 'quit) ) (defmethod semantic-debug-parser-abort ((parser semantic-debug-parser)) - "Continue executiong in this PARSER until the next breakpoint." + "Continue execution in this PARSER until the next breakpoint." (setq semantic-debug-user-command 'abort) ) diff --git a/lisp/cedet/semantic/edit.el b/lisp/cedet/semantic/edit.el index a007f21b69f..0780a628254 100644 --- a/lisp/cedet/semantic/edit.el +++ b/lisp/cedet/semantic/edit.el @@ -549,7 +549,7 @@ This function is for internal use by `semantic-edits-incremental-parser'." ;; is not the first change for this ;; iteration, and it starts before the end ;; of current parse region, then it is - ;; encompased within the bounds of tags + ;; encompassed within the bounds of tags ;; modified by the previous iteration's ;; change. (< (semantic-overlay-start (car changes)) diff --git a/lisp/cedet/semantic/idle.el b/lisp/cedet/semantic/idle.el index b49d1db1ad5..6761a7f532b 100644 --- a/lisp/cedet/semantic/idle.el +++ b/lisp/cedet/semantic/idle.el @@ -245,7 +245,7 @@ And also manages services that depend on tag values." ;; services. Stop on keypress. ;; NOTE ON COMMENTED SAFE HERE - ;; We used to not execute the services if the buffer wsa + ;; We used to not execute the services if the buffer was ;; unparseable. We now assume that they are lexically ;; safe to do, because we have marked the buffer unparseable ;; if there was a problem. @@ -254,11 +254,11 @@ And also manages services that depend on tag values." (save-excursion (semantic-throw-on-input 'idle-queue) (when semantic-idle-scheduler-verbose-flag - (message "IDLE: execture service %s..." service)) + (message "IDLE: execute service %s..." service)) (semantic-safe (format "Idle Service Error %s: %%S" service) (funcall service)) (when semantic-idle-scheduler-verbose-flag - (message "IDLE: execture service %s...done" service)) + (message "IDLE: execute service %s...done" service)) ))) ;;) ;; Finally loop over remaining buffers, trying to update them as diff --git a/lisp/cedet/semantic/symref/list.el b/lisp/cedet/semantic/symref/list.el index a09928c7dfc..ce3500f83e1 100644 --- a/lisp/cedet/semantic/symref/list.el +++ b/lisp/cedet/semantic/symref/list.el @@ -24,7 +24,7 @@ ;; Provide a simple user facing API to finding symbol references. ;; ;; This UI is the base of some refactoring tools. For any refactor, -;; the user will execture [FIXME what?] `semantic-symref' in a tag. +;; the user will execute `semantic-symref' in a tag. ;; Once that data is collected, the output will be listed in a buffer. ;; In the output buffer, the user can then initiate different ;; refactoring operations. @@ -103,7 +103,7 @@ Display the references in`semantic-symref-results-mode'." (when (not res) (error "No references found")) (semantic-symref-result-get-tags res t) (message "Gathering References...done") - ;; Build a refrences buffer. + ;; Build a references buffer. (let ((buff (get-buffer-create (format "*Symref %s" str))) ) diff --git a/lisp/cedet/srecode/dictionary.el b/lisp/cedet/srecode/dictionary.el index 62ceff82448..1575ce7ae3b 100644 --- a/lisp/cedet/srecode/dictionary.el +++ b/lisp/cedet/srecode/dictionary.el @@ -437,7 +437,7 @@ The root dictionary is usually for a current or active insertion." ;;; COMPOUND VALUE METHODS ;; ;; Compound values must provide at least the toString method -;; for use in converting the compound value into sometehing insertable. +;; for use in converting the compound value into something insertable. (defmethod srecode-compound-toString ((cp srecode-dictionary-compound-value) function diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el index 8b64cd84bb1..820519e92d8 100644 --- a/lisp/emacs-lisp/ert.el +++ b/lisp/emacs-lisp/ert.el @@ -392,7 +392,7 @@ DATA is displayed to the user and should state the reason of the failure." ;; compiling doesn't depend on cl and thus doesn't need an ;; environment arg for `macroexpand'. (if (fboundp 'cl-macroexpand) - ;; Suppress warning about run-time call to cl funtion: we + ;; Suppress warning about run-time call to cl function: we ;; only call it if it's fboundp. (with-no-warnings (cl-macroexpand form (and (boundp 'cl-macro-environment) diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 0bd37ce1d49..8417aa8d380 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -277,7 +277,7 @@ contrast, `package-user-dir' contains packages for personal use." :version "24.1") ;; The value is precomputed in finder-inf.el, but don't load that -;; until it's needed (i.e. when `package-intialize' is called). +;; until it's needed (i.e. when `package-initialize' is called). (defvar package--builtins nil "Alist of built-in packages. The actual value is initialized by loading the library diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog index 9a029893352..3fd2c87d59c 100644 --- a/lisp/erc/ChangeLog +++ b/lisp/erc/ChangeLog @@ -1,3 +1,7 @@ +2011-11-20 Juanma Barranquero <lekktu@gmail.com> + + * erc-log.el (erc-logging-enabled): Fix typo. + 2011-11-14 Juanma Barranquero <lekktu@gmail.com> * erc-notify.el (erc-notify-interval, erc-cmd-NOTIFY): Fix typos. diff --git a/lisp/erc/ChangeLog.01 b/lisp/erc/ChangeLog.01 index 001ab42926f..f4e10d05981 100644 --- a/lisp/erc/ChangeLog.01 +++ b/lisp/erc/ChangeLog.01 @@ -399,7 +399,7 @@ * erc.el: * Tijs van Bakel's work from 10th Nov. merged in * My additions to that idea merged in too - Basicly, this is a major rewrite, if you are scared and want avoid problems, + Basically, this is a major rewrite, if you are scared and want avoid problems, stay at your current version. It seems fairly stable though. That changed? erc-buffer-name handling was completely rewritten, and erc-buffer-list local variable handling removed. diff --git a/lisp/erc/ChangeLog.03 b/lisp/erc/ChangeLog.03 index 322f7c93f7d..fc7fd09e76c 100644 --- a/lisp/erc/ChangeLog.03 +++ b/lisp/erc/ChangeLog.03 @@ -838,7 +838,7 @@ * erc.el: erc-log-channels: removed; set the directory to start logging (erc-directory-writeable-p): create directory if it doesn't exist, check if - it's writeable + it's writable (erc-logging-enabled): don't reference erc-log-channels 2003-04-07 Damien Elmes <erc@repose.cx> @@ -1556,7 +1556,7 @@ * erc.el: This is the "everything is suddenly broken!" release You know, this is CVS, you can still go back, and wait until the transition - is finished, but here is patch one, which basicly breaks every command + is finished, but here is patch one, which basically breaks every command which is typed on the prompt. Hit me, we can still revert, but something needs to be done about this. * (erc-extract-command-from-line): intern-soft the function here. diff --git a/lisp/erc/erc-backend.el b/lisp/erc/erc-backend.el index f86c9ef845a..5baa676ab39 100644 --- a/lisp/erc/erc-backend.el +++ b/lisp/erc/erc-backend.el @@ -1432,7 +1432,7 @@ add things to `%s' instead." (when (string= cmd "PRIVMSG") (erc-auto-query proc parsed)))))) -;; FIXME: need clean way of specifiying extra hooks in +;; FIXME: need clean way of specifying extra hooks in ;; define-erc-response-handler. (add-hook 'erc-server-PRIVMSG-functions 'erc-auto-query) diff --git a/lisp/erc/erc-log.el b/lisp/erc/erc-log.el index c6b0984fe67..f1754afd1ac 100644 --- a/lisp/erc/erc-log.el +++ b/lisp/erc/erc-log.el @@ -314,7 +314,7 @@ Returns nil if `erc-server-buffer-p' returns t." "Return non-nil if logging is enabled for BUFFER. If BUFFER is nil, the value of `current-buffer' is used. Logging is enabled if `erc-log-channels-directory' is non-nil, the directory -is writeable (it will be created as necessary) and +is writable (it will be created as necessary) and `erc-enable-logging' returns a non-nil value." (and erc-log-channels-directory (or (functionp erc-log-channels-directory) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index a9db3c23fef..27693ab771b 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2011-11-20 Juanma Barranquero <lekktu@gmail.com> + + * mm-util.el (mm-charset-after): Fix typo. + 2011-11-16 Juanma Barranquero <lekktu@gmail.com> * gnus-sum.el (gnus-summary-make-menu-bar): @@ -2849,7 +2853,7 @@ 2011-01-24 Lars Ingebrigtsen <larsi@gnus.org> - * shr.el (shr-expand-newlines): Proof of concept implemantation of boxy + * shr.el (shr-expand-newlines): Proof of concept implementation of boxy backgrounds. (shr-expand-newlines): Switch to using overlays to enable kill'n'yank in a more sensible manner. @@ -19398,7 +19402,7 @@ * gnus-group.el (gnus-group-get-new-news-this-group): Don't update info that isn't there. -2004-06-29 Ilya N. Golubev <gin@mo.msk.ru>. +2004-06-29 Ilya N. Golubev <gin@mo.msk.ru> * mm-util.el (mm-mime-mule-charset-alist): Add the windows-1251 entry. diff --git a/lisp/gnus/ChangeLog.2 b/lisp/gnus/ChangeLog.2 index dcdf1c2934b..d7defec1a78 100644 --- a/lisp/gnus/ChangeLog.2 +++ b/lisp/gnus/ChangeLog.2 @@ -2111,7 +2111,7 @@ * gnus-srvr.el (gnus-browse-foreign-server): Parse garbage NNTP groups correctly. -2003-06-06 Benjamin Rutt <rutt+news@cis.ohio-state.edu>. +2003-06-06 Benjamin Rutt <rutt+news@cis.ohio-state.edu> * message.el (message-fetch-field): Augment documentation to state the narrowed-to-headers restriction. @@ -6816,7 +6816,7 @@ downloaded variable if we're in an uncovered group. * gnus-agent.el (gnus-agent-downloaded-article-face): Change the - font to soemthing less noticeable. + font to something less noticeable. (gnus-agent-group-covered-p): New function. 2002-12-09 ShengHuo ZHU <zsh@cs.rochester.edu> @@ -6972,7 +6972,7 @@ * gnus-agent.el (gnus-agent-check-overview-buffer): Make debugger print message on entry. -2002-11-25 Kevin Greiner <kgreiner@xpediantsolutions.com>. +2002-11-25 Kevin Greiner <kgreiner@xpediantsolutions.com> * gnus-range.el (gnus-range-difference): New function. * gnus-sum.el (gnus-summary-insert-old-articles): Use it. @@ -7964,7 +7964,7 @@ (mml2015-pgg-encrypt): New functions. (defvar, autoload): Prevent byte-compile warnings. -2002-09-24 TSUCHIYA Masatoshi <tsuchiya@namazu.org>. +2002-09-24 TSUCHIYA Masatoshi <tsuchiya@namazu.org> * gnus-art.el (article-strip-banner): Check for the existence of from header. @@ -8097,7 +8097,7 @@ * gnus-sum.el (gnus-summary-next-group): Semi-exit only when needed. -2002-09-12 John Paul Wallington <jpw@shootybangbang.com>. +2002-09-12 John Paul Wallington <jpw@shootybangbang.com> * gnus.el (gnus-visual, gnus-meta): Fix typo. @@ -8111,7 +8111,7 @@ (nnimap-split-rule): Doc fix. (nnimap-request-expire-articles): Cleanup code. -2002-09-11 TSUCHIYA Masatoshi <tsuchiya@namazu.org>. +2002-09-11 TSUCHIYA Masatoshi <tsuchiya@namazu.org> * gnus-art.el (gnus-article-address-banner-alist): New option. (article-strip-banner): Refer the above option to split banners of @@ -8205,7 +8205,7 @@ (gnus-group-fetch-control): New function. Add them to the keymap and menu. Require mm-url. -2002-08-30 Alex Schroeder <alex@emacswiki.org>. +2002-08-30 Alex Schroeder <alex@emacswiki.org> * gnus-mlspl.el (gnus-group-split-fancy): Doc fix. @@ -8270,7 +8270,7 @@ * gnus-util.el (gnus-select-frame-set-input-focus): New function. -2002-08-20 $B>.4X(B $B5HB'(B (KOSEKI Yoshinori) <kose@meadowy.org>. +2002-08-20 $B>.4X(B $B5HB'(B (KOSEKI Yoshinori) <kose@meadowy.org> * message.el (message-set-auto-save-file-name): Add support for the Cygwin Emacs; the system-type is `cygwin'. @@ -8396,7 +8396,7 @@ * nnimap.el (nnimap-split-articles): Do not call nnmail-fetch-field when splitting malformed messages without message-id. -2002-07-28 Niklas Morberg <niklas.morberg@axis.com>. +2002-07-28 Niklas Morberg <niklas.morberg@axis.com> * nnweb.el (nnweb-type, nnweb-type-definition) (nnweb-gmane-create-mapping, nnweb-gmane-wash-article) @@ -8440,18 +8440,18 @@ nnmail-expiry-target to 'delete, so that absolute deletion happens when absolute deletion is requested. -2002-07-21 Nevin Kapur <nevin@jhu.edu>. +2002-07-21 Nevin Kapur <nevin@jhu.edu> * nnmail.el (nnmail-fancy-expiry-target): Treat nonexisting headers as empty headers. -2002-07-21 Jochen Hein <jochen@jochen.org>. +2002-07-21 Jochen Hein <jochen@jochen.org> * gnus-art.el (gnus-emphasis-alist): Add strikethrough and correct typo. (gnus-emphasis-strikethru): New face. -2002-07-20 Jason Merrill <jason@redhat.com>. +2002-07-20 Jason Merrill <jason@redhat.com> * nnfolder.el (nnfolder-retrieve-headers): Avoid searching the entire file for each of a sequence of missing articles. @@ -9879,7 +9879,7 @@ (rfc2047-decode-region): Don't unfold. Let gnus-article-treat-unfold-headers do it. -2002-02-07 Matt Armstrong <matt@lickey.com>. +2002-02-07 Matt Armstrong <matt@lickey.com> * message.el (message-mode): Set local-abbrev-table. @@ -13226,7 +13226,7 @@ (gnus-topic-catchup-articles): New function. Suggested by Robin S. Socha <robin-dated-1001857693.185e29@socha.net>. -2001-09-27 11:00:00 Gerd M,Av(Bllmann <gerd@gnu.org>. +2001-09-27 11:00:00 Gerd M,Av(Bllmann <gerd@gnu.org> * gnus-ems.el (gnus-article-display-xface): Insert xface after previous ones. @@ -13977,7 +13977,7 @@ * mml.el (mml-menu): Changed name to "Attachments". * mm-decode.el (mm-destroy-postponed-undisplay-list): Only message - when there is something to detroy. + when there is something to destroy. 2001-05-21 17:11:46 Lars Magne Ingebrigtsen <larsi@gnus.org> diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el index d57b61dac83..129609df10d 100644 --- a/lisp/gnus/mm-util.el +++ b/lisp/gnus/mm-util.el @@ -956,7 +956,7 @@ This is a no-op in XEmacs." (defun mm-charset-after (&optional pos) "Return charset of a character in current buffer at position POS. -If POS is nil, it defauls to the current point. +If POS is nil, it defaults to the current point. If POS is out of range, the value is nil. If the charset is `composition', return the actual one." (let ((char (char-after pos)) charset) diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 6888056704d..58a08f4506f 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -1572,7 +1572,7 @@ of `ctext-non-standard-encodings-alist'.") ;; character in CHARSET is encoded using extended segment. In the ;; latter case, a character in CHARSET is encoded using normal ISO2022 ;; designation sequence. If a character is not in any of CHARSETs, it -;; is encoded using UTF-8 encoding extention. +;; is encoded using UTF-8 encoding extension. (defun ctext-non-standard-encodings-table () (let* ((table (append ctext-non-standard-encodings @@ -1656,7 +1656,7 @@ in-place." (insert 2))) ;; Encode this range as characters in CHARSET. (put-text-property last-pos (point) 'charset charset)) - ;; Encode this range using UTF-8 encoding extention. + ;; Encode this range using UTF-8 encoding extension. (encode-coding-region last-pos (point) 'mule-utf-8) (save-excursion (goto-char last-pos) diff --git a/lisp/mail/feedmail.el b/lisp/mail/feedmail.el index eaac5c17cd3..43d43617631 100644 --- a/lisp/mail/feedmail.el +++ b/lisp/mail/feedmail.el @@ -2261,9 +2261,9 @@ the counts." (while (string-match feedmail-queue-slug-suspect-regexp slug) (setq slug (replace-match "-" nil nil slug))) ;; collapse multiple hyphens to one (while (string-match "--+" slug) (setq slug (replace-match "-" nil nil slug))) - ;; for tidyness, peel off leading hyphens + ;; for tidiness, peel off leading hyphens (if (string-match "^-*" slug) (setq slug (replace-match "" nil nil slug))) - ;; for tidyness, peel off trailing hyphens + ;; for tidiness, peel off trailing hyphens (if (string-match "-*$" slug) (setq slug (replace-match "" nil nil slug))) slug ) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index a8efe10ec76..e2bbdd0a6bd 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -4504,7 +4504,7 @@ With prefix argument N moves forward N messages with these labels. ;;;*** -;;;### (autoloads (rmail-mime) "rmailmm" "rmailmm.el" "6296f0170a37670c49a88a1b92d78187") +;;;### (autoloads (rmail-mime) "rmailmm" "rmailmm.el" "3aa9747bf925bd2cd450f4b1f9c7cd03") ;;; Generated autoloads from rmailmm.el (autoload 'rmail-mime "rmailmm" "\ diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index 026b03e350f..bc38b10124e 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -975,7 +975,7 @@ The list is in preference order.") (subst-char-in-region (point-min) (point-max) 9 ? t) ; tab --> blank (goto-char (point-min)) - ;; tidyness in case hook is not robust when it looks at this + ;; tidiness in case hook is not robust when it looks at this (while (re-search-forward "[ \t]+" header-end t) (replace-match " ")) (goto-char (point-min)) diff --git a/lisp/mh-e/ChangeLog b/lisp/mh-e/ChangeLog index ca179a78b61..802f2fab74f 100644 --- a/lisp/mh-e/ChangeLog +++ b/lisp/mh-e/ChangeLog @@ -1,3 +1,8 @@ +2011-11-20 Juanma Barranquero <lekktu@gmail.com> + + * mh-utils.el (mh-folder-list): Fix typo. + (mh-children-p): Move part of the docstring to a comment. + 2011-11-16 Juanma Barranquero <lekktu@gmail.com> * mh-search.el (mh-pick-parse-search-buffer): Fix typo. diff --git a/lisp/mh-e/ChangeLog.1 b/lisp/mh-e/ChangeLog.1 index b12c47e7f1f..d35d7d4c676 100644 --- a/lisp/mh-e/ChangeLog.1 +++ b/lisp/mh-e/ChangeLog.1 @@ -10944,7 +10944,7 @@ 2001-11-21 Peter S Galbraith <psg@debian.org> * mh-comp.el (mh-reply-show-message-p): The setting of this - variable determines whether the MH show-buffer is diplayed with + variable determines whether the MH show-buffer is displayed with the current message when using mh-reply without a prefix argument. Set it to nil if you already include the message automatically in your draft using "repl: -filter repl.filter" in your ~/.mh_profile diff --git a/lisp/mh-e/mh-utils.el b/lisp/mh-e/mh-utils.el index 6132af17dab..00a03c87ed9 100644 --- a/lisp/mh-e/mh-utils.el +++ b/lisp/mh-e/mh-utils.el @@ -484,18 +484,18 @@ no effect." folder) (defmacro mh-children-p (folder) - "Return t if FOLDER from sub-folders cache has children. -The car of folder is the name, and the cdr is either t or some -sort of count that I do not understand. It's too small to be the -number of messages in the sub-folders and too large to be the -number of sub-folders. XXX" + "Return t if FOLDER from sub-folders cache has children." +;; The car of folder is the name, and the cdr is either t or some +;; sort of count that I do not understand. It's too small to be the +;; number of messages in the sub-folders and too large to be the +;; number of sub-folders. XXX" `(if (cdr ,folder) t nil)) ;;;###mh-autoload (defun mh-folder-list (folder) - "Return FOLDER and its descendents. + "Return FOLDER and its descendants. FOLDER may have a + prefix. Returns a list of strings without the + prefix. If FOLDER is nil, then all folders are considered. For example, if your Mail directory only contains the folders +inbox, diff --git a/lisp/nxml/xsd-regexp.el b/lisp/nxml/xsd-regexp.el index fbf0e159247..9701b8dc6e0 100644 --- a/lisp/nxml/xsd-regexp.el +++ b/lisp/nxml/xsd-regexp.el @@ -49,7 +49,7 @@ ;; Unicode character means a character in one of the Mule charsets ;; ascii, latin-iso8859-1, mule-unicode-0100-24ff, ;; mule-unicode-2500-33ff, mule-unicode-e000-ffff, eight-bit-control -;; or a character translateable to such a character (i.e a character +;; or a character translatable to such a character (i.e a character ;; for which `encode-char' will return non-nil). ;; ;; Using unify-8859-on-decoding-mode is probably a good idea here diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog index 477daf75534..4f4fbf0f931 100644 --- a/lisp/org/ChangeLog +++ b/lisp/org/ChangeLog @@ -1,3 +1,7 @@ +2011-11-20 Juanma Barranquero <lekktu@gmail.com> + + * org-table.el (org-table-line-to-dline): Fix typo. + 2011-11-16 Juanma Barranquero <lekktu@gmail.com> * org-agenda.el (org-agenda-add-entry-text-descriptive-links) @@ -6185,8 +6189,8 @@ 2010-11-11 Carsten Dominik <carsten.dominik@gmail.com> * org-indent.el (org-indent-add-properties): - Use `with-silent-modificatons'. - (org-indent-remove-properties): Use `with-silent-modificatons'. + Use `with-silent-modifications'. + (org-indent-remove-properties): Use `with-silent-modifications'. 2010-11-11 Carsten Dominik <carsten.dominik@gmail.com> @@ -13637,7 +13641,7 @@ 2009-08-06 Carsten Dominik <carsten.dominik@gmail.com> * org.el (org-remove-empty-overlays-at) - (org-clean-visibility-after-subtree-move): New functons. + (org-clean-visibility-after-subtree-move): New functions. (org-move-subtree-down): Simplify cleanup of display. 2009-08-06 Carsten Dominik <carsten.dominik@gmail.com> @@ -15201,7 +15205,7 @@ * org-exp.el (org-export-as-html): Use IDs in the correct way. - * org.el (org-uuidgen-p): New funtion. + * org.el (org-uuidgen-p): New function. * org-agenda.el (org-agenda-fontify-priorities): New default value `cookies'. @@ -17067,7 +17071,7 @@ (org-file-apps-defaults-macosx): Let PostScript files be opened by preview. (org-time-stamp-inactive): Call `org-time-stamp'. - (org-time-stamp): New argument `inactive'. Also edit inacive + (org-time-stamp): New argument `inactive'. Also edit inactive stamps. Convert time stamp type. (org-open-file): Interpret the `default' value for the `command' in `org-file-apps'. diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el index 72723845426..92c14f4cd59 100644 --- a/lisp/org/org-table.el +++ b/lisp/org/org-table.el @@ -1302,7 +1302,7 @@ However, when FORCE is non-nil, create new columns if necessary." (defun org-table-line-to-dline (line &optional above) "Turn a buffer line number into a data line number. If there is no data line in this line, return nil. -If there is no matching dline (most likely te refrence was a hline), the +If there is no matching dline (most likely the reference was a hline), the first dline below it is used. When ABOVE is non-nil, the one above is used." (catch 'exit (let ((ll (length org-table-dlines)) diff --git a/lisp/progmodes/cc-langs.el b/lisp/progmodes/cc-langs.el index 76dfb3c7a28..4a6344727b4 100644 --- a/lisp/progmodes/cc-langs.el +++ b/lisp/progmodes/cc-langs.el @@ -221,7 +221,7 @@ the evaluated constant value at compile time." ;; ;; OPS either has the structure of `c-operators', is a single ;; group in `c-operators', or is a plain list of operators. - ;; + ;; ;; OPGROUP-FILTER specifies how to select the operator groups. It ;; can be t to choose all groups, a list of group type symbols ;; (such as 'prefix) to accept, or a function which will be called diff --git a/lisp/progmodes/cfengine.el b/lisp/progmodes/cfengine.el index eea822328f1..823304bd250 100644 --- a/lisp/progmodes/cfengine.el +++ b/lisp/progmodes/cfengine.el @@ -24,7 +24,7 @@ ;;; Commentary: ;; Provides support for editing GNU Cfengine files, including -;; font-locking, Imenu and indention, but with no special keybindings. +;; font-locking, Imenu and indentation, but with no special keybindings. ;; The CFEngine 3.x support doesn't have Imenu support but patches are ;; welcome. diff --git a/lisp/progmodes/cwarn.el b/lisp/progmodes/cwarn.el index 211c856f9b7..0516aca8d2b 100644 --- a/lisp/progmodes/cwarn.el +++ b/lisp/progmodes/cwarn.el @@ -210,16 +210,16 @@ This function is designed to be added to hooks, for example: (defun cwarn-is-enabled (mode &optional feature) "Non-nil if CWarn FEATURE is enabled for MODE. -feature is an atom representing one construction to highlight. +FEATURE is an atom representing one construction to highlight. Check if any feature is enabled for MODE if no feature is specified. The valid features are described by the variable `cwarn-font-lock-feature-keywords-alist'." - (let ((mode-configuraion (assq mode cwarn-configuration))) - (and mode-configuraion + (let ((mode-configuration (assq mode cwarn-configuration))) + (and mode-configuration (or (null feature) - (let ((list-or-t (nth 1 mode-configuraion))) + (let ((list-or-t (nth 1 mode-configuration))) (or (eq list-or-t t) (if (eq (car-safe list-or-t) 'not) (not (memq feature (cdr list-or-t))) @@ -235,7 +235,7 @@ The valid features are described by the variable (eq (char-after) ?#))) (defun cwarn-font-lock-keywords (addp) - "Install/Remove keywords into current buffer. + "Install/remove keywords into current buffer. If ADDP is non-nil, install else remove." (dolist (pair cwarn-font-lock-feature-keywords-alist) (let ((feature (car pair)) diff --git a/lisp/progmodes/ebnf-dtd.el b/lisp/progmodes/ebnf-dtd.el index 204b6a91b0f..7b63575195e 100644 --- a/lisp/progmodes/ebnf-dtd.el +++ b/lisp/progmodes/ebnf-dtd.el @@ -515,7 +515,7 @@ ;; ----- ;; ;; At moment, only the `<!ELEMENT' generates a syntactic chart. The -;; `<!ATTLIST', `<!NOTATION' and `<!ENTITY' are syntacticly checked but they +;; `<!ATTLIST', `<!NOTATION' and `<!ENTITY' are syntactically checked but they ;; don't generate a syntactic chart. ;; ;; Besides the syntax above, ebnf-dtd also accepts a `pure' dtd file. An diff --git a/lisp/progmodes/idlwave.el b/lisp/progmodes/idlwave.el index 1233ee19ff6..d8715599d74 100644 --- a/lisp/progmodes/idlwave.el +++ b/lisp/progmodes/idlwave.el @@ -5789,7 +5789,7 @@ end (setq idlwave-idlwave_routine_info-compiled t)) ;; Restore if necessary. Must use execute to hide lame routine_info - ;; errors on undefinded routine + ;; errors on undefined routine (idlwave-shell-send-command (format "if execute(\"_v=routine_info('idlwave_routine_info',/SOURCE)\") eq 0 then restore,'%s' else if _v.path eq '' then restore,'%s'" idlwave-shell-temp-rinfo-save-file diff --git a/lisp/progmodes/pascal.el b/lisp/progmodes/pascal.el index 91a2e946753..b1502adbeb1 100644 --- a/lisp/progmodes/pascal.el +++ b/lisp/progmodes/pascal.el @@ -427,7 +427,7 @@ no args, if that value is non-nil." (pascal-indent-command)))) (defun electric-pascal-equal () - "Insert `=', and do indention if within type declaration." + "Insert `=', and do indentation if within type declaration." (interactive) (insert last-command-event) (if (eq (car (pascal-calculate-indent)) 'declaration) diff --git a/lisp/term/iris-ansi.el b/lisp/term/iris-ansi.el index 574b8389818..3e06810cce6 100644 --- a/lisp/term/iris-ansi.el +++ b/lisp/term/iris-ansi.el @@ -136,8 +136,8 @@ (define-key map "\e[Z" [?\S-\t]) (define-key map "\e[072q" [?\C-\t]) - ;; This only works if you remove the M-TAB keyring from the system.4Dwmrc - ;; our your ~/.4Dwmrc, if you use the 4Dwm window manager. + ;; This only works if you remove the M-TAB keybinding from the system.4Dwmrc + ;; or your ~/.4Dwmrc, if you use the 4Dwm window manager. (define-key map "\e[073q" [?\M-\t]) (define-key map "\e[074q" [?\M-q]) diff --git a/lisp/term/rxvt.el b/lisp/term/rxvt.el index 14c4ce1c8b7..c784892ce6b 100644 --- a/lisp/term/rxvt.el +++ b/lisp/term/rxvt.el @@ -118,7 +118,7 @@ ;; function keys F11->F42 from the termcap/terminfo information. On ;; a PC-style keyboard these keys correspond to ;; MODIFIER-FUNCTION_KEY, where modifier is S-, C-, C-S-. The - ;; code here subsitutes the corresponding definitions in + ;; code here substitutes the corresponding definitions in ;; function-key-map. This substitution is needed because if a key ;; definition if found in function-key-map, there are no further ;; lookups in other keymaps. diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el index d13437f4c7c..e7f2e3f1396 100644 --- a/lisp/textmodes/artist.el +++ b/lisp/textmodes/artist.el @@ -2338,7 +2338,7 @@ Octant are numbered 1--8, anti-clockwise as: 5 6)))) -;; Some inline funtions for creating, setting and reading +;; Some inline functions for creating, setting and reading ;; members of a coordinate ;; diff --git a/lisp/textmodes/reftex-dcr.el b/lisp/textmodes/reftex-dcr.el index 7de15c66cec..ff6ffffc382 100644 --- a/lisp/textmodes/reftex-dcr.el +++ b/lisp/textmodes/reftex-dcr.el @@ -361,7 +361,7 @@ will display info in the echo area." "View location in a LaTeX document which cites the BibTeX entry at point. Since BibTeX files can be used by many LaTeX documents, this function prompts upon first use for a buffer in RefTeX mode. To reset this -link to a document, call the function with with a prefix arg. +link to a document, call the function with a prefix arg. Calling this function several times find successive citation locations." (interactive "P") (when arg diff --git a/lisp/vc/vc-mtn.el b/lisp/vc/vc-mtn.el index 0b263e9c669..0fc7ba96fb7 100644 --- a/lisp/vc/vc-mtn.el +++ b/lisp/vc/vc-mtn.el @@ -299,7 +299,7 @@ If nil, use the value of `vc-diff-switches'. If t, use no switches." ids))) (defun vc-mtn-revision-completion-table (files) - ;; TODO: Implement completion for for selectors + ;; TODO: Implement completion for selectors ;; TODO: Implement completion for composite selectors. (lexical-let ((files files)) ;; What about using `files'?!? --Stef diff --git a/lisp/xml.el b/lisp/xml.el index 68aa5f4db6f..478872dd92e 100644 --- a/lisp/xml.el +++ b/lisp/xml.el @@ -756,7 +756,7 @@ This follows the rule [28] in the XML specifications." ;;******************************************************************* (defun xml-substitute-special (string) - "Return STRING, after subsituting entity references." + "Return STRING, after substituting entity references." ;; This originally made repeated passes through the string from the ;; beginning, which isn't correct, since then either "&amp;" or ;; "&amp;" won't DTRT. |