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
emacs
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
1
Issues
1
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Packages & Registries
Packages & Registries
Container Registry
Analytics
Analytics
CI / CD
Repository
Value Stream
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
emacs
emacs
Commits
0ff9b955
Commit
0ff9b955
authored
Dec 20, 2001
by
Pavel Janík
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Doc fixes.
parent
3c08498a
Changes
28
Hide whitespace changes
Inline
Side-by-side
Showing
28 changed files
with
137 additions
and
137 deletions
+137
-137
lisp/calc/calc.el
lisp/calc/calc.el
+39
-39
lisp/cmuscheme.el
lisp/cmuscheme.el
+2
-2
lisp/comint.el
lisp/comint.el
+7
-7
lisp/completion.el
lisp/completion.el
+4
-4
lisp/dired-aux.el
lisp/dired-aux.el
+2
-2
lisp/ediff-init.el
lisp/ediff-init.el
+2
-2
lisp/foldout.el
lisp/foldout.el
+3
-3
lisp/gnus/imap.el
lisp/gnus/imap.el
+6
-6
lisp/hippie-exp.el
lisp/hippie-exp.el
+2
-2
lisp/mail/footnote.el
lisp/mail/footnote.el
+2
-2
lisp/mail/mh-comp.el
lisp/mail/mh-comp.el
+4
-4
lisp/mail/mh-e.el
lisp/mail/mh-e.el
+6
-6
lisp/mail/mh-utils.el
lisp/mail/mh-utils.el
+6
-6
lisp/obsolete/cplus-md.el
lisp/obsolete/cplus-md.el
+2
-2
lisp/obsolete/hilit19.el
lisp/obsolete/hilit19.el
+6
-6
lisp/pcvs-defs.el
lisp/pcvs-defs.el
+3
-3
lisp/pcvs-util.el
lisp/pcvs-util.el
+2
-2
lisp/play/gomoku.el
lisp/play/gomoku.el
+3
-3
lisp/progmodes/ebrowse.el
lisp/progmodes/ebrowse.el
+2
-2
lisp/progmodes/idlwave.el
lisp/progmodes/idlwave.el
+3
-3
lisp/progmodes/inf-lisp.el
lisp/progmodes/inf-lisp.el
+2
-2
lisp/progmodes/octave-mod.el
lisp/progmodes/octave-mod.el
+2
-2
lisp/progmodes/vhdl-mode.el
lisp/progmodes/vhdl-mode.el
+2
-2
lisp/recentf.el
lisp/recentf.el
+2
-2
lisp/tempo.el
lisp/tempo.el
+12
-12
lisp/term.el
lisp/term.el
+3
-3
lisp/textmodes/scribe.el
lisp/textmodes/scribe.el
+5
-5
lisp/vc.el
lisp/vc.el
+3
-3
No files found.
lisp/calc/calc.el
View file @
0ff9b955
...
...
@@ -239,8 +239,8 @@ This can safely be nil as long as the Calc files are on the load-path.")
;; Address of the author of Calc, for use by report-calc-bug.
(
defvar
calc-bug-address
"walters@debian.org"
)
;; If
T
, scan keymaps to find all DEL-like keys.
;;
If NIL
, only DEL itself is mapped to calc-pop.
;; If
t
, scan keymaps to find all DEL-like keys.
;;
if nil
, only DEL itself is mapped to calc-pop.
(
defvar
calc-scan-for-dels
t
)
(
defvar
calc-extensions-loaded
nil
)
...
...
@@ -253,16 +253,16 @@ This can safely be nil as long as the Calc files are on the load-path.")
;; This is 1 unless calc-truncate-stack has been used.
;;(defvar calc-stack-top 1)
;; If non-
NIL
, load the calc-ext module automatically when calc is loaded.
;; If non-
nil
, load the calc-ext module automatically when calc is loaded.
;;(defvar calc-always-load-extensions nil)
;; If non-
NIL
, display line numbers in Calculator stack.
;; If non-
nil
, display line numbers in Calculator stack.
;;(defvar calc-line-numbering t)
;; If non-
NIL
, break long values across multiple lines in Calculator stack.
;; If non-
nil
, break long values across multiple lines in Calculator stack.
;;(defvar calc-line-breaking t)
;; If
NIL
, stack display is left-justified.
;; If
nil
, stack display is left-justified.
;; If 'right, stack display is right-justified.
;; If 'center, stack display is centered."
;;(defvar calc-display-just nil)
...
...
@@ -276,10 +276,10 @@ This can safely be nil as long as the Calc files are on the load-path.")
;; Radix for entry and display of numbers in calc-mode, 2-36.
;;(defvar calc-number-radix 10)
;; If non-
NIL
, leading zeros are provided to pad integers to calc-word-size.
;; If non-
nil
, leading zeros are provided to pad integers to calc-word-size.
;;(defvar calc-leading-zeros nil)
;; If non-
NIL
, group digits in large displayed integers by inserting spaces.
;; If non-
nil
, group digits in large displayed integers by inserting spaces.
;; If an integer, group that many digits at a time.
;; If 't', use 4 for binary and hex, 3 otherwise.
;;(defvar calc-group-digits nil)
...
...
@@ -294,7 +294,7 @@ This can safely be nil as long as the Calc files are on the load-path.")
;; Format of displayed fractions; a string of one or two of ":" or "/".
;;(defvar calc-frac-format '(":" nil))
;; If non-
NIL
, prefer fractional over floating-point results.
;; If non-
nil
, prefer fractional over floating-point results.
;;(defvar calc-prefer-frac nil)
;; Format of displayed hours-minutes-seconds angles, a format string.
...
...
@@ -330,32 +330,32 @@ This can safely be nil as long as the Calc files are on the load-path.")
;; Preferred form, either 'cplx or 'polar, for complex numbers.
;;(defvar calc-complex-mode 'cplx)
;; If
NIL
, 1 / 0 is left unsimplified.
;; If
nil
, 1 / 0 is left unsimplified.
;; If 0, 1 / 0 is changed to inf (zeros are considered positive).
;; Otherwise, 1 / 0 is changed to uinf (undirected infinity).
;;(defvar calc-infinite-mode nil)
;; If non-
NIL
, display vectors of byte-sized integers as strings.
;; If non-
nil
, display vectors of byte-sized integers as strings.
;;(defvar calc-display-strings nil)
;; If
NIL
, vector elements are left-justified.
;; If
nil
, vector elements are left-justified.
;; If 'right, vector elements are right-justified.
;; If 'center, vector elements are centered."
;;(defvar calc-matrix-just 'center)
;; If non-
NIL
, display vectors one element per line.
;; If non-
nil
, display vectors one element per line.
;;(defvar calc-break-vectors nil)
;; If non-
NIL, display long vectors in full. If NIL
, use abbreviated form.
;; If non-
nil, display long vectors in full. If nil
, use abbreviated form.
;;(defvar calc-full-vectors t)
;; If non-
NIL
, display long vectors in full in the trail.
;; If non-
nil
, display long vectors in full in the trail.
;;(defvar calc-full-trail-vectors t)
;; If non-
NIL
, separate elements of displayed vectors with this string.
;; If non-
nil
, separate elements of displayed vectors with this string.
;;(defvar calc-vector-commas ",")
;; If non-
NIL
, surround displayed vectors with these characters.
;; If non-
nil
, surround displayed vectors with these characters.
;;(defvar calc-vector-brackets "[]")
;; A list of code-letter symbols that control "big" matrix display.
...
...
@@ -411,79 +411,79 @@ This can safely be nil as long as the Calc files are on the load-path.")
;; Type of simplification applied to results.
;; If 'none, results are not simplified when pushed on the stack.
;; If 'num, functions are simplified only when args are constant.
;; If
NIL
, only fast simplifications are applied.
;; If
nil
, only fast simplifications are applied.
;; If 'binary, math-clip is applied if appropriate.
;; If 'alg, math-simplify is applied.
;; If 'ext, math-simplify-extended is applied.
;; If 'units, math-simplify-units is applied.
;;(defvar calc-simplify-mode nil)
;; If non-
NIL
, recompute evalto's automatically when necessary.
;; If non-
nil
, recompute evalto's automatically when necessary.
;;(defvar calc-auto-recompute t)
;; If non-
NIL
, display shows unformatted Lisp exprs. (For debugging)
;; If non-
nil
, display shows unformatted Lisp exprs. (For debugging)
;;(defvar calc-display-raw nil)
;; Number of digits of internal precision for calc-mode calculations.
;;(defvar calc-internal-prec 12)
;; If non-
NIL
, next operation is Inverse.
;; If non-
nil
, next operation is Inverse.
;;(defvar calc-inverse-flag nil)
;; If non-
NIL
, next operation is Hyperbolic.
;; If non-
nil
, next operation is Hyperbolic.
;;(defvar calc-hyperbolic-flag nil)
;; If non-
NIL
, next operation should not remove its arguments from stack.
;; If non-
nil
, next operation should not remove its arguments from stack.
;;(defvar calc-keep-args-flag nil)
;; If deg, angles are in degrees; if rad, angles are in radians.
;; If hms, angles are in degrees-minutes-seconds.
;;(defvar calc-angle-mode 'deg)
;; If non-
NIL
, numeric entry accepts whole algebraic expressions.
;; If
NIL
, algebraic expressions must be preceded by "'".
;; If non-
nil
, numeric entry accepts whole algebraic expressions.
;; If
nil
, algebraic expressions must be preceded by "'".
;;(defvar calc-algebraic-mode nil)
;; Like calc-algebraic-mode except only affects ( and [ keys.
;;(defvar calc-incomplete-algebraic-mode nil)
;; If non-
NIL
, inexact numeric computations like sqrt(2) are postponed.
;; If
NIL
, computations on numbers always yield numbers where possible.
;; If non-
nil
, inexact numeric computations like sqrt(2) are postponed.
;; If
nil
, computations on numbers always yield numbers where possible.
;;(defvar calc-symbolic-mode nil)
;; If 'matrix, variables are assumed to be matrix-valued.
;; If a number, variables are assumed to be NxN matrices.
;; If 'scalar, variables are assumed to be scalar-valued.
;; If
NIL
, symbolic math routines make no assumptions about variables.
;; If
nil
, symbolic math routines make no assumptions about variables.
;;(defvar calc-matrix-mode nil)
;; If non-
NIL
, shifted letter keys are prefix keys rather than normal meanings.
;; If non-
nil
, shifted letter keys are prefix keys rather than normal meanings.
;;(defvar calc-shift-prefix nil)
;; Initial height of Calculator window.
;;(defvar calc-window-height 7)
;; If non-
NIL
, M-x calc creates a window to display Calculator trail.
;; If non-
nil
, M-x calc creates a window to display Calculator trail.
;;(defvar calc-display-trail t)
;; If non-
NIL
, selected sub-formulas are shown by obscuring rest of formula.
;; If
NIL
, selected sub-formulas are highlighted by obscuring the sub-formulas.
;; If non-
nil
, selected sub-formulas are shown by obscuring rest of formula.
;; If
nil
, selected sub-formulas are highlighted by obscuring the sub-formulas.
;;(defvar calc-show-selections t)
;; If non-
NIL
, commands operate only on selected portions of formulas.
;; If
NIL
, selections displayed but ignored.
;; If non-
nil
, commands operate only on selected portions of formulas.
;; If
nil
, selections displayed but ignored.
;;(defvar calc-use-selections t)
;; If non-
NIL
, selection hides deep structure of associative formulas.
;; If non-
nil
, selection hides deep structure of associative formulas.
;;(defvar calc-assoc-selections t)
;; If non-
NIL
, display "Working..." for potentially slow Calculator commands.
;; If non-
nil
, display "Working..." for potentially slow Calculator commands.
;;(defvar calc-display-working-message 'lots)
;; If non-
NIL
, automatically execute a "why" command to explain odd results.
;; If non-
nil
, automatically execute a "why" command to explain odd results.
;;(defvar calc-auto-why nil)
;; If non-
NIL
, display timing information on each slow command.
;; If non-
nil
, display timing information on each slow command.
;;(defvar calc-timing nil)
;; Floating-point numbers with this positive exponent or higher above the
...
...
@@ -501,7 +501,7 @@ This can safely be nil as long as the Calc files are on the load-path.")
;; List of strings for Y prefix help.
(
defvar
calc-Y-help-msgs
nil
)
;;
T
if calc-settings-file has been loaded yet.
;;
t
if calc-settings-file has been loaded yet.
(
defvar
calc-loaded-settings-file
nil
)
...
...
lisp/cmuscheme.el
View file @
0ff9b955
...
...
@@ -352,7 +352,7 @@ next one.")
(
defun
scheme-load-file
(
file-name
)
"Load a Scheme file FILE-NAME into the inferior Scheme process."
(
interactive
(
comint-get-source
"Load Scheme file: "
scheme-prev-l/c-dir/file
scheme-source-modes
t
))
;
T because LOAD
scheme-source-modes
t
))
;
t because `load'
; needs an exact name
(
comint-check-source
file-name
)
; Check to see if buffer needs saved.
(
setq
scheme-prev-l/c-dir/file
(
cons
(
file-name-directory
file-name
)
...
...
@@ -366,7 +366,7 @@ next one.")
(
interactive
(
comint-get-source
"Compile Scheme file: "
scheme-prev-l/c-dir/file
scheme-source-modes
nil
))
;
NIL
because COMPILE doesn't
nil
))
;
nil
because COMPILE doesn't
; need an exact name.
(
comint-check-source
file-name
)
; Check to see if buffer needs saved.
(
setq
scheme-prev-l/c-dir/file
(
cons
(
file-name-directory
file-name
)
...
...
lisp/comint.el
View file @
0ff9b955
...
...
@@ -695,7 +695,7 @@ buffer. The hook `comint-exec-hook' is run after each exec."
(comint-exec-1 name buffer command switches))))
(set-process-filter proc 'comint-output-filter)
(make-local-variable 'comint-ptyp)
(setq comint-ptyp process-connection-type) ;
T if pty, NIL
if pipe.
(setq comint-ptyp process-connection-type) ;
t if pty, nil
if pipe.
;; Jump to the end, and set the process mark.
(goto-char (point-max))
(set-marker (process-mark proc) (point))
...
...
@@ -2272,8 +2272,8 @@ This command is like `M-.' in bash."
;;============================================================================
;; Many command-interpreters (e.g., Lisp, Scheme, Soar) have
;; commands that process files of source text (e.g. loading or compiling
;; files). So the corresponding process-in-a-buffer modes have commands
;; for doing this (e.g., lisp-load-file). The functions below are useful
;; files).
So the corresponding process-in-a-buffer modes have commands
;; for doing this (e.g., lisp-load-file).
The functions below are useful
;; for defining these commands.
;;
;; Alas, these guys don't do exactly the right thing for Lisp, Scheme
...
...
@@ -2281,9 +2281,9 @@ This command is like `M-.' in bash."
;; So the compile/load interface gets the wrong default occasionally.
;; The load-file/compile-file default mechanism could be smarter -- it
;; doesn't know about the relationship between filename extensions and
;; whether the file is source or executable. If you compile foo.lisp
;; whether the file is source or executable.
If you compile foo.lisp
;; with compile-file, then the next load-file should use foo.bin for
;; the default, not foo.lisp. This is tricky to do right, particularly
;; the default, not foo.lisp.
This is tricky to do right, particularly
;; because the extension for executable files varies so much (.o, .bin,
;; .lbin, .mo, .vo, .ao, ...).
...
...
@@ -2304,14 +2304,14 @@ This command is like `M-.' in bash."
;; commands for tea, soar, cmulisp, and cmuscheme modes.
;;
;; - PREVIOUS-DIR/FILE is a pair (directory . filename) from the last
;; source-file processing command.
NIL
if there hasn't been one yet.
;; source-file processing command.
nil
if there hasn't been one yet.
;; - SOURCE-MODES is a list used to determine what buffers contain source
;; files: if the major mode of the buffer is in SOURCE-MODES, it's source.
;; Typically, (lisp-mode) or (scheme-mode).
;;
;; If the command is given while the cursor is inside a string, *and*
;; the string is an existing filename, *and* the filename is not a directory,
;; then the string is taken as default. This allows you to just position
;; then the string is taken as default.
This allows you to just position
;; your cursor over a string that's a filename and have it taken as default.
;;
;; If the command is given in a file buffer whose major mode is in
...
...
lisp/completion.el
View file @
0ff9b955
...
...
@@ -842,7 +842,7 @@ during the search."
(
reset-cdabbrev-window
t
))
(
defun
set-cdabbrev-buffer
()
;; cdabbrev-current-window must not be
NIL
;; cdabbrev-current-window must not be
nil
(
set-buffer
(
if
(
eq
cdabbrev-current-window
t
)
(
other-buffer
)
(
window-buffer
cdabbrev-current-window
))))
...
...
@@ -1001,7 +1001,7 @@ Each symbol is bound to a single completion entry.")
;; A completion entry is a LIST of string, prefix-symbol num-uses, and
;; last-use-time (the time the completion was last used)
;; last-use-time is
T
if the string should be kept permanently
;; last-use-time is
t
if the string should be kept permanently
;; num-uses is incremented every time the completion is used.
;; We chose lists because (car foo) is faster than (aref foo 0) and the
...
...
@@ -1019,7 +1019,7 @@ Each symbol is bound to a single completion entry.")
(
defmacro
completion-last-use-time
(
completion-entry
)
;; "The time it was last used. In hours since origin. Used to decide
;; whether to save it.
T
if one should always save it."
;; whether to save it.
t
if one should always save it."
(
list
'nth
2
completion-entry
))
(
defmacro
completion-source
(
completion-entry
)
...
...
@@ -1132,7 +1132,7 @@ Each symbol is bound to a single completion entry.")
;; "The interned prefix symbol corresponding to cmpl-db-downcase-string."
(
defvar
cmpl-db-entry
nil
)
(
defvar
cmpl-db-debug-p
nil
"Set to
T
if you want to debug the database."
)
"Set to
t
if you want to debug the database."
)
;; READS
(
defun
find-exact-completion
(
string
)
...
...
lisp/dired-aux.el
View file @
0ff9b955
...
...
@@ -939,7 +939,7 @@ a prefix arg lets you edit the `ls' switches used for the new listing."
(
defcustom
dired-recursive-copies
nil
"*Decide whether recursive copies are allowed.
N
il means no recursive copies.
n
il means no recursive copies.
`always' means copy recursively without asking.
`top' means ask for each directory at top level.
Anything else means ask for each directory."
...
...
@@ -1336,7 +1336,7 @@ Optional arg HOW-TO is used to set the value of the into-dir variable
;; symlinks.
(defvar dired-copy-how-to-fn nil
"
N
il
or
a
function
used
by
`
dired-do-copy
'
to
determine
target.
"
n
il
or
a
function
used
by
`
dired-do-copy
'
to
determine
target.
See
HOW-TO
argument
for
`
dired-do-create-files
'.
")
;;;###autoload
...
...
lisp/ediff-init.el
View file @
0ff9b955
...
...
@@ -590,7 +590,7 @@ highlighted using ASCII flags."
Actually, Ediff restores the scope of visibility that existed at startup."
)
(
defcustom
ediff-keep-variants
t
"*
N
il means that non-modified variant buffers should be removed at the end of the session after some interrogation.
"*
n
il means that non-modified variant buffers should be removed at the end of the session after some interrogation.
Supplying a prefix argument to the quit command `q' temporarily reverses the
meaning of this variable."
:type
'boolean
...
...
@@ -1241,7 +1241,7 @@ This property can be toggled interactively."
(
defcustom
ediff-autostore-merges
'group-jobs-only
"*Save the results of merge jobs automatically.
N
il means don't save automatically. t means always save. Anything but nil or t
n
il means don't save automatically. t means always save. Anything but nil or t
means save automatically only if the merge job is part of a group of jobs, such
as `ediff-merge-directory' or `ediff-merge-directory-revisions'."
:type
'
(
choice
(
const
nil
)
(
const
t
)
(
const
group-jobs-only
))
...
...
lisp/foldout.el
View file @
0ff9b955
...
...
@@ -216,7 +216,7 @@
(
defconst
foldout-fold-list
nil
"List of start and end markers for the folds currently entered.
An end marker of
NIL
means the fold ends after (point-max)."
)
An end marker of
nil
means the fold ends after (point-max)."
)
(
make-variable-buffer-local
'foldout-fold-list
)
(
defconst
foldout-modeline-string
nil
...
...
@@ -269,7 +269,7 @@ optional arg EXPOSURE \(interactively with prefix arg\) changes this:-
;; I need a marker that will follow the end of the region even when
;; text is inserted right at the end. Text gets inserted *after*
;; markers, so I need it at end+1. Unfortunately I can't set a
;; marker at (point-max)+1, so I use
NIL
to mean the region ends at
;; marker at (point-max)+1, so I use
nil
to mean the region ends at
;; (point-max).
(
end-marker
(
if
(
eobp
)
nil
(
set-marker
(
make-marker
)
(
1+
end
))))
)
...
...
@@ -517,7 +517,7 @@ if the event didn't occur on a heading."
;;; Keymaps:
(
defvar
foldout-inhibit-key-bindings
nil
"Set non-
NIL
before loading foldout to inhibit key bindings."
)
"Set non-
nil
before loading foldout to inhibit key bindings."
)
(
defvar
foldout-mouse-modifiers
'
(
meta
control
)
"List of modifier keys to apply to foldout's mouse events.
...
...
lisp/gnus/imap.el
View file @
0ff9b955
...
...
@@ -1751,21 +1751,21 @@ Return nil if no complete line has arrived."
;;
;; addr-adl = nstring
;; ; Holds route from [RFC-822] route-addr if
;; ; non-
NIL
;; ; non-
nil
;;
;; addr-host = nstring
;; ;
NIL
indicates [RFC-822] group syntax.
;; ;
nil
indicates [RFC-822] group syntax.
;; ; Otherwise, holds [RFC-822] domain name
;;
;; addr-mailbox = nstring
;; ;
NIL
indicates end of [RFC-822] group; if
;; ; non-
NIL and addr-host is NIL
, holds
;; ;
nil
indicates end of [RFC-822] group; if
;; ; non-
nil and addr-host is nil
, holds
;; ; [RFC-822] group name.
;; ; Otherwise, holds [RFC-822] local-part
;; ; after removing [RFC-822] quoting
;;
;; addr-name = nstring
;; ; If non-
NIL
, holds phrase from [RFC-822]
;; ; If non-
nil
, holds phrase from [RFC-822]
;; ; mailbox after removing [RFC-822] quoting
;;
...
...
@@ -2455,7 +2455,7 @@ Return nil if no complete line has arrived."
(
push
(
imap-parse-nstring
)
body
)
;; body-fld-desc
(
imap-forward
)
;; next `or' for Sun SIMS bug, it regard body-fld-enc as a
;; nstring and return
NIL
instead of defaulting back to 7BIT
;; nstring and return
nil
instead of defaulting back to 7BIT
;; as the standard says.
(
push
(
or
(
imap-parse-nstring
)
"7BIT"
)
body
)
;; body-fld-enc
(
imap-forward
)
...
...
lisp/hippie-exp.el
View file @
0ff9b955
...
...
@@ -263,7 +263,7 @@ Can contain both regexps matching buffer names (as strings) and major modes
(
defcustom
hippie-expand-only-buffers
()
"*A list specifying the only buffers to search (in addition to current).
Can contain both regexps matching buffer names (as strings) and major modes
\(as atoms).
If non-NIL
, this variable overrides the variable
\(as atoms).
If non-nil
, this variable overrides the variable
`hippie-expand-ignore-buffers'."
:type
'
(
repeat
(
choice
regexp
(
symbol
:tag
"Major Mode"
)))
:group
'hippie-expand
)
...
...
@@ -382,7 +382,7 @@ undoes the expansion."
;; Check if STR is a member of LST.
;; Transform to the final case if optional TRANS-CASE is non-
NIL
.
;; Transform to the final case if optional TRANS-CASE is non-
nil
.
(
defun
he-string-member
(
str
lst
&optional
trans-case
)
(
if
str
(
member
(
if
(
and
trans-case
...
...
lisp/mail/footnote.el
View file @
0ff9b955
...
...
@@ -513,7 +513,7 @@ styles."
(
defun
Footnote-text-under-cursor
()
"Return the number of footnote if in footnote text.
Nil is returned
if the cursor is not positioned over the text of
Return nil
if the cursor is not positioned over the text of
a footnote."
(
when
(
and
(
let
((
old-point
(
point
)))
(
save-excursion
...
...
@@ -536,7 +536,7 @@ a footnote."
(
defun
Footnote-under-cursor
()
"Return the number of the footnote underneath the cursor.
Nil is returned
if the cursor is not over a footnote."
Return nil
if the cursor is not over a footnote."
(
or
(
get-text-property
(
point
)
'footnote-number
)
(
Footnote-text-under-cursor
)))
...
...
lisp/mail/mh-comp.el
View file @
0ff9b955
;;; mh-comp.el --- mh-e functions for composing messages
;; Time-stamp: <2001-
07-15 09:36:30
pavel>
;; Time-stamp: <2001-
12-20 18:55:07
pavel>
;; Copyright (C) 1993,1995,1997,2000 Free Software Foundation, Inc.
...
...
@@ -30,7 +30,7 @@
;;; Change Log:
;; $Id: mh-comp.el,v 1.2
1 2001/02/08 00:01:35 fx
Exp $
;; $Id: mh-comp.el,v 1.2
2 2001/07/15 19:53:53 pj
Exp $
;;; Code:
...
...
@@ -540,7 +540,7 @@ See also documentation for `\\[mh-send]' function."
(
defun
mh-read-draft
(
use
initial-contents
delete-contents-file
)
;; Read draft file into a draft buffer and make that buffer the current one.
;; USE is a message used for prompting about the intended use of the message.
;; INITIAL-CONTENTS is filename that is read into an empty buffer, or
NIL
;; INITIAL-CONTENTS is filename that is read into an empty buffer, or
nil
;; if buffer should not be modified. Delete the initial-contents file if
;; DELETE-CONTENTS-FILE flag is set.
;; Returns the draft folder's name.
...
...
@@ -651,7 +651,7 @@ See also documentation for `\\[mh-send]' function."
(
defun
mh-goto-header-field
(
field
)
;; Move to FIELD in the message header.
;; Move to the end of the FIELD name, which should end in a colon.
;; Returns
T if found, NIL
if not.
;; Returns
t if found, nil
if not.
(
goto-char
(
point-min
))
(
let
((
case-fold-search
t
)
(
headers-end
(
save-excursion
...
...
lisp/mail/mh-e.el
View file @
0ff9b955
...
...
@@ -60,7 +60,7 @@
;; Modified by James Larus, BBN, July 1984 and UCB, 1984 & 1985.
;; Rewritten for GNU Emacs, James Larus 1985. larus@ginger.berkeley.edu
;; Modified by Stephen Gildea 1988. gildea@stop.mail-abuse.org
(
defconst
mh-e-RCS-id
"$Id: mh-e.el,v 1.
28 2001/07/15 19:53:53 pj
Exp $"
)
(
defconst
mh-e-RCS-id
"$Id: mh-e.el,v 1.
30 2001/09/23 17:38:22 eliz
Exp $"
)
;;; Code:
...
...
@@ -203,7 +203,7 @@ A directory name string, or nil to use current directory."
(
defvar
mh-partial-folder-mode-line-annotation
"select"
"Annotation when displaying part of a folder.
The string is displayed after the folder's name.
NIL
for no annotation."
)
The string is displayed after the folder's name.
nil
for no annotation."
)
;;; Internal variables:
...
...
@@ -779,8 +779,8 @@ Variables controlling mh-e operation are (defaults in parentheses):
`mhl-formfile' (nil)
Name of format file to be used by mhl to show messages.
A value of
T
means use the default format file.
N
il means don't use mhl to format messages.
A value of
t
means use the default format file.
n
il means don't use mhl to format messages.
`mh-lpr-command-format' (\"lpr -p -J '%s'\")
Format for command used to print a message on a system printer.
...
...
@@ -1080,7 +1080,7 @@ The value of mh-folder-mode-hook is called when a new folder is set up."
(
defun
mh-update-unseen
()
;; Flush updates to the Unseen sequence out to MH.
;; Return non-
NIL
iff set the MH folder.
;; Return non-
nil
iff set the MH folder.
(
if
mh-seen-list
(
let*
((
unseen-seq
(
mh-find-seq
mh-unseen-seq
))
(
unseen-msgs
(
mh-seq-msgs
unseen-seq
)))
...
...
@@ -1211,7 +1211,7 @@ The value of mh-folder-mode-hook is called when a new folder is set up."
(
defun
mh-internal-seq
(
name
)
;; Return non-
NIL
if NAME is the name of an internal mh-e sequence.
;; Return non-
nil
if NAME is the name of an internal mh-e sequence.
(
or
(
memq
name
'
(
answered
cur
deleted
forwarded
printed
))
(
eq
name
mh-unseen-seq
)
(
eq
name
mh-previous-seq
)
...
...
lisp/mail/mh-utils.el
View file @
0ff9b955
...
...
@@ -116,8 +116,8 @@ The desired message's number will be an argument to format.")
(
defcustom
mhl-formfile
nil
"*Name of format file to be used by mhl to show and print messages.
A value of
T
means use the default format file.
N
il means don't use mhl to format messages when showing; mhl is still used,
A value of
t
means use the default format file.
n
il means don't use mhl to format messages when showing; mhl is still used,
with the default format file, to format messages when printing them.
The format used should specify a non-zero value for overflowoffset so
the message continues to conform to RFC 822 and mh-e can parse the headers."
...
...
@@ -133,7 +133,7 @@ prompting the user for a folder. The function is called from within a
save-excursion, with point at the start of the message. It should
return the folder to offer as the refile or Fcc folder, as a string
with a leading `+' sign. It can also return an empty string to use no
default, or
NIL
to calculate the default the usual way.
default, or
nil
to calculate the default the usual way.
NOTE: This variable is not an ordinary hook;
It may not be a list of functions."
)
...
...
@@ -162,7 +162,7 @@ First argument is folder name. Second is message number.")
;; Cached value of the `Path:' component in the user's MH profile.
(
defvar
mh-user-path
nil
)
;User's mail folder directory.
;; An mh-draft-folder of
NIL
means do not use a draft folder.
;; An mh-draft-folder of
nil
means do not use a draft folder.
;; Cached value of the `Draft-Folder:' component in the user's MH profile.
(
defvar
mh-draft-folder
nil
)
;Name of folder containing draft messages.
...
...
@@ -529,7 +529,7 @@ Non-nil third argument means not to show the message."
(
defun
mh-get-profile-field
(
field
)
;; Find and return the value of FIELD in the current buffer.
;; Returns
NIL
if the field is not in the buffer.
;; Returns
nil
if the field is not in the buffer.
(
let
((
case-fold-search
t
))
(
goto-char
(
point-min
))
(
cond
((
not
(
re-search-forward
(
format
"^%s"
field
)
nil
t
))
nil
)
...
...
@@ -848,7 +848,7 @@ directory names."
(
defun
mh-folder-name-p
(
name
)
;; Return non-
NIL
if NAME is possibly the name of a folder.
;; Return non-
nil
if NAME is possibly the name of a folder.
;; A name (a string or symbol) can be a folder name if it begins with "+".
(
if
(
symbolp
name
)
(
eq
(
aref
(
symbol-name
name
)
0
)
?+
)
...
...
lisp/obsolete/cplus-md.el
View file @
0ff9b955
...
...
@@ -169,7 +169,7 @@ with the colon on the first line."
:group 'old-c++)
(defcustom c++-empty-arglist-indent nil
"*Indicates how far to indent an line following an empty argument
list.
N
il indicates to just after the paren."
list.
n
il indicates to just after the paren."
:type '(choice (const nil) integer)
:group 'old-c++)
...
...
@@ -316,7 +316,7 @@ Variables controlling indentation style:
Indentation level of member initializations in function declarations,
if they are on a separate line beginning with a colon.
c++-continued-member-init-offset
Extra indentation for continuation lines of member initializations;
NIL
Extra indentation for continuation lines of member initializations;
nil
means to align with previous initializations rather than with the colon.
Settings for K&R, BSD, and Stroustrup indentation styles are
...
...
lisp/obsolete/hilit19.el
View file @
0ff9b955
...
...
@@ -325,7 +325,7 @@
"* If non-nil, this inhibits progress indicators during highlighting"
)
(
defvar
hilit-auto-highlight
t
"*
T
if we should highlight all buffers as we find 'em, nil to disable
"*
t
if we should highlight all buffers as we find 'em, nil to disable
automatic highlighting by the find-file hook."
)
(
defvar
hilit-auto-highlight-maxout
60000
; hilit19 keeps getting bigger...
...
...
@@ -333,7 +333,7 @@
(
defvar
hilit-auto-rehighlight
t
"* If this is non-nil, then hilit-redraw and hilit-recenter will also
rehighlight part or all of the current buffer.
T
will rehighlight the
rehighlight part or all of the current buffer.
t
will rehighlight the
whole buffer, a NUMBER will rehighlight that many lines before and after
the cursor, and the symbol 'visible' will rehighlight only the visible
portion of the current buffer. This variable is buffer-local."
)
...
...
@@ -346,10 +346,10 @@
THRESHOLD."
)
(
defvar
hilit-face-check
t
"*
T
slows down highlighting but permits the user to change fonts without
losing bold and italic faces...
T
causes hilit-lookup-face-create to dig
"*
t
slows down highlighting but permits the user to change fonts without
losing bold and italic faces...
t
causes hilit-lookup-face-create to dig
through the frame parameters for the current window every time it's called.
If you never change fonts in emacs, set this to
NIL
."
)
If you never change fonts in emacs, set this to
nil
."
)
;; Variables which must be set before loading hilit19.
...
...
@@ -1051,7 +1051,7 @@ Optionally, place the new pattern first in the pattern list"
(
and
(
interactive-p
)
(
hilit-rehighlight-buffer
)))
(
defun
hilit-string-find
(
qchar
)
"
looks for a string and returns (start . end) or NIL
. The argument QCHAR
"
Looks for a string and returns (start . end) or nil
. The argument QCHAR
is the character that would precede a character constant double quote.
Finds strings delimited by double quotes. The first double quote may not be
preceded by QCHAR and the closing double quote may not be preceded by an odd
...
...
lisp/pcvs-defs.el
View file @
0ff9b955
...
...
@@ -4,7 +4,7 @@
;; Author: Stefan Monnier <monnier@cs.yale.edu>
;; Keywords: pcl-cvs
;; Revision: $Id: pcvs-defs.el,v 1.1
5 2001/07/16 07:46:48 pj
Exp $
;; Revision: $Id: pcvs-defs.el,v 1.1
6 2001/10/31 17:39:07 sds
Exp $
;; This file is part of GNU Emacs.
...
...
@@ -168,7 +168,7 @@ displayed when asking for confirmation."
(
defcustom
cvs-add-default-message
nil
"*Default message to use when adding files.
If set to
NIL
, `cvs-mode-add' will always prompt for a message."
If set to
nil
, `cvs-mode-add' will always prompt for a message."
:group
'pcl-cvs