
;;; emacs-23 site-lisp configuration

(when (string-match "\\`23\\.4\\>" emacs-version)
  (let ((path (getenv "INFOPATH"))
	(dir "/usr/share/info/emacs-23")
	(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)))))))
