Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
3ecd3a56
Commit
3ecd3a56
authored
Aug 08, 2007
by
Glenn Morris
Browse files
Replace `iff' in doc-strings and comments.
parent
df26688b
Changes
20
Hide whitespace changes
Inline
Side-by-side
Showing
20 changed files
with
40 additions
and
30 deletions
+40
-30
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+6
-0
lisp/international/ja-dic-cnv.el
lisp/international/ja-dic-cnv.el
+2
-2
lisp/international/latin1-disp.el
lisp/international/latin1-disp.el
+2
-2
lisp/international/mule-cmds.el
lisp/international/mule-cmds.el
+5
-5
lisp/international/quail.el
lisp/international/quail.el
+1
-1
lisp/term/sun-mouse.el
lisp/term/sun-mouse.el
+1
-1
lisp/term/tvi970.el
lisp/term/tvi970.el
+2
-2
lisp/textmodes/artist.el
lisp/textmodes/artist.el
+1
-1
lisp/textmodes/flyspell.el
lisp/textmodes/flyspell.el
+3
-2
lisp/textmodes/ispell.el
lisp/textmodes/ispell.el
+2
-1
lisp/textmodes/nroff-mode.el
lisp/textmodes/nroff-mode.el
+1
-1
lisp/textmodes/refill.el
lisp/textmodes/refill.el
+1
-1
lisp/textmodes/reftex-global.el
lisp/textmodes/reftex-global.el
+1
-1
lisp/textmodes/sgml-mode.el
lisp/textmodes/sgml-mode.el
+1
-1
lisp/textmodes/two-column.el
lisp/textmodes/two-column.el
+4
-2
lisp/url/url-auth.el
lisp/url/url-auth.el
+1
-1
lisp/url/url-cache.el
lisp/url/url-cache.el
+1
-1
lisp/url/url-dav.el
lisp/url/url-dav.el
+3
-3
lisp/url/url-file.el
lisp/url/url-file.el
+1
-1
lisp/url/vc-dav.el
lisp/url/vc-dav.el
+1
-1
No files found.
lisp/gnus/ChangeLog
View file @
3ecd3a56
2007-08-08 Glenn Morris <rgm@gnu.org>
* gmm-utils.el, gnus-async.el, gnus-msg.el, gnus-score.el
* gnus-util.el, imap.el, mailcap.el, nnimap.el: Replace `iff' in
doc-strings and comments.
2007-07-25 Glenn Morris <rgm@gnu.org>
* Relicense all FSF files to GPLv3 or later.
...
...
lisp/international/ja-dic-cnv.el
View file @
3ecd3a56
...
...
@@ -215,8 +215,8 @@
;; Return t if substring of STR (between FROM and TO) can be broken up
;; to chunks all of which can be derived from another entry in SKK
;; dictionary. SKKBUF is the buffer where the original SKK dictionary
;; is visited, KANA is the current entry for STR. FIRST is t
iff this
;; is called at top level.
;; is visited, KANA is the current entry for STR. FIRST is t
only if
;;
this
is called at top level.
(
defun
skkdic-breakup-string
(
skkbuf
kana
str
from
to
&optional
first
)
(
let
((
len
(
-
to
from
)))
...
...
lisp/international/latin1-disp.el
View file @
3ecd3a56
...
...
@@ -777,9 +777,9 @@ use either \\[customize] or the function `latin1-display'."
"
Set
up
Latin-1/ASCII
display
for
Unicode
characters.
This
uses
the
transliterations
of
the
Lynx
browser.
With
argument
ARG,
turn
such
display
on
if
f
ARG
is
positive,
otherwise
With
argument
ARG,
turn
such
display
on
if
ARG
is
positive,
otherwise
turn
it
off
and
display
Unicode
characters
literally.
The
display
is
't
changed
if
the
display
can
render
Unicode
characters.
"
is
n
't
changed
if
the
display
can
render
Unicode
characters.
"
(interactive "
p
")
(if (> arg 0)
(unless (char-displayable-p
...
...
lisp/international/mule-cmds.el
View file @
3ecd3a56
...
...
@@ -445,11 +445,11 @@ non-nil, it is used to sort CODINGS instead."
(
let
((
base
(
coding-system-base
x
)))
;; We calculate the priority number 0..255 by
;; using the 8 bits PMMLCEII as this:
;; P: 1 if
f
most preferred.
;; MM: greater than 0 if
f
mime-charset.
;; L: 1 if
f
one of the current lang. env.'s codings.
;; C: 1 if
f
one of codings listed in the category list.
;; E: 1 if
f
not XXX-with-esc
;; P: 1 if most preferred.
;; MM: greater than 0 if mime-charset.
;; L: 1 if one of the current lang. env.'s codings.
;; C: 1 if one of codings listed in the category list.
;; E: 1 if not XXX-with-esc
;; II: if iso-2022 based, 0..3, else 1.
(
logior
(
lsh
(
if
(
eq
base
most-preferred
)
1
0
)
7
)
...
...
lisp/international/quail.el
View file @
3ecd3a56
...
...
@@ -1942,7 +1942,7 @@ Remaining args are for FUNC."
(overlay-put quail-overlay 'face 'highlight))))
(defun quail-require-guidance-buf ()
"Return t if
f
the current Quail package requires showing guidance buffer."
"Return t if the current Quail package requires showing guidance buffer."
(and input-method-verbose-flag
(if (eq input-method-verbose-flag 'default)
(not (and (eq (selected-window) (minibuffer-window))
...
...
lisp/term/sun-mouse.el
View file @
3ecd3a56
...
...
@@ -230,7 +230,7 @@ Handles wrapped and horizontally scrolled lines correctly."
(
defun
minibuffer-window-p
(
window
)
"True if
f
this WINDOW is minibuffer."
"True if this WINDOW is minibuffer."
(
=
(
frame-height
)
(
nth
3
(
window-edges
window
))
; The bottom edge.
))
...
...
lisp/term/tvi970.el
View file @
3ecd3a56
...
...
@@ -106,8 +106,8 @@
;;; Should keypad numbers send ordinary digits or distinct escape sequences?
(
defvar
tvi970-keypad-numeric
nil
"
T
he terminal should be in numeric keypad mode
iff this variable is non-nil
.
Do not set this variable! Call the function
`
`tvi970-set-keypad-mode'
'
."
)
"
Non-nil means t
he terminal should be in numeric keypad mode.
Do not set this variable! Call the function `tvi970-set-keypad-mode'."
)
(
defun
tvi970-set-keypad-mode
(
&optional
arg
)
"Set the current mode of the TVI 970 numeric keypad.
...
...
lisp/textmodes/artist.el
View file @
3ecd3a56
...
...
@@ -1768,7 +1768,7 @@ info-variant-part."
;; Macro that won't funcall the function if it is nil.
;;
(
defmacro
artist-funcall
(
fn
&rest
args
)
"Call function FN with ARGS if
f
FN is not nil."
"Call function FN with ARGS
,
if FN is not nil."
(
list
'if
fn
(
cons
'funcall
(
cons
fn
args
))))
(
defun
artist-uniq
(
l
)
...
...
lisp/textmodes/flyspell.el
View file @
3ecd3a56
...
...
@@ -457,7 +457,8 @@ See also `flyspell-duplicate-distance'."
This spawns a single Ispell process and checks each word.
The default flyspell behavior is to highlight incorrect words.
With no argument, this command toggles Flyspell mode.
With a prefix argument ARG, turn Flyspell minor mode on iff ARG is positive.
With a prefix argument ARG, turn Flyspell minor mode on if ARG is positive,
otherwise turn it off.
Bindings:
\\[ispell-word]: correct words (using Ispell).
...
...
@@ -1621,7 +1622,7 @@ FLYSPELL-BUFFER."
;;* flyspell-overlay-p ... */
;;*---------------------------------------------------------------------*/
(
defun
flyspell-overlay-p
(
o
)
"
A predicate that r
eturn true if
f
O is an overlay used by flyspell."
"
R
eturn true if O is an overlay used by flyspell."
(
and
(
overlayp
o
)
(
overlay-get
o
'flyspell-overlay
)))
;;*---------------------------------------------------------------------*/
...
...
lisp/textmodes/ispell.el
View file @
3ecd3a56
...
...
@@ -3324,7 +3324,8 @@ available on the net."
;;;###autoload
(defun ispell-minor-mode (&optional arg)
"Toggle Ispell minor mode.
With prefix arg, turn Ispell minor mode on iff arg is positive.
With prefix argument ARG, turn Ispell minor mode on if ARG is positive,
otherwise turn it off.
In Ispell minor mode, pressing SPC or RET
warns you if the previous word is incorrectly spelled.
...
...
lisp/textmodes/nroff-mode.el
View file @
3ecd3a56
...
...
@@ -261,7 +261,7 @@ automatically inserts the matching closing request after point."
`nroff-electric-newline' forces Emacs to check for an nroff request at the
beginning of the line, and insert the matching closing request if necessary.
This command toggles that mode (off->on, on->off), with an argument,
turns it on if
f
arg is positive, otherwise off."
turns it on if arg is positive, otherwise off."
:lighter
" Electric"
(
or
(
derived-mode-p
'nroff-mode
)
(
error
"Must be in nroff mode"
)))
...
...
lisp/textmodes/refill.el
View file @
3ecd3a56
...
...
@@ -217,7 +217,7 @@ complex processing.")
;;;###autoload
(
define-minor-mode
refill-mode
"Toggle Refill minor mode.
With prefix arg, turn Refill mode on if
f
arg is positive.
With prefix arg, turn Refill mode on if arg is positive
, otherwise turn it off
.
When Refill mode is on, the current paragraph will be formatted when
changes are made within it. Self-inserting characters only cause
...
...
lisp/textmodes/reftex-global.el
View file @
3ecd3a56
...
...
@@ -431,7 +431,7 @@ the current TeX document.
With no argument, this command toggles
`reftex-isearch-minor-mode'. With a prefix argument ARG, turn
`reftex-isearch-minor-mode' on if
f
ARG is positive."
`reftex-isearch-minor-mode' on if ARG is positive
, otherwise turn it off
."
(
interactive
"P"
)
(
let
((
old-reftex-isearch-minor-mode
reftex-isearch-minor-mode
))
(
setq
reftex-isearch-minor-mode
...
...
lisp/textmodes/sgml-mode.el
View file @
3ecd3a56
...
...
@@ -757,7 +757,7 @@ With prefix argument ARG, repeat this ARG times."
(
defun
sgml-skip-tag-forward
(
arg
)
"Skip to end of tag or matching closing tag if present.
With prefix argument ARG, repeat this ARG times.
Return t if
f
after a closing tag."
Return t if after a closing tag."
(
interactive
"p"
)
;; FIXME: Use sgml-get-context or something similar.
;; It currently might jump to an unrelated </P> if the <P>
...
...
lisp/textmodes/two-column.el
View file @
3ecd3a56
...
...
@@ -561,8 +561,10 @@ off trailing spaces with \\[delete-trailing-whitespace]."
(
newline
arg
))
(
defun
2C-toggle-autoscroll
(
arg
)
"Toggle autoscrolling, or set it iff prefix ARG is non-nil and positive.
When autoscrolling is turned on, this also realigns the two buffers."
"Toggle autoscrolling.
With prefix argument ARG, turn on autoscrolling if ARG is
positive, otherwise turn it off. When autoscrolling is turned
on, this also realigns the two buffers."
(
interactive
"P"
)
;(sit-for 0)
(
setq
2C-autoscroll-start
(
window-start
))
...
...
lisp/url/url-auth.el
View file @
3ecd3a56
...
...
@@ -310,7 +310,7 @@ RATING a rating between 1 and 10 of the strength of the authentication.
url-registered-auth-schemes
)))))
(
defun
url-auth-registered
(
scheme
)
;;
Return non-nil if
f
SCHEME is registered as an auth type
"
Return non-nil if SCHEME is registered as an auth type
."
(
assoc
scheme
url-registered-auth-schemes
))
(
provide
'url-auth
)
...
...
lisp/url/url-cache.el
View file @
3ecd3a56
...
...
@@ -186,7 +186,7 @@ Very fast if you have an `md5' primitive function, suitably fast otherwise."
;;;###autoload
(
defun
url-cache-expired
(
url
mod
)
"Return t if
f
a cached file has expired."
"Return t if a cached file has expired."
(
let*
((
urlobj
(
if
(
vectorp
url
)
url
(
url-generic-parse-url
url
)))
(
type
(
url-type
urlobj
)))
(
cond
...
...
lisp/url/url-dav.el
View file @
3ecd3a56
...
...
@@ -562,7 +562,7 @@ FAILURE-RESULTS is a list of (URL STATUS)."
(
defun
url-dav-unlock-resource
(
url
lock-token
)
"Release the lock on URL represented by LOCK-TOKEN.
Returns t if
f
the lock was successfully released."
Returns t if the lock was successfully released."
(
declare
(
special
url-http-response-status
))
(
let*
((
url-request-extra-headers
(
list
(
cons
"Lock-Token"
(
concat
"<"
lock-token
">"
))))
...
...
@@ -654,13 +654,13 @@ Returns t iff the lock was successfully released."
(
or
(
plist-get
properties
'DAV:getcontentlength
)
0
)
;; file modes as a string like `ls -l'
;;
;;
;; Should be able to build this up from the
;; DAV:supportedlock attribute pretty easily. Getting
;; the group info could be impossible though.
(
url-dav-file-attributes-mode-string
properties
)
;; t if
f
file's gid would change if it were deleted &
;; t if file's gid would change if it were deleted &
;; recreated. No way for us to know that thru DAV.
nil
...
...
lisp/url/url-file.el
View file @
3ecd3a56
...
...
@@ -52,7 +52,7 @@ to them."
found
))
(
defun
url-file-host-is-local-p
(
host
)
"Return t if
f
HOST references our local machine."
"Return t if HOST references our local machine."
(
let
((
case-fold-search
t
))
(
or
(
null
host
)
...
...
lisp/url/vc-dav.el
View file @
3ecd3a56
...
...
@@ -31,7 +31,7 @@
;;; Required functions for a vc backend
(
defun
vc-dav-registered
(
url
)
"Return t if
f
URL is registered with a DAV aware server."
"Return t if URL is registered with a DAV aware server."
(
url-dav-vc-registered
url
))
(
defun
vc-dav-state
(
url
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment