Accepting request 1226819 from editors

- Avoid trouble with unknown X pointer shapes below Wayland (boo#1233795)

OBS-URL: https://build.opensuse.org/request/show/1226819
OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/emacs?expand=0&rev=195
This commit is contained in:
Ana Guerrero 2024-11-27 21:10:26 +00:00 committed by Git OBS Bridge
commit 226b64d17e
3 changed files with 18 additions and 5 deletions

View File

@ -176,13 +176,14 @@
;; ;;
;; mouse as arrow ;; mouse as arrow
;; -------------- ;; --------------
(setq x-pointer-shape x-pointer-left-ptr) (if (eq window-system 'x)
(if (x-display-color-p) (setq x-pointer-shape x-pointer-left-ptr))
(if (display-color-p)
(set-mouse-color "RoyalBlue") (set-mouse-color "RoyalBlue")
(set-mouse-color (cdr (assq 'mouse-color (frame-parameters))))) (set-mouse-color (cdr (assq 'mouse-color (frame-parameters)))))
;; ;;
;; Automatically replacing of fore- and background. ;; Automatically replacing of fore- and background.
(if (not (x-display-color-p)) (if (not (display-color-p))
(progn (progn
(set-face-background 'region (set-face-background 'region
(cdr (assq 'foreground-color (frame-parameters )))) (cdr (assq 'foreground-color (frame-parameters ))))
@ -538,5 +539,12 @@
;;(setq epa-pinentry-mode 'loopback) ;;(setq epa-pinentry-mode 'loopback)
;;(pinentry-start) ;;(pinentry-start)
;; ;;
;; New native compilation support
;; avoid useless warning, clear old eln files
(if (featurep 'native-compile)
(progn
(require 'comp)
(setq native-comp-async-report-warnings-errors 'silent)
(native-compile-prune-cache)))
;;;;;;;;;; ;;;;;;;;;;
;; the end ;; the end

View File

@ -1,3 +1,8 @@
-------------------------------------------------------------------
Wed Nov 27 08:46:04 UTC 2024 - Dr. Werner Fink <werner@suse.de>
- Avoid trouble with unknown X pointer shapes below Wayland (boo#1233795)
------------------------------------------------------------------- -------------------------------------------------------------------
Tue Oct 8 08:06:41 UTC 2024 - Dominique Leuenberger <dimstar@opensuse.org> Tue Oct 8 08:06:41 UTC 2024 - Dominique Leuenberger <dimstar@opensuse.org>

View File

@ -323,7 +323,7 @@ Summary: Info files for GNU Emacs
Group: Documentation/Other Group: Documentation/Other
%if 0%{?suse_version} <= 1500 %if 0%{?suse_version} <= 1500
Requires(post): %install_info_prereq Requires(post): %install_info_prereq
Requires(preun): %install_info_prereq Requires(preun):%install_info_prereq
%endif %endif
BuildArch: noarch BuildArch: noarch
@ -351,7 +351,7 @@ group called "games".
Summary: Generate Tag Files for Use with Emacs Summary: Generate Tag Files for Use with Emacs
Group: Development/Tools/Navigators Group: Development/Tools/Navigators
Requires(post): coreutils update-alternatives Requires(post): coreutils update-alternatives
Requires(preun): coreutils update-alternatives Requires(preun):coreutils update-alternatives
Provides: ctags:/usr/bin/etags Provides: ctags:/usr/bin/etags
%description -n etags %description -n etags