(project-add-file this file))
(cl-defmethod project-add-file ((ot ede-target) _file)
- "Add the current buffer into project project target OT.
+ "Add the current buffer into project target OT.
Argument FILE is the file to add."
(error "add-file not supported by %s" (eieio-object-name ot)))
;; default-directory and dired-actual-switches must be buffer-local
;; and initialized by now.
(let (dirname
- ;; This makes readin much much faster.
+ ;; This makes read-in much faster.
;; In particular, it prevents the font lock hook from running
;; until the directory is all read in.
(inhibit-modification-hooks t))
RECIPIENTS is a mail header. Return a list of potentially bogus
addresses. If none is found, return nil.
-An address might be bogus if if there's a matching entry in
+An address might be bogus if there's a matching entry in
`message-bogus-addresses'."
;; FIXME: How about "foo@subdomain", when the MTA adds ".domain.tld"?
(let (found)
;; also be correct, see the documentation for `nnir-namazu-remove-prefix'
;; above.
;;
-;; It is particularly important not to pass any any switches to namazu
+;; It is particularly important not to pass any switches to namazu
;; that will change the output format. Good switches to use include
;; `--sort', `--ascending', `--early' and `--late'. Refer to the Namazu
;; documentation for further information on valid switches.
If it is a list, the elements must be charsets, nil, 94, or 96. GN
can be used by all the listed charsets. If the list contains 94, any
iso-2022 charset whose code-space ranges are 94 long can be designated
-to GN. If the list contains 96, any charsets whose whose ranges are
+to GN. If the list contains 96, any charsets whose ranges are
96 long can be designated to GN. If the first element is a charset,
that charset is initially designated to GN.
(replace-match " " t t))
(shr--translate-insertion-chars)
(goto-char (point-max)))
- ;; We may have removed everything we inserted if if was just
+ ;; We may have removed everything we inserted if it was just
;; spaces.
(unless (= font-start (point))
;; Mark all lines that should possibly be folded afterwards.
(while (,< n 0)
(setq opt pt)
(or (setq pt (,property-change pt 'compilation-message))
- ;; Handle the case where where the first error message is
+ ;; Handle the case where the first error message is
;; at the start of the buffer, and n < 0.
(if (or (eq (get-text-property ,limit 'compilation-message)
(get-text-property opt 'compilation-message))
:help "Show the base class of this class"
:active t]
["Down" ebrowse-switch-member-buffer-to-derived-class
- :help "Show a derived class class of this class"
+ :help "Show a derived class of this class"
:active t]
["Next Sibling" ebrowse-switch-member-buffer-to-next-sibling-class
:help "Show the next sibling class"
;;
;; Type M-n to step over the current line and M-s to step into it. That,
;; along with the JDB 'help' command should get you started. The 'quit'
-;; JDB command will get out out of the debugger. There is some truly
+;; JDB command will get out of the debugger. There is some truly
;; pathetic JDB documentation available at:
;;
;; http://java.sun.com/products/jdk/1.1/debugging/
reading-string reading prompt string")
(defvar-local xscheme-allow-output-p t
- "This variable, if nil, prevents output from the scheme process
-from being inserted into the process-buffer.")
+ "Non-nil stops scheme process output being inserted in the process buffer.")
(defvar-local xscheme-prompt ""
"The current scheme prompt string.")
(defun scheme-interaction-mode (&optional preserve)
"Major mode for interacting with an inferior MIT Scheme process.
-Like scheme-mode except that:
+Like `scheme-mode' except that:
\\[xscheme-send-previous-expression] sends the expression before point to the Scheme process as input
\\[xscheme-yank-pop] yanks an expression previously sent to Scheme
automatically pop up to show you the error message.
While the Scheme process is running, the mode lines of all buffers in
-scheme-mode are modified to show the state of the process. The
+`scheme-mode' are modified to show the state of the process. The
possible states and their meanings are:
input waiting for input
Starting with release 6.2 of Scheme, the latter two types of command
interpreters will change the major mode of the Scheme process buffer
-to scheme-debugger-mode , in which the evaluation commands are
+to `scheme-debugger-mode', in which the evaluation commands are
disabled, and the keys which normally self insert instead send
themselves to the Scheme process. The command character ? will list
the available commands.
-For older releases of Scheme, the major mode will be be
-scheme-interaction-mode , and the command characters must be sent as
+For older releases of Scheme, the major mode will be
+`scheme-interaction-mode', and the command characters must be sent as
if they were expressions.
Commands:
Blank lines separate paragraphs. Semicolons start comments.
\\{scheme-interaction-mode-map}
-Entry to this mode calls the value of scheme-interaction-mode-hook
-with no args, if that value is non-nil.
- Likewise with the value of scheme-mode-hook.
- scheme-interaction-mode-hook is called after scheme-mode-hook."
+Entry to this mode runs `scheme-mode-hook' and then
+`scheme-interaction-mode-hook'."
;; FIXME: Use define-derived-mode.
(interactive "P")
(if (not preserve)
(defun scheme-debugger-mode ()
"Major mode for executing the Scheme debugger.
-Like scheme-mode except that the evaluation commands
+Like `scheme-mode' except that the evaluation commands
are disabled, and characters that would normally be self inserting are
sent to the Scheme process instead. Typing ? will show you which
characters perform useful functions.
"Insert or replace a just-yanked expression with an older expression.
If the previous command was not a yank, it yanks.
Otherwise, the region contains a stretch of reinserted
-expression. yank-pop deletes that text and inserts in its
+expression. `yank-pop' deletes that text and inserts in its
place a different expression.
With no argument, the next older expression is inserted.
"Insert or replace a just-yanked expression with a more recent expression.
If the previous command was not a yank, it yanks.
Otherwise, the region contains a stretch of reinserted
-expression. yank-pop deletes that text and inserts in its
+expression. `yank-pop' deletes that text and inserts in its
place a different expression.
With no argument, the next more recent expression is inserted.
"Non-nil means commands that move by lines ignore invisible newlines.
When this option is non-nil, \\[next-line], \\[previous-line], \\[move-end-of-line], and \\[move-beginning-of-line] behave
as if newlines that are invisible didn't exist, and count
-only visible newlines. Thus, moving across across 2 newlines
+only visible newlines. Thus, moving across 2 newlines
one of which is invisible will be counted as a one-line move.
Also, a non-nil value causes invisible text to be ignored when
counting columns for the purposes of keeping point in the same
;;;###autoload
(defun sort-regexp-fields (reverse record-regexp key-regexp beg end)
- "Sort the text in the region region lexicographically.
+ "Sort the text in the region lexicographically.
If called interactively, prompt for two regular expressions,
RECORD-REGEXP and KEY-REGEXP.
(push (- end-of-template start-of-template)
texinfo-multitable-width-list)
;; Remove carriage return from within a template, if any.
- ;; This helps those those who want to use more than
+ ;; This helps those who want to use more than
;; one line's worth of words in @multitable line.
(narrow-to-region start-of-template end-of-template)
(goto-char (point-min))
projects / emacs.git / commitdiff