mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

Fix defcustom types of some variables defined in C

Browse Source 
* lisp/cus-start.el (standard): Fix the defcustom type of a number
of variables defined in C (bug#43611).
This commit is contained in:
Lars Ingebrigtsen 2020-09-26 17:02:52 +02:00
parent 18718fee72
commit 6a06782960
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/cus-start.el
View File

@ -73,9 +73,11 @@
'(choice
(const :tag "Frame default" t)
(const :tag "Filled box" box)
(cons :tag "Box with specified size"
(const box) integer)
(const :tag "Hollow cursor" hollow)
(const :tag "Vertical bar" bar)
(cons :tag "Vertical bar with specified width"
(cons :tag "Vertical bar with specified height"
(const bar) integer)
(const :tag "Horizontal bar" hbar)
(cons :tag "Horizontal bar with specified width"
@ -627,7 +629,9 @@ since it could result in memory overflow and make Emacs crash."
(scroll-margin windows integer)
(maximum-scroll-margin windows float "26.1")
(hscroll-margin windows integer "22.1")
(hscroll-step windows number "22.1")
(hscroll-step windows
(choice (const :tag "Center horizontally" nil)
number) "22.1")
(truncate-partial-width-windows
display
(choice (integer :tag "Truncate if narrower than")
@ -787,7 +791,11 @@ since it could result in memory overflow and make Emacs crash."
"27.1"
:safe (lambda (value) (or (characterp value) (null value))))
;; xfaces.c
(scalable-fonts-allowed display boolean "22.1")
(scalable-fonts-allowed
display (choice (const :tag "Don't allow scalable fonts" nil)
(const :tag "Allow any scalable font" t)
(repeat regexp))
"22.1")
;; xfns.c
(x-bitmap-file-path installation
(repeat (directory :format "%v")))