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
1b43f83f
Commit
1b43f83f
authored
Dec 16, 1996
by
Richard M. Stallman
Browse files
Change most defconsts to defvars.
parent
ebeb898f
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
19 additions
and
19 deletions
+19
-19
lisp/simple.el
lisp/simple.el
+19
-19
No files found.
lisp/simple.el
View file @
1b43f83f
...
...
@@ -951,7 +951,7 @@ In either case, the output is inserted after point (leaving mark after it)."
standard-output
(call-process shell-file-name nil t nil shell-command-switch command))))
(def
const
universal-argument-map
(def
var
universal-argument-map
(let ((map (make-sparse-keymap)))
(define-key map [t] 'universal-argument-other-key)
(define-key map (vector meta-prefix-char t) 'universal-argument-other-key)
...
...
@@ -1144,7 +1144,7 @@ interact nicely with `interprogram-cut-function' and
interaction
; you may want to use them instead of manipulating the kill
ring
directly.
")
(def
const
kill-ring-max 30
(def
var
kill-ring-max 30
"
*Maximum
length
of
kill
ring
before
oldest
elements
are
thrown
away.
")
(defvar kill-ring-yank-pointer nil
...
...
@@ -1525,13 +1525,13 @@ store it in a Lisp variable. Example:
(
make-variable-buffer-local
'mark-ring
)
(
put
'mark-ring
'permanent-local
t
)
(
def
const
mark-ring-max
16
(
def
var
mark-ring-max
16
"*Maximum size of mark ring. Start discarding off end if gets this big."
)
(
defvar
global-mark-ring
nil
"The list of saved global marks, most recent first."
)
(
def
const
global-mark-ring-max
16
(
def
var
global-mark-ring-max
16
"
*Maximum
size
of
global
mark
ring.
\
Start
discarding
off
end
if
gets
this
big.
")
...
...
@@ -1707,7 +1707,7 @@ to use and more reliable (no dependence on goal column, etc.)."
(line-move (- arg)))
nil)
(def
const
track-eol nil
(def
var
track-eol nil
"
*Non-nil
means
vertical
motion
starting
at
end
of
line
keeps
to
ends
of
lines.
This
means
moving
to
the
end
of
each
line
moved
onto.
The
beginning
of
a
blank
line
does
not
count
as
the
end
of
a
line.
")
...
...
@@ -2073,43 +2073,43 @@ With argument 0, interchanges line point is in with line mark is in."
(
delete-char
(
length
word1
))
(
insert
word2
)))
(
def
const
comment-column
32
(
def
var
comment-column
32
"*Column to indent right-margin comments to.
Setting this variable automatically makes it local to the current buffer.
Each mode establishes a different default value for this variable; you
can set the value for a particular mode using that mode's hook."
)
(
make-variable-buffer-local
'comment-column
)
(
def
const
comment-start
nil
(
def
var
comment-start
nil
"*String to insert to start a new comment, or nil if no comment syntax."
)
(
def
const
comment-start-skip
nil
(
def
var
comment-start-skip
nil
"*Regexp to match the start of a comment plus everything up to its body.
If there are any \\(...\\) pairs, the comment delimiter text is held to begin
at the place matched by the close of the first pair."
)
(
def
const
comment-end
""
(
def
var
comment-end
""
"*String to insert to end a new comment.
Should be an empty string if comments are terminated by end-of-line."
)
(
def
const
comment-indent-hook
nil
(
def
var
comment-indent-hook
nil
"Obsolete variable for function to compute desired indentation for a comment.
This function is called with no args with point at the beginning of
the comment's starting delimiter."
)
(
def
const
comment-indent-function
(
def
var
comment-indent-function
'
(
lambda
()
comment-column
)
"Function to compute desired indentation for a comment.
This function is called with no args with point at the beginning of
the comment's starting delimiter."
)
(
def
const
block-comment-start
nil
(
def
var
block-comment-start
nil
"*String to insert to start a new comment on a line by itself.
If nil, use `comment-start' instead.
Note that the regular expression `comment-start-skip' should skip this string
as well as the `comment-start' string."
)
(
def
const
block-comment-end
nil
(
def
var
block-comment-end
nil
"*String to insert to end a new comment on a line by itself.
Should be an empty string if comments are terminated by end-of-line.
If nil, use `comment-end' instead."
)
...
...
@@ -2350,12 +2350,12 @@ or adjacent to a word."
(
buffer-substring
start
end
)))
(
buffer-substring
start
end
)))))
(
def
const
fill-prefix
nil
(
def
var
fill-prefix
nil
"*String for filling to insert at front of new line, or nil for none.
Setting this variable automatically makes it local to the current buffer."
)
(
make-variable-buffer-local
'fill-prefix
)
(
def
const
auto-fill-inhibit-regexp
nil
(
def
var
auto-fill-inhibit-regexp
nil
"*Regexp to match lines which should not be auto-filled."
)
;; This function is the auto-fill-function of a buffer
...
...
@@ -2502,7 +2502,7 @@ Just \\[universal-argument] as argument means to use the current column."
(
error
"set-fill-column requires an explicit argument"
)))
(
message
"fill-column set to %d"
fill-column
))
(
def
const
comment-multi-line
nil
(
def
var
comment-multi-line
nil
"*Non-nil means \\[indent-new-comment-line] should continue same comment
on new line, with no new terminator or starter.
This is obsolete because you might as well use \\[newline-and-indent]."
)
...
...
@@ -2683,13 +2683,13 @@ in the mode line."
nil means don't show it (but the open-paren can still be shown
when it is off screen."
)
(
def
const
blink-matching-paren-distance
12000
(
def
var
blink-matching-paren-distance
12000
"*If non-nil, is maximum distance to search for matching open-paren."
)
(
def
const
blink-matching-delay
1
(
def
var
blink-matching-delay
1
"*The number of seconds that `blink-matching-open' will delay at a match."
)
(
def
const
blink-matching-paren-dont-ignore-comments
nil
(
def
var
blink-matching-paren-dont-ignore-comments
nil
"*Non-nil means `blink-matching-paren' should not ignore comments."
)
(
defun
blink-matching-open
()
...
...
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