;;; 50ratpoison.el -- debian emacs setups for ratpoison

(cond ((not (file-exists-p "/usr/share/emacs/site-lisp/ratpoison"))
       (message "ratpoison removed but not purged, skipping setup"))

      ((not (locate-library "generic-x"))
       ;; no generic-x.el in XEmacs 21.4.22
       (message "ratpoison no generic-x.el in this Emacs, skipping setup"))

      (t
       ;; debian-pkg-add-load-path-item available as of debian 3.1 "sarge"
       (debian-pkg-add-load-path-item (concat "/usr/share/"
                                              (symbol-name debian-emacs-flavor)
                                              "/site-lisp/ratpoison"))
       
       (autoload 'ratpoisonrc-mode "ratpoison" nil t)
       
       ;; regexp copied from ratpoison.el
       (add-to-list 'auto-mode-alist '("\\.ratpoisonrc\\'" . ratpoisonrc-mode))
       
       ;; allow "M-x customize-group ratpoison" to autoload ratpoison.el
       ;; this line per an autoload cookie on defgroup
       (let ((loads (get 'ratpoison 'custom-loads))) (if (member '"ratpoison" loads) nil (put 'ratpoison 'custom-loads (cons '"ratpoison" loads))))))
