mirror of
https://github.com/masscollaborationlabs/emacs.git
synced 2025-07-04 11:23:24 +00:00
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:
parent
1cb3428546
commit
14b4e657e2
13 changed files with 39 additions and 24 deletions
|
@ -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 @@
|
||||||
(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)
|
||||||
|
|
|
@ -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
|
||||||
|
|
|
@ -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'.
|
||||||
|
|
|
@ -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."
|
||||||
: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
|
||||||
|
|
|
@ -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>
|
||||||
|
|
||||||
|
|
|
@ -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.
|
||||||
|
|
|
@ -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):
|
||||||
|
|
|
@ -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."
|
||||||
|
|
||||||
(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."
|
||||||
(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)
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue