diff options
Diffstat (limited to 'lisp/cus-start.el')
| -rw-r--r-- | lisp/cus-start.el | 20 |
1 files changed, 17 insertions, 3 deletions
diff --git a/lisp/cus-start.el b/lisp/cus-start.el index 1d344893a5a..04fb1dc6d06 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el @@ -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" @@ -98,6 +100,11 @@ (ctl-arrow display boolean) (truncate-lines display boolean) (word-wrap display boolean) + (word-wrap-by-category + display boolean "28.1" + :set (lambda (symbol value) + (set-default symbol value) + (when value (require 'kinsoku)))) (selective-display-ellipses display boolean) (indicate-empty-lines fringe boolean) (indicate-buffer-boundaries @@ -387,6 +394,7 @@ Leaving \"Default\" unchecked is equivalent with specifying a default of ;; (directory :format "%v")))) (load-prefer-newer lisp boolean "24.4") ;; minibuf.c + (minibuffer-follows-selected-frame minibuffer boolean "28.1") (enable-recursive-minibuffers minibuffer boolean) (history-length minibuffer (choice (const :tag "Infinite" t) integer) @@ -622,7 +630,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") @@ -782,7 +792,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"))) |