Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
4837b516
Commit
4837b516
authored
Aug 08, 2007
by
Glenn Morris
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Replace `iff' in doc-strings and comments.
parent
5453fa41
Changes
40
Hide whitespace changes
Inline
Side-by-side
Showing
40 changed files
with
108 additions
and
94 deletions
+108
-94
lisp/abbrev.el
lisp/abbrev.el
+3
-3
lisp/allout.el
lisp/allout.el
+3
-2
lisp/autorevert.el
lisp/autorevert.el
+1
-1
lisp/bindings.el
lisp/bindings.el
+1
-1
lisp/custom.el
lisp/custom.el
+5
-5
lisp/diff.el
lisp/diff.el
+2
-1
lisp/dired-aux.el
lisp/dired-aux.el
+2
-2
lisp/double.el
lisp/double.el
+2
-1
lisp/ediff-diff.el
lisp/ediff-diff.el
+2
-2
lisp/files.el
lisp/files.el
+4
-3
lisp/font-lock.el
lisp/font-lock.el
+3
-3
lisp/frame.el
lisp/frame.el
+3
-3
lisp/hilit-chg.el
lisp/hilit-chg.el
+1
-1
lisp/ibuf-ext.el
lisp/ibuf-ext.el
+1
-1
lisp/ibuffer.el
lisp/ibuffer.el
+2
-2
lisp/icomplete.el
lisp/icomplete.el
+3
-2
lisp/ido.el
lisp/ido.el
+1
-1
lisp/image.el
lisp/image.el
+1
-1
lisp/imenu.el
lisp/imenu.el
+1
-1
lisp/info-look.el
lisp/info-look.el
+1
-1
lisp/isearch.el
lisp/isearch.el
+2
-2
lisp/iswitchb.el
lisp/iswitchb.el
+3
-3
lisp/log-edit.el
lisp/log-edit.el
+1
-1
lisp/printing.el
lisp/printing.el
+3
-3
lisp/select.el
lisp/select.el
+1
-1
lisp/shadowfile.el
lisp/shadowfile.el
+1
-1
lisp/simple.el
lisp/simple.el
+27
-26
lisp/skeleton.el
lisp/skeleton.el
+2
-2
lisp/strokes.el
lisp/strokes.el
+2
-2
lisp/t-mouse.el
lisp/t-mouse.el
+2
-1
lisp/term.el
lisp/term.el
+1
-1
lisp/userlock.el
lisp/userlock.el
+1
-1
lisp/vc.el
lisp/vc.el
+1
-1
lisp/view.el
lisp/view.el
+2
-1
lisp/whitespace.el
lisp/whitespace.el
+1
-1
lisp/wid-edit.el
lisp/wid-edit.el
+3
-3
lisp/window.el
lisp/window.el
+5
-5
lisp/xt-mouse.el
lisp/xt-mouse.el
+2
-1
mac/inc/m-mac.h
mac/inc/m-mac.h
+1
-1
man/ChangeLog
man/ChangeLog
+5
-0
No files found.
lisp/abbrev.el
View file @
4837b516
...
...
@@ -39,9 +39,9 @@ define global abbrevs instead."
(
defun
abbrev-mode
(
&optional
arg
)
"Toggle Abbrev mode in the current buffer.
With argument ARG, turn abbrev mode on if
f
ARG is
positive.
In Abbrev mode, inserting an abbreviation causes it to expand
and be replaced by its expansion."
With
optional
argument ARG, turn abbrev mode on if ARG is
positive, otherwise turn it off. In Abbrev mode, inserting an
abbreviation causes it to expand
and be replaced by its expansion."
(
interactive
"P"
)
(
setq
abbrev-mode
(
if
(
null
arg
)
(
not
abbrev-mode
)
...
...
lisp/allout.el
View file @
4837b516
...
...
@@ -1658,8 +1658,9 @@ the following two lines in your Emacs init file:
"Toggle minor mode for controlling exposure and editing of text outlines.
\\<allout-mode-map>
Optional arg forces mode to re-initialize iff arg is positive num or
symbol. Allout outline mode always runs as a minor mode.
Optional prefix argument TOGGLE forces the mode to re-initialize
if it is positive, otherwise it turns the mode off. Allout
outline mode always runs as a minor mode.
Allout outline mode provides extensive outline oriented formatting and
manipulation. It enables structural editing of outlines, as well as
...
...
lisp/autorevert.el
View file @
4837b516
...
...
@@ -315,7 +315,7 @@ This function is designed to be added to hooks, for example:
;;;###autoload
(
define-minor-mode
auto-revert-tail-mode
"Toggle reverting tail of buffer when file on disk grows.
With arg, turn Tail mode on if
f
arg is positive.
With arg, turn Tail mode on if arg is positive
, otherwise turn it off
.
When Tail mode is enabled, the tail of the file is constantly
followed, as with the shell command `tail -f'. This means that
...
...
lisp/bindings.el
View file @
4837b516
...
...
@@ -476,7 +476,7 @@ Menu of mode operations in the mode line.")
(defvar minor-mode-alist nil "
\
Alist
saying
how
to
show
minor
modes
in
the
mode
line.
Each
element
looks
like
(
VARIABLE
STRING
)
;
STRING
is
included
in
the
mode
line
if
f
VARIABLE
's
value
is
non-nil.
STRING
is
included
in
the
mode
line
if
VARIABLE
's
value
is
non-nil.
Actually,
STRING
need
not
be
a
string
; any possible mode-line element
is
okay.
See
`
mode-line-format
'.
")
...
...
lisp/custom.el
View file @
4837b516
...
...
@@ -642,7 +642,7 @@ this sets the local binding in that buffer instead."
(
funcall
variable
(
if
value
1
0
))))
(
defun
custom-quote
(
sexp
)
"Quote SEXP if
f
it is not self quoting."
"Quote SEXP if it is not self quoting."
(
if
(
or
(
memq
sexp
'
(
t
nil
))
(
keywordp
sexp
)
(
and
(
listp
sexp
)
...
...
@@ -665,14 +665,14 @@ default value. Otherwise, set it to nil.
To actually save the value, call `custom-save-all'.
Return non-nil if
f
the `saved-value' property actually changed."
Return non-nil if the `saved-value' property actually changed."
(
custom-load-symbol
symbol
)
(
let*
((
get
(
or
(
get
symbol
'custom-get
)
'default-value
))
(
value
(
funcall
get
symbol
))
(
saved
(
get
symbol
'saved-value
))
(
standard
(
get
symbol
'standard-value
))
(
comment
(
get
symbol
'customized-variable-comment
)))
;; Save default value if
f
different from standard value.
;; Save default value if different from standard value.
(
if
(
or
(
null
standard
)
(
not
(
equal
value
(
condition-case
nil
(
eval
(
car
standard
))
...
...
@@ -694,13 +694,13 @@ or else if it is different from the standard value, set the
`customized-value' property to a list whose car evaluates to the
default value. Otherwise, set it to nil.
Return non-nil if
f
the `customized-value' property actually changed."
Return non-nil if the `customized-value' property actually changed."
(
custom-load-symbol
symbol
)
(
let*
((
get
(
or
(
get
symbol
'custom-get
)
'default-value
))
(
value
(
funcall
get
symbol
))
(
customized
(
get
symbol
'customized-value
))
(
old
(
or
(
get
symbol
'saved-value
)
(
get
symbol
'standard-value
))))
;; Mark default value as set if
f
different from old value.
;; Mark default value as set if different from old value.
(
if
(
not
(
and
old
(
equal
value
(
condition-case
nil
(
eval
(
car
old
))
...
...
lisp/diff.el
View file @
4837b516
...
...
@@ -62,7 +62,8 @@
(
defun
diff-sentinel
(
code
)
"Code run when the diff process exits.
CODE is the exit code of the process. It should be 0 iff no diffs were found."
CODE is the exit code of the process. It should be 0 only if no diffs
were found."
(
if
diff-old-temp-file
(
delete-file
diff-old-temp-file
))
(
if
diff-new-temp-file
(
delete-file
diff-new-temp-file
))
(
save-excursion
...
...
lisp/dired-aux.el
View file @
4837b516
...
...
@@ -2006,8 +2006,8 @@ of marked files. If KILL-ROOT is non-nil, kill DIRNAME as well."
(defun dired-tree-lessp (dir1 dir2)
;; Lexicographic order on file name components, like `ls -lR':
;; DIR1 < DIR2 if
f
DIR1 comes *before* DIR2 in an `ls -lR' listing,
;; i.e., if
f
DIR1 is a (grand)parent dir of DIR2,
;; DIR1 < DIR2 if DIR1 comes *before* DIR2 in an `ls -lR' listing,
;; i.e., if DIR1 is a (grand)parent dir of DIR2,
;; or DIR1 and DIR2 are in the same parentdir and their last
;; components are string-lessp.
;; Thus ("
/usr/
" "
/usr/bin
") and ("
/usr/a/
" "
/usr/b/
") are tree-lessp.
...
...
lisp/double.el
View file @
4837b516
...
...
@@ -186,7 +186,8 @@ use either \\[customize] or the function `double-mode'."
;;;###autoload
(
defun
double-mode
(
arg
)
"Toggle Double mode.
With prefix arg, turn Double mode on iff arg is positive.
With prefix argument ARG, turn Double mode on if ARG is positive, otherwise
turn it off.
When Double mode is on, some keys will insert different strings
when pressed twice. See variable `double-map' for details."
...
...
lisp/ediff-diff.el
View file @
4837b516
...
...
@@ -867,7 +867,7 @@ one optional arguments, diff-number to refine.")
(
ediff-make-fine-diffs
n
'noforce
)
(
ediff-make-fine-diffs
n
'skip
)))
;; highlight if
f
fine diffs already exist
;; highlight if fine diffs already exist
((
eq
ediff-auto-refine
'off
)
(
ediff-make-fine-diffs
n
'skip
))))
...
...
@@ -1459,7 +1459,7 @@ arguments to `skip-chars-forward'."
(
defun
ediff-same-contents
(
d1
d2
&optional
filter-re
)
"Return
s
t if
f
D1 and D2 have the same content.
"Return t if D1 and D2 have the same content.
D1 and D2 can either be both directories or both regular files.
Symlinks and the likes are not handled.
If FILTER-RE is non-nil, recursive checking in directories
...
...
lisp/files.el
View file @
4837b516
...
...
@@ -3941,8 +3941,9 @@ prints a message in the minibuffer. Instead, use `set-buffer-modified-p'."
(defun toggle-read-only (&optional arg)
"Change whether this buffer is visiting its file read-only.
With arg, set read-only iff arg is positive.
If visiting file read-only and `view-read-only' is non-nil, enter view mode."
With prefix argument ARG, make the buffer read-only if ARG is
positive, otherwise make it writable. If visiting file read-only
and `view-read-only' is non-nil, enter view mode."
(interactive "P")
(if (and arg
(if (> (prefix-numeric-value arg) 0) buffer-read-only
...
...
@@ -4568,7 +4569,7 @@ FILENAME should lack slashes. You can redefine this for customization."
(defun wildcard-to-regexp (wildcard)
"
Given
a
shell
file
name
pattern
WILDCARD,
return
an
equivalent
regexp.
The
generated
regexp
will
match
a
filename
i
f
f
the
filename
The
generated
regexp
will
match
a
filename
only
if
the
filename
matches
that
wildcard
according
to
shell
rules.
Only
wildcards
known
by
`
sh
'
are
supported.
"
(let* ((i (string-match "
[[.*+\\^$?]
" wildcard))
...
...
lisp/font-lock.el
View file @
4837b516
...
...
@@ -355,7 +355,7 @@ Each element in a user-level keywords list should have one of these forms:
where MATCHER can be either the regexp to search for, or the function name to
call to make the search (called with one argument, the limit of the search;
it should return non-nil, move point, and set `match-data' appropriately if
f
it should return non-nil, move point, and set `match-data' appropriately if
it succeeds; like `re-search-forward' would).
MATCHER regexps can be generated via the function `regexp-opt'.
...
...
@@ -1068,7 +1068,7 @@ that tries to find such elements and move the boundaries such that they do
not fall in the middle of one.
Each function is called with no argument; it is expected to adjust the
dynamically bound variables `font-lock-beg' and `font-lock-end'; and return
non-nil if
f
it did make such an adjustment.
non-nil if it did make such an adjustment.
These functions are run in turn repeatedly until they all return nil.
Put first the functions more likely to cause a change and cheaper to compute."
)
;; Mark it as a special hook which doesn't use any global setting
...
...
@@ -1746,7 +1746,7 @@ A LEVEL of nil is equal to a LEVEL of 0, a LEVEL of t is equal to
"Set fontification defaults appropriately for this mode.
Sets various variables using `font-lock-defaults' (or, if nil, using
`font-lock-defaults-alist') and `font-lock-maximum-decoration'."
;; Set fontification defaults if
f
not previously set for correct major mode.
;; Set fontification defaults if not previously set for correct major mode.
(
unless
(
and
font-lock-set-defaults
(
eq
font-lock-mode-major-mode
major-mode
))
(
setq
font-lock-mode-major-mode
major-mode
)
...
...
lisp/frame.el
View file @
4837b516
...
...
@@ -1310,9 +1310,9 @@ itself as a pre-command hook."
(
define-minor-mode
blink-cursor-mode
"Toggle blinking cursor mode.
With a numeric argument, turn blinking cursor mode on if
f
ARG is positive
.
When blinking cursor mode is enabled, the
cursor of the selected
window blinks.
With a numeric argument, turn blinking cursor mode on if ARG is positive
,
otherwise turn it off.
When blinking cursor mode is enabled, the
cursor of the selected
window blinks.
Note that this command is effective only when Emacs
displays through a window system, because then Emacs does its own
...
...
lisp/hilit-chg.el
View file @
4837b516
...
...
@@ -131,7 +131,7 @@
;; an example, if the value is `buffer-file-name' then all buffers
;; who are visiting files are suitable, but others (like dired
;; buffers) are not;
;; * a list -- then the buffer is suitable if
f
its mode is in the
;; * a list -- then the buffer is suitable if its mode is in the
;; list, except if the first element is `not', in which case the test
;; is reversed (i.e. it is a list of unsuitable modes).
;; * Otherwise, the buffer is suitable if its name does not begin with
...
...
lisp/ibuf-ext.el
View file @
4837b516
...
...
@@ -1331,7 +1331,7 @@ If a buffer has no filename, it is ignored.
With no prefix arg, use the filename sans its directory of each marked file.
With a zero prefix arg, use the complete filename of each marked file.
With \\[universal-argument], use the filename of each marked file relative
to `ibuffer-default-directory' if
f
non-nil, otherwise `default-directory'.
to `ibuffer-default-directory' if non-nil, otherwise `default-directory'.
You can then feed the file name(s) to other commands with \\[yank]."
(
interactive
"p"
)
...
...
lisp/ibuffer.el
View file @
4837b516
...
...
@@ -1835,7 +1835,7 @@ If point is on a group name, this function operates on that group."
(
defun
ibuffer-map-lines
(
function
&optional
nomodify
group
)
"Call FUNCTION for each buffer.
Don't s
et the ibuffer modification flag
iff
NOMODIFY is non-nil.
S
et the ibuffer modification flag
unless
NOMODIFY is non-nil.
If optional argument GROUP is non-nil, then only call FUNCTION on
buffers in filtering group GROUP.
...
...
@@ -2267,7 +2267,7 @@ If optional arg SILENT is non-nil, do not display progress messages."
(
defun
ibuffer-quit
()
"Quit this `ibuffer' session.
Try to restore the previous window configuration if
f
Try to restore the previous window configuration if
`ibuffer-restore-window-config-on-quit' is non-nil."
(
interactive
)
(
if
ibuffer-restore-window-config-on-quit
...
...
lisp/icomplete.el
View file @
4837b516
...
...
@@ -99,7 +99,7 @@ completions - see `icomplete-delay-completions-threshold'."
(
defcustom
icomplete-minibuffer-setup-hook
nil
"*Icomplete-specific customization of minibuffer setup.
This hook is run during minibuffer setup if
f
icomplete
will be
active.
This hook is run during minibuffer setup if icomplete
is
active.
It is intended for use in customizing icomplete for interoperation
with other features and packages. For instance:
...
...
@@ -168,7 +168,8 @@ except those on this list.")
;;;###autoload
(
define-minor-mode
icomplete-mode
"Toggle incremental minibuffer completion for this Emacs session.
With a numeric argument, turn Icomplete mode on iff ARG is positive."
With a numeric argument, turn Icomplete mode on if ARG is positive,
otherwise turn it off."
:global
t
:group
'icomplete
(
if
icomplete-mode
;; The following is not really necessary after first time -
...
...
lisp/ido.el
View file @
4837b516
...
...
@@ -898,7 +898,7 @@ See documentation of `walk-windows' for useful values.")
(
defcustom
ido-minibuffer-setup-hook
nil
"*Ido-specific customization of minibuffer setup.
This hook is run during minibuffer setup if
f
`ido'
will be
active.
This hook is run during minibuffer setup if `ido'
is
active.
It is intended for use in customizing ido for interoperation
with other packages. For instance:
...
...
lisp/image.el
View file @
4837b516
...
...
@@ -342,7 +342,7 @@ Image types are symbols like `xbm' or `jpeg'."
;;;###autoload
(defun image-type-auto-detected-p ()
"
Return
t
if
f
the
current
buffer
contains
an
auto-detectable
image.
"
Return
t
if
the
current
buffer
contains
an
auto-detectable
image.
This
function
is
intended
to
be
used
from
`
magic-fallback-mode-alist
'.
The
buffer
is
considered
to
contain
an
auto-detectable
image
if
...
...
lisp/imenu.el
View file @
4837b516
...
...
@@ -727,7 +727,7 @@ definitions, etc. It contains a substring which is the name to
appear in the menu. See the info section on Regexps for more
information. REGEXP may also be a function, called without
arguments. It is expected to search backwards. It shall return
true and set `match-data' if
f
it finds another element.
true and set `match-data' if it finds another element.
INDEX points to the substring in REGEXP that contains the
name (of the function, variable or type) that is to appear in the
...
...
lisp/info-look.el
View file @
4837b516
...
...
@@ -144,7 +144,7 @@ to `symbol', and the help mode defaults to the current major mode."
(
apply
'info-lookup-add-help*
nil
arg
))
(
defun
info-lookup-maybe-add-help
(
&rest
arg
)
"Add a help specification if
f
none is defined.
"Add a help specification if none is defined.
See the documentation of the function `info-lookup-add-help'
for more details."
(
apply
'info-lookup-add-help*
t
arg
))
...
...
lisp/isearch.el
View file @
4837b516
...
...
@@ -819,7 +819,7 @@ NOPUSH is t and EDIT is t."
(run-hooks 'isearch-mode-end-hook))
;; If there was movement, mark the starting position.
;; Maybe should test difference between and set mark i
f
f > threshold.
;; Maybe should test difference between and set mark
only
if > threshold.
(if (/= (point) isearch-opoint)
(or (and transient-mark-mode mark-active)
(progn
...
...
@@ -2321,7 +2321,7 @@ since they have special meaning in a regexp."
;; - the direction of the current search is expected to be given by
;; `isearch-forward';
;; - the variable `isearch-error' is expected to be true
;; i
f
f `isearch-string' is an invalid regexp.
;;
only
if `isearch-string' is an invalid regexp.
(defvar isearch-lazy-highlight-overlays nil)
(defvar isearch-lazy-highlight-wrapped nil)
...
...
lisp/iswitchb.el
View file @
4837b516
...
...
@@ -396,7 +396,7 @@ See documentation of `walk-windows' for useful values.")
(
defcustom
iswitchb-minibuffer-setup-hook
nil
"Iswitchb-specific customization of minibuffer setup.
This hook is run during minibuffer setup if
f
`iswitchb'
will be
active.
This hook is run during minibuffer setup if `iswitchb'
is
active.
For instance:
\(add-hook 'iswitchb-minibuffer-setup-hook
'\(lambda () (set (make-local-variable 'max-mini-window-height) 3)))
...
...
@@ -1440,7 +1440,7 @@ This is an example function which can be hooked on to
(
iswitchb-to-end
summaries
)))
(
defun
iswitchb-case
()
"Return non-nil if
f
we should ignore case when matching.
"Return non-nil if we should ignore case when matching.
See the variable `iswitchb-case' for details."
(
if
iswitchb-case
(
if
(
featurep
'xemacs
)
...
...
@@ -1450,7 +1450,7 @@ See the variable `iswitchb-case' for details."
;;;###autoload
(
define-minor-mode
iswitchb-mode
"Toggle Iswitchb global minor mode.
With arg, turn Iswitchb mode on if
and only iff
ARG is positive.
With arg, turn Iswitchb mode on if ARG is positive
, otherwise turn it off
.
This mode enables switching between buffers using substrings. See
`iswitchb' for details."
nil
nil
iswitchb-global-map
:global
t
:group
'iswitchb
...
...
lisp/log-edit.el
View file @
4837b516
...
...
@@ -568,7 +568,7 @@ for more details."
(
defvar
user-mail-address
)
(
defun
log-edit-changelog-ours-p
()
"See if ChangeLog entry at point is for the current user, today.
Return non-nil if
f
it is."
Return non-nil if it is."
;; Code adapted from add-change-log-entry.
(
let
((
name
(
or
(
and
(
boundp
'add-log-full-name
)
add-log-full-name
)
(
and
(
fboundp
'user-full-name
)
(
user-full-name
))
...
...
lisp/printing.el
View file @
4837b516
...
...
@@ -4943,9 +4943,9 @@ See `pr-visible-entry-alist'.")
If FORCE is non-nil, update menus doesn't matter if `pr-ps-printer-alist',
`pr-txt-printer-alist' or `pr-ps-utility-alist' were modified or not;
otherwise, update PostScript printer menu if
f
`pr-ps-printer-menu-modified' is
non-nil, update text printer menu if
f
`pr-txt-printer-menu-modified' is
non-nil, and update PostScript File menus if
f
`pr-ps-utility-menu-modified' is
otherwise, update PostScript printer menu if `pr-ps-printer-menu-modified' is
non-nil, update text printer menu if `pr-txt-printer-menu-modified' is
non-nil, and update PostScript File menus if `pr-ps-utility-menu-modified' is
non-nil.
If menu binding was not done, calls `pr-menu-bind'."
...
...
lisp/select.el
View file @
4837b516
...
...
@@ -178,7 +178,7 @@ Cut buffers are considered obsolete; you should use selections instead."
If it is valid, set the register `r0' to 1, else set it to 0."
)
(
defun
string-utf-8-p
(
string
)
"Return non-nil if
f
STRING is a unibyte string of valid UTF-8 sequence."
"Return non-nil if STRING is a unibyte string of valid UTF-8 sequence."
(
if
(
or
(
not
(
stringp
string
))
(
multibyte-string-p
string
))
(
error
"Not a unibyte string: %s"
string
))
...
...
lisp/shadowfile.el
View file @
4837b516
...
...
@@ -285,7 +285,7 @@ information defining the cluster. For interactive use, call
ans
)))
(
defun
shadow-site-match
(
site1
site2
)
"Non-nil if
f
SITE1 is or includes SITE2.
"Non-nil if SITE1 is or includes SITE2.
Each may be a host or cluster name; if they are clusters, regexp of SITE1 will
be matched against the primary of SITE2."
(
or
(
string-equal
site1
site2
)
; quick check
...
...
lisp/simple.el
View file @
4837b516
...
...
@@ -4343,8 +4343,9 @@ The variable `selective-display' has a separate value for each buffer."
(defun toggle-truncate-lines (&optional arg)
"
Toggle
whether
to
fold
or
truncate
long
lines
for
the
current
buffer.
With
arg,
truncate
long
lines
iff
arg
is
positive.
Note
that
in
side-by-side
windows,
truncation
is
always
enabled.
"
With
prefix
argument
ARG,
truncate
long
lines
if
ARG
is
positive,
otherwise
don
't
truncate
them.
Note
that
in
side-by-side
windows,
truncation
is
always
enabled.
"
(interactive "
P
")
(setq truncate-lines
(if (null arg)
...
...
@@ -4367,11 +4368,11 @@ Note that in side-by-side windows, truncation is always enabled."
(defun overwrite-mode (arg)
"
Toggle
overwrite
mode.
With
arg
,
turn
overwrite
mode
on
if
f
arg
is
positive
.
In
overwrite
mode,
printing
characters
typed
in
replace
existing
text
on
a
one-for-one
basis,
rather
than
pushing
it
to
the
right.
At
the
end
of
a
line,
such
characters
extend
the
line.
Before
a
tab,
such
characters
insert
until
the
tab
is
filled
in.
With
prefix
argument
ARG
,
turn
overwrite
mode
on
if
ARG
is
positive
,
otherwise
turn
it
off.
In
overwrite
mode,
printing
characters
typed
in
replace
existing
text
on
a
one-for-one
basis,
rather
than
pushing
it
to
the
right.
At
the
end
of
a
line,
such
characters
extend
the
line.
Before
a
tab,
such
characters
insert
until
the
tab
is
filled
in.
\\[quoted-insert]
still
inserts
characters
in
overwrite
mode
; this
is
supposed
to
make
it
easier
to
insert
characters
when
necessary.
"
(interactive "
P
")
...
...
@@ -4383,14 +4384,13 @@ is supposed to make it easier to insert characters when necessary."
(defun binary-overwrite-mode (arg)
"
Toggle
binary
overwrite
mode.
With
arg,
turn
binary
overwrite
mode
on
iff
arg
is
positive.
In
binary
overwrite
mode,
printing
characters
typed
in
replace
existing
text.
Newlines
are
not
treated
specially,
so
typing
at
the
end
of
a
line
joins
the
line
to
the
next,
with
the
typed
character
between
them.
Typing
before
a
tab
character
simply
replaces
the
tab
with
the
character
typed.
\\[quoted-insert]
replaces
the
text
at
the
cursor,
just
as
ordinary
typing
characters
do.
With
prefix
argument
ARG,
turn
binary
overwrite
mode
on
if
ARG
is
positive,
otherwise
turn
it
off.
In
binary
overwrite
mode,
printing
characters
typed
in
replace
existing
text.
Newlines
are
not
treated
specially,
so
typing
at
the
end
of
a
line
joins
the
line
to
the
next,
with
the
typed
character
between
them.
Typing
before
a
tab
character
simply
replaces
the
tab
with
the
character
typed.
\\[quoted-insert]
replaces
the
text
at
the
cursor,
just
as
ordinary
typing
characters
do.
Note
that
binary
overwrite
mode
is
not
its
own
minor
mode
; it is a
specialization
of
overwrite
mode,
entered
by
setting
the
...
...
@@ -4405,9 +4405,9 @@ specialization of overwrite mode, entered by setting the
(define-minor-mode line-number-mode
"
Toggle
Line
Number
mode.
With
arg,
turn
Line
Number
mode
on
if
f
arg
is
positive
.
When
Line
Number
mode
is
enabled,
the
line
number
appears
in
the
mode
line.
With
arg,
turn
Line
Number
mode
on
if
arg
is
positive
,
otherwise
turn
it
off.
When
Line
Number
mode
is
enabled,
the
line
number
appears
in
the
mode
line.
Line
numbers
do
not
appear
for
very
large
buffers
and
buffers
with
very
long
lines
; see variables `line-number-display-limit'
...
...
@@ -4416,16 +4416,16 @@ and `line-number-display-limit-width'."
(define-minor-mode column-number-mode
"
Toggle
Column
Number
mode.
With
arg,
turn
Column
Number
mode
on
if
f
arg
is
positive
.
When
Column
Number
mode
is
enabled,
the
column
number
appears
in
the
mode
line.
"
With
arg,
turn
Column
Number
mode
on
if
arg
is
positive
,
otherwise
turn
it
off.
When
Column
Number
mode
is
enabled,
the
column
number
appears
in
the
mode
line.
"
:global t :group 'mode-line)
(define-minor-mode size-indication-mode
"
Toggle
Size
Indication
mode.
With
arg,
turn
Size
Indication
mode
on
if
f
arg
is
positive
.
When
Size
Indication
mode
is
enabled,
the
size
of
the
accessible
part
of
the
buffer
appears
in
the
mode
line.
"
With
arg,
turn
Size
Indication
mode
on
if
arg
is
positive
,
otherwise
turn
it
off.
When
Size
Indication
mode
is
enabled,
the
size
of
the
accessible
part
of
the
buffer
appears
in
the
mode
line.
"
:global t :group 'mode-line)
(defgroup paren-blinking nil
...
...
@@ -4960,7 +4960,7 @@ With prefix argument N, move N items (negative N means move backward)."
These functions are called in order with four arguments:
CHOICE - the string to insert in the buffer,
BUFFER - the buffer in which the choice should be inserted,
MINI-P - non-nil if
f
BUFFER is a minibuffer, and
MINI-P - non-nil if BUFFER is a minibuffer, and
BASE-SIZE - the number of characters in BUFFER before
the string being completed.
...
...
@@ -5568,7 +5568,8 @@ See also `normal-erase-is-backspace'."
(define-minor-mode visible-mode
"
Toggle
Visible
mode.
With
argument
ARG
turn
Visible
mode
on
iff
ARG
is
positive.
With
argument
ARG
turn
Visible
mode
on
if
ARG
is
positive,
otherwise
turn
it
off.
Enabling
Visible
mode
makes
all
invisible
text
temporarily
visible.
Disabling
Visible
mode
turns
off
that
effect.
Visible
mode
...
...
lisp/skeleton.el
View file @
4837b516
...
...
@@ -209,8 +209,8 @@ If ELEMENT is a string or a character it gets inserted (see also
interesting point set by _
> indent line (or interregion if > _) according to major mode
@ add position to `skeleton-positions'
& do next ELEMENT if
f
previous moved point
| do next ELEMENT if
f
previous didn't move point
& do next ELEMENT if previous moved point
| do next ELEMENT if previous didn't move point
-num delete num preceding characters (see `skeleton-untabify')
resume: skipped, continue here if quit is signaled
nil skipped
...
...
lisp/strokes.el
View file @
4837b516
...
...
@@ -1370,7 +1370,7 @@ If STROKES-MAP is not given, `strokes-global-map' will be used instead."
(
goto-char
(
point-min
))))
(
defun
strokes-alphabetic-lessp
(
stroke1
stroke2
)
"T if
f
command name for STROKE1 is less than STROKE2's in lexicographic order."
"T if command name for STROKE1 is less than STROKE2's in lexicographic order."
(
let
((
command-name-1
(
symbol-name
(
cdr
stroke1
)))
(
command-name-2
(
symbol-name
(
cdr
stroke2
))))
(
string-lessp
command-name-1
command-name-2
)))
...
...
@@ -1520,7 +1520,7 @@ Encode/decode your strokes with \\[strokes-encode-buffer],
(
eq
char
?*
)))
;;(defsubst strokes-xor (a b) ### Should I make this an inline function? ###
;; "T if
f
one and only one of A and B is non-nil; otherwise, returns nil.
;; "T if one and only one of A and B is non-nil; otherwise, returns nil.
;;NOTE: Don't use this as a numeric xor since it treats all non-nil
;; values as t including `0' (zero)."
;; (eq (null a) (not (null b))))
...
...
lisp/t-mouse.el
View file @
4837b516
...
...
@@ -271,7 +271,8 @@ The (secret) scrollbar interface is not implemented yet."
;;;###autoload
(
define-minor-mode
t-mouse-mode
"Toggle t-mouse mode to use the mouse in Linux consoles.
With prefix arg, turn t-mouse mode on iff arg is positive.
With prefix arg, turn t-mouse mode on if arg is positive, otherwise turn it
off.
This allows the use of the mouse when operating on a Linux console, in the
same way as you can use the mouse under X11.
...
...
lisp/term.el
View file @
4837b516
...
...
@@ -470,7 +470,7 @@
(
defvar
term-scroll-with-delete
nil
)
;; term-scroll-with-delete is t if
;; forward scrolling should be implemented by delete to
;; top-most line(s); and nil if scrolling should be implemented
;; by moving term-home-marker. It is set to t if
f
there is a
;; by moving term-home-marker. It is set to t if there is a
;; (non-default) scroll-region OR the alternate buffer is used.
(
defvar
term-pending-delete-marker
)
;; New user input in line mode needs to
;; be deleted, because it gets echoed by the inferior.
...
...
lisp/userlock.el
View file @
4837b516
...
...
@@ -134,7 +134,7 @@ The buffer in question is current when this function is called."
(
setq
answer
nil
))
((
eq
answer
'revert
)
(
revert-buffer
nil
(
not
(
buffer-modified-p
)))
; ask confirmation if
f
buffer modified
; ask confirmation if buffer modified
(
signal
'file-supersession
(
list
"File reverted"
fn
)))
((
eq
answer
'yield
)
...
...
lisp/vc.el
View file @
4837b516
...
...
@@ -1103,7 +1103,7 @@ Used by `vc-restore-buffer-context' to later restore the context."
;; ;; We may want to reparse the compilation buffer after revert
;; (reparse (and (boundp 'compilation-error-list) ;compile loaded
;; ;; Construct a list; each elt is nil or a buffer
;; ;; if
f
that buffer is a compilation output buffer
;; ;; if that buffer is a compilation output buffer
;; ;; that contains markers into the current buffer.
;; (save-current-buffer
;; (mapcar (lambda (buffer)
...
...
lisp/view.el
View file @
4837b516
...
...
@@ -375,7 +375,8 @@ Use this argument instead of explicitly setting `view-exit-action'."
;; bindings instead of using the \\[] construction. The reason for this
;; is that most commands have more than one key binding.
"Toggle View mode, a minor mode for viewing text but not editing it.
With ARG, turn View mode on iff ARG is positive.
With prefix argument ARG, turn View mode on if ARG is positive, otherwise
turn it off.
Emacs commands that do not change the buffer contents are available as usual.
Kill commands insert text in kill buffers but do not delete. Other commands
...
...
lisp/whitespace.el
View file @
4837b516
...
...
@@ -763,7 +763,7 @@ If timer is not set, then set it to scan the files in
;;;###autoload
(
define-minor-mode
whitespace-global-mode
"Toggle using Whitespace mode in new buffers.
With ARG, turn the mode on if
f
ARG is positive.
With ARG, turn the mode on if ARG is positive
, otherwise turn it off
.
When this mode is active, `whitespace-buffer' is added to
`find-file-hook' and `kill-buffer-hook'."
...
...
lisp/wid-edit.el
View file @
4837b516
...
...
@@ -483,7 +483,7 @@ new value.")
;;;###autoload
(
defun
widgetp
(
widget
)
"Return non-nil if
f
WIDGET is a widget."
"Return non-nil if WIDGET is a widget."
(
if
(
symbolp
widget
)
(
get
widget
'widget-type
)
(
and
(
consp
widget
)
...
...
@@ -500,7 +500,7 @@ Otherwise, just return the value."
value
)))
(
defun
widget-member
(
widget
property
)
"Non-nil if
f
there is a definition in WIDGET for PROPERTY."
"Non-nil if there is a definition in WIDGET for PROPERTY."
(
cond
((
plist-member
(
cdr
widget
)
property
)
t
)
((
car
widget
)
...
...
@@ -1641,7 +1641,7 @@ If that does not exists, call the value of `widget-complete-field'."
(
widget-princ-to-string
(
widget-get
widget
:value
))))
(
defun
widget-default-active
(
widget
)
"Return t if
f
this widget active (user modifiable)."
"Return t if this widget
is
active (user modifiable)."
(
or
(
widget-get
widget
:always-active
)
(
and
(
not
(
widget-get
widget
:inactive
))
(
let
((
parent
(
widget-get
widget
:parent
)))
...
...
lisp/window.el
View file @
4837b516
...
...
@@ -120,7 +120,7 @@ bars (top, bottom, or nil)."
PROC is called with a window as argument.