Commit d36b11e2 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

Fix typos (sync from the trunk).

* facemenu.el (facemenu-unlisted-faces): Fix obsolescence declaration.

* hi-lock.el (hi-lock-mode): Fix typo in docstring.

* icomplete.el (icomplete-compute-delay, icomplete-get-keys): Doc fixes.
  (icomplete-delay-completions-threshold): Fix typo in docstring.

* speedbar.el (speedbar-stealthy-function-list)
  (speedbar-verbosity-level, speedbar-supported-extension-expressions)
  (speedbar-update-current-file, speedbar-add-indicator)
  (speedbar-tag-expand): Reflow docstrings.
  (speedbar-use-imenu-flag, speedbar-use-tool-tips-flag)
  (speedbar-ignored-directory-regexp, speedbar-file-unshown-regexp)
  (speedbar-file-regexp, speedbar-message, speedbar-item-info)
  (speedbar-files-item-info, speedbar-fetch-replacement-function)
  (speedbar-maybe-add-localized-support)
  (speedbar-generic-list-positioned-group-p, speedbar-insert-generic-list)
  (speedbar-extract-one-symbol, speedbar-recenter-to-top)
  (speedbar-recenter, speedbar-separator-face): Fix typos in docstrings.
  (speedbar-ignored-directory-expressions, speedbar-handle-delete-frame)
  (speedbar-show-info-under-mouse, speedbar-directory-buttons)
  (speedbar-check-vc-this-line, speedbar-files-line-directory)
  (speedbar-buffer-buttons, speedbar-buffer-buttons-temp)
  (speedbar-buffers-line-directory): Doc fixes.

* tool-bar.el (tool-bar-add-item): Fix typo in docstring.

* emacs-lisp/edebug.el (edebug-unwrap*, edebug-signal)
  (edebug-restore-status): Doc fixes.
  (edebug-gensym, edebug-top-level-nonstop, edebug-eval-display)
  (edebug-eval-result-list, edebug-eval-redisplay, edebug)
  (edebug-trace): Fix typos in docstrings.

* emulation/tpu-edt.el (tpu-match-beginning, tpu-match-end)
  (tpu-check-match, tpu-goto-breadcrumb, tpu-reset-screen-size)
  (tpu-toggle-overwrite-mode, tpu-include, tpu-get, tpu-what-line)
  (tpu-insert-escape, tpu-insert-formfeed, tpu-end-define-macro-key)
  (tpu-check-search-case, tpu-select, tpu-unselect, tpu-trim-line-ends)
  (tpu-toggle-control-keys): Fix typos in docstrings.
  (tpu-kill-buffer): Doc fix.
  (tpu-make-file-buffer-list, tpu-toggle-regexp, tpu-cut)
  (tpu-append-region, tpu-delete-current-char, tpu-emacs-replace):
  Reflow docstrings.

* eshell/em-smart.el (eshell-review-quick-commands): Doc fix.

* eshell/esh-arg.el (eshell-quote-backslash): Fix typo in docstring.

* play/solitaire.el (solitaire, solitaire-mode-map, solitaire-mode-hook)
  (solitaire-mode, solitaire, solitaire-solve): Fix typos in docstrings.

* progmodes/gdb-ui.el (gdb-source-info): Fix typo in docstring.

* progmodes/python.el (python-comment-line-p, python-blank-line-p)
  (python-skip-out): Doc fixes.
