Commit 735135f9 authored by Paul Eggert's avatar Paul Eggert
Browse files

Spelling fixes.

parent be636386
......@@ -85,7 +85,7 @@
c)))
event))
(defun semantic-popup-menu (menu)
"Blockinig version of `popup-menu'"
"Blocking version of `popup-menu'"
(popup-menu menu)
;; Wait...
(while (popup-up-p) (dispatch-event (next-event))))
......@@ -139,7 +139,7 @@
'run-mode-hooks
'run-hooks))
;; Fancy compat useage now handled in cedet-compat
;; Fancy compat usage now handled in cedet-compat
(defalias 'semantic-subst-char-in-string 'subst-char-in-string)
)
......
......@@ -646,7 +646,7 @@ be merged recursively."
;; #define FOO(a) foo##a##bar
(semantic-lex-spp-symbol-merge (cadr tok)))
(t
(message "Invalid merge macro ecountered; \
(message "Invalid merge macro encountered; \
will return empty string instead.")
"")))
txt
......
......@@ -101,7 +101,7 @@ tag that contains point, and return that."
(semantic-tag-start tag)
(semantic-tag-end tag))
(when (called-interactively-p 'interactive)
(message "Found %d occurances of %s in %.2f seconds"
(message "Found %d occurrences of %s in %.2f seconds"
Lcount (semantic-tag-name target)
(semantic-elapsed-time start (current-time))))
Lcount)))
......
......@@ -66,7 +66,7 @@ have values, they must still match."
(define-overloadable-function semantic--tag-similar-types-p (tag1 tag2)
"Compare the types of TAG1 and TAG2.
This functions can be overriden, for example to compare a fully
This function can be overridden, for example to compare a fully
qualified with an unqualified type."
(cond
((and (null (semantic-tag-type tag1))
......@@ -80,7 +80,7 @@ qualified with an unqualified type."
(defun semantic--tag-similar-types-p-default (tag1 tag2)
"Compare the types of TAG1 and TAG2.
This functions can be overriden, for example to compare a fully
This function can be overridden, for example to compare a fully
qualified with an unqualified type."
(semantic-tag-of-type-p tag1 (semantic-tag-type tag2)))
......@@ -97,7 +97,7 @@ Modes that override this function can call `semantic--tag-attribute-similar-p-de
to do the default equality tests if ATTR is not special for that mode.")
(defun semantic--tag-attribute-similar-p-default (attr value1 value2 ignorable-attributes)
"For ATTR, VALUE1, VALUE2 and IGNORABLE-ATTRIBUTES, test for similarness."
"For ATTR, VALUE1, VALUE2 and IGNORABLE-ATTRIBUTES, test for similarity."
(cond
;; Tag sublists require special testing.
((and (listp value1) (semantic-tag-p (car value1))
......@@ -131,7 +131,7 @@ Similar tags that have sub-tags such as arg lists or type members,
are similar w/out checking the sub-list of tags.
Optional argument IGNORABLE-ATTRIBUTES are attributes to ignore while comparing similarity.
By default, `semantic-tag-similar-ignorable-attributes' is referenced for
attributes, and IGNOREABLE-ATTRIBUTES will augment this list.
attributes, and IGNORABLE-ATTRIBUTES will augment this list.
Note that even though :name is not an attribute, it can be used to
to indicate lax comparison of names via `semantic--tag-similar-names-p'")
......@@ -207,7 +207,7 @@ Return the name of the first tag of class `package' in STREAM."
(define-overloadable-function semantic-tag-full-name (tag &optional stream-or-buffer)
"Return the fully qualified name of TAG in the package hierarchy.
STREAM-OR-BUFFER can be anything convertable by `semantic-something-to-stream',
STREAM-OR-BUFFER can be anything convertible by `semantic-something-to-stream',
but must be a toplevel semantic tag stream that contains TAG.
A Package Hierarchy is defined in UML by the way classes and methods
are organized on disk. Some languages use this concept such that a
......
......@@ -554,7 +554,7 @@ You can identify a faux tag with `semantic-tag-faux-p'"
"Set TAG name to NAME."
(setcar tag name))
;;; TAG Proxys
;;; TAG Proxies
;;
;; A new kind of tag is a TAG PROXY. These are tags that have some
;; minimal number of features set, such as name and class, but have a
......@@ -570,7 +570,7 @@ two arguments, DATA and TAG. TAG is a proxy tag that needs
to be resolved, and DATA is the DATA passed into this function.
DATA is data to help resolve the proxy. DATA can be an EIEIO object,
such that FUNCTION is a method.
FUNCTION should return a list of tags, preferrably one tag."
FUNCTION should return a list of tags, preferably one tag."
(let ((sym (make-symbol ":tag-proxy")))
(put sym 'proxy-function function)
(put sym 'proxy-data data)
......
......@@ -228,8 +228,8 @@ a file. Optional argument NAME specifies a default file name."
"Read a persistent object from FILENAME, and return it.
Signal an error if the object in FILENAME is not a constructor
for CLASS. Optional ALLOW-SUBCLASS says that it is ok for
`eieio-peristent-read' to load in subclasses of class instead of
being pendantic."
`eieio-persistent-read' to load in subclasses of class instead of
being pedantic."
(unless class
(message "Unsafe call to `eieio-persistent-read'."))
(when (and class (not (class-p class)))
......@@ -301,7 +301,7 @@ identified, and needing more object creation."
"Validate that in CLASS, the SLOT with PROPOSED-VALUE is good, then fix.
A limited number of functions, such as quote, list, and valid object
constructor functions are considered valid.
Secondarilly, any text properties will be stripped from strings."
Second, any text properties will be stripped from strings."
(cond ((consp proposed-value)
;; Lists with something in them need special treatment.
(let ((slot-idx (eieio-slot-name-index class nil slot))
......
......@@ -204,7 +204,7 @@ timers). If nil, allocate a new cell."
"Insert TIMER into `timer-idle-list'.
This arranges to activate TIMER whenever Emacs is next idle.
If optional argument DONT-WAIT is non-nil, set TIMER to activate
immediately \(see beloe\), or at the right time, if Emacs is
immediately \(see below\), or at the right time, if Emacs is
already idle.
REUSE-CELL, if non-nil, is a cons cell to reuse when inserting
......
......@@ -496,7 +496,7 @@ as first char even if `ido-enable-prefix' is nil."
;; See http://debbugs.gnu.org/2042 for more info.
(defcustom ido-buffer-disable-smart-matches t
"Non-nil means not to re-order matches for buffer switching.
By default, ido aranges matches in the following order:
By default, ido arranges matches in the following order:
full-matches > suffix matches > prefix matches > remaining matches
......
......@@ -2079,13 +2079,7 @@
 
* org-agenda.el (org-agenda-list): Ensures that the list returned
by `org-agenda-add-time-grid-maybe' is appended to ̀rtnall' before
checking if the latter is emtpy.
2012-09-30 Christophe Junke <junke.christophe@gmail.com> (tiny change)
* org-agenda.el (org-agenda-list): Ensure that the list returned
by `org-agenda-add-time-grid-maybe' is appended to `rtnall' before
checking if the latter is emtpy.
checking if the latter is empty.
 
2012-09-30 Christophe Rhodes <csr21@cantab.net> (tiny change)
 
......@@ -2691,7 +2685,7 @@
* org-element.el (org-element-paragraph-parser): Fix parsing of
paragraph at the beginning of an item.
 
* org.el (org-mode): Set back comment-start-skip so comment-dwin
* org.el (org-mode): Set back comment-start-skip so comment-dwim
can tell a keyword from a comment.
 
* org.el (org-set-autofill-regexps): Install new comment line
......@@ -2959,7 +2953,7 @@
 
* org-capture.el (org-capture-fill-template): Expand %<num> escape
sequences into text entered for <num>'th %^{PROMPT} escape.
* org-capture.el (org-capture-fill-template): Fixed regexp for
%<n> expandos to match any positive integer.
(org-capture-templates): Updated docstring accordingly.
......
......@@ -823,7 +823,7 @@ because you will take care of it on the day when scheduled."
:group 'org-agenda-daily/weekly
:version "24.1"
:type '(choice
(const :tag "Alwas show prewarning" nil)
(const :tag "Always show prewarning" nil)
(const :tag "Remove prewarning if entry is scheduled" t)
(integer :tag "Restart prewarning N days before deadline")))
......@@ -2837,7 +2837,7 @@ L Timeline for current buffer # List stuck projects (!=configure)
(widen)
(let ((inhibit-read-only t))
(add-text-properties (point-min) (point-max)
`(org-serie t org-serie-redo-cmd ,redo)))
`(org-series t org-series-redo-cmd ,redo)))
(setq org-agenda-redo-command redo)
(goto-char (point-min)))
(org-agenda-fit-window-to-buffer)
......@@ -4019,7 +4019,7 @@ given in `org-agenda-start-on-weekday'."
`(org-agenda-type agenda
org-last-args (,arg ,start-day ,span)
org-redo-cmd ,org-agenda-redo-command
org-serie-cmd ,org-cmd))
org-series-cmd ,org-cmd))
(if (eq org-agenda-show-log-scoped 'clockcheck)
(org-agenda-show-clocking-issues))
(org-agenda-finalize)
......@@ -4324,7 +4324,7 @@ in `org-agenda-text-search-extra-files'."
`(org-agenda-type search
org-last-args (,todo-only ,string ,edit-at)
org-redo-cmd ,org-agenda-redo-command
org-serie-cmd ,org-cmd))
org-series-cmd ,org-cmd))
(org-agenda-finalize)
(setq buffer-read-only t))))
......@@ -4414,7 +4414,7 @@ for a keyword. A numeric prefix directly selects the Nth keyword in
`(org-agenda-type todo
org-last-args ,arg
org-redo-cmd ,org-agenda-redo-command
org-serie-cmd ,org-cmd))
org-series-cmd ,org-cmd))
(org-agenda-finalize)
(setq buffer-read-only t))))
......@@ -4499,7 +4499,7 @@ The prefix arg TODO-ONLY limits the search to TODO entries."
`(org-agenda-type tags
org-last-args (,todo-only ,match)
org-redo-cmd ,org-agenda-redo-command
org-serie-cmd ,org-cmd))
org-series-cmd ,org-cmd))
(org-agenda-finalize)
(setq buffer-read-only t))))
......@@ -6583,7 +6583,7 @@ Org-mode buffers visited directly by the user will not be touched."
(org-agenda-Quit))
(defun org-agenda-kill-all-agenda-buffers ()
"Kill all buffers in `org-agena-mode'.
"Kill all buffers in `org-agenda-mode'.
This is used when toggling sticky agendas. You can also explicitly invoke it
with `C-c a C-k'."
(interactive)
......@@ -6623,20 +6623,20 @@ in the agenda."
(lprops (get 'org-agenda-redo-command 'org-lprops))
(redo-cmd (get-text-property p 'org-redo-cmd))
(last-args (get-text-property p 'org-last-args))
(org-agenda-overriding-cmd (get-text-property p 'org-serie-cmd))
(org-agenda-overriding-cmd (get-text-property p 'org-series-cmd))
(org-agenda-overriding-cmd-arguments
(unless (eq all t)
(cond ((listp last-args)
(cons (or cpa (car last-args)) (cdr last-args)))
((stringp last-args)
last-args))))
(serie-redo-cmd (get-text-property p 'org-serie-redo-cmd)))
(series-redo-cmd (get-text-property p 'org-series-redo-cmd)))
(put 'org-agenda-tag-filter :preset-filter nil)
(put 'org-agenda-category-filter :preset-filter nil)
(and cols (org-columns-quit))
(message "Rebuilding agenda buffer...")
(if serie-redo-cmd
(eval serie-redo-cmd)
(if series-redo-cmd
(eval series-redo-cmd)
(org-let lprops '(eval redo-cmd)))
(setq org-agenda-undo-list nil
org-agenda-pending-undo-list nil)
......@@ -7035,7 +7035,7 @@ Negative selection means regexp must not match for selection of an entry."
(or (and cnt (text-property-any (point-min) (point-max) 'org-day-cnt cnt))
(text-property-any (point-min) (point-max) 'org-today t)
(text-property-any (point-min) (point-max) 'org-agenda-type 'agenda)
(and (get-text-property (min (1- (point-max)) (point)) 'org-serie)
(and (get-text-property (min (1- (point-max)) (point)) 'org-series)
(org-agenda-goto-block-beginning))
(point-min))))
......@@ -7090,7 +7090,7 @@ With prefix ARG, go forward that many times the current span."
;; `cmd' may have been set by `org-agenda-run-series' which
;; uses `org-agenda-overriding-cmd' to decide whether
;; overriding is allowed for `cmd'
(get-text-property (min (1- (point-max)) (point)) 'org-serie-cmd))
(get-text-property (min (1- (point-max)) (point)) 'org-series-cmd))
(org-agenda-overriding-arguments
(list (car args) sd span)))
(org-agenda-redo)
......@@ -7183,7 +7183,7 @@ SPAN may be `day', `week', `month', `year'."
org-starting-day))
(sd (org-agenda-compute-starting-span sd span n))
(org-agenda-overriding-cmd
(get-text-property (min (1- (point-max)) (point)) 'org-serie-cmd))
(get-text-property (min (1- (point-max)) (point)) 'org-series-cmd))
(org-agenda-overriding-arguments
(list (car args) sd span)))
(org-agenda-redo)
......
......@@ -3924,7 +3924,7 @@ Return Org syntax as a string."
(and (eq type 'paragraph)
(equal data (car (org-element-contents parent)))
(memq (org-element-type parent)
'(footnote-definiton item))))))
'(footnote-definition item))))))
"")))
(funcall (intern (format "org-element-%s-interpreter" type))
data
......
......@@ -293,7 +293,7 @@ column view defines special faces for each outline level. See the file
(((class color) (min-colors 8) (background dark)) (:foreground "red" :inverse-video t))
(t (:inverse-video t))))
"Face for highlighting the calendar day when using `org-read-date'.
Using a bold face here might cause discrepencies while displaying the
Using a bold face here might cause discrepancies while displaying the
calendar."
:group 'org-faces)
......
......@@ -64,7 +64,7 @@ and `org-remember-default-headline'. To force prompting anyway, use
\\[universal-argument] \\[org-remember-finalize] to file the note.
When this variable is nil, \\[org-remember-finalize] gives you the prompts, and
\\[universal-argument] \\[org-remember-finalize] triggers the fasttrack."
\\[universal-argument] \\[org-remember-finalize] triggers the fast track."
:group 'org-remember
:type 'boolean)
......
......@@ -1784,7 +1784,7 @@ supported but discouraged. It will be removed in a future version of Emacs."
process-alist))))
(unless (and signal process-alist)
;; Discouraged usge (supported for backward compatibility):
;; Discouraged usage (supported for backward compatibility):
;; The new calling sequence separates more cleanly between the parts
;; of the code required for interactive and noninteractive calls so that
;; the command can be used more flexibly in noninteractive ways, too.
......
......@@ -495,7 +495,7 @@ return it."
t))))))
(defun profiler-report-collapse-entry ()
"Collpase entry at point."
"Collapse entry at point."
(interactive)
(save-excursion
(beginning-of-line)
......
......@@ -502,7 +502,7 @@ The type returned can be `comment', `string' or `paren'."
(and
;; Match even number of backslashes.
(or (not (any ?\\ ?\' ?\")) point
;; Quotes might be preceeded by a escaped quote.
;; Quotes might be preceded by a escaped quote.
(and (or (not (any ?\\)) point) ?\\
(* ?\\ ?\\) (any ?\' ?\")))
(* ?\\ ?\\)
......
......@@ -5148,7 +5148,7 @@ This sets up the appropriate Verilog mode environment, removes
whitespace with \\[verilog-delete-trailing-whitespace] on all
command-line files, and saves the buffers."
(unless noninteractive
(error "Use verilog-batch-delete-trailing-whitepace only with --batch")) ;; Otherwise we'd mess up buffer modes
(error "Use verilog-batch-delete-trailing-whitespace only with --batch")) ;; Otherwise we'd mess up buffer modes
(verilog-batch-execute-func `verilog-delete-trailing-whitespace))
(defun verilog-batch-diff-auto ()
......@@ -12161,7 +12161,7 @@ Limitations:
Interface names must be resolvable to filenames. See `verilog-auto-inst'.
As with other autos, any inputs/outputs declared in the module
will suppress the AUTO from redeclarating an inputs/outputs by
will suppress the AUTO from redeclaring an input/output by
the same name.
An example:
......
......@@ -3170,7 +3170,7 @@ in which case `save-window-excursion' cannot help."
(set-window-hscroll window 0)
;; Don't try this with NOFORCE non-nil!
(set-window-start window (point-min) t)
;; This hould not be necessary.
;; This should not be necessary.
(set-window-point window (point-min))
;; Run `temp-buffer-show-hook', with the chosen window selected.
(with-selected-window window
......
......@@ -2466,7 +2466,7 @@ information about your RefTeX version and configuration."
"Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.
Check if the bug is reproducable with an up-to-date version of
Check if the bug is reproducible with an up-to-date version of
RefTeX available from http://www.gnu.org/software/auctex/.
If the bug is triggered by a specific \(La\)TeX file, you should try
......
......@@ -701,7 +701,7 @@ SIDE. Return the new window, nil if its creation window failed."
(set-window-parameter new 'delete-window 'delete-side-window)
;; Auto-adjust height/width of new window unless a size has been
;; explicitly requested.
(unless (if left-or-right
(unless (if left-or-right
(cdr (assq 'window-width alist))
(cdr (assq 'window-height alist)))
(setq alist
......@@ -5615,7 +5615,7 @@ the selected one."
buffer window 'reuse alist display-buffer-mark-dedicated)))))
(defun display-buffer-at-bottom (buffer alist)
"Try displaying BUFFER in a window at the botom of the selected frame.
"Try displaying BUFFER in a window at the bottom of the selected frame.
This either splits the window at the bottom of the frame or the
frame's root window, or reuses an existing window at the bottom
of the selected frame."
......
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