From 984d22a87cddfc4e621f095dc036181a81b5579a Mon Sep 17 00:00:00 2001 From: Thomas Ulmer Date: Tue, 3 Jun 2025 13:59:58 -0700 Subject: compat changes for older emacs --- emacs/init.el | 7 ++++--- emacs/site-lisp/single-header.el | 3 ++- emacs/site-lisp/tmu-custom-theme.el | 4 ++-- 3 files changed, 8 insertions(+), 6 deletions(-) diff --git a/emacs/init.el b/emacs/init.el index 1e8d2c9..403feb2 100644 --- a/emacs/init.el +++ b/emacs/init.el @@ -215,9 +215,10 @@ the cyclic ordering. Don't involve windows that are dedicated." :demand t :config (add-to-list 'dabbrev-ignored-buffer-regexps "\\` ") - (add-to-list 'dabbrev-ignored-buffer-modes 'doc-view-mode) - (add-to-list 'dabbrev-ignored-buffer-modes 'pdf-view-mode) - (add-to-list 'dabbrev-ignored-buffer-modes 'tags-table-mode)) + ;; (add-to-list 'dabbrev-ignored-buffer-modes 'doc-view-mode) + ;; (add-to-list 'dabbrev-ignored-buffer-modes 'pdf-view-mode) + ;; (add-to-list 'dabbrev-ignored-buffer-modes 'tags-table-mode) + ) ;; TODO debug / test ;; (use-package tempel diff --git a/emacs/site-lisp/single-header.el b/emacs/site-lisp/single-header.el index 1378384..0080da1 100755 --- a/emacs/site-lisp/single-header.el +++ b/emacs/site-lisp/single-header.el @@ -92,7 +92,8 @@ to non-nil. The last update time is in a frame parameter (s-truncate 8 (ednc-notification-summary e)) (s-truncate 20 (ednc-notification-body e))) ) - (ednc-notifications))) + (ednc-notifications) + "")) (defun single-header-dismiss (num) "Dismiss the most recent notification from the header line. With a prefix diff --git a/emacs/site-lisp/tmu-custom-theme.el b/emacs/site-lisp/tmu-custom-theme.el index bbe5ece..965d7c8 100755 --- a/emacs/site-lisp/tmu-custom-theme.el +++ b/emacs/site-lisp/tmu-custom-theme.el @@ -42,7 +42,7 @@ '(font-lock-variable-name-face ((t (:foreground "PaleGreen2")))) '(font-lock-warning-face ((t (:weight bold :foreground "hot pink")))) '(button ((t (:inherit (link))))) - '(link ((((class color) (min-colors 88) (background light)) (:underline (:color foreground-color :style line :position nil) :foreground "RoyalBlue3")) (((class color) (background light)) (:underline (:color foreground-color :style line :position nil) :foreground "blue")) (((class color) (min-colors 88) (background dark)) (:underline (:color foreground-color :style line :position nil) :foreground "cyan1")) (((class color) (background dark)) (:underline (:color foreground-color :style line :position nil) :foreground "cyan")) (t (:inherit (underline))))) + '(link ((((class color) (min-colors 88) (background light)) (:underline t)) (((class color) (background light)) (:underline t)) (((class color) (min-colors 88) (background dark)) (:underline t)) (((class color) (background dark)) (:underline t)))) '(link-visited ((default (:inherit (link))) (((class color) (background light)) (:foreground "magenta4")) (((class color) (background dark)) (:foreground "violet")))) '(fringe ((((class color) (background light)) (:background "grey95")) (((class color) (background dark)) (:background "grey10")) (t (:background "gray")))) '(header-line ((t (:inherit mode-line)))) @@ -54,7 +54,7 @@ '(mode-line-inactive ((t (:inherit mode-line :foreground "dark gray")))) '(isearch ((((class color) (min-colors 88) (background light)) (:foreground "lightskyblue1" :background "magenta3")) (((class color) (min-colors 88) (background dark)) (:foreground "brown4" :background "palevioletred2")) (((class color) (min-colors 16)) (:foreground "cyan1" :background "magenta4")) (((class color) (min-colors 8)) (:foreground "cyan1" :background "magenta4")) (t (:inverse-video t)))) '(isearch-fail ((((class color) (min-colors 88) (background light)) (:background "RosyBrown1")) (((class color) (min-colors 88) (background dark)) (:background "red4")) (((class color) (min-colors 16)) (:background "red")) (((class color) (min-colors 8)) (:background "red")) (((class color grayscale)) (:foreground "grey")) (t (:inverse-video t)))) - '(lazy-highlight ((((class color) (min-colors 88) (background light)) (:distant-foreground "black" :background "paleturquoise")) (((class color) (min-colors 88) (background dark)) (:distant-foreground "white" :background "paleturquoise4")) (((class color) (min-colors 16)) (:distant-foreground "white" :background "turquoise3")) (((class color) (min-colors 8)) (:distant-foreground "white" :background "turquoise3")) (t (:underline (:color foreground-color :style line :position nil))))) + '(lazy-highlight ((((class color) (min-colors 88) (background light)) (:distant-foreground "black" :background "paleturquoise")) (((class color) (min-colors 88) (background dark)) (:distant-foreground "white" :background "paleturquoise4")) (((class color) (min-colors 16)) (:distant-foreground "white" :background "turquoise3")) (((class color) (min-colors 8)) (:distant-foreground "white" :background "turquoise3")) (t (:underline t)))) '(match ((((class color) (min-colors 88) (background light)) (:background "khaki1")) (((class color) (min-colors 88) (background dark)) (:background "RoyalBlue3")) (((class color) (min-colors 8) (background light)) (:foreground "black" :background "yellow")) (((class color) (min-colors 8) (background dark)) (:foreground "white" :background "blue")) (((type tty) (class mono)) (:inverse-video t)) (t (:background "gray")))) '(next-error ((t (:inherit (region))))) '(query-replace ((t (:inherit (isearch))))) -- cgit v1.2.3