diff options
| author | Po Lu | 2023-07-03 08:42:24 +0800 |
|---|---|---|
| committer | Po Lu | 2023-07-03 08:42:24 +0800 |
| commit | d0c1e97397aed68170b454cb9e2dce0dca3dee2b (patch) | |
| tree | 1fa9e5d4f950db6e0ceadfbbc4563bdf65955076 | |
| parent | a5bf0ae66141e7560f70a045c0dea132a4868c87 (diff) | |
| download | emacs-d0c1e97397aed68170b454cb9e2dce0dca3dee2b.tar.gz emacs-d0c1e97397aed68170b454cb9e2dce0dca3dee2b.zip | |
Always provide `move-toolbar' when its position can be changed
* src/keyboard.c (syms_of_keyboard): Make `move-toolbar' a
defsym. Provide that feature if Emacs uses its internal tool
bars or GTK+.
* src/xfns.c (syms_of_xfns): Stop provide `move-toolbar' here.
| -rw-r--r-- | src/keyboard.c | 12 | ||||
| -rw-r--r-- | src/xfns.c | 1 |
2 files changed, 12 insertions, 1 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index b61b1766856..74e30d111db 100644 --- a/src/keyboard.c +++ b/src/keyboard.c | |||
| @@ -12793,6 +12793,18 @@ See also `pre-command-hook'. */); | |||
| 12793 | 12793 | ||
| 12794 | DEFSYM (Qcoding, "coding"); | 12794 | DEFSYM (Qcoding, "coding"); |
| 12795 | 12795 | ||
| 12796 | #ifdef HAVE_WINDOW_SYSTEM | ||
| 12797 | DEFSYM (Qmove_toolbar, "move-toolbar"); | ||
| 12798 | |||
| 12799 | /* The `tool-bar-position' is supported on GTK and builds using the | ||
| 12800 | internal tool bar. Providing this feature causes menu-bar.el to | ||
| 12801 | provide `tool-bar-position' as a user option. */ | ||
| 12802 | |||
| 12803 | #if !defined HAVE_EXT_TOOL_BAR || defined USE_GTK | ||
| 12804 | Fprovide (Qmove_toolbar, Qnil); | ||
| 12805 | #endif /* !HAVE_EXT_TOOL_BAR || USE_GTK */ | ||
| 12806 | #endif /* HAVE_WINDOW_SYSTEM */ | ||
| 12807 | |||
| 12796 | Fset (Qecho_area_clear_hook, Qnil); | 12808 | Fset (Qecho_area_clear_hook, Qnil); |
| 12797 | 12809 | ||
| 12798 | #ifdef USE_LUCID | 12810 | #ifdef USE_LUCID |
diff --git a/src/xfns.c b/src/xfns.c index a58e854811b..5c9f58e3a96 100644 --- a/src/xfns.c +++ b/src/xfns.c | |||
| @@ -10456,7 +10456,6 @@ eliminated in future versions of Emacs. */); | |||
| 10456 | accepts --with-x-toolkit=gtk. */ | 10456 | accepts --with-x-toolkit=gtk. */ |
| 10457 | Fprovide (intern_c_string ("x-toolkit"), Qnil); | 10457 | Fprovide (intern_c_string ("x-toolkit"), Qnil); |
| 10458 | Fprovide (intern_c_string ("gtk"), Qnil); | 10458 | Fprovide (intern_c_string ("gtk"), Qnil); |
| 10459 | Fprovide (intern_c_string ("move-toolbar"), Qnil); | ||
| 10460 | 10459 | ||
| 10461 | DEFVAR_LISP ("gtk-version-string", Vgtk_version_string, | 10460 | DEFVAR_LISP ("gtk-version-string", Vgtk_version_string, |
| 10462 | doc: /* Version info for GTK+. */); | 10461 | doc: /* Version info for GTK+. */); |