Commit 6196cffe authored by Paul Eggert's avatar Paul Eggert
Browse files

Spelling fixes.

parent d3098e1e
...@@ -281,7 +281,7 @@ for any of the prompts. ...@@ -281,7 +281,7 @@ for any of the prompts.
Note that the password needs to be evaluated if it's a function. It's Note that the password needs to be evaluated if it's a function. It's
wrapped in a function to provide some security. wrapped in a function to provide some security.
Later, after a successful login, @code{nnimal.el} calls the Later, after a successful login, @code{nnimap.el} calls the
@code{:save-function} like so: @code{:save-function} like so:
@example @example
......
...@@ -27413,7 +27413,7 @@ ...@@ -27413,7 +27413,7 @@
which has been added in Emacs 21.1. which has been added in Emacs 21.1.
(c-mode, c++-mode, objc-mode, java-mode, idl-mode, pike-mode) (c-mode, c++-mode, objc-mode, java-mode, idl-mode, pike-mode)
(awk-mode): Use it. (awk-mode): Use it.
(make-local-hook): Suppress warning about obsoleteness. (make-local-hook): Suppress warning about obsolescence.
   
* progmodes/cc-engine.el, cc-align.el, cc-cmds.el * progmodes/cc-engine.el, cc-align.el, cc-cmds.el
(c-append-backslashes-forward, c-delete-backslashes-forward) (c-append-backslashes-forward, c-delete-backslashes-forward)
...@@ -1841,7 +1841,7 @@ ...@@ -1841,7 +1841,7 @@
expr)))) expr))))
;;; Simplify a polynomial in list form by stripping off high-end zeros. ;;; Simplify a polynomial in list form by stripping off high-end zeros.
;;; This always leaves the constant part, i.e., nil->nil and nonnil->nonnil. ;;; This always leaves the constant part, i.e., nil->nil and non-nil->non-nil.
(defun math-poly-simplify (p) (defun math-poly-simplify (p)
(and p (and p
(if (Math-zerop (nth (1- (length p)) p)) (if (Math-zerop (nth (1- (length p)) p))
......
...@@ -723,7 +723,7 @@ STRING)). Returns nil if it is not visible in the current calendar window." ...@@ -723,7 +723,7 @@ STRING)). Returns nil if it is not visible in the current calendar window."
(let ((m displayed-month) (let ((m displayed-month)
(y displayed-year)) (y displayed-year))
(calendar-increment-month m y (- 11 month)) (calendar-increment-month m y (- 11 month))
(if (> m 9) ; is november visible? (if (> m 9) ; Is November visible?
(list (list (list month day y) string))))) (list (list (list month day y) string)))))
(defun holiday-float (month dayname n string &optional day) (defun holiday-float (month dayname n string &optional day)
......
...@@ -1161,7 +1161,7 @@ all. This may very well take some time.") ...@@ -1161,7 +1161,7 @@ all. This may very well take some time.")
(defun nndiary-parse-schedule-value (str min-or-values max) (defun nndiary-parse-schedule-value (str min-or-values max)
;; Parse the schedule string STR, or signal an error. ;; Parse the schedule string STR, or signal an error.
;; Signals are caught by `nndary-schedule'. ;; Signals are caught by `nndiary-schedule'.
(if (string-match "[ \t]*\\*[ \t]*" str) (if (string-match "[ \t]*\\*[ \t]*" str)
;; unspecified ;; unspecified
nil nil
...@@ -1204,7 +1204,7 @@ all. This may very well take some time.") ...@@ -1204,7 +1204,7 @@ all. This may very well take some time.")
;; - Returns nil if `*' ;; - Returns nil if `*'
;; - Otherwise returns a list of integers and/or ranges (BEG . END) ;; - Otherwise returns a list of integers and/or ranges (BEG . END)
;; The exception is the Timze-Zone value which is always of the form (STR). ;; The exception is the Timze-Zone value which is always of the form (STR).
;; Signals are caught by `nndary-schedule'. ;; Signals are caught by `nndiary-schedule'.
(let ((header (format "^X-Diary-%s: \\(.*\\)$" head))) (let ((header (format "^X-Diary-%s: \\(.*\\)$" head)))
(goto-char (point-min)) (goto-char (point-min))
(if (not (re-search-forward header nil t)) (if (not (re-search-forward header nil t))
......
...@@ -50,9 +50,9 @@ ...@@ -50,9 +50,9 @@
;; identified by a string called package name. Use robin-define-package ;; identified by a string called package name. Use robin-define-package
;; to define a robin package. ;; to define a robin package.
;; (robin-define-package NAME DOCTSTRING ;; (robin-define-package NAME DOCSTRING
;; (INPUT1 OUPUT1) ;; (INPUT1 OUTPUT1)
;; (INPUT2 OUPUT2) ;; (INPUT2 OUTPUT2)
;; ...) ;; ...)
;; NAME is a string identifying the robin package. It often starts with a ;; NAME is a string identifying the robin package. It often starts with a
......
...@@ -440,7 +440,7 @@ length of STR is LEN." ...@@ -440,7 +440,7 @@ length of STR is LEN."
(defun ntlm-smb-dohash (in key forw) (defun ntlm-smb-dohash (in key forw)
"Return the hash value for a string IN and a string KEY. "Return the hash value for a string IN and a string KEY.
Length of IN and KEY are 64. FORW non nill means forward, nil means Length of IN and KEY are 64. FORW non-nil means forward, nil means
backward." backward."
(let (pk1 ;string of length 56 (let (pk1 ;string of length 56
c ;string of length 28 c ;string of length 28
......
...@@ -3506,7 +3506,7 @@ If the `tramp-methods' entry does not exist, return nil." ...@@ -3506,7 +3506,7 @@ If the `tramp-methods' entry does not exist, return nil."
(cond (cond
((char-equal other-write ?w) (tramp-compat-octal-to-decimal "00002")) ((char-equal other-write ?w) (tramp-compat-octal-to-decimal "00002"))
((char-equal other-write ?-) 0) ((char-equal other-write ?-) 0)
(t (error "Nineth char `%c' must be one of `w-'" other-write))) (t (error "Ninth char `%c' must be one of `w-'" other-write)))
(cond (cond
((char-equal other-execute-or-sticky ?x) ((char-equal other-execute-or-sticky ?x)
(tramp-compat-octal-to-decimal "00001")) (tramp-compat-octal-to-decimal "00001"))
......
...@@ -56,7 +56,7 @@ ...@@ -56,7 +56,7 @@
;; BUGS: ;; BUGS:
;;;> I have the following suggestions for the function template: 1) I ;;;> I have the following suggestions for the function template: 1) I
;;;> don't want it automatically assigning it a name for the return variable. I ;;;> don't want it automatically assigning it a name for the return variable. I
;;;> never want it to be called "Result" because that is nondescriptive. If you ;;;> never want it to be called "Result" because that is nondescript. If you
;;;> must define a variable, give me the ability to specify its name. ;;;> must define a variable, give me the ability to specify its name.
;;;> ;;;>
;;;> 2) You do not provide a type for variable 'Result'. Its type is the same ;;;> 2) You do not provide a type for variable 'Result'. Its type is the same
......
...@@ -37,8 +37,8 @@ ...@@ -37,8 +37,8 @@
;; -------------------------------------- ;; --------------------------------------
;; ;;
;; While the message passing and the colorization surely introduce some ;; While the message passing and the colorization surely introduce some
;; overhead this has became so small that IMHO is surely outweighted by ;; overhead this has became so small that IMHO it is surely outweighed by
;; the benefits you get but, as usual, YMMV ;; the benefits you get but, as usual, YMMV.
;; ;;
;; Important caveat, when deciding the cursor/'gray keys' keycodes I had to ;; Important caveat, when deciding the cursor/'gray keys' keycodes I had to
;; make a choice: on my Linux box this choice allows me to run all the ;; make a choice: on my Linux box this choice allows me to run all the
......
...@@ -474,7 +474,7 @@ If this is nil, then `diary-file' will be used instead." ...@@ -474,7 +474,7 @@ If this is nil, then `diary-file' will be used instead."
(replace-match (replace-match
(let ((style (if (boundp 'calendar-date-style) (let ((style (if (boundp 'calendar-date-style)
calendar-date-style calendar-date-style
;; Don't complain about obsoleteness. ;; Don't complain about obsolescence.
(if (with-no-warnings european-calendar-style) (if (with-no-warnings european-calendar-style)
'european 'european
'american)))) 'american))))
......
...@@ -620,7 +620,7 @@ A printed representation of an object is text which describes that object. */) ...@@ -620,7 +620,7 @@ A printed representation of an object is text which describes that object. */)
printcharfun = Vprin1_to_string_buffer; printcharfun = Vprin1_to_string_buffer;
PRINTPREPARE; PRINTPREPARE;
print (object, printcharfun, NILP (noescape)); print (object, printcharfun, NILP (noescape));
/* Make Vprin1_to_string_buffer be the default buffer after PRINTFINSH */ /* Make Vprin1_to_string_buffer be the default buffer after PRINTFINISH */
PRINTFINISH; PRINTFINISH;
} }
......
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