Commit 14b4e657 authored by Paul Eggert's avatar Paul Eggert

Spelling fixes

* lisp/cedet/semantic/doc.el (semantic-documentation-comment-preceding-tag):
Rename from semantic-documentation-comment-preceeding-tag.  All
uses changed.  Leave an obsolete alias behind.
* src/lisp.h (DEFINE_NON_NIL_Q_SYMBOL_MACROS):
Rename from DEFINE_NONNIL_Q_SYMBOL_MACROS.  All uses changed.
parent 1cb34285
...@@ -247,8 +247,8 @@ names: ...@@ -247,8 +247,8 @@ names:
Your netrc entries will then be: Your netrc entries will then be:
@example @example
machine gmail login account@@gmail.com password "accountpassword" port imap machine gmail login account@@gmail.com password "account password" port imap
machine gmail2 login account2@@gmail.com password "account2password" port imap machine gmail2 login account2@@gmail.com password "account2 password" port imap
@end example @end example
@node Secret Service API @node Secret Service API
......
...@@ -743,7 +743,7 @@ write_globals (void) ...@@ -743,7 +743,7 @@ write_globals (void)
puts ("#endif"); puts ("#endif");
puts ("#define Qnil builtin_lisp_symbol (0)"); puts ("#define Qnil builtin_lisp_symbol (0)");
puts ("#if DEFINE_NONNIL_Q_SYMBOL_MACROS"); puts ("#if DEFINE_NON_NIL_Q_SYMBOL_MACROS");
num_symbols = 0; num_symbols = 0;
for (int i = 0; i < num_globals; i++) for (int i = 0; i < num_globals; i++)
if (globals[i].type == SYMBOL && num_symbols++ != 0) if (globals[i].type == SYMBOL && num_symbols++ != 0)
......
...@@ -534,7 +534,7 @@ ...@@ -534,7 +534,7 @@
(package--sort-deps-in-alist): New function. (package--sort-deps-in-alist): New function.
(package-menu-mark-install): Can mark dependencies. (package-menu-mark-install): Can mark dependencies.
(package--newest-p): New function. (package--newest-p): New function.
(package-delete): Don't delesect when deleting an older version of (package-delete): Don't deselect when deleting an older version of
an upgraded package. an upgraded package.
* emacs-lisp/package.el: Add missing (require 'subr-x) * emacs-lisp/package.el: Add missing (require 'subr-x)
......
2015-02-22 Paul Eggert <eggert@cs.ucla.edu>
Spelling fixes
* semantic/doc.el (semantic-documentation-comment-preceding-tag):
Rename from semantic-documentation-comment-preceeding-tag. All
uses changed. Leave an obsolete alias behind.
2015-02-16 Stefan Monnier <monnier@iro.umontreal.ca> 2015-02-16 Stefan Monnier <monnier@iro.umontreal.ca>
* semantic/db-el.el (semanticdb-elisp-sym->tag): Fix copy&paste error * semantic/db-el.el (semanticdb-elisp-sym->tag): Fix copy&paste error
......
...@@ -56,13 +56,12 @@ If nosnarf if 'lex, then only return the lex token." ...@@ -56,13 +56,12 @@ If nosnarf if 'lex, then only return the lex token."
doctmp doctmp
;; Check just before the definition. ;; Check just before the definition.
(when (semantic-tag-with-position-p tag) (when (semantic-tag-with-position-p tag)
(semantic-documentation-comment-preceeding-tag tag nosnarf)) (semantic-documentation-comment-preceding-tag tag nosnarf))
;; Let's 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.... ;; Not sure yet. Fill in something clever later....
nil)))))) nil))))))
;; FIXME this is not how you spell "preceding". (defun semantic-documentation-comment-preceding-tag (&optional tag nosnarf)
(defun semantic-documentation-comment-preceeding-tag (&optional tag nosnarf)
"Find a comment preceding TAG. "Find a comment preceding TAG.
If TAG is nil. use the tag under point. If TAG is nil. use the tag under point.
Searches the space between TAG and the preceding tag for a comment, Searches the space between TAG and the preceding tag for a comment,
...@@ -84,6 +83,10 @@ just the lexical token and not the string." ...@@ -84,6 +83,10 @@ just the lexical token and not the string."
;; of a function. ;; of a function.
(semantic-doc-snarf-comment-for-tag nosnarf))) (semantic-doc-snarf-comment-for-tag nosnarf)))
)) ))
(define-obsolete-function-alias
'semantic-documentation-comment-preceeding-tag
'semantic-documentation-comment-preceding-tag
"25.1")
(defun semantic-doc-snarf-comment-for-tag (nosnarf) (defun semantic-doc-snarf-comment-for-tag (nosnarf)
"Snarf up the comment at POINT for `semantic-documentation-for-tag'. "Snarf up the comment at POINT for `semantic-documentation-for-tag'.
......
...@@ -395,7 +395,7 @@ It is assumed that the comment occurs just in front of FCN-IN." ...@@ -395,7 +395,7 @@ It is assumed that the comment occurs just in front of FCN-IN."
(beginning-of-line) (beginning-of-line)
(forward-char -1) (forward-char -1)
(let ((lextok (semantic-documentation-comment-preceeding-tag fcn-in 'lex)) (let ((lextok (semantic-documentation-comment-preceding-tag fcn-in 'lex))
(doctext (doctext
(srecode-document-function-name-comment fcn-in)) (srecode-document-function-name-comment fcn-in))
) )
......
...@@ -335,11 +335,10 @@ contents of the archive." ...@@ -335,11 +335,10 @@ contents of the archive."
:version "24.4") :version "24.4")
(defcustom package-selected-packages nil (defcustom package-selected-packages nil
"Store here packages installed explicitely by user. "Store here packages installed explicitly by user.
This variable will be feeded automatically by emacs, This variable is fed automatically by Emacs when installing a new package.
when installing a new package. This variable is used by `package-autoremove' to decide
This variable will be used by `package-autoremove' to decide which packages are no longer needed.
which packages are no more needed.
You can use it to (re)install packages on other machines You can use it to (re)install packages on other machines
by running `package-user-selected-packages-install'. by running `package-user-selected-packages-install'.
...@@ -1280,7 +1279,7 @@ to install it but still mark it as selected." ...@@ -1280,7 +1279,7 @@ to install it but still mark it as selected."
;;;###autoload ;;;###autoload
(defun package-reinstall (pkg) (defun package-reinstall (pkg)
"Reinstall package PKG. "Reinstall package PKG.
PKG shoul be either a symbol, the package name, or a package-desc PKG should be either a symbol, the package name, or a package-desc
object." object."
(interactive (list (intern (completing-read (interactive (list (intern (completing-read
"Reinstall package: " "Reinstall package: "
...@@ -1547,7 +1546,7 @@ If NOSAVE is non-nil, the package is not removed from ...@@ -1547,7 +1546,7 @@ If NOSAVE is non-nil, the package is not removed from
;; `package-selected-packages' even if it can't be deleted. ;; `package-selected-packages' even if it can't be deleted.
(when (and (null nosave) (when (and (null nosave)
(package--user-selected-p name) (package--user-selected-p name)
;; Don't delesect if this is an older version of an ;; Don't deselect if this is an older version of an
;; upgraded package. ;; upgraded package.
(package--newest-p pkg-desc)) (package--newest-p pkg-desc))
(customize-save-variable (customize-save-variable
......
...@@ -827,7 +827,7 @@ ...@@ -827,7 +827,7 @@
2014-01-30 Lars Ingebrigtsen <larsi@gnus.org> 2014-01-30 Lars Ingebrigtsen <larsi@gnus.org>
* nnmail.el (nnmail-split-it): Instead of redoing the search to restore * nnmail.el (nnmail-split-it): Instead of redoing the search to restore
the match data, just save and restore it explictly (bug#12375). the match data, just save and restore it explicitly (bug#12375).
* gnus-sum.el (gnus-summary-read-group-1): Initialize the spam code if * gnus-sum.el (gnus-summary-read-group-1): Initialize the spam code if
that's needed. that's needed.
...@@ -24084,7 +24084,7 @@ ...@@ -24084,7 +24084,7 @@
(spam-ham-copy-or-move-routine): Return the number of processed (spam-ham-copy-or-move-routine): Return the number of processed
ham messages. ham messages.
(spam-summary-prepare-exit): Use the above values to decide (spam-summary-prepare-exit): Use the above values to decide
whether status messages shouled be displayed. whether status messages should be displayed.
2004-05-20 Katsumi Yamaoka <yamaoka@jpl.org> 2004-05-20 Katsumi Yamaoka <yamaoka@jpl.org>
......
...@@ -852,7 +852,7 @@ ...@@ -852,7 +852,7 @@
in a table.el table last. in a table.el table last.
* org.el (org-delete-property): Don't suggest to delete the * org.el (org-delete-property): Don't suggest to delete the
CATEGORY property when the category is not explicitely set in the CATEGORY property when the category is not explicitly set in the
property drawer. Also enforce matching when completing. property drawer. Also enforce matching when completing.
(org-insert-heading): Fix regression: with two universal prefixes, (org-insert-heading): Fix regression: with two universal prefixes,
insert heading at the end of the subtree. insert heading at the end of the subtree.
2015-02-22 Paul Eggert <eggert@cs.ucla.edu>
Spelling fixes
* lisp.h (DEFINE_NON_NIL_Q_SYMBOL_MACROS):
Rename from DEFINE_NONNIL_Q_SYMBOL_MACROS. All uses changed.
2015-02-21 Eli Zaretskii <eliz@gnu.org> 2015-02-21 Eli Zaretskii <eliz@gnu.org>
* w32term.c (queue_notifications): * w32term.c (queue_notifications):
......
...@@ -746,10 +746,10 @@ struct Lisp_Symbol ...@@ -746,10 +746,10 @@ struct Lisp_Symbol
/* By default, define macros for Qt, etc., as this leads to a bit /* By default, define macros for Qt, etc., as this leads to a bit
better performance in the core Emacs interpreter. A plugin can better performance in the core Emacs interpreter. A plugin can
define DEFINE_NONNIL_Q_SYMBOL_MACROS to be false, to be portable to define DEFINE_NON_NIL_Q_SYMBOL_MACROS to be false, to be portable to
other Emacs instances that assign different values to Qt, etc. */ other Emacs instances that assign different values to Qt, etc. */
#ifndef DEFINE_NONNIL_Q_SYMBOL_MACROS #ifndef DEFINE_NON_NIL_Q_SYMBOL_MACROS
# define DEFINE_NONNIL_Q_SYMBOL_MACROS true # define DEFINE_NON_NIL_Q_SYMBOL_MACROS true
#endif #endif
#include "globals.h" #include "globals.h"
......
...@@ -331,8 +331,8 @@ For backends which dont support it, `vc-not-supported' is signalled." ...@@ -331,8 +331,8 @@ For backends which dont support it, `vc-not-supported' is signalled."
(let ((tmp-name (expand-file-name "foo" default-directory))) (let ((tmp-name (expand-file-name "foo" default-directory)))
;; Check for initial state, should be nil until it's registered. ;; Check for initial state, should be nil until it's registered.
;; Don't pass the backend explictly, otherwise some implementations ;; Don't pass the backend explicitly, otherwise some
;; return non-nil. ;; implementations return non-nil.
(should (null (vc-working-revision tmp-name))) (should (null (vc-working-revision tmp-name)))
;; Write a new file. Check state. ;; Write a new file. Check state.
......
...@@ -272,7 +272,7 @@ Dump out the extracted dictionary." ...@@ -272,7 +272,7 @@ Dump out the extracted dictionary."
(not (semantic-tag-of-class-p fcn-in 'function))) (not (semantic-tag-of-class-p fcn-in 'function)))
(error "No tag of class 'function to insert comment for")) (error "No tag of class 'function to insert comment for"))
(let ((lextok (semantic-documentation-comment-preceeding-tag fcn-in 'lex)) (let ((lextok (semantic-documentation-comment-preceding-tag fcn-in 'lex))
) )
(when (not lextok) (when (not lextok)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment