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
30e19aee
Commit
30e19aee
authored
May 05, 1997
by
Richard M. Stallman
Browse files
Use defcustom.
parent
9d325ebf
Changes
4
Hide whitespace changes
Inline
Side-by-side
Showing
4 changed files
with
33 additions
and
15 deletions
+33
-15
lisp/emacs-lisp/lisp.el
lisp/emacs-lisp/lisp.el
+8
-4
lisp/frame.el
lisp/frame.el
+12
-5
lisp/menu-bar.el
lisp/menu-bar.el
+9
-4
lisp/window.el
lisp/window.el
+4
-2
No files found.
lisp/emacs-lisp/lisp.el
View file @
30e19aee
...
...
@@ -29,14 +29,18 @@
;;; Code:
;; Note that this variable is used by non-lisp modes too.
(
def
var
defun-prompt-regexp
nil
(
def
custom
defun-prompt-regexp
nil
"*Non-nil => regexp to ignore, before the character that starts a defun.
This is only necessary if the opening paren or brace is not in column 0.
See `beginning-of-defun'."
)
See `beginning-of-defun'."
:type
'boolean
:group
'lisp
)
(
make-variable-buffer-local
'defun-prompt-regexp
)
(
defvar
parens-require-spaces
t
"Non-nil => `insert-parentheses' should insert whitespace as needed."
)
(
defcustom
parens-require-spaces
t
"Non-nil => `insert-parentheses' should insert whitespace as needed."
:type
'boolean
:group
'lisp
)
(
defun
forward-sexp
(
&optional
arg
)
"Move forward across one balanced expression (sexp).
...
...
lisp/frame.el
View file @
30e19aee
;;; frame.el --- multi-frame management independent of window systems.
;; Copyright (C) 1993, 1994 Free Software Foundation, Inc.
;; Copyright (C) 1993, 1994
, 1996, 1997
Free Software Foundation, Inc.
;; Maintainer: FSF
;; Keywords: internal
...
...
@@ -72,7 +72,7 @@ These supersede the values given in `default-frame-alist'.")
(
function
(
lambda
()
(
make-frame
pop-up-frame-alist
))))
(
def
var
special-display-frame-alist
(
def
custom
special-display-frame-alist
'
((
height
.
14
)
(
width
.
80
)
(
unsplittable
.
t
))
"*Alist of frame parameters used when creating special frames.
Special frames are used for buffers whose names are in
...
...
@@ -80,7 +80,11 @@ Special frames are used for buffers whose names are in
one of the regular expressions in `special-display-regexps'.
This variable can be set in your init file, like this:
(setq special-display-frame-alist '((width . 80) (height . 20)))
These supersede the values given in `default-frame-alist'."
)
These supersede the values given in `default-frame-alist'."
:type
'
(
repeat
(
cons
:format
"%v"
(
symbol
:tag
"Parameter"
)
(
sexp
:tag
"Value"
)))
:group
'frames
)
;; Display BUFFER in its own frame, reusing an existing window if any.
;; Return the window chosen.
...
...
@@ -675,8 +679,11 @@ that is beyond the control of Emacs and this command has no effect on it."
(
modify-frame-parameters
(
selected-frame
)
(
list
(
cons
'auto-lower
(
>
arg
0
)))))
(
defvar
scroll-bar-side
'left
"*Specify which side scroll bars should be on. Value is `left' or `right'."
)
(
defcustom
scroll-bar-side
'left
"*Specify which side scroll bars should be on. Value is `left' or `right'."
:type
'
(
choice
(
const
left
)
(
const
right
))
:group
'frames
)
(
defun
toggle-scroll-bar
(
arg
)
"Toggle whether or not the selected frame has vertical scroll bars.
...
...
lisp/menu-bar.el
View file @
30e19aee
...
...
@@ -28,11 +28,14 @@
;;; User options:
(
def
var
buffers-menu-max-size
10
(
def
custom
buffers-menu-max-size
10
"*Maximum number of entries which may appear on the Buffers menu.
If this is 10, then only the ten most-recently-selected buffers are shown.
If this is nil, then all buffers are shown.
A large number or nil slows down menu responsiveness."
)
A large number or nil slows down menu responsiveness."
:type
'
(
choice
integer
(
const
:tag
"All"
nil
))
:group
'mouse
)
;; Don't clobber an existing menu-bar keymap, to preserve any menu-bar key
;; definitions made in loaddefs.el.
...
...
@@ -422,8 +425,10 @@ Do the same for the keys of the same name."
pending-undo-list
)
buffer-undo-list
)))
(
defvar
yank-menu-length
20
"*Maximum length to display in the yank-menu."
)
(
defcustom
yank-menu-length
20
"*Maximum length to display in the yank-menu."
:type
'integer
:group
'mouse
)
(
defun
menu-bar-update-yank-menu
(
string
old
)
(
let
((
front
(
car
(
cdr
yank-menu
)))
...
...
lisp/window.el
View file @
30e19aee
...
...
@@ -142,11 +142,13 @@ even if it is inactive."
'nomini
)))
;;; I think this should be the default; I think people will prefer it--rms.
(
def
var
split-window-keep-point
t
(
def
custom
split-window-keep-point
t
"*If non-nil, split windows keeps the original point in both children.
This is often more convenient for editing.
If nil, adjust point in each of the two windows to minimize redisplay.
This is convenient on slow terminals, but point can move strangely."
)
This is convenient on slow terminals, but point can move strangely."
:type
'boolean
:group
'windows
)
(
defun
split-window-vertically
(
&optional
arg
)
"Split current window into two windows, one above the other.
...
...
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