parent 518e6a15
2008-08-26 Juanma Barranquero <lekktu@gmail.com>
* facemenu.el (facemenu-unlisted-faces): Fix obsolescence declaration.
* hi-lock.el (hi-lock-mode): Fix typo in docstring.
* icomplete.el (icomplete-compute-delay, icomplete-get-keys): Doc fixes.
(icomplete-delay-completions-threshold): Fix typo in docstring.
* speedbar.el (speedbar-stealthy-function-list)
(speedbar-verbosity-level, speedbar-supported-extension-expressions)
(speedbar-update-current-file, speedbar-add-indicator)
(speedbar-tag-expand): Reflow docstrings.
(speedbar-use-imenu-flag, speedbar-use-tool-tips-flag)
(speedbar-ignored-directory-regexp, speedbar-file-unshown-regexp)
(speedbar-file-regexp, speedbar-message, speedbar-item-info)
(speedbar-files-item-info, speedbar-fetch-replacement-function)
(speedbar-maybe-add-localized-support)
(speedbar-generic-list-positioned-group-p, speedbar-insert-generic-list)
(speedbar-extract-one-symbol, speedbar-recenter-to-top)
(speedbar-recenter, speedbar-separator-face): Fix typos in docstrings.
(speedbar-ignored-directory-expressions, speedbar-handle-delete-frame)
(speedbar-show-info-under-mouse, speedbar-directory-buttons)
(speedbar-check-vc-this-line, speedbar-files-line-directory)
(speedbar-buffer-buttons, speedbar-buffer-buttons-temp)
(speedbar-buffers-line-directory): Doc fixes.
* tool-bar.el (tool-bar-add-item): Fix typo in docstring.
* emacs-lisp/edebug.el (edebug-unwrap*, edebug-signal)
(edebug-restore-status): Doc fixes.
(edebug-gensym, edebug-top-level-nonstop, edebug-eval-display)
(edebug-eval-result-list, edebug-eval-redisplay, edebug)
(edebug-trace): Fix typos in docstrings.
* emulation/tpu-edt.el (tpu-match-beginning, tpu-match-end)
(tpu-check-match, tpu-goto-breadcrumb, tpu-reset-screen-size)
(tpu-toggle-overwrite-mode, tpu-include, tpu-get, tpu-what-line)
(tpu-insert-escape, tpu-insert-formfeed, tpu-end-define-macro-key)
(tpu-check-search-case, tpu-select, tpu-unselect, tpu-trim-line-ends)
(tpu-toggle-control-keys): Fix typos in docstrings.
(tpu-kill-buffer): Doc fix.
(tpu-make-file-buffer-list, tpu-toggle-regexp, tpu-cut)
(tpu-append-region, tpu-delete-current-char, tpu-emacs-replace):
Reflow docstrings.
* eshell/em-smart.el (eshell-review-quick-commands): Doc fix.
* eshell/esh-arg.el (eshell-quote-backslash): Fix typo in docstring.
* play/solitaire.el (solitaire, solitaire-mode-map, solitaire-mode-hook)
(solitaire-mode, solitaire, solitaire-solve): Fix typos in docstrings.
* progmodes/gdb-ui.el (gdb-source-info): Fix typo in docstring.
* progmodes/python.el (python-comment-line-p, python-blank-line-p)
(python-skip-out): Doc fixes.
2008-08-25 Jay Belanger <jay.p.belanger@gmail.com>
 
* calc/calc-units.el (math-simplify-units-quotient): Replace
......@@ -129,7 +187,7 @@
* files.el (abbreviate-file-name): When replacing $HOME with ~,
turn off case-fold-search.
 
2008-07-31 Joachim Nilsson <joachim.nilsson@member.fsf.org> (tiny change)
2008-07-31 Joachim Nilsson <joachim.nilsson@member.fsf.org> (tiny change)
 
