/usr/share/emacs/site-lisp/emacs-goodies-el/color-theme_seldefcustom.el is in emacs-goodies-el 35.12.
This file is owned by root:root, with mode 0o655.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 | ;;; color-theme_seldefcustom.el --- color-theme selection via customize interface
;;; Commentary:
;;
;; Peter S Galbraith <psg@debian.org>, 2005-10-25
;; License: GPLV2 or later.
;; A color-theme can can selected and enabled for future sessions by
;; customizing the variable `color-theme-selection' and saving the setting
;; instead of calling the interactive command `color-theme-select'
;;; Code:
(require 'color-theme)
(defcustom color-theme-selection nil
"Color theme selection.
Select and save to enable your choice in future sessions.
There is very limited undo capability to the previous state only."
:type (progn
(setq color-themes (delq (assq 'color-theme-snapshot color-themes)
color-themes)
color-themes (delq (assq 'bury-buffer color-themes)
color-themes))
(append
'(radio)
(cons '(const :tag "Undo" nil)
(mapcar (function (lambda (arg) `(const ,arg)))
(mapcar '(lambda (x) (elt x 1)) color-themes)))))
:set (lambda (symbol value)
(set-default symbol value)
(require 'color-theme) ; :load doesn't seem to work
(unless color-theme-initialized (color-theme-initialize))
(cond
(value
(fset 'color-theme-snapshot (color-theme-make-snapshot))
(eval
(delq nil
(mapcar
'(lambda (x) (if (string-equal (elt x 1) value)
(car x)))
color-themes))))
((fboundp 'color-theme-snapshot)
(color-theme-snapshot))))
:group 'color-theme
:require 'color-theme_seldefcustom)
(provide 'color-theme_seldefcustom)
;;; color-theme_seldefcustom.el ends here
|