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.
This commit is contained in:
Paul Eggert 2015-02-21 20:00:16 -08:00
parent 1cb3428546
commit 14b4e657e2
13 changed files with 39 additions and 24 deletions

View file

@ -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)

View file

@ -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)

View file

@ -1,3 +1,10 @@
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

View file

@ -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."
;; 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'.

View file

@ -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))
) )

View file

@ -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."
;;;###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
;; `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

View file

@ -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 @@
(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>

View file

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

View file

@ -1,3 +1,9 @@
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):

View file

@ -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"

View file

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

View file

@ -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)