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
71296446
Commit
71296446
authored
Feb 04, 2003
by
Juanma Barranquero
Browse files
Trailing whitespace deleted.
parent
693ff613
Changes
65
Expand all
Hide whitespace changes
Inline
Side-by-side
Showing
20 changed files
with
208 additions
and
208 deletions
+208
-208
lisp/abbrev.el
lisp/abbrev.el
+1
-1
lisp/allout.el
lisp/allout.el
+19
-19
lisp/ansi-color.el
lisp/ansi-color.el
+2
-2
lisp/apropos.el
lisp/apropos.el
+7
-7
lisp/arc-mode.el
lisp/arc-mode.el
+1
-1
lisp/array.el
lisp/array.el
+2
-2
lisp/autoinsert.el
lisp/autoinsert.el
+2
-2
lisp/byte-run.el
lisp/byte-run.el
+5
-5
lisp/cmuscheme.el
lisp/cmuscheme.el
+4
-4
lisp/completion.el
lisp/completion.el
+103
-103
lisp/composite.el
lisp/composite.el
+2
-2
lisp/cus-dep.el
lisp/cus-dep.el
+8
-8
lisp/cus-face.el
lisp/cus-face.el
+11
-11
lisp/cus-start.el
lisp/cus-start.el
+9
-9
lisp/cus-theme.el
lisp/cus-theme.el
+1
-1
lisp/custom.el
lisp/custom.el
+11
-11
lisp/cvs-status.el
lisp/cvs-status.el
+5
-5
lisp/dabbrev.el
lisp/dabbrev.el
+2
-2
lisp/descr-text.el
lisp/descr-text.el
+6
-6
lisp/diff-mode.el
lisp/diff-mode.el
+7
-7
No files found.
lisp/abbrev.el
View file @
71296446
...
...
@@ -229,7 +229,7 @@ Don't use this function in a Lisp program; use `define-abbrev' instead."
(
interactive
"p"
)
(
add-abbrev
(
if
only-global-abbrevs
global-abbrev-table
global-abbrev-table
(
or
local-abbrev-table
(
error
"No per-mode abbrev table"
)))
"Mode"
arg
))
...
...
lisp/allout.el
View file @
71296446
...
...
@@ -5,7 +5,7 @@
;; Author: Ken Manheimer <klm@python.org>
;; Maintainer: Ken Manheimer <klm@python.org>
;; Created: Dec 1991 - first release to usenet
;; Version: $Id: allout.el,v 1.3
7
2002/12/16 0
0:42:23
rost Exp $||
;; Version: $Id: allout.el,v 1.3
8
2002/12/16 0
1:00:51
rost Exp $||
;; Keywords: outlines mode wp languages
;; This file is part of GNU Emacs.
...
...
@@ -33,23 +33,23 @@
;; exposure. It also provides for syntax-sensitive text like
;; programming languages. (For an example, see the allout code
;; itself, which is organized in ;; an outline framework.)
;;
;;
;; In addition to outline navigation and exposure, allout includes:
;;
;;
;; - topic-oriented repositioning, cut, and paste
;; - integral outline exposure-layout
;; - incremental search with dynamic exposure and reconcealment of hidden text
;; - automatic topic-number maintenance
;; - "Hot-spot" operation, for single-keystroke maneuvering and
;; exposure control. (See the `allout-mode' docstring.)
;;
;;
;; and many other features.
;;
;;
;; The outline menubar additions provide quick reference to many of
;; the features, and see the docstring of the function `allout-init'
;; for instructions on priming your emacs session for automatic
;; activation of `allout-mode'.
;;
;;
;; See the docstring of the variables `allout-layout' and
;; `allout-auto-activation' for details on automatic activation of
;; allout `allout-mode' as a minor mode. (It has changed since allout
...
...
@@ -89,7 +89,7 @@ With value `t', auto-mode-activation and auto-layout are enabled.
With value `ask', auto-mode-activation is enabled, and endorsement for
performing auto-layout is asked of the user each time.
With value `activate', only auto-mode-activation is enabled,
With value `activate', only auto-mode-activation is enabled,
auto-layout is not.
With value `nil', neither auto-mode-activation nor auto-layout are
...
...
@@ -189,7 +189,7 @@ of this var to take effect."
These bullets are used to distinguish topics from the run-of-the-mill
ones. They are not used in the standard topic headers created by
the topic-opening, shifting, and rebulleting \(eg, on topic shift,
the topic-opening, shifting, and rebulleting \(eg, on topic shift,
topic paste, blanket rebulleting) routines, but are offered among the
choices for rebulleting. They are not altered by the above automatic
rebulleting, so they can be used to characterize topics, eg:
...
...
@@ -242,7 +242,7 @@ tripled, but an underscore is substituted for the space. [This
presumes that the space is for appearance, not comment syntax. You
can use `allout-mode-leaders' to override this behavior, when
incorrect.]"
:type
'
(
choice
(
const
t
)
(
const
nil
)
string
:type
'
(
choice
(
const
t
)
(
const
nil
)
string
(
const
allout-mode-leaders
)
(
const
comment-start
))
:group
'allout
)
...
...
@@ -508,7 +508,7 @@ behavior."
;;;_ : Version
;;;_ = allout-version
(
defvar
allout-version
(
let
((
rcs-rev
"$Revision: 1.3
7
$"
))
(
let
((
rcs-rev
"$Revision: 1.3
8
$"
))
(
condition-case
err
(
save-match-data
(
string-match
"Revision: \\([0-9]+\\.[0-9]+\\)"
rcs-rev
)
...
...
@@ -789,9 +789,9 @@ activation. Being deprecated.")
"----"
[
"Duplicate Exposed"
allout-copy-exposed-to-buffer
t]
[
"Duplicate Exposed, numbered"
allout-flatten-exposed-to-buffer
t]
allout-flatten-exposed-to-buffer
t]
[
"Duplicate Exposed, indented"
allout-indented-exposed-to-buffer
t]
allout-indented-exposed-to-buffer
t]
"----"
[
"Set Header Lead"
allout-reset-header-lead
t]
[
"Set New Exposure"
allout-expose-topic
t]
)))
...
...
@@ -1006,7 +1006,7 @@ the following two lines in your emacs init file:
((
message
"Outline mode auto-activation and -layout enabled."
)
'full
)))))))
;;;_ > allout-setup-menubar ()
(
defun
allout-setup-menubar
()
"Populate the current buffer's menubar with `allout-mode' stuff."
...
...
@@ -2459,12 +2459,12 @@ The function checks to ensure that the rebinding is done only once."
(
add-hook
'isearch-mode-end-hook
'allout-isearch-rectification
)
(
if
(
fboundp
'allout-real-isearch-abort
)
;;
;;
nil
; Ensure load of isearch-mode:
(
if
(
or
(
and
(
fboundp
'isearch-mode
)
(
fboundp
'isearch-abort
))
(
condition-case
error
(
condition-case
error
(
load-library
"isearch-mode"
)
(
'file-error
(
message
"Skipping isearch-mode provisions - %s '%s'"
...
...
@@ -2475,7 +2475,7 @@ The function checks to ensure that the rebinding is done only once."
(
setq
allout-isearch-dynamic-expose
nil
))))
;; Isearch-mode loaded, encapsulate specific entry points for
;; outline dynamic-exposure business:
(
progn
(
progn
;; stash crucial isearch-mode funcs under known, private
;; names, then register wrapper functions under the old
;; names, in their stead:
...
...
@@ -4053,7 +4053,7 @@ and retains start position."
Optional arg CONTEXT indicates interior levels to include."
(
let
((
delim
"."
)
result
result
numstr
(
context-depth
(
or
(
and
context
2
)
1
)))
;; Take care of the explicit context:
...
...
@@ -4096,7 +4096,7 @@ Optional arg CONTEXT indicates interior levels to include."
(
defun
allout-stringify-flat-index-indented
(
flat-index
)
"Convert list representing section/subsection/... to document string."
(
let
((
delim
"."
)
result
result
numstr
)
;; Take care of the explicit context:
(
setq
numstr
(
int-to-string
(
car
flat-index
))
...
...
@@ -4534,7 +4534,7 @@ BULLET string, and a list of TEXT strings for the body."
(
curr-line
)
body-content
bop
)
; Do the head line:
(
insert
(
concat
"\\OneHeadLine{\\verb\1 "
(
insert
(
concat
"\\OneHeadLine{\\verb\1 "
(
allout-latex-verb-quote
bullet
)
"\1}{"
depth
...
...
lisp/ansi-color.el
View file @
71296446
...
...
@@ -415,7 +415,7 @@ information will be used for the next call to
start of the region and set the face with which to start. Set
`ansi-color-context-region' to nil if you don't want this."
(
let
((
face
(
car
ansi-color-context-region
))
(
start-marker
(
or
(
cadr
ansi-color-context-region
)
(
start-marker
(
or
(
cadr
ansi-color-context-region
)
(
copy-marker
begin
)))
(
end-marker
(
copy-marker
end
))
escape-sequence
)
...
...
@@ -481,7 +481,7 @@ start of the region and set the face with which to start. Set
(
defun
ansi-color-make-face
(
property
color
)
"Return a face with PROPERTY set to COLOR.
PROPERTY can be either symbol `foreground' or symbol `background'.
PROPERTY can be either symbol `foreground' or symbol `background'.
For Emacs, we just return the cons cell \(PROPERTY . COLOR).
For XEmacs, we create a temporary face and return it."
...
...
lisp/apropos.el
View file @
71296446
...
...
@@ -247,7 +247,7 @@ before finding a label."
(
concat
"\\("
(
mapconcat
'identity
words
"\\|"
)
"\\)"
wild
(
if
(
cdr
words
)
(
if
(
cdr
words
)
(
concat
"\\("
(
mapconcat
'identity
words
"\\|"
)
"\\)"
)
...
...
@@ -314,7 +314,7 @@ Value is a list of offsets of the words into the string."
(
dolist
(
s
(
apropos-calc-scores
doc
apropos-all-words
)
score
)
(
setq
score
(
+
score
50
(
/
(
*
(
-
l
s
)
50
)
l
)))))
0
))
(
defun
apropos-score-symbol
(
symbol
&optional
weight
)
"Return apropos score for SYMBOL."
(
setq
symbol
(
symbol-name
symbol
))
...
...
@@ -413,7 +413,7 @@ satisfy the predicate VAR-PREDICATE."
(
if
(
functionp
symbol
)
(
if
(
setq
doc
(
documentation
symbol
t
))
(
progn
(
setq
score
(
+
score
(
apropos-score-doc
doc
)))
(
setq
score
(
+
score
(
apropos-score-doc
doc
)))
(
substring
doc
0
(
string-match
"\n"
doc
)))
"(not documented)"
)))
(
and
var-predicate
...
...
@@ -531,7 +531,7 @@ Returns list of symbols and values found."
(
if
(
apropos-false-hit-str
p
)
(
setq
p
nil
))
(
if
(
or
f
v
p
)
(
setq
apropos-accumulator
(
cons
(
list
symbol
(
setq
apropos-accumulator
(
cons
(
list
symbol
(
+
(
apropos-score-str
f
)
(
apropos-score-str
v
)
(
apropos-score-str
p
))
...
...
@@ -580,7 +580,7 @@ Returns list of symbols and documentation found."
(
setcar
(
nthcdr
2
apropos-item
)
v
)
(
setcar
apropos-item
(
+
(
car
apropos-item
)
sv
)))))
(
setq
apropos-accumulator
(
cons
(
list
symbol
(
cons
(
list
symbol
(
+
(
apropos-score-symbol
symbol
2
)
sf
sv
)
f
v
)
apropos-accumulator
)))))))
...
...
@@ -665,7 +665,7 @@ Returns list of symbols and documentation found."
(
or
(
and
(
setq
apropos-item
(
assq
symbol
apropos-accumulator
))
(
setcar
(
cdr
apropos-item
)
(
+
(
cadr
apropos-item
)
(
apropos-score-doc
doc
))))
(
setq
apropos-item
(
list
symbol
(
setq
apropos-item
(
list
symbol
(
+
(
apropos-score-symbol
symbol
2
)
(
apropos-score-doc
doc
))
nil
nil
)
...
...
@@ -755,7 +755,7 @@ Will return nil instead."
(
defun
apropos-print
(
do-keys
spacing
)
"Output result of apropos searching into buffer `*Apropos*'.
The value of `apropos-accumulator' is the list of items to output.
Each element should have the format
Each element should have the format
(SYMBOL SCORE FN-DOC VAR-DOC [PLIST-DOC WIDGET-DOC FACE-DOC GROUP-DOC]).
The return value is the list that was in `apropos-accumulator', sorted
alphabetically by symbol name; but this function also sets
...
...
lisp/arc-mode.el
View file @
71296446
...
...
@@ -757,7 +757,7 @@ when parsing the archive."
(
apply
(
function
concat
)
(
mapcar
(
function
(
function
(
lambda
(
fil
)
;; Using `concat' here copies the text also, so we can add
;; properties without problems.
...
...
lisp/array.el
View file @
71296446
...
...
@@ -58,7 +58,7 @@
(
defvar
array-respect-tabs
))
;;; Internal information functions.
(
defun
array-cursor-in-array-range
()
"Return t if the cursor is in a valid array cell.
Its ok to be on a row number line."
...
...
@@ -385,7 +385,7 @@ Leave point at the beginning of the field."
(
insert
array-copy-string
))
(
move-to-column
array-buffer-column
)
(
setq
count
(
1-
count
)))))
(
defun
array-copy-to-column
(
a-column
)
"Copy current field horizontally into every cell up to and including A-COLUMN.
Leave point at the beginning of the field."
...
...
lisp/autoinsert.el
View file @
71296446
...
...
@@ -113,7 +113,7 @@ If this contains a %s, that will be replaced by the matching rule."
(("[Mm]akefile\\'" . "Makefile") . "makefile.inc")
(html-mode . (lambda () (sgml-tag "html")))
(plain-tex-mode . "tex-insert.tex")
(bibtex-mode . "tex-insert.tex")
(latex-mode
...
...
@@ -130,7 +130,7 @@ If this contains a %s, that will be replaced by the matching rule."
lambda ()
(if (eq major-mode default-major-mode)
(sh-mode)))
(ada-mode . ada-header)
(("\\.[1-9]\\'" . "Man page skeleton")
...
...
lisp/byte-run.el
View file @
71296446
...
...
@@ -144,19 +144,19 @@ The result of the body appears to the compiler as a quoted constant."
;; "Set some compilation-parameters for this file. This will affect only the
;; file in which it appears; this does nothing when evaluated, and when loaded
;; from a .el file.
;;
;;
;; Each argument to this macro must be a list of a key and a value.
;;
;;
;; Keys: Values: Corresponding variable:
;;
;;
;; verbose t, nil byte-compile-verbose
;; optimize t, nil, source, byte byte-compile-optimize
;; warnings list of warnings byte-compile-warnings
;; Legal elements: (callargs redefine free-vars unresolved)
;; file-format emacs18, emacs19 byte-compile-compatibility
;;
;;
;; For example, this might appear at the top of a source file:
;;
;;
;; (byte-compiler-options
;; (optimize t)
;; (warnings (- free-vars)) ; Don't warn about free variables
...
...
lisp/cmuscheme.el
View file @
71296446
...
...
@@ -47,19 +47,19 @@
;; character to the scheme process. Cmuscheme mode does *not* provide this
;; functionality. If you are a cscheme user, you may prefer to use the
;; xscheme.el/cscheme -emacs interaction.
;;
;;
;; Here's a summary of the pros and cons, as I see them.
;; xscheme: Tightly integrated with inferior cscheme process! A few commands
;; not in cmuscheme. But. Integration is a bit of a hack. Input
;; history only keeps the immediately prior input. Bizarre
;; keybindings.
;;
;;
;; cmuscheme: Not tightly integrated with inferior cscheme process. But.
;; Carefully integrated functionality with the entire suite of
;; comint-derived CMU process modes. Keybindings reminiscent of
;; Zwei and Hemlock. Good input history. A few commands not in
;; xscheme.
;;
;;
;; It's a tradeoff. Pay your money; take your choice. If you use a Scheme
;; that isn't Cscheme, of course, there isn't a choice. Xscheme.el is *very*
;; Cscheme-specific; you must use cmuscheme.el. Interested parties are
...
...
@@ -432,7 +432,7 @@ for a minimal, simple implementation. Feel free to extend it.")
This is a good place to put keybindings."
:type
'hook
:group
'cmuscheme
)
(
run-hooks
'cmuscheme-load-hook
)
(
provide
'cmuscheme
)
...
...
lisp/completion.el
View file @
71296446
This diff is collapsed.
Click to expand it.
lisp/composite.el
View file @
71296446
...
...
@@ -95,7 +95,7 @@ follows (the point `*' corresponds to both reference points):
(
or
(
integerp
nref
)
(
setq
nref
(
cdr
(
assq
nref
reference-point-alist
))))
(
or
(
and
(
>=
gref
0
)
(
<
gref
12
)
(
>=
nref
0
)
(
<
nref
12
))
(
error
"Invalid composition rule: %S"
rule
))
(
error
"Invalid composition rule: %S"
rule
))
(
+
(
*
gref
12
)
nref
))))
;; Decode encoded composition rule RULE-CODE. The value is a cons of
...
...
@@ -331,7 +331,7 @@ This function is the default value of `compose-chars-after-function'."
(
when
tail
(
save-match-data
(
save-excursion
(
while
(
and
tail
(
not
func
))
(
while
(
and
tail
(
not
func
))
(
setq
pattern
(
car
(
car
tail
))
func
(
cdr
(
car
tail
)))
(
goto-char
pos
)
...
...
lisp/cus-dep.el
View file @
71296446
...
...
@@ -92,7 +92,7 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
(
when
members
;; So x and no-x builds won't differ.
(
setq
members
(
sort
(
copy-sequence
members
)
(
sort
(
copy-sequence
members
)
(
lambda
(
x
y
)
(
string<
(
car
x
)
(
car
y
)))))
(
while
members
(
setq
item
(
car
(
car
members
))
...
...
@@ -102,7 +102,7 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
(
member
where
found
))
(
if
found
(
insert
" "
)
(
insert
"(put '"
(
symbol-name
symbol
)
(
insert
"(put '"
(
symbol-name
symbol
)
" 'custom-loads '("
))
(
prin1
where
(
current-buffer
))
(
push
where
found
)))
...
...
@@ -110,7 +110,7 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
(
insert
"))\n"
))))))
(
insert
"\
;;; These are for handling :version. We need to have a minimum of
;;; information so `customize-changed-options' could do its job.
;;; information so `customize-changed-options' could do its job.
;;; For groups we set `custom-version', `group-documentation' and
;;; `custom-tag' (which are shown in the customize buffer), so we
...
...
@@ -136,7 +136,7 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
(
mapatoms
(
lambda
(
symbol
)
(
let
((
version
(
get
symbol
'custom-version
))
where
)
(
when
version
(
when
version
(
setq
where
(
get
symbol
'custom-where
))
(
when
where
(
if
(
or
(
custom-variable-p
symbol
)
...
...
@@ -144,13 +144,13 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
;; This means it's a variable or a face.
(
progn
(
if
(
assoc
version
version-alist
)
(
unless
(
member
where
(
unless
(
member
where
(
cdr
(
assoc
version
version-alist
)))
(
push
where
(
cdr
(
assoc
version
version-alist
))))
(
push
(
cons
version
(
list
where
))
version-alist
)))
;; This is a group
(
insert
"(custom-put-if-not '"
(
symbol-name
symbol
)
(
insert
"(custom-put-if-not '"
(
symbol-name
symbol
)
" 'custom-version "
)
(
prin1
version
(
current-buffer
))
(
insert
")\n"
)
...
...
@@ -169,7 +169,7 @@ Usage: emacs -batch -l ./cus-dep.el -f custom-make-dependencies DIRS"
(
if
version-alist
"'"
""
))
(
prin1
version-alist
(
current-buffer
))
(
insert
"\n \"For internal use by custom.\")\n"
))
(
insert
"\
\(provide
'
" (file-name-sans-extension
...
...
lisp/cus-face.el
View file @
71296446
...
...
@@ -86,7 +86,7 @@
(
const
:tag
"ultracondensed"
ultra-condensed
)
(
const
:tag
"ultraexpanded"
ultra-expanded
)
(
const
:tag
"wide"
extra-expanded
)))
(
:height
(
choice
:tag
"Height"
:help-echo
"Face's font height."
...
...
@@ -113,7 +113,7 @@
(
const
:tag
"semilight"
semi-light
)
(
const
:tag
"ultralight"
ultra-light
)
(
const
:tag
"ultrabold"
ultra-bold
)))
(
:slant
(
choice
:tag
"Slant"
:help-echo
"Font slant."
...
...
@@ -121,28 +121,28 @@
(
const
:tag
"italic"
italic
)
(
const
:tag
"oblique"
oblique
)
(
const
:tag
"normal"
normal
)))
(
:underline
(
choice
:tag
"Underline"
:help-echo
"Control text underlining."
(
const
:tag
"Off"
nil
)
(
const
:tag
"On"
t
)
(
color
:tag
"Colored"
)))
(
:overline
(
choice
:tag
"Overline"
:help-echo
"Control text overlining."
(
const
:tag
"Off"
nil
)
(
const
:tag
"On"
t
)
(
color
:tag
"Colored"
)))
(
:strike-through
(
choice
:tag
"Strike-through"
:help-echo
"Control text strike-through."
(
const
:tag
"Off"
nil
)
(
const
:tag
"On"
t
)
(
color
:tag
"Colored"
)))
(
:box
;; Fixme: this can probably be done better.
(
choice
:tag
"Box around text"
...
...
@@ -190,21 +190,21 @@
(
nconc
(
and
lwidth
`
(
:line-width
,
lwidth
))
(
and
color
`
(
:color
,
color
))
(
and
style
`
(
:style
,
style
)))))))))
(
:inverse-video
(
choice
:tag
"Inverse-video"
:help-echo
"Control whether text should be in inverse-video."
(
const
:tag
"Off"
nil
)
(
const
:tag
"On"
t
)))
(
:foreground
(
color
:tag
"Foreground"
:help-echo
"Set foreground color."
))
(
:background
(
color
:tag
"Background"
:help-echo
"Set background color."
))
(
:stipple
(
choice
:tag
"Stipple"
:help-echo
"Background bit-mask"
...
...
@@ -230,7 +230,7 @@
(
if
(
and
(
consp
cus-value
)
(
null
(
cdr
cus-value
)))
(
car
cus-value
)
cus-value
))))
"Alist of face attributes.
The elements are of the form (KEY TYPE PRE-FILTER POST-FILTER),
...
...
lisp/cus-start.el
View file @
71296446
...
...
@@ -34,7 +34,7 @@
;;; Code:
(
let
((
all
'
(
;; abbrev.c
(
let
((
all
'
(
;; abbrev.c
(
abbrev-all-caps
abbrev-mode
boolean
)
(
pre-abbrev-expand-hook
abbrev-mode
hook
)
;; alloc.c
...
...
@@ -88,7 +88,7 @@
(
function
:value
ignore
))))
(
selection-coding-system
mule
coding-system
)
;; dired.c
(
completion-ignored-extensions
dired
(
completion-ignored-extensions
dired
(
repeat
(
string
:format
"%v"
)))
;; dispnew.c
(
baud-rate
display
integer
)
...
...
@@ -106,7 +106,7 @@
:value
(
nil
)
(
symbol
:format
"%v"
))
(
const
:tag
"always"
t
)))
(
debug-on-error
debug
(
debug-on-error
debug
(
choice
(
const
:tag
"off"
)
(
repeat
:menu-tag
"When"
:value
(
nil
)
...
...
@@ -155,7 +155,7 @@
;; version-specific directories when you upgrade. We need
;; customization of the front of the list, maintaining the standard
;; value intact at the back.
;;; (load-path environment
;;; (load-path environment
;;; (repeat (choice :tag "[Current dir?]"
;;; :format "%[Current dir?%] %v"
;;; (const :tag " current dir" nil)
...
...
@@ -205,8 +205,8 @@
(
display-buffer-function
windows
(
choice
(
const
nil
)
function
))
(
pop-up-frames
frames
boolean
)
(
pop-up-frame-function
frames
function
)
(
special-display-buffer-names
frames
(
special-display-buffer-names
frames
(
repeat
(
choice
:tag
"Buffer"
:value
""
(
string
:format
"%v"
)
...
...
@@ -219,7 +219,7 @@
(
symbol
:tag
"Parameter"
)
(
sexp
:tag
"Value"
)))))))
(
special-display-regexps
frames
frames
(
repeat
(
choice
:tag
"Buffer"
:value
""
(
regexp
:format
"%v"
)
...
...
@@ -283,7 +283,7 @@
(
numberp
sexp
))
sexp
(
list
'quote
sexp
)))))
(
while
all
(
while
all
(
setq
this
(
car
all
)
all
(
cdr
all
)
symbol
(
nth
0
this
)
...
...
@@ -307,7 +307,7 @@
(
message
"Note, built-in variable `%S' not bound"
symbol
))
;; Save the standard value, unless we already did.
(
or
(
get
symbol
'standard-value
)
(
put
symbol
'standard-value
(
put
symbol
'standard-value
(
list
(
funcall
quoter
(
default-value
symbol
)))))
;; If this is NOT while dumping Emacs,
;; set up the rest of the customization info.
...
...
lisp/cus-theme.el
View file @
71296446
...
...
@@ -53,7 +53,7 @@ This will help you share your customizations with other people.\n\n")
user-login-name
))
(
widget-insert
"\n\nDocumentation:\n"
)
(
setq
custom-theme-description
(
widget-create
'text
(
widget-create
'text
:value
(
format-time-string
"Created %Y-%m-%d."
)))
(
widget-insert
"\nVariables:\n\n"
)
(
setq
custom-theme-variables
...
...
lisp/custom.el
View file @
71296446
...
...
@@ -191,27 +191,27 @@ The following keywords are meaningful:
Include an external link after the documentation string for this
item. This is a sentence containing an active field which
references some other documentation.
There are three alternatives you can use for LINK-DATA:
(custom-manual INFO-NODE)
Link to an Info node; INFO-NODE is a string which specifies
the node name, as in \"(emacs)Top\". The link appears as
`[manual]' in the customization buffer.
(info-link INFO-NODE)
Like `custom-manual' except that the link appears in the
customization buffer with the Info node name.
(url-link URL)
Link to a web page; URL is a string which specifies the URL.
The link appears in the customization buffer as URL.
You can specify the text to use in the customization buffer by
adding `:tag NAME' after the first element of the LINK-DATA; for
example, (info-link :tag \"foo\" \"(emacs)Top\") makes a link to the
Emacs manual which appears in the buffer as `foo'.
An item can have more than one external link; however, most items
have none at all.
:initialize
...
...
@@ -772,7 +772,7 @@ in SYMBOL's list property `theme-value' \(using `custom-push-theme')."
((
default-boundp
symbol
)
;; Something already set this, overwrite it.
(
funcall
set
symbol
(
eval
value
))))
(
error
(
error
(
message
"Error setting %s: %s"
symbol
data
)))
(
setq
args
(
cdr
args
))
(
and
(
or
now
(
default-boundp
symbol
))
...
...
@@ -815,7 +815,7 @@ this sets the local binding in that buffer instead."
(
defun
customize-mark-to-save
(
symbol
)
"Mark SYMBOL for later saving.
If the default value of SYMBOL is different from the standard value,
If the default value of SYMBOL is different from the standard value,
set the `saved-value' property to a list whose car evaluates to the
default value. Otherwise, set it to nil.
...
...
@@ -844,9 +844,9 @@ Return non-nil iff the `saved-value' property actually changed."
(
defun
customize-mark-as-set
(
symbol
)
"Mark current value of SYMBOL as being set from customize.
If the default value of SYMBOL is different from the saved value if any,
If the default value of SYMBOL is different from the saved value if any,
or else if it is different from the standard value, set the
`customized-value' property to a list whose car evaluates to the
`customized-value' property to a list whose car evaluates to the
default value. Otherwise, set it to nil.