diff options
Diffstat (limited to 'lisp')
82 files changed, 158 insertions, 143 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 91724c54e8..9b76ce5e22 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,16 @@ +2011-11-15 Juanma Barranquero <lekktu@gmail.com> + + * allout.el (allout-encryption-plaintext-sanitization-regexps): + * frame.el (display-mm-dimensions-alist): + * outline.el (outline-mode-menu-bar-map, outline-move-subtree-up) + (outline-move-subtree-down): + * net/newst-treeview.el (newsticker--treeview-do-get-node-of-feed) + (newsticker--treeview-do-get-node): + * net/quickurl.el (quickurl-list-buffer-name): + * progmodes/dcl-mode.el (dcl-mode): + * progmodes/gdb-mi.el (gdb-mapcar*): + * progmodes/sql.el (sql-mode-oracle-font-lock-keywords): Fix typos. + 2011-11-15 Glenn Morris <rgm@gnu.org> * mail/rmail.el (rmail-file-coding-system): It's only ever used @@ -491,7 +504,7 @@ 2011-10-26 Michael Albinus <michael.albinus@gmx.de> * ido.el (ido-file-name-all-completions-1): Do not require - tramp.el explicitely. (Bug#7583) + tramp.el explicitly. (Bug#7583) 2011-10-26 Stefan Monnier <monnier@iro.umontreal.ca> diff --git a/lisp/ChangeLog.10 b/lisp/ChangeLog.10 index e084601269..36c3d68e96 100644 --- a/lisp/ChangeLog.10 +++ b/lisp/ChangeLog.10 @@ -3318,7 +3318,7 @@ ada-prj.el are now defined in this package, which makes it easier to edit menus. (ada-narrow-to-defun): Add support for `narrow-to-region'. - No longer explicitely load ada-xref.el and ada-prj.el. Use autoload + No longer explicitly load ada-xref.el and ada-prj.el. Use autoload statements instead. * progmodes/ada-xref.el (ada-gnatls-args): New variable. diff --git a/lisp/ChangeLog.12 b/lisp/ChangeLog.12 index 2cb3d27d69..ab7d25632d 100644 --- a/lisp/ChangeLog.12 +++ b/lisp/ChangeLog.12 @@ -764,7 +764,7 @@ Fix calls to get-buffer-window to find windows in other frames. Reported by David Hansen <david.hansen@gmx.net>. -2007-03-27 Kevin Ryde <user42@zip.com.au> +2007-03-27 Kevin Ryde <user42@zip.com.au> * info.el (Info-display-images-node): On a text-only terminal, show the "text" or "alt" parts of the image blobs. diff --git a/lisp/ChangeLog.13 b/lisp/ChangeLog.13 index d1cc345e15..429ff173fd 100644 --- a/lisp/ChangeLog.13 +++ b/lisp/ChangeLog.13 @@ -11855,7 +11855,7 @@ (org-agenda-files): Ignore non-existing files. (org-agenda-skip-unavailable-files): New variable. (org-ellipsis): All a face as value. - (org-mode): Interprete the face value of `org-ellipsis'. + (org-mode): Interpret the face value of `org-ellipsis'. (org-archive-save-context-info): New option. (org-archive-subtree): Store context info in archived entry. (org-fast-tag-selection-can-set-todo-state): New variable. @@ -11890,7 +11890,7 @@ (org-set-regexps-and-options): Use `org-remove-keyword-keys'. (org-remove-keyword-keys): New function. -2007-08-30 Jari Aalto <jari.aalto@cante.net> (tiny change) +2007-08-30 Jari Aalto <jari.aalto@cante.net> * progmodes/grep.el (grep-find-ignored-directories): Add monotone _MTN bookkeeping directory in workspaces. diff --git a/lisp/ChangeLog.14 b/lisp/ChangeLog.14 index e904c1f64b..a7e9d5fbaa 100644 --- a/lisp/ChangeLog.14 +++ b/lisp/ChangeLog.14 @@ -6724,7 +6724,7 @@ (rx-check-any): Return result as a list. Don't convert chars to strings. Don't prepend "\\" to "^". Don't search for close bracket. Check char category string. Call rx-form instead of rx-to-string. - (rx-any): Rebuid to complete the function. + (rx-any): Rebuild to complete the function. (rx-check-not): Fix char category regexp pattern string. Call rx-form instead of rx-to-string. (rx-not): Call rx-form instead of rx-to-string. Convert "[^]" to diff --git a/lisp/ChangeLog.15 b/lisp/ChangeLog.15 index e51e10df6a..9b4dddc076 100644 --- a/lisp/ChangeLog.15 +++ b/lisp/ChangeLog.15 @@ -3058,7 +3058,7 @@ * net/tramp-sh.el (tramp-sh-handle-start-file-process): Protect buffer-modified value. (Bug#7557) -2010-12-13 Jan Moringen <jmoringe@techfak.uni-bielefeld.de> +2010-12-13 Jan Moringen <jmoringe@techfak.uni-bielefeld.de> * log-edit.el (log-edit-changelog-entries): Regexp quote filename. (Bug#7505) @@ -12985,7 +12985,7 @@ file has no read permissions for the owner, there might be problems otherwise. Reported by Ole Laursen <olau@iola.dk>. -22010-02-18 Glenn Morris <rgm@gnu.org> +2010-02-18 Glenn Morris <rgm@gnu.org> * emacs-lisp/authors.el (authors-renamed-files-alist): Add entries for INSTALL.CVS. @@ -13597,7 +13597,7 @@ * textmodes/artist.el (artist-compute-popup-menu-table): Remove duplicated words in doc-strings. -2010-01-15 David Abrahams <dave@boostpro.com> (tiny change) +2010-01-15 David Abrahams <dave@boostpro.com> (tiny change) * net/mairix.el (mairix-widget-send-query): Send -1 instead of nil to mairix-search to suppress threading (Bug#5342). diff --git a/lisp/ChangeLog.5 b/lisp/ChangeLog.5 index 5e261722cb..28d8e72603 100644 --- a/lisp/ChangeLog.5 +++ b/lisp/ChangeLog.5 @@ -879,7 +879,7 @@ * ada-mode.el (initial comments): Copyright 1995; don't speak about setup; correct history for a file that actually IS in Emacs 19.29; update list of known bugs. - (all functions): Initialize all local variables explicitely to 'nil'. + (all functions): Initialize all local variables explicitly to 'nil'. (ada-font-lock-keywords): Initialized according to new user option `font-lock-maximum-decoration'. diff --git a/lisp/ChangeLog.7 b/lisp/ChangeLog.7 index e9723e04a2..35204641fb 100644 --- a/lisp/ChangeLog.7 +++ b/lisp/ChangeLog.7 @@ -6815,9 +6815,9 @@ `reftex-no-include-regexps'. (reftex-no-include-regexps): New option. (reftex-do-parse): Initialize appendix flag. - (reftex-parse-from-file): Interprete appendix. + (reftex-parse-from-file): Interpret appendix. (reftex-section-info): Use changed version of reftex-section-number. - (reftex-where-am-I): Interprete appendix match. + (reftex-where-am-I): Interpret appendix match. (reftex-init-section-numbers): New arg: appendix. (reftex-section-number): Treat appendix enumeration. (reftex-toc-external): Improved message. @@ -11240,7 +11240,7 @@ (reftex-cite-comment-format): New variable. (reftex-cite-punctuation): New variable. (reftex-make-master-buffer): Changed name of master buffer, - removed interactive. Runs a hook on the buffer. Interprete + removed interactive. Runs a hook on the buffer. Interpret TEXINPUTS environment variable. Allow naked argument for \input. Master buffer is now in fundamental mode. (reftex-access-scan-info): Name of master buffer changed. @@ -11264,9 +11264,9 @@ (reftex-allow-for-ctrl-m): New function. (reftex-label-info-update): Allow more general label commands. (reftex-label-info): New parameter derive. - (reftex-short-context): Interprete integer parse as nth arg of macro. + (reftex-short-context): Interpret integer parse as nth arg of macro. (reftex-nth-parens-substring): New function. - (reftex-select-item): Interprete the new 'cnt text property. + (reftex-select-item): Interpret the new 'cnt text property. (reftex-pop-to-label): Allow more general label commands. (reftex-nicify-text): Allow more general label commands. (reftex-toc): Remember previous window configuration. Use text diff --git a/lisp/ChangeLog.8 b/lisp/ChangeLog.8 index 33970b9555..36427d79ae 100644 --- a/lisp/ChangeLog.8 +++ b/lisp/ChangeLog.8 @@ -3475,8 +3475,8 @@ (reftex-process-string): Preserve default directory. (reftex-label-alist-builtin): Changed prefixes of endnote and footnote. Also the magic words. - (reftex-reference): Interprete new option `reftex-fref-is-default'. - (reftex-replace-prefix-escapes): Interprete new `%S' format. + (reftex-reference): Interpret new option `reftex-fref-is-default'. + (reftex-replace-prefix-escapes): Interpret new `%S' format. (reftex-toc-mouse-view-line): Command removed (had no binding). (reftex-everything-regexp): New function. (reftex-nearest-match): Made better. @@ -9750,11 +9750,11 @@ * international/mule.el (charset-description): Doc fix. * language/chinese.el, language/cyrillic.el, language/czech.el, - language/devanagari.el, language/ethiopic.el, - language/european.el, language/hebrew.el, language/indian.el, - language/japanese.el, language/korean.el, language/lao.el, - language/slovak.el, language/thai.el, language/tibetan.el, - language/vietnamese.el: + * language/devanagari.el, language/ethiopic.el, + * language/european.el, language/hebrew.el, language/indian.el, + * language/japanese.el, language/korean.el, language/lao.el, + * language/slovak.el, language/thai.el, language/tibetan.el, + * language/vietnamese.el: Add coding: local variable, to avoid bootstrapping problem if you need to recompile all the Lisp files using interpreted code. diff --git a/lisp/ChangeLog.9 b/lisp/ChangeLog.9 index d25556ce17..4fea4a79b6 100644 --- a/lisp/ChangeLog.9 +++ b/lisp/ChangeLog.9 @@ -2030,7 +2030,7 @@ Do not bind locally the uniquify-possibly-resolvable flag. Use the cached proposed name is possible. (uniquify-get-proposed-name): Arguments changed, callers changed. - (uniquify-rationalize-conflicting-sublist): Explicitely reset the + (uniquify-rationalize-conflicting-sublist): Explicitly reset the uniquify-possibly-resolvable flag, which is no more bound locally. (uniquify-rename-buffer): Do not set the old unrationalised-buffer flag, which does not exist any more. @@ -17396,7 +17396,7 @@ 2000-05-25 Kenichi Handa <handa@etl.go.jp> - * international/mule-conf.el: Specify CHARSET-ID explicitely for + * international/mule-conf.el: Specify CHARSET-ID explicitly for private charsets. (mule-unicode-0100-24ff, japanese-jisx0213-1, japanese-jisx0213-2): New charsets. diff --git a/lisp/allout.el b/lisp/allout.el index df2a21ffb2..2a4f5cbafb 100644 --- a/lisp/allout.el +++ b/lisp/allout.el @@ -1537,7 +1537,7 @@ Entries must be symbols that are bound to the desired values. Each value can be a regexp or a list with a regexp followed by a substitution string. If it's just a regexp, all its matches are removed before the text is encrypted. If it's a regexp and a substitution, the -substition is used against the regexp matches, a la `replace-match'.") +substitution is used against the regexp matches, a la `replace-match'.") (make-variable-buffer-local 'allout-encryption-text-removal-regexps) ;;;_ = allout-encryption-ciphertext-rejection-regexps (defvar allout-encryption-ciphertext-rejection-regexps nil @@ -3822,7 +3822,7 @@ Nuances: (if (and (not (eobp)) (or (not (bolp)) (and (not (bobp)) - ;; bolp doesnt detect concealed + ;; bolp doesn't detect concealed ;; trailing newlines, compensate: (save-excursion (forward-char -1) diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index 55ac412b43..60a84bdff3 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el @@ -124,7 +124,7 @@ ;; target integral is not complete (and the time limit has not run out) ;; choose an incomplete integral from the cache and, for every integral ;; appearing in its RHS's, add those integrals to the cache using the -;; same substitition, parts, etc. rules. The cache should be organized +;; same substitution, parts, etc. rules. The cache should be organized ;; as a priority queue, choosing the "simplest" incomplete integral at ;; each step, or choosing randomly among equally simple integrals. ;; Simplicity equals small size, and few steps removed from the original @@ -428,7 +428,7 @@ in normal mode." nil "If non-nil, use a separate face to indicate selected sub-formulas. If `calc-show-selections' is non-nil, then selected sub-formulas are shown -by displaying the rest of the formula in `calc-nonselected-face'. +by displaying the rest of the formula in `calc-nonselected-face'. If `calc-show-selections' is nil, then selected sub-formulas are shown by displaying the sub-formula in `calc-selected-face'." :group 'calc @@ -446,14 +446,14 @@ by displaying the sub-formula in `calc-selected-face'." :group 'calc :type '(string)) -(defcustom calc-note-threshold "1" +(defcustom calc-note-threshold "1" "The number of cents that a frequency should be near a note to be identified as that note." :type 'string :group 'calc) (defface calc-nonselected-face - '((t :inherit shadow + '((t :inherit shadow :slant italic)) "Face used to show the non-selected portion of a formula." :group 'calc) diff --git a/lisp/cedet/ede/emacs.el b/lisp/cedet/ede/emacs.el index b8759dd06e..c1ca8b6920 100644 --- a/lisp/cedet/ede/emacs.el +++ b/lisp/cedet/ede/emacs.el @@ -63,7 +63,7 @@ DIR is the directory to search from." (if proj (ede-up-directory (file-name-directory (oref proj :file))) - ;; No pre-existing project. Lets take a wild-guess if we have + ;; No pre-existing project. Let's take a wild-guess if we have ;; an Emacs project here. (when (string-match "emacs[^/]*" dir) (let ((base (substring dir 0 (match-end 0)))) @@ -121,7 +121,7 @@ Return nil if there isn't one. Argument DIR is the directory it is created for. ROOTPROJ is nil, since there is only one project." (or (ede-emacs-file-existing dir) - ;; Doesn't already exist, so lets make one. + ;; Doesn't already exist, so let's make one. (let* ((vertuple (ede-emacs-version dir))) (ede-emacs-project (car vertuple) :name (car vertuple) diff --git a/lisp/cedet/ede/files.el b/lisp/cedet/ede/files.el index 3d165c3901..6179d30446 100644 --- a/lisp/cedet/ede/files.el +++ b/lisp/cedet/ede/files.el @@ -101,7 +101,7 @@ of the anchor file for the project." (setq ans SP) (ede-find-subproject-for-directory SP dir))))) ans) - ;; We can use inodes, so lets try it. + ;; We can use inodes, so let's try it. (let ((ans nil) (inode (ede--inode-for-dir dir))) (ede-map-subprojects diff --git a/lisp/cedet/ede/generic.el b/lisp/cedet/ede/generic.el index 8cf82d9f29..7efe534a64 100644 --- a/lisp/cedet/ede/generic.el +++ b/lisp/cedet/ede/generic.el @@ -133,7 +133,7 @@ Return nil if there isn't one. Argument DIR is the directory it is created for. ROOTPROJ is nil, since there is only one project." - ;; Doesn't already exist, so lets make one. + ;; Doesn't already exist, so let's make one. (let* ((alobj ede-constructing) (this nil)) (when (not alobj) (error "Cannot load generic project without the autoload instance")) diff --git a/lisp/cedet/ede/linux.el b/lisp/cedet/ede/linux.el index e11286c710..0ed9c3054e 100644 --- a/lisp/cedet/ede/linux.el +++ b/lisp/cedet/ede/linux.el @@ -62,7 +62,7 @@ DIR is the directory to search from." (if proj (ede-up-directory (file-name-directory (oref proj :file))) - ;; No pre-existing project. Lets take a wild-guess if we have + ;; No pre-existing project. Let's take a wild-guess if we have ;; an Linux project here. (when (string-match "linux[^/]*" dir) (let ((base (substring dir 0 (match-end 0)))) @@ -101,7 +101,7 @@ Return nil if there isn't one. Argument DIR is the directory it is created for. ROOTPROJ is nil, since there is only one project." (or (ede-linux-file-existing dir) - ;; Doesn't already exist, so lets make one. + ;; Doesn't already exist, so let's make one. (ede-linux-project "Linux" :name "Linux" :version (ede-linux-version dir) diff --git a/lisp/cedet/ede/project-am.el b/lisp/cedet/ede/project-am.el index 216138d0ba..316309092e 100644 --- a/lisp/cedet/ede/project-am.el +++ b/lisp/cedet/ede/project-am.el @@ -659,7 +659,7 @@ Strip out duplicates, and recurse on variables." ;; their object still exists! ;; FIGURE THIS OUT (project-am-expand-subdirlist 'csubprojexpanded csubproj) - ;; Ok, now lets look at all our sub-projects. + ;; Ok, now let's look at all our sub-projects. (mapc (lambda (sp) (let* ((subdir (file-name-as-directory (expand-file-name diff --git a/lisp/cedet/inversion.el b/lisp/cedet/inversion.el index 71960ddecd..065ac6d055 100644 --- a/lisp/cedet/inversion.el +++ b/lisp/cedet/inversion.el @@ -419,7 +419,7 @@ INSTALLDIR path." ;;(message "%S added to `load-path'" default-directory) (add-to-list 'load-path default-directory)) ;; We get to this point iff we do not accept or there is no - ;; system file. Lets check the version of what we just + ;; system file. Let's check the version of what we just ;; installed... just to be safe. (let ((newver (inversion-find-version package))) (if (not newver) diff --git a/lisp/cedet/semantic/analyze.el b/lisp/cedet/semantic/analyze.el index 525086022d..43e998b852 100644 --- a/lisp/cedet/semantic/analyze.el +++ b/lisp/cedet/semantic/analyze.el @@ -287,7 +287,7 @@ Optional argument THROWSYM specifies a symbol the throw on non-recoverable error ;; For the middle entries (while s - ;; Using the tag found in TMP, lets find the tag + ;; Using the tag found in TMP, let's find the tag ;; representing the full typeographic information of its ;; type, and use that to determine the search context for ;; (car s) diff --git a/lisp/cedet/semantic/bovine/el.el b/lisp/cedet/semantic/bovine/el.el index c19df6aed7..1a4e0d9f6b 100644 --- a/lisp/cedet/semantic/bovine/el.el +++ b/lisp/cedet/semantic/bovine/el.el @@ -515,7 +515,7 @@ Optional argument NOSNARF is ignored." (let ((d (semantic-tag-docstring tag))) (when (not d) (cond ((semantic-tag-with-position-p tag) - ;; Doc isn't in the tag itself. Lets pull it out of the + ;; Doc isn't in the tag itself. Let's pull it out of the ;; sources. (let ((semantic-elisp-store-documentation-in-tag t)) (setq tag (with-current-buffer (semantic-tag-buffer tag) diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el index 18c7b5a1a5..f1aee1ef38 100644 --- a/lisp/cedet/semantic/complete.el +++ b/lisp/cedet/semantic/complete.el @@ -1618,7 +1618,7 @@ Display mechanism using tooltip for a list of possible completions.") (string= (this-command-keys) "\C-i")) (oset obj typing-count (1+ typing-count))) ;; At this point, we know we have too many items. - ;; Lets be brave, and truncate l + ;; Let's be brave, and truncate l (setcdr (nthcdr (oref obj max-tags) l) nil) (setq msg (mapconcat 'identity l "\n")) (cond diff --git a/lisp/cedet/semantic/ctxt.el b/lisp/cedet/semantic/ctxt.el index 1108e01987..4fef5937bc 100644 --- a/lisp/cedet/semantic/ctxt.el +++ b/lisp/cedet/semantic/ctxt.el @@ -410,7 +410,7 @@ Depends on `semantic-type-relation-separator-character'." ;; Set our end point. (setq end (point)) - ;; Now that we have gotten started, lets do the rest. + ;; Now that we have gotten started, let's do the rest. (condition-case nil (while (save-excursion (forward-char -1) diff --git a/lisp/cedet/semantic/db-ebrowse.el b/lisp/cedet/semantic/db-ebrowse.el index d719fde317..fe5f3c193d 100644 --- a/lisp/cedet/semantic/db-ebrowse.el +++ b/lisp/cedet/semantic/db-ebrowse.el @@ -219,7 +219,7 @@ warn instead." ;JAVE this just instantiates a default empty ebrowse struct? ; how would new instances wind up here? -; the ebrowse class isnt singleton, unlike the emacs lisp one +; the ebrowse class isn't singleton, unlike the emacs lisp one (defvar-mode-local c++-mode semanticdb-project-system-databases () "Search Ebrowse for symbols.") @@ -296,7 +296,7 @@ If there is no database for DIRECTORY available, then (when (string= (oref (car dbs) reference-directory) directory) (setq found (car dbs)))) (setq dbs (cdr dbs))) - ;;STATIC means DBE cant be used as object, only as a class + ;;STATIC means DBE can't be used as object, only as a class (let* ((ebrowse-data (semanticdb-ebrowse-get-ebrowse-structure directory)) (dat (car (cdr ebrowse-data))) (ebd (car dat)) @@ -331,7 +331,7 @@ If there is no database for DIRECTORY available, then ;JAVE what it actually seems to do is split the original tree in "tables" associated with files ; im not sure it actually works: ; the filename slot sometimes gets to be nil, -; apparently for classes which definition cant be found, yet needs to be included in the tree +; apparently for classes which definition can't be found, yet needs to be included in the tree ; like library baseclasses ; a file can define several classes (let ((T (car (cdr data))));1st comes a header, then the tree diff --git a/lisp/cedet/semantic/db-typecache.el b/lisp/cedet/semantic/db-typecache.el index 76428057ef..ce76dddf35 100644 --- a/lisp/cedet/semantic/db-typecache.el +++ b/lisp/cedet/semantic/db-typecache.el @@ -473,7 +473,7 @@ found tag to be loaded." ;; find a type/namespace because everything else is excluded. ;; If this is not the last entry from the list, then it - ;; must be a type or a namespace. Lets double check. + ;; must be a type or a namespace. Let's double check. (when (cdr type) ;; From above, there is only one tag in ans, and we prefer @@ -511,7 +511,7 @@ found tag to be loaded." ;; This won't liven up the tag since we have a copy, but ;; we ought to be able to get there and go to the right line. (find-file-noselect lastfile) - ;; We don't want to find-file match, so instead lets + ;; We don't want to find-file match, so instead let's ;; push the filename onto the return tag. (when lastans (setq lastans (semantic-tag-copy lastans nil lastfile)) diff --git a/lisp/cedet/semantic/db.el b/lisp/cedet/semantic/db.el index 65897b96ad..f83d30ac12 100644 --- a/lisp/cedet/semantic/db.el +++ b/lisp/cedet/semantic/db.el @@ -459,7 +459,7 @@ other than :table." (setq cache (cdr cache))) (if obj obj ;; Just return it. - ;; No object, lets create a new one and return that. + ;; No object, let's create a new one and return that. (setq obj (funcall desired-class "Cache" :table table)) (object-add-to-list table 'cache obj) obj))) @@ -510,7 +510,7 @@ other than :table." (setq cache (cdr cache))) (if obj obj ;; Just return it. - ;; No object, lets create a new one and return that. + ;; No object, let's create a new one and return that. (setq obj (funcall desired-class "Cache" :db db)) (object-add-to-list db 'cache obj) obj))) @@ -941,7 +941,7 @@ DONTLOAD does not affect the creation of new database objects." (setq fullfile (file-truename file)) ) - ;; If we have a table, but no fullfile, that's ok. Lets get the filename + ;; If we have a table, but no fullfile, that's ok. Let's get the filename ;; from the table which is pre-truenamed. (when (and (not fullfile) tab) (setq fullfile (semanticdb-full-filename tab))) diff --git a/lisp/cedet/semantic/decorate/include.el b/lisp/cedet/semantic/decorate/include.el index e32aca54b0..766a13023e 100644 --- a/lisp/cedet/semantic/decorate/include.el +++ b/lisp/cedet/semantic/decorate/include.el @@ -739,7 +739,7 @@ any decorated referring includes.") "Refresh any highlighting in buffers referred to by TABLE. If TABLE is not in a buffer, do nothing." ;; This cache removal may seem odd in that we are "creating one", but - ;; since we cant get in the fcn unless one exists, this ought to be + ;; since we can't get in the fcn unless one exists, this ought to be ;; ok. (let ((c (semanticdb-cache-get table 'semantic-decoration-unparsed-include-cache))) diff --git a/lisp/cedet/semantic/doc.el b/lisp/cedet/semantic/doc.el index e5579d0911..ec3b5878c6 100644 --- a/lisp/cedet/semantic/doc.el +++ b/lisp/cedet/semantic/doc.el @@ -56,7 +56,7 @@ If nosnarf if 'lex, then only return the lex token." ;; Check just before the definition. (when (semantic-tag-with-position-p tag) (semantic-documentation-comment-preceeding-tag tag nosnarf)) - ;; Lets look for comments either after the definition, but before code: + ;; Let's look for comments either after the definition, but before code: ;; Not sure yet. Fill in something clever later.... nil)))))) diff --git a/lisp/cedet/semantic/edit.el b/lisp/cedet/semantic/edit.el index e7ed8c5ee4..8115f3c9a1 100644 --- a/lisp/cedet/semantic/edit.el +++ b/lisp/cedet/semantic/edit.el @@ -316,7 +316,7 @@ See `semantic-edits-change-leaf-tag' for details on parents." (setq list-to-search nil))) ;; Search list is nil. )) - ;; If we have a search list, lets go. Otherwise nothing. + ;; If we have a search list, let's go. Otherwise nothing. (while (and list-to-search (not found)) (if (cdr list-to-search) ;; We end when the start of the CDR is after the end of our diff --git a/lisp/cedet/semantic/format.el b/lisp/cedet/semantic/format.el index 381801559d..8a099a9bfb 100644 --- a/lisp/cedet/semantic/format.el +++ b/lisp/cedet/semantic/format.el @@ -431,7 +431,7 @@ Optional argument COLOR means highlight the prototype with font-lock colors." (doc (semantic-tag-docstring tag buf))) (when (and (not doc) (not buf) fname) ;; If there is no doc, and no buffer, but we have a filename, - ;; lets try again. + ;; let's try again. (save-match-data (setq buf (find-file-noselect fname))) (setq doc (semantic-tag-docstring tag buf))) diff --git a/lisp/cedet/semantic/ia.el b/lisp/cedet/semantic/ia.el index 3941424e4b..50de8e4f57 100644 --- a/lisp/cedet/semantic/ia.el +++ b/lisp/cedet/semantic/ia.el @@ -115,7 +115,7 @@ Completion options are calculated with `semantic-analyze-possible-completions'." (if (null syms) (if (semantic-analyze-context-p a) ;; This is a clever hack. If we were unable to find any - ;; smart completions, lets divert to how senator derives + ;; smart completions, let's divert to how senator derives ;; completions. ;; ;; This is a way of making this fcn more useful since @@ -251,8 +251,8 @@ Completion options are calculated with `semantic-analyze-possible-completions'." "Jump to DEST, a Semantic tag. This helper manages the mark, buffer switching, and pulsing." ;; We have a tag, but in C++, we usually get a prototype instead - ;; because of header files. Lets try to find the actual - ;; implementaion instead. + ;; because of header files. Let's try to find the actual + ;; implementation instead. (when (semantic-tag-prototype-p dest) (let* ((refs (semantic-analyze-tag-references dest)) (impl (semantic-analyze-refs-impl refs t)) diff --git a/lisp/cedet/semantic/idle.el b/lisp/cedet/semantic/idle.el index 1c1233303e..b49d1db1ad 100644 --- a/lisp/cedet/semantic/idle.el +++ b/lisp/cedet/semantic/idle.el @@ -427,7 +427,7 @@ datasets." (defun semantic-idle-scheduler-work-parse-neighboring-files () "Parse all the files in similar directories to buffers being edited." - ;; Lets check to see if EDE matters. + ;; Let's check to see if EDE matters. (let ((ede-auto-add-method 'never)) (dolist (a auto-mode-alist) (when (eq (cdr a) major-mode) diff --git a/lisp/cedet/semantic/scope.el b/lisp/cedet/semantic/scope.el index 64e60fae0f..16deb24552 100644 --- a/lisp/cedet/semantic/scope.el +++ b/lisp/cedet/semantic/scope.el @@ -186,7 +186,7 @@ Use `semantic-ctxt-scoped-types' to find types." (save-excursion (goto-char position) (let ((code-scoped-types nil)) - ;; Lets ask if any types are currently scoped. Scoped + ;; Let's ask if any types are currently scoped. Scoped ;; classes and types provide their public methods and types ;; in source code, but are unrelated hierarchically. (let ((sp (semantic-ctxt-scoped-types))) @@ -249,7 +249,7 @@ are from nesting data types." ;; Analyze the stack of tags we are nested in as parents. ;; - ;; If we have a pparent tag, lets go there + ;; If we have a pparent tag, let's go there ;; an analyze that stack of tags. (when (and pparent (semantic-tag-with-position-p pparent)) (semantic-go-to-tag pparent) diff --git a/lisp/cedet/semantic/symref/grep.el b/lisp/cedet/semantic/symref/grep.el index 1571622b29..da250e66bb 100644 --- a/lisp/cedet/semantic/symref/grep.el +++ b/lisp/cedet/semantic/symref/grep.el @@ -102,7 +102,7 @@ ROOTDIR is the root location to run the `find' from. FILEPATTERN is a string representing find flags for searching file patterns. GREPFLAGS are flags passed to grep, such as -n or -l. GREPPATTERN is the pattern used by grep." - ;; We have grep-compute-defaults. Lets use it. + ;; We have grep-compute-defaults. Let's use it. (grep-compute-defaults) (let* ((grep-expand-keywords semantic-symref-grep-expand-keywords) (cmd (grep-expand-template grep-find-template diff --git a/lisp/cedet/semantic/texi.el b/lisp/cedet/semantic/texi.el index 30c5a5cf8b..e79953400a 100644 --- a/lisp/cedet/semantic/texi.el +++ b/lisp/cedet/semantic/texi.el @@ -579,7 +579,7 @@ Note: TYPE not yet implemented." ;; (setq doctag (if docstring sourcetag nil)))) ;; (setq tags (cdr tags))))) ;; ;; If we found a prototype of the function that has some doc, but not the -;; ;; actual function, lets make due with that. +;; ;; actual function, let's make due with that. ;; (if (not docstring) ;; (cond ((stringp docstringvar) ;; (setq docstring docstringvar diff --git a/lisp/cedet/srecode/dictionary.el b/lisp/cedet/srecode/dictionary.el index 272e7693cc..5f6806a06b 100644 --- a/lisp/cedet/srecode/dictionary.el +++ b/lisp/cedet/srecode/dictionary.el @@ -280,7 +280,7 @@ inserted dictionaries." (progn (srecode-dictionary-show-section new "FIRST") (srecode-dictionary-show-section new "LAST")) - ;; Not the very first one. Lets clean up CAR. + ;; Not the very first one. Let's clean up CAR. (let ((tail (car (last ov)))) (srecode-dictionary-hide-section tail "LAST") (srecode-dictionary-show-section tail "NOTLAST") diff --git a/lisp/cedet/srecode/fields.el b/lisp/cedet/srecode/fields.el index d7ca84c1f9..f13fb17ca8 100644 --- a/lisp/cedet/srecode/fields.el +++ b/lisp/cedet/srecode/fields.el @@ -338,7 +338,7 @@ PRE-LEN is used in the after mode for the length of the changed text." (inhibit-modification-hooks t) ) ;; Sometimes a field is deleted, but we might still get a stray - ;; event. Lets just ignore those events. + ;; event. Let's just ignore those events. (when (slot-boundp field 'overlay) ;; First, fixup the two overlays, in case they got confused. (let ((main (oref field overlay)) diff --git a/lisp/cedet/srecode/find.el b/lisp/cedet/srecode/find.el index fdca64a7da..d9765ebd44 100644 --- a/lisp/cedet/srecode/find.el +++ b/lisp/cedet/srecode/find.el @@ -103,7 +103,7 @@ If TAB is nil, then always return t." (let ((proj (oref tab :project))) ;; Return t if the project wasn't set. (if (not proj) t - ;; If the project directory was set, lets check it. + ;; If the project directory was set, let's check it. (let ((dd (expand-file-name default-directory)) (projexp (regexp-quote (directory-file-name proj)))) (if (string-match (concat "^" projexp) dd) diff --git a/lisp/cedet/srecode/texi.el b/lisp/cedet/srecode/texi.el index 33440d0443..acfc248671 100644 --- a/lisp/cedet/srecode/texi.el +++ b/lisp/cedet/srecode/texi.el @@ -231,7 +231,7 @@ This is to take advantage of TeXinfo's markup symbols." (if buffer (progn (set-buffer buffer) (srecode-texi-texify-docstring string)) - ;; Else, no buffer, so lets do something else + ;; Else, no buffer, so let's do something else (with-mode-local texinfo-mode (srecode-texi-texify-docstring string))))) diff --git a/lisp/emacs-lisp/cconv.el b/lisp/emacs-lisp/cconv.el index 742a98f5e7..c6e157be77 100644 --- a/lisp/emacs-lisp/cconv.el +++ b/lisp/emacs-lisp/cconv.el @@ -26,21 +26,21 @@ ;; This takes a piece of Elisp code, and eliminates all free variables from ;; lambda expressions. The user entry points are cconv-closure-convert and -;; cconv-closure-convert-toplevel(for toplevel forms). +;; cconv-closure-convert-toplevel (for toplevel forms). ;; All macros should be expanded beforehand. ;; ;; Here is a brief explanation how this code works. -;; Firstly, we analyse the tree by calling cconv-analyse-form. +;; Firstly, we analyze the tree by calling cconv-analyse-form. ;; This function finds all mutated variables, all functions that are suitable ;; for lambda lifting and all variables captured by closure. It passes the tree ;; once, returning a list of three lists. ;; -;; Then we calculate the intersection of first and third lists returned by +;; Then we calculate the intersection of the first and third lists returned by ;; cconv-analyse form to find all mutated variables that are captured by ;; closure. ;; Armed with this data, we call cconv-closure-convert-rec, that rewrites the -;; tree recursivly, lifting lambdas where possible, building closures where it +;; tree recursively, lifting lambdas where possible, building closures where it ;; is needed and eliminating mutable variables used in closure. ;; ;; We do following replacements : @@ -142,7 +142,7 @@ Returns a form where all lambdas don't have any free variables." (let ((cconv-freevars-alist '()) (cconv-lambda-candidates '()) (cconv-captured+mutated '())) - ;; Analyse form - fill these variables with new information. + ;; Analyze form - fill these variables with new information. (cconv-analyse-form form '()) (setq cconv-freevars-alist (nreverse cconv-freevars-alist)) (cconv-convert form nil nil))) ; Env initially empty. @@ -581,7 +581,7 @@ FORM is the parent form that binds this var." (defun cconv-analyse-form (form env) "Find mutated variables and variables captured by closure. -Analyse lambdas if they are suitable for lambda lifting. +Analyze lambdas if they are suitable for lambda lifting. - FORM is a piece of Elisp code after macroexpansion. - ENV is an alist mapping each enclosing lexical variable to its info. I.e. each element has the form (VAR . (READ MUTATED CAPTURED CALLED)). diff --git a/lisp/emacs-lisp/chart.el b/lisp/emacs-lisp/chart.el index 56930a7469..75e7d62f39 100644 --- a/lisp/emacs-lisp/chart.el +++ b/lisp/emacs-lisp/chart.el @@ -634,7 +634,7 @@ SORT-PRED if desired." (setq extlst (cons s extlst) cntlst (cons 1 cntlst))))) (setq flst (cdr flst))) - ;; Lets create the chart! + ;; Let's create the chart! (chart-bar-quickie 'vertical "Files Extension Distribution" extlst "File Extensions" cntlst "# of occurrences" @@ -693,7 +693,7 @@ SORT-PRED if desired." ;(car (nth 5 data)) ; floats are Emacs only ;(cdr (nth 5 data)) ))) - ;; Lets create the chart! + ;; Let's create the chart! (chart-bar-quickie 'vertical "Emacs Runtime Storage Usage" names "Storage Items" nums "Objects"))) @@ -710,7 +710,7 @@ SORT-PRED if desired." (if (fboundp 'x-display-list) (setq names (append names '("x-displays")) nums (append nums (list (length (x-display-list)))))) - ;; Lets create the chart! + ;; Let's create the chart! (chart-bar-quickie 'vertical "Emacs List Size Chart" names "Various Lists" nums "Objects"))) diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el index 119424e789..62325d5190 100644 --- a/lisp/emacs-lisp/eieio.el +++ b/lisp/emacs-lisp/eieio.el @@ -553,7 +553,7 @@ See `defclass' for more information." (put cname 'cl-deftype-handler (list 'lambda () `(list 'satisfies (quote ,csym))))) - ;; before adding new slots, lets add all the methods and classes + ;; before adding new slots, let's add all the methods and classes ;; in from the parent class (eieio-copy-parents-into-subclass newc superclasses) @@ -826,7 +826,7 @@ if default value is nil." ;; Make sure we duplicate those items that are sequences. (condition-case nil (if (sequencep d) (setq d (copy-sequence d))) - ;; This copy can fail on a cons cell with a non-cons in the cdr. Lets skip it if it doesn't work. + ;; This copy can fail on a cons cell with a non-cons in the cdr. Let's skip it if it doesn't work. (error nil)) (if (sequencep type) (setq type (copy-sequence type))) (if (sequencep cust) (setq cust (copy-sequence cust))) @@ -1470,7 +1470,7 @@ created by the :initarg tag." (c (eieio-slot-name-index class obj slot))) (if (not c) ;; It might be missing because it is a :class allocated slot. - ;; Lets check that info out. + ;; Let's check that info out. (if (setq c (eieio-class-slot-name-index class slot)) ;; Oref that slot. (aref (aref (class-v class) class-class-allocation-values) c) @@ -1503,7 +1503,7 @@ Fills in OBJ's SLOT with its default value." (c (eieio-slot-name-index cl obj slot))) (if (not c) ;; It might be missing because it is a :class allocated slot. - ;; Lets check that info out. + ;; Let's check that info out. (if (setq c (eieio-class-slot-name-index cl slot)) ;; Oref that slot. @@ -1549,7 +1549,7 @@ Fills in OBJ's SLOT with VALUE." (let ((c (eieio-slot-name-index (object-class-fast obj) obj slot))) (if (not c) ;; It might be missing because it is a :class allocated slot. - ;; Lets check that info out. + ;; Let's check that info out. (if (setq c (eieio-class-slot-name-index (aref obj object-class) slot)) ;; Oset that slot. @@ -1581,7 +1581,7 @@ Fills in the default value in CLASS' in SLOT with VALUE." (c (eieio-slot-name-index class nil slot))) (if (not c) ;; It might be missing because it is a :class allocated slot. - ;; Lets check that info out. + ;; Let's check that info out. (if (setq c (eieio-class-slot-name-index class slot)) (progn ;; Oref that slot. diff --git a/lisp/emacs-lisp/regi.el b/lisp/emacs-lisp/regi.el index 8000dcd53d..6905589e5b 100644 --- a/lisp/emacs-lisp/regi.el +++ b/lisp/emacs-lisp/regi.el @@ -161,7 +161,7 @@ useful information: (progn (goto-char end) (regi-pos 'bonl)) (progn (goto-char start) (regi-pos 'bol))))) - ;; lets find the special tags and remove them from the working + ;; let's find the special tags and remove them from the working ;; frame. note that only the last special tag is used. (mapc (function diff --git a/lisp/erc/ChangeLog.03 b/lisp/erc/ChangeLog.03 index 43d0247bce..956ef5f4c6 100644 --- a/lisp/erc/ChangeLog.03 +++ b/lisp/erc/ChangeLog.03 @@ -1305,7 +1305,7 @@ * (erc-current-logfile): call expand-file-name, so that downcase doesn't mess up ~ * erc.el: * (erc-mode): Define a proper case-table. - * (erc-downcase): just call downcase for now, lets see if the case-table is portable, if yes, we'll remove all erc-downcase references anyway... + * (erc-downcase): just call downcase for now, let's see if the case-table is portable, if yes, we'll remove all erc-downcase references anyway... * erc-button.el: * (erc-button-add-buttons): regex-quote the nick diff --git a/lisp/frame.el b/lisp/frame.el index 8359fed14a..f63179de1f 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -1299,7 +1299,7 @@ Each element of the alist has the form (display . (width . height)), e.g. (\":0.0\" . (287 . 215)). If `display' equals t, it specifies dimensions for all graphical -displays not explicitely specified." +displays not explicitly specified." :version "22.1" :type '(alist :key-type (choice (string :tag "Display name") (const :tag "Default" t)) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 5c4ca40b20..4c31bbb52e 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,6 @@ 2011-11-15 Juanma Barranquero <lekktu@gmail.com> + * gnus-art.el (gnus-article-part-wrapper): * shr-color.el (shr-color-visible-distance-min) (shr-color-relative-to-absolute, set-minimum-interval) (shr-color-visible): Fix typos. diff --git a/lisp/gnus/ChangeLog.1 b/lisp/gnus/ChangeLog.1 index 7448808b20..c4f563adbb 100644 --- a/lisp/gnus/ChangeLog.1 +++ b/lisp/gnus/ChangeLog.1 @@ -2540,7 +2540,7 @@ `gnus-simplify-ignored-prefixes'. (gnus-summary-set-display-table): Keep TAB. -1998-01-15 <Use-Author-Address-Header@[127.1]> +1998-01-15 Lars Magne Ingebrigtsen <larsi@ifi.uio.no> * gnus-art.el (gnus-request-article-this-buffer): Put it into the backlog. diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el index a11e9ebf0f..4c0f606937 100644 --- a/lisp/gnus/gnus-art.el +++ b/lisp/gnus/gnus-art.el @@ -5418,8 +5418,8 @@ If no internal viewer is available, use an external viewer." (defun gnus-article-part-wrapper (n function &optional no-handle interactive) "Call FUNCTION on MIME part N. -Unless NO-HANDLE, call FUNCTION with N-th MIME handle as it's only argument. -If INTERACTIVE, call FUNCTION interactivly." +Unless NO-HANDLE, call FUNCTION with N-th MIME handle as its only argument. +If INTERACTIVE, call FUNCTION interactively." (let (window frame) ;; Check whether the article is displayed. (unless (and (gnus-buffer-live-p gnus-article-buffer) diff --git a/lisp/gnus/html2text.el b/lisp/gnus/html2text.el index 8cfd9b9f90..345e7c19a6 100644 --- a/lisp/gnus/html2text.el +++ b/lisp/gnus/html2text.el @@ -410,7 +410,7 @@ fashion, quite close to pure guess-work. It does work in some cases though." (while (re-search-forward "^<br>$" nil t) (delete-region (match-beginning 0) (match-end 0))) ;; Removing lonely <br> on a single line, if they are left intact we - ;; dont have any paragraphs at all. + ;; don't have any paragraphs at all. (goto-char (point-min)) (while (not (eobp)) (let ((p1 (point))) diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index 37ee59e9b4..36c56e0921 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el @@ -1494,7 +1494,7 @@ be determined." (or (not image) (if (featurep 'xemacs) ;; XEmacs' glyphs can actually tell us about their width, so - ;; lets be nice and smart about them. + ;; let's be nice and smart about them. (or mm-inline-large-images (and (<= (glyph-width image) (window-pixel-width)) (<= (glyph-height image) (window-pixel-height)))) diff --git a/lisp/gnus/rfc2047.el b/lisp/gnus/rfc2047.el index e82192b91d..feed078034 100644 --- a/lisp/gnus/rfc2047.el +++ b/lisp/gnus/rfc2047.el @@ -285,11 +285,11 @@ Should be called narrowed to the head of the message." mail-parse-charset) (mm-encode-coding-region (point) (point-max) mail-parse-charset))) - ;; We get this when CC'ing messsages to newsgroups with + ;; We get this when CC'ing messages to newsgroups with ;; 8-bit names. The group name mail copy just got ;; unconditionally encoded. Previously, it would ask ;; whether to encode, which was quite confusing for the - ;; user. If the new behavior is wrong, tell me. I have + ;; user. If the new behavior is wrong, tell me. I have ;; left the old code commented out below. ;; -- Per Abrahamsen <abraham@dina.kvl.dk> Date: 2001-10-07. ;; Modified by Dave Love, with the commented-out code changed diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el index ffef8cdf7b..deb241ce7f 100644 --- a/lisp/htmlfontify.el +++ b/lisp/htmlfontify.el @@ -1768,7 +1768,7 @@ hyperlinks as appropriate." "Return a list of files under DIRECTORY. Strips any leading \"./\" from each filename." ;;(message "hfy-list-files");;DBUG - ;; FIXME: this changes the dir of the currrent buffer. Is that right?? + ;; FIXME: this changes the dir of the current buffer. Is that right?? (cd directory) (mapcar (lambda (F) (if (string-match "^./\\(.*\\)" F) (match-string 1 F) F)) (split-string (shell-command-to-string hfy-find-cmd))) ) diff --git a/lisp/international/mule.el b/lisp/international/mule.el index 2640778c64..6888056704 100644 --- a/lisp/international/mule.el +++ b/lisp/international/mule.el @@ -1566,7 +1566,7 @@ of `ctext-non-standard-encodings-alist'.") ;; Return an alist of CHARSET vs CTEXT-USAGE-INFO generated from ;; `ctext-non-standard-encodings' and a list specified by the key -;; `ctext-non-standard-encodings' for the currrent language +;; `ctext-non-standard-encodings' for the current language ;; environment. CTEXT-USAGE-INFO is one of the element of ;; `ctext-non-standard-encodings-alist' or nil. In the former case, a ;; character in CHARSET is encoded using extended segment. In the diff --git a/lisp/international/quail.el b/lisp/international/quail.el index 3f83841f60..bdbf2c07b7 100644 --- a/lisp/international/quail.el +++ b/lisp/international/quail.el @@ -2011,7 +2011,7 @@ minibuffer and the selected frame has no other windows)." (set-window-dedicated-p win t)) (quail-minibuffer-message (format " [%s]" current-input-method-title))) - ;; Show the guidance in the next line of the currrent + ;; Show the guidance in the next line of the current ;; minibuffer. (quail-minibuffer-message (format " [%s]\n%s" diff --git a/lisp/isearch.el b/lisp/isearch.el index 2013d7f707..977de6ac4b 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -542,8 +542,8 @@ Each set is a vector of the form: (defvar isearch-string "") ; The current search string. (defvar isearch-message "") ; text-char-description version of isearch-string -(defvar isearch-message-prefix-add nil) ; Additonal text for the message prefix -(defvar isearch-message-suffix-add nil) ; Additonal text for the message suffix +(defvar isearch-message-prefix-add nil) ; Additional text for the message prefix +(defvar isearch-message-suffix-add nil) ; Additional text for the message suffix (defvar isearch-success t) ; Searching is currently successful. (defvar isearch-error nil) ; Error message for failed search. diff --git a/lisp/iswitchb.el b/lisp/iswitchb.el index e8860cba59..a96fbf9253 100644 --- a/lisp/iswitchb.el +++ b/lisp/iswitchb.el @@ -1110,7 +1110,7 @@ Return the modified list with the last element prepended to it." (if (fboundp 'set-buffer-major-mode) (set-buffer-major-mode newbufcreated)) (iswitchb-visit-buffer newbufcreated)) - ;; else wont create new buffer + ;; else won't create new buffer (message "no buffer matching `%s'" buf)))) (defun iswitchb-window-buffer-p (buffer) diff --git a/lisp/mail/rmail-spam-filter.el b/lisp/mail/rmail-spam-filter.el index 70226b2696..2bc0248506 100644 --- a/lisp/mail/rmail-spam-filter.el +++ b/lisp/mail/rmail-spam-filter.el @@ -317,7 +317,7 @@ it from rmail file. Called for each new message retrieved by ;; that this email is spam, output the email to the spam ;; rmail file, mark the email for deletion, leave the ;; while loop and return nil so that an rmail summary line - ;; wont be displayed for this message: (FIXME ?) + ;; won't be displayed for this message: (FIXME ?) (if (and (car maybe-spam) (cdr maybe-spam)) (setq exit-while-loop t) ;; Else, spam was not yet found, proceed to next element diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el index 488a4fdb97..cbad30199d 100644 --- a/lisp/net/ange-ftp.el +++ b/lisp/net/ange-ftp.el @@ -4027,7 +4027,7 @@ E.g., (concat bestmatch "/") bestmatch))))) -;; Put these lines uncommmented in your .emacs if you want C-r to refresh +;; Put these lines uncommented in your .emacs if you want C-r to refresh ;; ange-ftp's cache whilst doing filename completion. ;; ;;(define-key minibuffer-local-completion-map "\C-r" 'ange-ftp-re-read-dir) @@ -4507,7 +4507,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.") ;; We used to follow symlinks on `file' here. Apparently it was done ;; because some FTP servers react to "ls foo" by listing the symlink foo ;; rather than the directory it points to. Now that ange-ftp-ls uses - ;; "cd foo; ls" instead, this is not necesssary any more. + ;; "cd foo; ls" instead, this is not necessary any more. (let ((beg (point)) (end (point-marker))) (set-marker-insertion-type end t) diff --git a/lisp/net/newst-treeview.el b/lisp/net/newst-treeview.el index 5e38a905ad..7cfdd2cb89 100644 --- a/lisp/net/newst-treeview.el +++ b/lisp/net/newst-treeview.el @@ -227,7 +227,7 @@ their id stays constant." (string= (widget-get node1 :tag) (widget-get node2 :tag))))) (defun newsticker--treeview-do-get-node-of-feed (feed-name startnode) - "Recursivly search node for feed FEED-NAME starting from STARTNODE." + "Recursively search node for feed FEED-NAME starting from STARTNODE." ;;(message "%s/%s" feed-name (widget-get startnode :nt-feed)) (if (string= feed-name (or (widget-get startnode :nt-feed) (widget-get startnode :nt-vfeed))) @@ -245,7 +245,7 @@ their id stays constant." newsticker--treeview-vfeed-tree))) (defun newsticker--treeview-do-get-node (id startnode) - "Recursivly search node with ID starting from STARTNODE." + "Recursively search node with ID starting from STARTNODE." (if (newsticker--treeview-ids-eq id (widget-get startnode :nt-id)) (throw 'found startnode) (let ((children (widget-get startnode :children))) diff --git a/lisp/net/quickurl.el b/lisp/net/quickurl.el index 791e566fc8..7a1e5fc6a8 100644 --- a/lisp/net/quickurl.el +++ b/lisp/net/quickurl.el @@ -189,7 +189,7 @@ in your ~/.emacs (after loading/requiring quickurl).") "Local keymap for a `quickurl-list-mode' buffer.") (defvar quickurl-list-buffer-name "*quickurl-list*" - "Name for the URL listinig buffer.") + "Name for the URL listing buffer.") (defvar quickurl-list-last-buffer nil "`current-buffer' when `quickurl-list' was called.") diff --git a/lisp/net/secrets.el b/lisp/net/secrets.el index 173ba9c3d2..7e0eaff1dc 100644 --- a/lisp/net/secrets.el +++ b/lisp/net/secrets.el @@ -379,7 +379,7 @@ returned, and it will be stored in `secrets-session-path'." (defun secrets-prompt-handler (&rest args) "Handler for signals emitted by `secrets-interface-prompt'." ;; An empty object path is always identified as `secrets-empty-path' - ;; or `nil'. Either we set it explicitely, or it is returned by the + ;; or `nil'. Either we set it explicitly, or it is returned by the ;; "Completed" signal. (if (car args) ;; dismissed (setq secrets-prompt-signal (list secrets-empty-path)) diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog index d4f993fedf..9d7b7c658c 100644 --- a/lisp/org/ChangeLog +++ b/lisp/org/ChangeLog @@ -13808,7 +13808,7 @@ 2009-08-06 Bastien Guerry <bzg@altern.org> - * org.el (org-special-ctrl-a/e): Explicitely bind the value + * org.el (org-special-ctrl-a/e): Explicitly bind the value 'reversed for this option to the "true line boundary first" behavior. (org-tags-match-list-sublevels): Document the 'indented value for @@ -16482,7 +16482,7 @@ 2008-11-23 Carsten Dominik <carsten.dominik@gmail.com> * org-export-latex.el (org-export-latex-subcontent): - Interprete target aliases as additional labels. + Interpret target aliases as additional labels. * org-exp.el (org-export-target-aliases): New variable. (org-export-preprocess-string) @@ -17290,7 +17290,7 @@ (org-edit-fixed-width-region): Also try `org-edit-fixed-width-region'. (org-edit-fixed-width-region-mode): New option. - (org-activate-code): Only interprete lines starting with colon + (org-activate-code): Only interpret lines starting with colon plus a space as example lines. * org-remember.el (org-remember-templates): Add nil instead of diff --git a/lisp/org/ob-haskell.el b/lisp/org/ob-haskell.el index cae07036c5..236dbba28f 100644 --- a/lisp/org/ob-haskell.el +++ b/lisp/org/ob-haskell.el @@ -29,7 +29,7 @@ ;; they can be run, but haskell code can also be run through an ;; interactive interpreter. ;; -;; For now lets only allow evaluation using the haskell interpreter. +;; For now let's only allow evaluation using the haskell interpreter. ;;; Requirements: @@ -80,7 +80,7 @@ (cdr (member org-babel-haskell-eoe (reverse (mapcar #'org-babel-trim raw))))))) (org-babel-reassemble-table - (cond + (cond ((equal result-type 'output) (mapconcat #'identity (reverse (cdr results)) "\n")) ((equal result-type 'value) diff --git a/lisp/org/ob-ocaml.el b/lisp/org/ob-ocaml.el index ee7a7cc212..78d309b9e1 100644 --- a/lisp/org/ob-ocaml.el +++ b/lisp/org/ob-ocaml.el @@ -29,7 +29,7 @@ ;; they can be run, but ocaml code can also be run through an ;; interactive interpreter. ;; -;; For now lets only allow evaluation using the ocaml interpreter. +;; For now let's only allow evaluation using the ocaml interpreter. ;;; Requirements: @@ -99,7 +99,7 @@ (lambda (pair) (format "let %s = %s;;" (car pair) (org-babel-ocaml-elisp-to-ocaml (cdr pair)))) (mapcar #'cdr (org-babel-get-header params :var)))) - + (defun org-babel-ocaml-elisp-to-ocaml (val) "Return a string of ocaml code which evaluates to VAL." (if (listp val) diff --git a/lisp/org/ob-sql.el b/lisp/org/ob-sql.el index 9274438c18..7a5c7c8a46 100644 --- a/lisp/org/ob-sql.el +++ b/lisp/org/ob-sql.el @@ -32,7 +32,7 @@ ;; ;; Also SQL evaluation generally takes place inside of a database. ;; -;; For now lets just allow a generic ':cmdline' header argument. +;; For now let's just allow a generic ':cmdline' header argument. ;; ;; TODO: ;; @@ -40,7 +40,7 @@ ;; - add more useful header arguments (user, passwd, database, etc...) ;; - support for more engines (currently only supports mysql) ;; - what's a reasonable way to drop table data into SQL? -;; +;; ;;; Code: (require 'ob) diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el index 53a0c5587a..1d0802dcda 100644 --- a/lisp/org/org-agenda.el +++ b/lisp/org/org-agenda.el @@ -5059,7 +5059,7 @@ See also the user option `org-agenda-clock-consistency-checks'." (/ (- tlend ts) 60)) face (or (plist-get pl :overlap-face) face))) ((and (> tlend 0) (> ts (+ tlend (* 60 maxgap)))) - ;; There is a gap, lets see if we need to report it + ;; There is a gap, let's see if we need to report it (unless (org-agenda-check-clock-gap tlend ts gapok) (setq issue (format "Clocking gap: %d minutes" (/ (- ts tlend) 60)) diff --git a/lisp/org/org-clock.el b/lisp/org/org-clock.el index de5087e163..b1a8a4b9fd 100644 --- a/lisp/org/org-clock.el +++ b/lisp/org/org-clock.el @@ -1261,7 +1261,7 @@ line and position cursor in that line." (and (re-search-forward org-property-end-re nil t) (goto-char (match-beginning 0)))) (throw 'exit t)) - ;; Lets count the CLOCK lines + ;; Let's count the CLOCK lines (goto-char beg) (while (re-search-forward re end t) (setq first (or first (match-beginning 0)) @@ -2641,4 +2641,3 @@ The details of what will be saved are regulated by the variable ;;; org-clock.el ends here - diff --git a/lisp/org/org-remember.el b/lisp/org/org-remember.el index 2bc5ef92ae..e15debfd90 100644 --- a/lisp/org/org-remember.el +++ b/lisp/org/org-remember.el @@ -1122,7 +1122,7 @@ See also the variable `org-reverse-note-order'." (condition-case nil (require 'remember) (error - ;; Lets install our own micro version of remember + ;; Let's install our own micro version of remember (defvar remember-register ?R) (defvar remember-mode-hook nil) (defvar remember-handler-functions nil) @@ -1153,4 +1153,3 @@ See also the variable `org-reverse-note-order'." ;;; org-remember.el ends here - diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el index 7f49b3236e..2fba931528 100644 --- a/lisp/org/org-table.el +++ b/lisp/org/org-table.el @@ -2204,7 +2204,7 @@ For all numbers larger than LIMIT, shift them by DELTA." (string-match "^[a-zA-Z][a-zA-Z0-9]*$" field)) (push (cons field v) org-table-local-parameters) (push (list field line col) org-table-named-field-locations)))) - ;; Analyse the line types + ;; Analyze the line types (goto-char beg) (setq org-table-current-begin-line (org-current-line) org-table-current-begin-pos (point) @@ -2432,7 +2432,7 @@ not overwrite the stored one." duration-output-format nil fmt (replace-match "" t t fmt))) (if (string-match "t" fmt) - (setq duration t + (setq duration t duration-output-format org-table-duration-custom-format numbers t fmt (replace-match "" t t fmt))) @@ -2500,7 +2500,7 @@ not overwrite the stored one." ;; Insert complex ranges (while (and (string-match org-table-range-regexp form) (> (length (match-string 0 form)) 1)) - (setq formrg (save-match-data + (setq formrg (save-match-data (org-table-get-range (match-string 0 form) nil n0))) (setq formrpl (save-match-data @@ -4723,4 +4723,3 @@ list of the fields in the rectangle ." ;;; org-table.el ends here - diff --git a/lisp/outline.el b/lisp/outline.el index 34d30fc459..b5bf829645 100644 --- a/lisp/outline.el +++ b/lisp/outline.el @@ -144,10 +144,10 @@ in the file it applies to." :help "Promote headings higher up the tree")) (define-key map [headings move-subtree-down] '(menu-item "Move Subtree Down" outline-move-subtree-down - :help "Move the currrent subtree down past arg headlines of the same level")) + :help "Move the current subtree down past arg headlines of the same level")) (define-key map [headings move-subtree-up] '(menu-item "Move Subtree Up" outline-move-subtree-up - :help "Move the currrent subtree up past arg headlines of the same level")) + :help "Move the current subtree up past arg headlines of the same level")) (define-key map [headings copy] '(menu-item "Copy to Kill Ring" outline-headers-as-kill :enable mark-active @@ -642,12 +642,12 @@ the match data is set appropriately." ;; Vertical tree motion (defun outline-move-subtree-up (&optional arg) - "Move the currrent subtree up past ARG headlines of the same level." + "Move the current subtree up past ARG headlines of the same level." (interactive "p") (outline-move-subtree-down (- arg))) (defun outline-move-subtree-down (&optional arg) - "Move the currrent subtree down past ARG headlines of the same level." + "Move the current subtree down past ARG headlines of the same level." (interactive "p") (let ((movfunc (if (> arg 0) 'outline-get-next-sibling 'outline-get-last-sibling)) diff --git a/lisp/progmodes/cc-awk.el b/lisp/progmodes/cc-awk.el index d55e5ce23b..74f9acab5b 100644 --- a/lisp/progmodes/cc-awk.el +++ b/lisp/progmodes/cc-awk.el @@ -718,7 +718,7 @@ ;; This function does hidden buffer changes. (let ((/point (point))) (goto-char anchor) - ;; Analyse the line to find out what the / is. + ;; Analyze the line to find out what the / is. (if (if anchor-state-/div (not (search-forward-regexp c-awk-regexp-sign-re (1+ /point) t)) (search-forward-regexp c-awk-div-sign-re (1+ /point) t)) @@ -847,7 +847,7 @@ ;; Awk regexps written with help from Peter Galbraith ;; <galbraith@mixing.qc.dfo.ca>. -;; Take GNU Emacs's 'words out of the following regexp-opts. They dont work +;; Take GNU Emacs's 'words out of the following regexp-opts. They don't work ;; in XEmacs 21.4.4. acm 2002/9/19. (defconst awk-font-lock-keywords (eval-when-compile diff --git a/lisp/progmodes/cc-cmds.el b/lisp/progmodes/cc-cmds.el index 151dbd0c76..68f31c55e7 100644 --- a/lisp/progmodes/cc-cmds.el +++ b/lisp/progmodes/cc-cmds.el @@ -1042,7 +1042,7 @@ reindented unless `c-syntactic-indentation' is nil. (setcar (car elem) 'label)) (setq elem (cdr elem))) ;; some language elements can only be determined by checking - ;; the following line. Lets first look for ones that can be + ;; the following line. Let's first look for ones that can be ;; found when looking on the line with the colon (setq newlines (and c-auto-newline diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el index 6f3004e274..d56d5ae7c1 100644 --- a/lisp/progmodes/cc-engine.el +++ b/lisp/progmodes/cc-engine.el @@ -2302,7 +2302,7 @@ comment at the start of cc-engine.el for more info." ;; `c-parse-state', or nil. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -;; Defuns which analyse the buffer, yet don't change `c-state-cache'. +;; Defuns which analyze the buffer, yet don't change `c-state-cache'. (defun c-get-fallback-scan-pos (here) ;; Return a start position for building `c-state-cache' from ;; scratch. This will be at the top level, 2 defuns back. diff --git a/lisp/progmodes/dcl-mode.el b/lisp/progmodes/dcl-mode.el index b4094914d6..d855861d55 100644 --- a/lisp/progmodes/dcl-mode.el +++ b/lisp/progmodes/dcl-mode.el @@ -512,7 +512,7 @@ Variables controlling indentation style and extra features: dcl-block-begin-regexp dcl-block-end-regexp Regexps that match command lines that begin and end, respectively, - a block of commmand lines that will be given extra indentation. + a block of command lines that will be given extra indentation. Command lines between THEN-ELSE-ENDIF are always indented; these variables make it possible to define other places to indent. Set to nil to disable this feature. diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el index 53807b8de3..cf7485830f 100644 --- a/lisp/progmodes/gdb-mi.el +++ b/lisp/progmodes/gdb-mi.el @@ -2217,7 +2217,7 @@ Return position where LINE begins." (defun gdb-mapcar* (function &rest seqs) "Apply FUNCTION to each element of SEQS, and make a list of the results. If there are several SEQS, FUNCTION is called with that many -arguments, and mapping stops as sson as the shortest list runs +arguments, and mapping stops as soon as the shortest list runs out." (let ((shortest (apply #'min (mapcar #'length seqs)))) (mapcar (lambda (i) diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el index 3166abb21a..af9ab53789 100644 --- a/lisp/progmodes/sql.el +++ b/lisp/progmodes/sql.el @@ -1595,7 +1595,7 @@ to add functions and PL/SQL keywords.") "cast" "ceil" "chartorowid" "chr" "cluster_id" "cluster_probability" "cluster_set" "coalesce" "collect" "compose" "concat" "convert" "corr" "corr_k" "corr_s" "cos" "cosh" "count" "covar_pop" "covar_samp" -"cube_table" "cume_dist" "currrent_date" "currrent_timestamp" "cv" +"cube_table" "cume_dist" "current_date" "current_timestamp" "cv" "dataobj_to_partition" "dbtimezone" "decode" "decompose" "deletexml" "dense_rank" "depth" "deref" "dump" "empty_blob" "empty_clob" "existsnode" "exp" "extract" "extractvalue" "feature_id" "feature_set" diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el index a8ff759717..1cdac2335f 100644 --- a/lisp/progmodes/vhdl-mode.el +++ b/lisp/progmodes/vhdl-mode.el @@ -2131,7 +2131,7 @@ Ignore byte-compiler warnings you might see." (if (fboundp 'start-itimer) (start-itimer "vhdl-mode" function secs repeat t) ; (run-with-idle-timer secs repeat function))) - ;; explicitely activate timer (necessary when Emacs is already idle) + ;; explicitly activate timer (necessary when Emacs is already idle) (aset (run-with-idle-timer secs repeat function) 0 nil))) (defun vhdl-warning-when-idle (&rest args) diff --git a/lisp/simple.el b/lisp/simple.el index 333ff996ec..ca50282df1 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -4324,7 +4324,7 @@ lines when the window is horizontally scrolled." (when (> rbot 0) (set-window-vscroll nil (+ vs (min rbot (frame-char-height))) t))) ;; If cursor just entered the bottom scroll margin, move forward, - ;; but also vscroll one line so redisplay wont recenter. + ;; but also vscroll one line so redisplay won't recenter. ((and (> vpos 0) (= py (min (- (window-text-height) scroll-margin 1) (1- vpos)))) diff --git a/lisp/textmodes/reftex-index.el b/lisp/textmodes/reftex-index.el index 79df613580..f0ceaa74d2 100644 --- a/lisp/textmodes/reftex-index.el +++ b/lisp/textmodes/reftex-index.el @@ -663,7 +663,7 @@ SPC=view TAB=goto RET=goto+hide [e]dit [q]uit [r]escan [f]ollow [?]Help (insert "\n"))) (defun reftex-get-restriction (arg docstruct) - ;; Interprete the prefix ARG and derive index restriction specs. + ;; Interpret the prefix ARG and derive index restriction specs. (let* ((beg (min (point) (or (condition-case nil (mark) (error nil)) (point-max)))) (end (max (point) (or (condition-case nil (mark) (error nil)) diff --git a/lisp/textmodes/reftex-ref.el b/lisp/textmodes/reftex-ref.el index b47f2f6c2e..d622603236 100644 --- a/lisp/textmodes/reftex-ref.el +++ b/lisp/textmodes/reftex-ref.el @@ -206,7 +206,7 @@ This function is controlled by the settings of reftex-insert-label-flags." (if naked "Naked Label: " "Label: ") default)) - ;; Lets make sure that this is a valid label + ;; Let's make sure that this is a valid label (cond ((string-match (concat "\\`\\(" (regexp-quote prefix) diff --git a/lisp/textmodes/reftex.el b/lisp/textmodes/reftex.el index 3ac0aa0f65..c4dbd365c4 100644 --- a/lisp/textmodes/reftex.el +++ b/lisp/textmodes/reftex.el @@ -688,7 +688,7 @@ on the menu bar. (TeX-master-file t) (error (buffer-file-name)))) ((fboundp 'tex-main-file) (tex-main-file)) ; Emacs LaTeX mode - ((boundp 'TeX-master) ; The variable is defined - lets use it. + ((boundp 'TeX-master) ; The variable is defined - let's use it. (cond ((eq TeX-master t) (buffer-file-name)) @@ -1612,7 +1612,7 @@ When DIE is non-nil, throw an error if file not found." (defun reftex-find-file-externally (file type &optional master-dir) ;; Use external program to find FILE. ;; The program is taken from `reftex-external-file-finders'. - ;; Interprete relative path definitions starting from MASTER-DIR. + ;; Interpret relative path definitions starting from MASTER-DIR. (let ((default-directory (or master-dir default-directory)) (prg (cdr (assoc type reftex-external-file-finders))) out) @@ -2058,7 +2058,7 @@ When DIE is non-nil, throw an error if file not found." (with-current-buffer buf (run-hooks 'reftex-initialize-temporary-buffers)))) - ;; Lets see if we got a license to kill :-| + ;; Let's see if we got a license to kill :-| (and mark-to-kill (add-to-list 'reftex-buffers-to-kill buf)) diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 5eb22bb861..47f006eebd 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,3 +1,7 @@ +2011-11-15 Juanma Barranquero <lekktu@gmail.com> + + * url-dav.el (url-dav-delete-file): Fix typo. + 2011-11-14 Lars Magne Ingebrigtsen <larsi@gnus.org> * url-http.el (url-http-async-sentinel): If the server hangs up diff --git a/lisp/url/url-dav.el b/lisp/url/url-dav.el index 95ab2623ff..9e29de0cbe 100644 --- a/lisp/url/url-dav.el +++ b/lisp/url/url-dav.el @@ -117,7 +117,7 @@ ;; We need to populate 'time' with ;; (SEC MIN HOUR DAY MON YEAR DOW DST TZ) - ;; Nobody else handles iso8601 correctly, lets do it ourselves. + ;; Nobody else handles iso8601 correctly, let's do it ourselves. (when (string-match date-re date-string re-start) (setq year (string-to-number (match-string 1 date-string)) month (string-to-number (match-string 2 date-string)) @@ -430,7 +430,7 @@ added to this list, so most requests can just pass in nil." ;; Take care of the default value for depth... (setq depth (or depth 0)) - ;; Now lets translate it into something webdav can understand. + ;; Now let's translate it into something webdav can understand. (if (< depth 0) (setq depth "Infinity") (setq depth (int-to-string depth))) @@ -762,7 +762,7 @@ files in the collection as well." (setq status (plist-get (cdr result) 'DAV:status)) (if (not (url-dav-http-success-p status)) (signal 'file-error (list "Removing old name" - "Errror removing" + "Error removing" (car result) status)))) props)) nil) |