Commit 136b74c5 authored by Paul Eggert's avatar Paul Eggert

Spelling fixes.

* lisp/language/china-util.el (hz-ascii-designation):
Rename from hz-ascii-designnation.
(hz-ascii-designation): Rename from hz-ascii-designnation.
All uses changed.
* lisp/cedet/semantic/decorate/include.el (semantic-decoration-mouse-3):
Rename from semantic-decoratiton-mouse-3.  All uses changed.
* lisp/org/org-irc.el (org-irc-ellipsify-description): Rename from
org-irc-elipsify-description.  All uses changed.
parent a129f1df
......@@ -1220,7 +1220,7 @@ variables that you want to use. @xref{Name Help}.
@cindex Eldoc mode
@findex eldoc-mode
Eldoc is a buffer-local minor mode that helps with looking up Lisp
documention. When it is enabled, the echo area displays some useful
documentation. When it is enabled, the echo area displays some useful
information whenever there is a Lisp function or variable at point;
for a function, it shows the argument list, and for a variable it
shows the first line of the variable's documentation string. To
......
......@@ -11912,7 +11912,6 @@ more steps.
@node No deferment solution
@subsection No Deferment Solution
@cindex No deferment solution
@cindex Defermentless solution
@cindex Solution without deferment
The solution to the problem of deferred operations is to write in a
......
......@@ -59,7 +59,7 @@ Documentation}. You can also put function documentation in the
(@pxref{Accessing Documentation}).
@cindex @code{variable-documentation} property
In a variable definition (a @code{defvar} form), the documention
In a variable definition (a @code{defvar} form), the documentation
string is specified after the initial value. @xref{Defining
Variables}. The string is stored in the variable's
@code{variable-documentation} property.
......
......@@ -355,7 +355,7 @@ tags are @emph{saved} while a buffer is not in memory.
The database and tables both also provide applicable cache information,
and cache flushing system. The semanticdb search routines use caches
to save datastructures that are complex to calculate.
to save data structures that are complex to calculate.
Lastly, it provides the concept of @dfn{project root}. It is a system
by which a file can be associated with the root of a project, so if
......
2014-01-08 Paul Eggert <eggert@cs.ucla.edu>
Spelling fixes.
* language/china-util.el (hz-ascii-designation):
Rename from hz-ascii-designnation.
(hz-ascii-designation): Rename from hz-ascii-designnation.
All uses changed.
2014-01-08 Bastien Guerry <bzg@gnu.org>
* emacs-lisp/package.el (package-installed-p): Fix my previous
......
......@@ -295,7 +295,7 @@
(font-lock-removed-keywords-alist): New variable.
(font-lock-add-keywords): Updates `font-lock-removed-keywords-alist'.
Empty `font-lock-keywords-alist' when `append' is `set' to avoid
growing datastructures.
growing data structures.
(font-lock-set-defaults): Removes keywords stored in
`font-lock-removed-keywords-alist' after local keywords added.
......
2014-01-08 Paul Eggert <eggert@cs.ucla.edu>
Spelling fixes.
* semantic/decorate/include.el (semantic-decoration-mouse-3):
Rename from semantic-decoratiton-mouse-3. All uses changed.
2013-12-28 Glenn Morris <rgm@gnu.org>
* ede/linux.el (project-linux-build-directory-default)
......
;;; data-debug.el --- Datastructure Debugger
;;; data-debug.el --- Data structure debugger
;; Copyright (C) 2007-2014 Free Software Foundation, Inc.
......
......@@ -42,8 +42,8 @@
;;; Code:
;;; FACES AND KEYMAPS
(defvar semantic-decoratiton-mouse-3 (if (featurep 'xemacs) [ button3 ] [ mouse-3 ])
"The keybinding lisp object to use for binding the right mouse button.")
(defvar semantic-decoration-mouse-3 (if (featurep 'xemacs) [ button3 ] [ mouse-3 ])
"The keybinding Lisp object to use for binding the right mouse button.")
;;; Includes that are in a happy state!
;;
......@@ -55,7 +55,7 @@ Used by the decoration style: `semantic-decoration-on-includes'."
(defvar semantic-decoration-on-include-map
(let ((km (make-sparse-keymap)))
(define-key km semantic-decoratiton-mouse-3 'semantic-decoration-include-menu)
(define-key km semantic-decoration-mouse-3 'semantic-decoration-include-menu)
km)
"Keymap used on includes.")
......@@ -126,7 +126,7 @@ Used by the decoration style: `semantic-decoration-on-unknown-includes'."
(defvar semantic-decoration-on-unknown-include-map
(let ((km (make-sparse-keymap)))
;(define-key km [ mouse-2 ] 'semantic-decoration-unknown-include-describe)
(define-key km semantic-decoratiton-mouse-3 'semantic-decoration-unknown-include-menu)
(define-key km semantic-decoration-mouse-3 'semantic-decoration-unknown-include-menu)
km)
"Keymap used on unparsed includes.")
......@@ -189,7 +189,7 @@ Used by the decoration style: `semantic-decoration-on-fileless-includes'."
(defvar semantic-decoration-on-fileless-include-map
(let ((km (make-sparse-keymap)))
;(define-key km [ mouse-2 ] 'semantic-decoration-fileless-include-describe)
(define-key km semantic-decoratiton-mouse-3 'semantic-decoration-fileless-include-menu)
(define-key km semantic-decoration-mouse-3 'semantic-decoration-fileless-include-menu)
km)
"Keymap used on unparsed includes.")
......@@ -251,7 +251,7 @@ Used by the decoration style: `semantic-decoration-on-unparsed-includes'."
(defvar semantic-decoration-on-unparsed-include-map
(let ((km (make-sparse-keymap)))
(define-key km semantic-decoratiton-mouse-3 'semantic-decoration-unparsed-include-menu)
(define-key km semantic-decoration-mouse-3 'semantic-decoration-unparsed-include-menu)
km)
"Keymap used on unparsed includes.")
......
......@@ -1896,7 +1896,7 @@ Undo previous insertion and inserts new."
;; Quote region by each line with a user supplied string.
(defun viper-quote-region ()
(let ((quote-str viper-quote-string)
(donot-change-default t))
(do-not-change-default t))
(setq quote-str
(viper-read-string-with-history
"Quote string: "
......@@ -1908,9 +1908,9 @@ Undo previous insertion and inserts new."
((string-match "lisp.*-mode" (symbol-name major-mode)) ";;")
((memq major-mode '(c-mode cc-mode c++-mode)) "//")
((memq major-mode '(sh-mode shell-mode)) "#")
(t (setq donot-change-default nil)
(t (setq do-not-change-default nil)
quote-str))))
(or donot-change-default
(or do-not-change-default
(setq viper-quote-string quote-str))
(viper-enlarge-region (point) (mark t))
(if (> (point) (mark t)) (exchange-point-and-mark))
......
......@@ -99,7 +99,7 @@ ARGS are passed to `message'."
;; Copy of the `nnmail-lazy' code from `nnmail.el':
(define-widget 'gmm-lazy 'default
"Base widget for recursive datastructures.
"Base widget for recursive data structures.
This is a copy of the `lazy' widget in Emacs 22.1 provided for compatibility."
:format "%{%t%}: %v"
......
......@@ -937,7 +937,7 @@ Otherwise, return the value."
'previous-extent-change 'previous-char-property-change))
;;; Protected and atomic operations. dmoore@ucsd.edu 21.11.1996
;; The primary idea here is to try to protect internal datastructures
;; The primary idea here is to try to protect internal data structures
;; from becoming corrupted when the user hits C-g, or if a hook or
;; similar blows up. Often in Gnus multiple tables/lists need to be
;; updated at the same time, or information can be lost.
......
......@@ -374,7 +374,7 @@ messages will be shown to indicate the current status."
(number :tag "count")))
(define-widget 'nnmail-lazy 'default
"Base widget for recursive datastructures.
"Base widget for recursive data structures.
This is copy of the `lazy' widget in Emacs 22.1 provided for compatibility."
:format "%{%t%}: %v"
......
......@@ -52,16 +52,16 @@
;; ISO-2022 escape sequence to designate GB2312.
(defvar iso2022-gb-designation "\e$A")
;; HZ escape sequence to designate GB2312.
(defvar hz-gb-designnation "~{")
(defvar hz-gb-designation "~{")
;; ISO-2022 escape sequence to designate ASCII.
(defvar iso2022-ascii-designation "\e(B")
;; HZ escape sequence to designate ASCII.
(defvar hz-ascii-designnation "~}")
(defvar hz-ascii-designation "~}")
;; Regexp of ZW sequence to start GB2312.
(defvar zw-start-gb "^zW")
;; Regexp for start of GB2312 in an encoding mixture of HZ and ZW.
(defvar hz/zw-start-gb
(concat hz-gb-designnation "\\|" zw-start-gb "\\|[^\0-\177]"))
(concat hz-gb-designation "\\|" zw-start-gb "\\|[^\0-\177]"))
(defvar decode-hz-line-continuation nil
"Flag to tell if we should care line continuation convention of Hz.")
......@@ -117,7 +117,7 @@ Return the length of resulting text."
(progn
(translate-region (point) end hz-set-msb-table)
(goto-char end))
(if (search-forward hz-ascii-designnation
(if (search-forward hz-ascii-designation
(if decode-hz-line-continuation nil end)
t)
(delete-char -2))
......@@ -155,11 +155,11 @@ Return the length of resulting text."
(goto-char pos)
(while (search-forward iso2022-gb-designation nil t)
(delete-char -3)
(insert hz-gb-designnation))
(insert hz-gb-designation))
(goto-char pos)
(while (search-forward iso2022-ascii-designation nil t)
(delete-char -3)
(insert hz-ascii-designnation))))
(insert hz-ascii-designation))))
(- (point-max) (point-min)))))
;;;###autoload
......
2014-01-08 Paul Eggert <eggert@cs.ucla.edu>
Spelling fixes.
* org-irc.el (org-irc-ellipsify-description): Rename from
org-irc-elipsify-description. All uses changed.
2013-01-07 Bastien Guerry <bzg@gnu.org>
* org-clock.el (org-clock-cancel-hook)
......@@ -764,7 +764,7 @@ to make his option also apply to the tags-todo list."
(integer :tag "Ignore if N or more days in past(-) or future(+).")))
(defcustom org-agenda-todo-ignore-deadlines nil
"Non-nil means ignore some deadlined TODO items when making TODO list.
"Non-nil means ignore some deadline TODO items when making TODO list.
There are different motivations for using different values, please think
carefully when configuring this variable.
......
......@@ -105,7 +105,7 @@ attributes that are found."
((eq major-mode 'erc-mode)
(org-irc-erc-store-link))))
(defun org-irc-elipsify-description (string &optional after)
(defun org-irc-ellipsify-description (string &optional after)
"Remove unnecessary white space from STRING and add ellipses if necessary.
Strip starting and ending white space from STRING and replace any
chars that the value AFTER with '...'"
......@@ -158,7 +158,7 @@ the session itself."
(progn
(org-store-link-props
:type "file"
:description (concat "'" (org-irc-elipsify-description
:description (concat "'" (org-irc-ellipsify-description
(cadr parsed-line) 20)
"' from an IRC conversation")
:link (concat "file:" (car parsed-line) "::"
......
......@@ -468,7 +468,7 @@ sentences. Also, every paragraph boundary terminates sentences as well."
(setq par-text-beg (point))
;; Start of the first line of the paragraph.
;; We use this as the search limit
;; to allow s1entence-end to match if it is anchored at
;; to allow sentence-end to match if it is anchored at
;; BOL and the paragraph starts indented.
(beginning-of-line)
(setq par-beg (point)))
......
......@@ -3462,14 +3462,14 @@ To use this type, you must define :match or :match-alternatives."
;; Recursive datatypes.
(define-widget 'lazy 'default
"Base widget for recursive datastructures.
"Base widget for recursive data structures.
The `lazy' widget will, when instantiated, contain a single inferior
widget, of the widget type specified by the :type parameter. The
value of the `lazy' widget is the same as the value of the inferior
widget. When deriving a new widget from the 'lazy' widget, the :type
parameter is allowed to refer to the widget currently being defined,
thus allowing recursive datastructures to be described.
thus allowing recursive data structures to be described.
The :type parameter takes the same arguments as the defcustom
parameter with the same name.
......@@ -3479,7 +3479,7 @@ not allow recursion. That is, when you define a new widget type, none
of the inferior widgets may be of the same type you are currently
defining.
In Lisp, however, it is custom to define datastructures in terms of
In Lisp, however, it is custom to define data structures in terms of
themselves. A list, for example, is defined as either nil, or a cons
cell whose cdr itself is a list. The obvious way to translate this
into a widget type would be
......@@ -3502,7 +3502,7 @@ example:
:type '(choice (const nil) (cons :value (nil) sexp sexp-list)))"
:format "%{%t%}: %v"
;; We don't convert :type because we want to allow recursive
;; datastructures. This is slow, so we should not create speed
;; data structures. This is slow, so we should not create speed
;; critical widgets by deriving from this.
:convert-widget 'widget-value-convert-widget
:value-create 'widget-type-value-create
......
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