diff options
| author | Juri Linkov <juri@linkov.net> | 2019-10-20 19:30:30 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2019-10-20 19:30:30 +0300 |
| commit | dff8978f5004561e2625b4199cefd8c262bb42cb (patch) | |
| tree | 30ce829dae65e462bb5f04ebb7585d85b6da148b /lisp/cus-start.el | |
| parent | cd4f707a987e954ef4ff1edb2639e4cb5c57bb59 (diff) | |
| download | emacs-dff8978f5004561e2625b4199cefd8c262bb42cb.tar.gz emacs-dff8978f5004561e2625b4199cefd8c262bb42cb.tar.bz2 emacs-dff8978f5004561e2625b4199cefd8c262bb42cb.zip | |
Provide default value for tab-name/frame-name reading minibuffer
* lisp/tab-bar.el (tab-bar-rename-tab, tab-bar-rename-tab-by-name):
Provide default value for read-string.
(tab-bar-select-tab-by-name): Alias for tab-bar-switch-to-tab.
* lisp/frame.el (set-frame-name): Provide default value for
read-string in interactive spec.
* lisp/cus-start.el (tab-bar-position): Use choice instead of boolean.
Diffstat (limited to 'lisp/cus-start.el')
| -rw-r--r-- | lisp/cus-start.el | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/lisp/cus-start.el b/lisp/cus-start.el index d1278192ef7..e4b6d8f2d62 100644 --- a/lisp/cus-start.el +++ b/lisp/cus-start.el @@ -591,12 +591,16 @@ since it could result in memory overflow and make Emacs crash." (const :tag "Text-image-horiz" :value text-image-horiz) (const :tag "System default" :value nil)) "24.1") (tool-bar-max-label-size frames integer "24.1") - (tab-bar-position tab-bar boolean "27.1" - :set (lambda (sym val) - (set-default sym val) - ;; Redraw the bars: - (tab-bar-mode -1) - (tab-bar-mode 1))) + (tab-bar-position + tab-bar (choice + (const :tag "Tab bar above tool bar" nil) + (const :tag "Tab bar below tool bar" t)) + "27.1" + :set (lambda (sym val) + (set-default sym val) + ;; Redraw the bars: + (tab-bar-mode -1) + (tab-bar-mode 1))) (auto-hscroll-mode scrolling (choice (const :tag "Don't scroll automatically" |