* progmodes/cc-styles.el (c-style-alist): For the Ellemtel style,
move the (arglist-cont-nonempty) from c-offsets-alist to
......@@ -273,8 +273,8 @@ An extant spec symbol is a symbol that is not a function and has a
(defun edebug-gensym (&optional prefix)
"Generate a fresh uninterned symbol.
There is an optional argument, PREFIX. PREFIX is the
string that begins the new name. Most people take just the default,
There is an optional argument, PREFIX. PREFIX is the string
that begins the new name. Most people take just the default,
except when debugging needs suggest otherwise."
(if (null prefix)
(setq prefix "G"))
......@@ -1278,7 +1278,7 @@ expressions; a `progn' form will be returned enclosing these forms."
sexp))
(defun edebug-unwrap* (sexp)
"Return the sexp recursively unwrapped."
"Return the SEXP recursively unwrapped."
(let ((new-sexp (edebug-unwrap sexp)))
(while (not (eq sexp new-sexp))
(setq sexp new-sexp
......@@ -2231,7 +2231,8 @@ See `condition-case'.
This is the Edebug replacement for the standard `signal'. It should
only be active while Edebug is. It checks `debug-on-error' to see
whether it should call the debugger. When execution is resumed, the
error is signaled again."
error is signaled again.
\n(fn SIGNAL-NAME DATA)"
(if (and (listp debug-on-error) (memq edebug-signal-name debug-on-error))
(edebug 'error (cons edebug-signal-name edebug-signal-data)))
;; If we reach here without another non-local exit, then send signal again.
......@@ -2342,7 +2343,7 @@ or nil (if the default binding is current)."
(defun edebug-restore-status (var status)
"Reset VAR based on STATUS.
STATUS should be a list you got from `edebug-var-status'."
STATUS should be a list returned by `edebug-var-status'."
(let ((locus (car status))
(value (cdr status)))
(cond ((bufferp locus)
......@@ -3502,7 +3503,7 @@ Edebug, it calls `edebug-on-entry'."
(defun edebug-top-level-nonstop ()
"Set mode to Go-nonstop, and exit to top-level.
This is useful for exiting even if unwind-protect code may be executed."
This is useful for exiting even if `unwind-protect' code may be executed."
(interactive)
(setq edebug-execution-mode 'Go-nonstop)
(top-level))
......@@ -3937,7 +3938,7 @@ edebug-global-break-condition
;; A list of expressions and their evaluations is displayed in *edebug*.
(defun edebug-eval-result-list ()
"Return a list of evaluations of edebug-eval-list"
"Return a list of evaluations of `edebug-eval-list'."
;; Assumes in outside environment.
;; Don't do any edebug things now.
(let ((edebug-execution-mode 'Go-nonstop)
......@@ -3971,7 +3972,7 @@ edebug-global-break-condition
;; with calls in user functions, e.g. (edebug-eval-display)
(defun edebug-eval-display (edebug-eval-result-list)
"Display expressions and evaluations in EVAL-LIST.
"Display expressions and evaluations in EDEBUG-EVAL-RESULT-LIST.
It modifies the context by popping up the eval display."
(if edebug-eval-result-list
(progn
......@@ -3981,7 +3982,7 @@ It modifies the context by popping up the eval display."
(defun edebug-eval-redisplay ()
"Redisplay eval list in outside environment.
May only be called from within edebug-recursive-edit."
May only be called from within `edebug-recursive-edit'."
(edebug-create-eval-buffer)
(edebug-outside-excursion
(edebug-eval-display-list (edebug-eval-result-list))
......@@ -4073,9 +4074,9 @@ Global commands prefixed by `global-edebug-prefix':
;; edebug is not dependent on this, yet.
(defun edebug (&optional edebug-arg-mode &rest debugger-args)
"Replacement for debug.
If we are running an edebugged function,
show where we last were. Otherwise call debug normally."
"Replacement for `debug'.
If we are running an edebugged function,show where we last were.
Otherwise call `debug' normally."
;; (message "entered: %s depth: %s edebug-recursion-depth: %s"
;; edebug-entered (recursion-depth) edebug-recursion-depth) (sit-for 1)
(if (and edebug-entered ; anything active?
......@@ -4175,7 +4176,7 @@ You must include newlines in FMT to break lines, but one newline is appended."
(defun edebug-trace (fmt &rest args)
"Convenience call to edebug-trace-display using edebug-trace-buffer"
"Convenience call to `edebug-trace-display' using `edebug-trace-buffer'."
(apply 'edebug-trace-display edebug-trace-buffer fmt args))
......
......@@ -730,15 +730,15 @@ SS3 is DEC's name for the sequence <ESC>O.")
(set-marker tpu-match-end-mark nil))
(defun tpu-match-beginning nil
"Returns the location of the last match beginning."
"Return the location of the last match beginning."
(marker-position tpu-match-beginning-mark))
(defun tpu-match-end nil
"Returns the location of the last match end."
"Return the location of the last match end."
(marker-position tpu-match-end-mark))
(defun tpu-check-match nil
"Returns t if point is between tpu-match markers.
"Return t if point is between tpu-match markers.
Otherwise sets the tpu-match markers to nil and returns nil."
;; make sure 1- marker is in this buffer
;; 2- point is at or after beginning marker
......@@ -849,7 +849,7 @@ Top line is 0. Counts each text line only once, even if it wraps."
(message "Mark %d set." num))
(defun tpu-goto-breadcrumb (num)
"Returns to a breadcrumb set with drop-breadcrumb."
"Return to a breadcrumb set with drop-breadcrumb."
(interactive "p")
(cond ((get tpu-breadcrumb-plist num)
(switch-to-buffer (car (get tpu-breadcrumb-plist num)))
......@@ -908,7 +908,7 @@ With argument, fill and justify."
tpu-version))
(defun tpu-reset-screen-size (height width)
"Sets the screen size."
"Set the screen size."
(interactive "nnew screen height: \nnnew screen width: ")
(set-frame-height (selected-frame) height)
(set-frame-width (selected-frame) width))
......@@ -930,8 +930,8 @@ With argument, fill and justify."
(if tpu-newline-and-indent-p " and indents." "."))))
(defun tpu-spell-check nil
"Checks the spelling of the region, or of the entire buffer if no
region is selected."
"Check the spelling of the region, or of the entire buffer,
if no region is selected."
(interactive)
(cond (tpu-have-ispell
(if (tpu-mark) (ispell-region (tpu-mark) (point)) (ispell-buffer)))
......@@ -940,7 +940,7 @@ With argument, fill and justify."
(if (tpu-mark) (tpu-unselect t)))
(defun tpu-toggle-overwrite-mode nil
"Switches in and out of overwrite mode"
"Switch in and out of overwrite mode."
(interactive)
(cond (overwrite-mode
(tpu-local-set-key "\177" tpu-saved-delete-func)
......@@ -970,18 +970,18 @@ This is useful for inserting control characters."
;;; TPU line-mode commands
;;;
(defun tpu-include (file)
"TPU-like include file"
"TPU-like include file."
(interactive "fInclude file: ")
(insert-file-contents file)
(message ""))
(defun tpu-get (file)
"TPU-like get file"
"TPU-like get file."
(interactive "FFile to get: ")
(find-file file find-file-wildcards))
(defun tpu-what-line nil
"Tells what line the point is on,
"Tell what line the point is on,
and the total number of lines in the buffer."
(interactive)
(if (eobp)
......@@ -1251,12 +1251,12 @@ This is useful for inserting control characters."
;;; Auto-insert
;;;
(defun tpu-insert-escape nil
"Inserts an escape character, and so becomes the escape-key alias."
"Insert an escape character, and so becomes the escape-key alias."
(interactive)
(insert "\e"))
(defun tpu-insert-formfeed nil
"Inserts a formfeed character."
"Insert a formfeed character."
(interactive)
(insert "\C-L"))
......@@ -1267,7 +1267,7 @@ This is useful for inserting control characters."
(defvar tpu-saved-control-r nil "Saved value of Control-r.")
(defun tpu-end-define-macro-key (key)
"Ends the current macro definition"
"End the current macro definition"
(interactive "kPress the key you want to use to do what was just learned: ")
(end-kbd-macro nil)
(global-set-key key last-kbd-macro)
......@@ -1285,8 +1285,9 @@ This is useful for inserting control characters."
;;; Buffers and Windows
;;;
(defun tpu-kill-buffer nil
"Kills the current buffer. If tpu-kill-buffers-silently is non-nil,
kills modified buffers without asking."
"Kill the current buffer.
If `tpu-kill-buffers-silently' is non-nil,
kill modified buffers without asking."
(interactive)
(if tpu-kill-buffers-silently (set-buffer-modified-p nil))
(kill-buffer (current-buffer)))
......@@ -1316,7 +1317,7 @@ kills modified buffers without asking."
(switch-to-buffer (car (reverse list)))))
(defun tpu-make-file-buffer-list (buffer-list)
"Returns names from BUFFER-LIST excluding those beginning with a space or star."
"Return names from BUFFER-LIST excluding those beginning with a space or star."
(delq nil (mapcar '(lambda (b)
(if (or (= (aref (buffer-name b) 0) ? )
(= (aref (buffer-name b) 0) ?*)) nil b))
......@@ -1339,7 +1340,7 @@ kills modified buffers without asking."
;;; Search
;;;
(defun tpu-toggle-regexp nil
"Switches in and out of regular expression search and replace mode."
"Switch in and out of regular expression search and replace mode."
(interactive)
(setq tpu-regexp-p (not tpu-regexp-p))
(tpu-set-search)
......@@ -1460,7 +1461,7 @@ direction. If an argument is specified, don't set the search direction."
(defalias 'tpu-search-internal-core (symbol-function 'tpu-search-internal))
(defun tpu-check-search-case (string)
"Returns t if string contains upper case."
"Return t if string contains upper case."
;; if using regexp, eliminate upper case forms (\B \W \S.)
(if tpu-regexp-p
(let ((pat (copy-sequence string)) (case-fold-search nil) (pos 0))
......@@ -1508,7 +1509,7 @@ Used for reversing a search in progress."
;;; Select / Unselect
;;;
(defun tpu-select (&optional quiet)
"Sets the mark to define one end of a region."
"Set the mark to define one end of a region."
(interactive "P")
(cond ((tpu-mark)
(tpu-unselect quiet))
......@@ -1518,7 +1519,7 @@ Used for reversing a search in progress."
(if (not quiet) (message "Move the text cursor to select text.")))))
(defun tpu-unselect (&optional quiet)
"Removes the mark to unselect the current region."
"Remove the mark to unselect the current region."
(interactive "P")
(deactivate-mark)
(setq mark-ring nil)
......@@ -1607,14 +1608,14 @@ The text is saved for the tpu-paste command."
(tpu-error "No selection active."))))
(defun tpu-cut (arg)
"Copy selected region to the cut buffer. In the absence of an
argument, delete the selected region too."
"Copy selected region to the cut buffer.
In the absence of an argument, delete the selected region too."
(interactive "P")
(if arg (tpu-store-text) (tpu-cut-text)))
(defun tpu-append-region (arg)
"Append selected region to the tpu-cut buffer. In the absence of an
argument, delete the selected region too."
"Append selected region to the tpu-cut buffer.
In the absence of an argument, delete the selected region too."
(interactive "P")
(cond ((tpu-mark)
(let ((beg (region-beginning)) (end (region-end)))
......@@ -1690,8 +1691,8 @@ They are saved for the TPU-edt undelete-words command."
(delete-region beg (point))))
(defun tpu-delete-current-char (num)
"Delete one or specified number of characters after point. The last
character deleted is saved for the TPU-edt undelete-char command."
"Delete one or specified number of characters after point.
The last character deleted is saved for the TPU-edt undelete-char command."
(interactive "p")
(while (and (> num 0) (not (eobp)))
(setq tpu-last-deleted-char (char-after (point)))
......@@ -1852,10 +1853,10 @@ A negative argument means replace all occurrences of the search string."
(message "Replaced %s occurrence%s." strings (if (not (= 1 strings)) "s" ""))))
(defun tpu-emacs-replace (&optional dont-ask)
"A TPU-edt interface to the Emacs replace functions. If TPU-edt is
currently in regular expression mode, the Emacs regular expression
replace functions are used. If an argument is supplied, replacements
are performed without asking. Only works in forward direction."
"A TPU-edt interface to the Emacs replace functions.
If TPU-edt is currently in regular expression mode, the Emacs regular
expression replace functions are used. If an argument is supplied,
replacements are performed without asking. Only works in forward direction."
(interactive "P")
(cond (dont-ask
(setq current-prefix-arg nil)
......@@ -1904,7 +1905,7 @@ or each line of the entire buffer if no region is selected."
(end-of-line) (insert text) (forward-line))))))
(defun tpu-trim-line-ends nil
"Removes trailing whitespace from every line in the buffer."
"Remove trailing whitespace from every line in the buffer."
(interactive)
(save-match-data
(save-excursion
......@@ -2306,7 +2307,7 @@ Accepts a prefix argument for the number of tpu-pan-columns to scroll."
(setq tpu-control-keys tpu-style)))
(defun tpu-toggle-control-keys nil
"Toggles control key bindings between TPU-edt and Emacs."
"Toggle control key bindings between TPU-edt and Emacs."
(interactive)
(tpu-reset-control-keys (not tpu-control-keys))
(and (interactive-p)
......
......@@ -110,8 +110,8 @@ If set to nil, quick commands won't be reviewed. A quick command is a
command that produces no output, and exits successfully.
If set to `not-even-short-output', then the definition of \"quick
command\" is extended to include commands that produce output, iff
that output can be presented in its entirely in the Eshell window."
command\" is extended to include commands that produce output, if and
only if that output can be presented in its entirely in the Eshell window."
:type '(choice (const :tag "No" nil)
(const :tag "Yes" t)
(const :tag "Not even short output"
......
......@@ -281,7 +281,7 @@ Point is left at the end of the arguments."
(= (+ pos 2) (point-max))))))
(defun eshell-quote-backslash (string &optional index)
"Intelligently backslash the character occuring in STRING at INDEX.
"Intelligently backslash the character occurring in STRING at INDEX.
If the character is itself a backslash, it needs no escaping."
(let ((char (aref string index)))
(if (eq char ?\\)
......
......@@ -139,7 +139,7 @@ just before \"Other\" at the end."
,(purecopy "^widget-") ,(purecopy "^custom-") ,(purecopy "^vm-"))
"*List of faces that are of no interest to the user.")
(make-obsolete-variable 'facemenu-unlisted-faces 'facemenu-listed-faces
"since 22.1,\nand has no effect on the Face menu")
"22.1,\nand has no effect on the Face menu")
(defcustom facemenu-listed-faces nil
"*List of faces to include in the Face menu.
......
......@@ -309,9 +309,9 @@ called interactively, are:
Write active REGEXPs into buffer as comments (if possible). They may
be read the next time file is loaded or when the \\[hi-lock-find-patterns] command
is issued. The inserted regexps are in the form of font lock keywords.
(See `font-lock-keywords'.) They may be edited and re-loaded with \\[hi-lock-find-patterns],
any valid `font-lock-keywords' form is acceptable. When a file is
loaded the patterns are read if `hi-lock-file-patterns-policy is
(See `font-lock-keywords'.) They may be edited and re-loaded with \\[hi-lock-find-patterns],
any valid `font-lock-keywords' form is acceptable. When a file is
loaded the patterns are read if `hi-lock-file-patterns-policy' is
'ask and the user responds y to the prompt, or if
`hi-lock-file-patterns-policy' is bound to a function and that
function returns t.
......
......@@ -76,13 +76,13 @@
:group 'icomplete)
(defcustom icomplete-compute-delay .3
"*Completions-computation stall, used only with large-number
completions - see `icomplete-delay-completions-threshold'."
"*Completions-computation stall, used only with large-number completions.
See `icomplete-delay-completions-threshold'."
:type 'number
:group 'icomplete)
(defcustom icomplete-delay-completions-threshold 400
"*Pending-completions number over which to apply icomplete-compute-delay."
"*Pending-completions number over which to apply `icomplete-compute-delay'."
:type 'integer
:group 'icomplete)
......@@ -140,7 +140,7 @@ minibuffer completion.")
(add-hook 'icomplete-post-command-hook 'icomplete-exhibit)
(defun icomplete-get-keys (func-name)
"Return strings naming keys bound to `func-name', or nil if none.
"Return strings naming keys bound to FUNC-NAME, or nil if none.
Examines the prior, not current, buffer, presuming that current buffer
is minibuffer."
(if (commandp func-name)
......
......@@ -35,15 +35,15 @@
;;; Code:
(defgroup solitaire nil
"Game of solitaire."
"Game of Solitaire."
:prefix "solitaire-"
:group 'games)
(defvar solitaire-mode-map nil
"Keymap for playing solitaire.")
"Keymap for playing Solitaire.")
(defcustom solitaire-mode-hook nil
"Hook to run upon entry to solitaire."
"Hook to run upon entry to Solitaire."
:type 'hook
:group 'solitaire)
......@@ -94,8 +94,8 @@
(put 'solitaire-mode 'mode-class 'special)
(defun solitaire-mode ()
"Major mode for playing solitaire.
To learn how to play solitaire, see the documentation for function
"Major mode for playing Solitaire.
To learn how to play Solitaire, see the documentation for function
`solitaire'.
\\<solitaire-mode-map>
The usual mnemonic keys move the cursor around the board; in addition,
......@@ -147,7 +147,7 @@ Move stones using \\[solitaire-move] followed by a direction key.
Undo moves using \\[solitaire-undo].
Check for possible moves using \\[solitaire-do-check].
\(The variable `solitaire-auto-eval' controls whether to automatically
check after each move or undo)
check after each move or undo.)
What is Solitaire?
......@@ -428,7 +428,7 @@ Seen in info on text lines."
;; And here's the spoiler:)
(defun solitaire-solve ()
"Spoil solitaire by solving the game for you - nearly ...
"Spoil Solitaire by solving the game for you - nearly ...
... stops with five stones left ;)"
(interactive)
(when (< solitaire-stones 32)
......
......@@ -1315,7 +1315,7 @@ want the GDB Graphical Interface."
(setq gdb-flush-pending-output t)
(setq gud-running nil)
(gdb-force-mode-line-update
(propertize "stopped"'face font-lock-warning-face))
(propertize "stopped" 'face font-lock-warning-face))
(setq gdb-output-sink 'user)
(setq gdb-input-queue nil)
(setq gdb-pending-triggers nil)
......@@ -3109,7 +3109,7 @@ Kills the gdb buffers, and resets variables and the source buffers."
(remove-hook 'after-save-hook 'gdb-create-define-alist t))
(defun gdb-source-info ()
"Find the source file where the program starts and displays it with related
"Find the source file where the program starts and display it with related
buffers."
(goto-char (point-min))
(if (and (search-forward "Located in " nil t)
......
......@@ -350,7 +350,7 @@ comments and strings, or that point is within brackets/parens."
(error nil))))))))
(defun python-comment-line-p ()
"Return non-nil iff current line has only a comment."
"Return non-nil if and only if current line has only a comment."
(save-excursion
(end-of-line)
(when (eq 'comment (syntax-ppss-context (syntax-ppss)))
......@@ -358,7 +358,7 @@ comments and strings, or that point is within brackets/parens."
(looking-at (rx (or (syntax comment-start) line-end))))))
(defun python-blank-line-p ()
"Return non-nil iff current line is blank."
"Return non-nil if and only if current line is blank."
(save-excursion
(beginning-of-line)
(looking-at "\\s-*$")))
......@@ -852,7 +852,7 @@ multi-line bracketed expressions."
"Skip out of any nested brackets.
Skip forward if FORWARD is non-nil, else backward.
If SYNTAX is non-nil it is the state returned by `syntax-ppss' at point.
Return non-nil iff skipping was done."
Return non-nil if and only if skipping was done."
(let ((depth (syntax-ppss-depth (or syntax (syntax-ppss))))
(forward (if forward -1 1)))
(unless (zerop depth)
......
......@@ -220,10 +220,10 @@ This list is of the form:
where NAME is the name of the major display mode these functions are
for, and the remaining elements FUNCTION are functions to call in order.
Each function must return nil if interrupted, or t if completed.
Stealthy functions which have a single operation should always return
t. Functions which take a long time should maintain a state (where
they are in their speedbar related calculations) and permit
interruption. See `speedbar-check-vc' as a good example.")
Stealthy functions which have a single operation should always return t.
Functions which take a long time should maintain a state (where they
are in their speedbar related calculations) and permit interruption.
See `speedbar-check-vc' as a good example.")
(defvar speedbar-mode-functions-list
'(("files" (speedbar-item-info . speedbar-files-item-info)
......@@ -322,8 +322,8 @@ A nil value means don't show the file in the list."
;;; EVENTUALLY REMOVE THESE
;; When I moved to a repeating timer, I had the horrible missfortune
;; of loosing the ability for adaptive speed choice. This update
;; When I moved to a repeating timer, I had the horrible misfortune
;; of losing the ability for adaptive speed choice. This update
;; speed currently causes long delays when it should have been turned off.
(defvar speedbar-update-speed dframe-update-speed
"*Obsoleted variable. Use `dframe-update-speed'.")
......@@ -367,7 +367,7 @@ is attached to."
(sexp :tag "Value"))))
(defcustom speedbar-use-imenu-flag (fboundp 'imenu)
"*Non-nil means use imenu for file parsing. nil to use etags.
"*Non-nil means use imenu for file parsing, nil to use etags.
XEmacs prior to 20.4 doesn't support imenu, therefore the default is to
use etags instead. Etags support is not as robust as imenu support."
:tag "Use Imenu for tags"
......@@ -388,7 +388,7 @@ tags to insert. It will then create the speedbar buttons.")
(defcustom speedbar-use-tool-tips-flag (and (not (featurep 'xemacs))
(>= emacs-major-version 21))
"*Non-nil means to use tool tips if they are avaialble.
"*Non-nil means to use tool tips if they are available.
When tooltips are not available, mouse-tracking and minibuffer
display is used instead."
:group 'speedbar
......@@ -523,9 +523,10 @@ hierarchy would be replaced with the new directory."
:type 'hook)
(defcustom speedbar-verbosity-level 1
"*Verbosity level of the speedbar. 0 means say nothing.
1 means medium level verbosity. 2 and higher are higher levels of
verbosity."
"*Verbosity level of the speedbar.
0 means say nothing.
1 means medium level verbosity.
2 and higher are higher levels of verbosity."
:group 'speedbar
:type 'integer)
......@@ -636,7 +637,7 @@ with `.' followed by extensions, followed by full-filenames."
"\\)$")))
(defvar speedbar-ignored-directory-regexp nil
"Regular expression matching directorys speedbar will not switch to.
"Regular expression matching directories speedbar will not switch to.
Created from `speedbar-ignored-directory-expressions' with the function
`speedbar-extension-list-to-regex' (A misnamed function in this case.)
Use the function `speedbar-add-ignored-directory-regexp', or customize the
......@@ -645,8 +646,8 @@ variable `speedbar-ignored-directory-expressions' to modify this variable.")
(defcustom speedbar-ignored-directory-expressions
'("[/\\]logs?[/\\]\\'")
"*List of regular expressions matching directories speedbar will ignore.
They should included directorys to directories which are notoriously very
large and take a long time to load in. Use the function
They should included directories which are notoriously very large
and take a long time to load in. Use the function
`speedbar-add-ignored-directory-regexp' to add new items to this list after
speedbar is loaded. You may place anything you like in this list
before speedbar has been loaded."
......@@ -673,12 +674,12 @@ useful, such as version control."
;; backup refdir lockfile
(concat nstr "\\|#[^#]+#$\\|\\.\\.?\\'\\|\\.#"))
"*Regexp matching files we don't want displayed in a speedbar buffer.
It is generated from the variable `completion-ignored-extensions'")
It is generated from the variable `completion-ignored-extensions'.")
(defvar speedbar-file-regexp nil
"Regular expression matching files we know how to expand.
Created from `speedbar-supported-extension-expressions' with the
function `speedbar-extension-list-to-regex'")
function `speedbar-extension-list-to-regex'.")
;; this is dangerous to customize, because the defaults will probably
;; change in the future.
......@@ -697,8 +698,7 @@ will be stripped by a simplified optimizer when compiled into a
singular expression. This variable will be turned into
`speedbar-file-regexp' for use with speedbar. You should use the
function `speedbar-add-supported-extension' to add a new extension at
runtime, or use the configuration dialog to set it in your .emacs
file.