;;; site-gentoo.el --- Gentoo site initialisation  -*-lexical-binding:t-*-

;;; Commentary:
;; Automatically generated by elisp-common.eclass
;; DO NOT EDIT THIS FILE

;;; Code:

;;; emacs-common site-lisp configuration

(if (daemonp)
    ;; Restart the server if signal SIGUSR1 is received
    (define-key special-event-map [sigusr1] #'server-start))

;;; emacs-27 site-lisp configuration

(when (string-match "\\`27\\.2\\>" emacs-version)
  (let ((path (getenv "INFOPATH"))
	(dir "/usr/share/info/emacs-27")
	(re "\\`/usr/share\\>"))
    (and path
	 ;; move Emacs Info dir before anything else in /usr/share
	 (let* ((p (cons nil (split-string path ":" t))) (q p))
	   (while (and (cdr q) (not (string-match re (cadr q))))
	     (setq q (cdr q)))
	   (setcdr q (cons dir (delete dir (cdr q))))
	   (setq Info-directory-list (prune-directory-list (cdr p)))))))

;;; emacs-28 site-lisp configuration

(when (string-match "\\`28\\.2\\>" emacs-version)
  (let ((path (getenv "INFOPATH"))
	(dir "/usr/share/info/emacs-28")
	(re "\\`/usr/share\\>"))
    (and path
	 ;; move Emacs Info dir before anything else in /usr/share
	 (let* ((p (cons nil (split-string path ":" t))) (q p))
	   (while (and (cdr q) (not (string-match re (cadr q))))
	     (setq q (cdr q)))
	   (setcdr q (cons dir (delete dir (cdr q))))
	   (setenv "INFOPATH" (mapconcat 'identity (cdr p) ":"))))))

;;; emacs-29 site-lisp configuration

(when (string-equal emacs-version "29.4")
  (let ((path (getenv "INFOPATH"))
	(dir "/usr/share/info/emacs-29")
	(re "\\`/usr/share\\>"))
    (and path
	 ;; move Emacs Info dir before anything else in /usr/share
	 (let* ((p (cons nil (split-string path ":" t))) (q p))
	   (while (and (cdr q) (not (string-match re (cadr q))))
	     (setq q (cdr q)))
	   (setcdr q (cons dir (delete dir (cdr q))))
	   (setenv "INFOPATH" (mapconcat #'identity (cdr p) ":"))))))

;;; emacs-30 site-lisp configuration

(when (string-equal emacs-version "30.1")
  (let ((path (getenv "INFOPATH"))
	(dir "/usr/share/info/emacs-30")
	(re "\\`/usr/share\\>"))
    (and path
	 ;; move Emacs Info dir before anything else in /usr/share
	 (let* ((p (cons nil (split-string path ":" t))) (q p))
	   (while (and (cdr q) (not (string-match re (cadr q))))
	     (setq q (cdr q)))
	   (setcdr q (cons dir (delete dir (cdr q))))
	   (setenv "INFOPATH" (mapconcat #'identity (cdr p) ":"))))))


(provide 'site-gentoo)

;; Local Variables:
;; no-byte-compile: t
;; buffer-read-only: t
;; End:

;;; site-gentoo.el ends here