;: -*- emacs-lisp -*-
;:* $Id: pkgs-sy.el,v 1.1 2003-10-18 01:17:42+10 steve Exp steve $

;:*=======================
;:* If not in 21.5 load some misc Mule files.
;;
;;  This is because the files in this directory aren't present in
;;  XEmacsen <= 21.4 core but are in 21.5 core.
(unless (emacs-version>= 21 5 5)
  (let* ((dir (file-name-as-directory
               (expand-file-name "etc/mule-not-21.5" (getenv "HOME"))))
         (autos (expand-file-name "auto-autoloads.elc" dir))
         (customs (expand-file-name "custom-load.elc" dir)))
    (push dir load-path)
    (if (file-exists-p autos)
        (load-file autos))
    (if (file-exists-p customs)
        (load-file customs))))

;:*=======================
;; pcl-cvs - a GNU Emacs front-end to CVS
(autoload 'cvs-update "pcl-cvs" nil t)
(setq
 cvs-reuse-cvs-buffer 'always
 cvs-add-default-message "Initial version"
 cvs-allow-dir-commit t)

;:*=======================
;:* whitespace-mode
(autoload 'whitespace-mode "whitespace-mode"
  "Toggle whitespace mode.
   With arg, turn whitespace mode on iff arg is positive.  In
   whitespace mode the different whitespaces (tab, blank return) are
   highlighted with different faces. The faces are:
   `whitespace-blank-face', `whitespace-tab-face' and
   `whitespace-return-face'."
  t)

(autoload 'whitespace-incremental-mode "whitespace-mode"
  "Toggle whitespace incremental mode.
   With arg, turn whitespace incremental mode on iff arg is positive.
   In whitespace incremental mode the different whitespaces (tab and
   blank) are highlighted with different faces. The faces are:
   `whitespace-blank-face' and `whitespace-tab-face'.  Use the command
   `whitespace-show-faces' to show their values.  In this mode only
   these tabs and blanks are highlighted, which are in the region from
   (point) - (window-heigh) to (point) + (window-heigh)."
  t)

;:*=======================
;:* func-menu
(add-hook 'find-file-hooks 'fume-setup-buffer)
(add-hook 'Manual-mode-hook 'turn-on-fume-mode)
(define-key global-map "\C-cl" 'fume-list-functions)
(define-key global-map "\C-cg" 'fume-prompt-function-goto)
(define-key global-map '(control button3) 'mouse-function-menu)
(setq
 fume-display-in-modeline-p t
 fume-menubar-menu-location "File")

;:*=======================
;:* font-lock
(remove-hook 'font-lock-mode-hook 'turn-on-fast-lock)
(require 'font-lock)

;:*=======================
;:* recent-files.el --- Maintain menu of recently opened files.
(when (featurep 'menubar)
  (require 'recent-files)
  (recent-files-initialize))

;:*=======================
;:* crypt
;: Load crypt, which is a package for automatically decoding and
;: reencoding files by various methods - for example, you can visit a
;: .Z or .gz file, edit it, and have it automatically re-compressed
;: when you save it again.
(require 'crypt)
(setq
 crypt-encryption-type 'gpg
 crypt-confirm-password t)

;:*=======================
;:* iswitchb
;: A really cool package to switch buffers
(require 'iswitchb)
(iswitchb-default-keybindings)
(add-hook
 'iswitchb-define-mode-map-hook
 '(lambda ()
    (define-key iswitchb-mode-map " " 'iswitchb-next-match)
    (define-key iswitchb-mode-map [(control ?\ )] 'iswitchb-prev-match)
    (define-key iswitchb-mode-map "\C-a" 'iswitchb-toggle-ignore)))

;:*=======================
;:* backup
;:  move all backups in one directory
(require 'backup-dir)
(setq bkup-backup-directory-info
      '((t "~/.autosave/" ok-create full-path)))
(setq version-control 'preserve-prefer-numbered)
(setq-default delete-old-versions t)

;:*=======================
;:* Load minibuffer history.
(when running-xemacs
  (require 'savehist)
  (savehist-load))

;:*=======================
;:* Kyle Jones' redo package.
(when running-xemacs
  (require 'redo)
  (global-set-key "\C-^" 'redo)         ; for tty-s...
  (global-set-key [(control ?6)] 'redo) ; ...and for X
  (global-set-key "\M-_" 'redo))        ; universal
(require 'scroll-in-place)

;:*=======================
;:* pending-del
;:  Non-nil when Pending Delete mode is enabled. In Pending Delete mode, typed
;:  text replaces the selected region. Normally, you shouldn't modify this
;:  variable by hand, but use the function `pending-delete-mode' instead. However,
;:  you can customize the default value from the options menu (auto delete
;:  selection).
(require 'pending-del)
(turn-on-pending-delete nil)

;:*=======================
;:* comment-region
;:  Comment or uncomment each line in the region.
;:  Comments are terminated on each line, even for syntax in which newline does
;:  not end the comment.  Blank lines do not get comments.
(global-set-key '(control f12)  'comment-region)
(global-set-key '(meta f12) 'uncomment-region)

;:*=======================
;:* parens that mark sexpressions
(require 'paren)
(paren-set-mode 'paren)

;:*=======================
;:* easy editing of crontab files
(autoload 'crontab-edit "crontab"
  "Function to allow the easy editing of crontab files." t)

;:*=======================
;:* a major mode for editing X resource database files
(autoload 'xrdb-mode "xrdb-mode" "Mode for editing X resource files" t)

;:*=======================
;:* Footnote package
(require 'footnote)
(add-hook 'message-mode-hook 'footnote-mode)
(add-hook 'message-mode-hook 'turn-on-filladapt-mode)
(add-hook 'message-mode-hook 'turn-on-auto-fill)
(add-hook 'message-mode-hook 'turn-on-font-lock)

;:*=======================
;:* Filladapt-Mode
(require 'filladapt)
(setq-default filladapt-mode t)
(setq filladapt-fill-column-tolerance 5)
(add-hook 'c-mode-hook 'turn-off-filladapt-mode)

;:*=======================
;:* Speedbar
(setq
 speedbar-query-confirmation-method 'none-but-delete
 speedbar-show-unknown-files t
 speedbar-tag-hierarchy-method '(speedbar-prefix-group-tag-hierarchy
                                 speedbar-trim-words-tag-hierarchy
                                 speedbar-simple-group-tag-hierarchy
                                 speedbar-sort-tag-hierarchy)
 speedbar-track-mouse-flag t
 speedbar-use-tool-tips-flag t
 speedbar-visiting-tag-hook 'speedbar-recenter-to-top)

(when (featurep 'menubar)
  (add-menu-button '("Tools")
                   ["Speedbar" speedbar-frame-mode
                    :style toggle
                    :selected (and (boundp 'speedbar-frame)
                                   (frame-live-p speedbar-frame)
                                   (frame-visible-p speedbar-frame))]
                   "--"))
(global-set-key [(f4)] 'speedbar-get-focus)
(require 'sb-info)
(require 'sb-texinfo)
(eval-after-load "speedbar" '(load-library "sb-texinfo"))
(eval-after-load "speedbar" '(load-library "sb-html"))
(autoload 'w3-speedbar-buttons "sb-w3"
  "W3 specific speedbar button generator.")

;:*=======================
;:* Shell-mode
(autoload 'ansi-color-for-comint-mode-on "ansi-color" nil t)
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)
(add-hook 'shell-mode-hook 'turn-on-font-lock)
(require 'fshell)
(defalias 'shell 'fshell)

;:*=======================
;:* Compile-Mode
(setq
 compilation-always-signal-completion t
 mode-compile-make-program "gmake"
 compilation-read-command t
 compilation-window-height 10
 compile-command "gmake")

;:*=======================
;:* Balloon Help
(balloon-help-mode 1)

;:*=======================
;:* Version Control
(vc-load-vc-hooks)
(setq
 vc-default-back-end 'RCS
 vc-follow-symlinks t)

;:*=======================
;:* Ediff & Diff-mode
(require 'ediff)
(require 'diff-mode)
(setq ediff-use-toolbar-p t
      ediff-custom-diff-options "-u")
(setq diff-switches "-UrN")

;:*=======================
;:* Tramp
(require 'tramp)
(setq tramp-default-method "ssh"
      tramp-auto-save-directory "~/.autosave/"
      tramp-remote-path
      '("/home/youngs/tools"
        "/home/youngs/bin"
        "/bin"
        "/usr/bin"
        "/usr/local/bin"
        "/opt/bin"
        "/pack/openssh/bin"
        "/pack/openssl/bin"
        "/coll/local/bin"
        "/sbin"
        "/usr/sbin"
        "/usr/local/sbin"
        "/usr/ccs/bin"
        "/local/bin"
        "/local/freeware/bin"
        "/local/gnu/bin"
        "/usr/freeware/bin"
        "/usr/pkg/bin"
        "/usr/contrib/bin"
        "/home/users/y/yo/youngs/bin"))

;:*=======================
;:* Eshell
(setq
 eshell-modules-list '(eshell-alias
                       eshell-banner
                       eshell-basic
                       eshell-cmpl
                       eshell-dirs
                       eshell-glob
                       eshell-hist
                       eshell-ls
                       eshell-pred
                       eshell-prompt
                       eshell-script
                       eshell-term
                       eshell-unix
                       eshell-xtra))

;:*=======================
;:* Patcher
(setq
 patcher-default-change-logs-appearance 'patch
 patcher-default-change-logs-prologue nil
 patcher-default-change-logs-updating 'manual
 patcher-default-diff-command "cvs -q diff -uN %f"
 patcher-default-diff-prologue-function 'patcher-default-diff-prologue
 patcher-default-log-message-items '(change-logs)
 patcher-default-mail-method 'gnus
 patcher-default-subject-committed-prefix nil
 patcher-default-subject-prefix nil
 patcher-default-to-address nil
 patcher-mail-run-gnus t
 patcher-mail-run-gnus-other-frame nil
 patcher-projects
 '(("BBDB" "~/programming/lisp/bbdb/"
    :subject-prefix "[PATCH]"
    :to-address "BBDB List <bbdb-info@lists.sf.net>"
    :gnus-group "nnml:bbdb.info")
   ("eicq" "~/programming/Eicq/eicq/"
    :subject-prefix "[PATCH]"
    :commit-privilege t
    :to-address "Eicq Devel <eicq-devel@lists.sf.net>"
    :gnus-group "nnml:eicq.devel")
   ("eicq-CVSROOT" "~/programming/Eicq/eicq-CVSROOT/"
    :subject-prefix "[PATCH (CVSROOT)]"
    :commit-privilege t
    :to-address "Eicq Devel <eicq-devel@lists.sf.net>"
    :gnus-group "nnml:eicq.devel")
   ("eicq-web" "~/programming/Eicq/eicq-web/"
    :subject-prefix "[PATCH (Web)]"
    :commit-privilege t
    :to-address "Eicq Devel <eicq-devel@lists.sf.net>"
    :gnus-group "nnml:eicq.devel")
   ("Gnus" "~/programming/lisp/gnus/"
    :subject-prefix "[PATCH]"
    :commit-privilege t
    :to-address "Gnus List <ding@gnus.org>"
    :gnus-group "nnml:gnus.ding")
   ("MH-E" "~/programming/lisp/mh-e/src/"
    :subject-prefix "[PATCH]"
    :commit-privilege t
    :to-address "MH-E Devel <mh-e-devel@lists.sf.net>"
    :gnus-group "nnml:mh-e.devel")
   ("Tramp" "~/programming/lisp/tramp/"
    :subject-prefix "[PATCH]"
    :commit-privilege t
    :to-address "Tramp Devel <tramp-devel@mail.freesoftware.fsf.org>"
    :gnus-group "nnml:tramp.devel")
   ("wget" "~/programming/C/wget/"
    :subject-prefix "[PATCH]"
    :to-address "Wget Patches <wget-patches@sunsite.dk>"
    :gnus-group "nnml:private.net")
   ("21.4" "~/programming/XEmacs/xemacs-21.4/"
    :subject-prefix "[CORE (%n)]"
    :commit-privilege t
    :to-address "XEmacs Patches <xemacs-patches@xemacs.org>"
    :gnus-group "nnml:xemacs.patches")
   ("21.5" "~/programming/XEmacs/xemacs-21.5/"
    :subject-prefix "[CORE (%n)]"
    :commit-privilege t
    :to-address "XEmacs Patches <xemacs-patches@xemacs.org>"
    :gnus-group "nnml:xemacs.patches")
   ("xemacs-tools" "~/programming/XEmacs/xemacs-tools/"
    :subject-prefix "[TOOLS]"
    :commit-privilege t
    :to-address "XEmacs Patches <xemacs-patches@xemacs.org>"
    :gnus-group "nnml:xemacs.patches")
   ("xemacs-CVSROOT" "~/programming/XEmacs/xemacs-CVSROOT/"
    :subject-prefix "[CVSROOT]"
    :commit-privilege t
    :to-address "XEmacs Patches <xemacs-patches@xemacs.org>"
    :gnus-group "nnml:xemacs.patches")
   ("xemacs-packages" "~/programming/XEmacs/packages/"
    :subject-prefix "[PACKAGES]"
    :commit-privilege t
    :to-address "XEmacs Patches <xemacs-patches@xemacs.org>"
    :gnus-group "nnml:xemacs.patches")
   ("xemacs-web" "~/programming/XEmacs/xemacs-web/"
    :subject-prefix "[WWW]"
    :commit-privilege t
    :to-address "XEmacs Patches <xemacs-patches@xemacs.org>"
    :gnus-group "nnml:xemacs.patches"))
 patcher-subprojects
 '(("Sun" "xemacs-packages"
    :subdirectory "xemacs-packages/Sun/"
    :subject-prefix "[PACKAGES (%n)]")
   ("ada" "xemacs-packages"
    :subdirectory "xemacs-packages/ada/"
    :subject-prefix "[PACKAGES (%n)]")
   ("apel" "xemacs-packages"
    :subdirectory "xemacs-packages/apel/"
    :subject-prefix "[PACKAGES (%n)]")
   ("auctex" "xemacs-packages"
    :subdirectory "xemacs-packages/auctex/"
    :subject-prefix "[PACKAGES (%n)]")
   ("bbdb" "xemacs-packages"
    :subdirectory "xemacs-packages/bbdb/"
    :subject-prefix "[PACKAGES (%n)]")
   ("build" "xemacs-packages"
    :subdirectory "xemacs-packages/build/"
    :subject-prefix "[PACKAGES (%n)]")
   ("c-support" "xemacs-packages"
    :subdirectory "xemacs-packages/c-support/"
    :subject-prefix "[PACKAGES (%n)]")
   ("calc" "xemacs-packages"
    :subdirectory "xemacs-packages/calc/"
    :subject-prefix "[PACKAGES (%n)]")
   ("calendar" "xemacs-packages"
    :subdirectory "xemacs-packages/calendar/"
    :subject-prefix "[PACKAGES (%n)]")
   ("cc-mode" "xemacs-packages"
    :subdirectory "xemacs-packages/cc-mode/"
    :subject-prefix "[PACKAGES (%n)]")
   ("clearcase" "xemacs-packages"
    :subdirectory "xemacs-packages/clearcase/"
    :subject-prefix "[PACKAGES (%n)]")
   ("cookie" "xemacs-packages"
    :subdirectory "xemacs-packages/cookie/"
    :subject-prefix "[PACKAGES (%n)]")
   ("crisp" "xemacs-packages"
    :subdirectory "xemacs-packages/crisp/"
    :subject-prefix "[PACKAGES (%n)]")
   ("debug" "xemacs-packages"
    :subdirectory "xemacs-packages/debug/"
    :subject-prefix "[PACKAGES (%n)]")
   ("dictionary" "xemacs-packages"
    :subdirectory "xemacs-packages/dictionary/"
    :subject-prefix "[PACKAGES (%n)]")
   ("dired" "xemacs-packages"
    :subdirectory "xemacs-packages/dired/"
    :subject-prefix "[PACKAGES (%n)]")
   ("docbookide" "xemacs-packages"
    :subdirectory "xemacs-packages/docbookide/"
    :subject-prefix "[PACKAGES (%n)]")
   ("ecb" "xemacs-packages"
    :subdirectory "xemacs-packages/ecb/"
    :subject-prefix "[PACKAGES (%n)]")
   ("ecrypto" "xemacs-packages"
    :subdirectory "xemacs-packages/ecrypto/"
    :subject-prefix "[PACKAGES (%n)]")
   ("edebug" "xemacs-packages"
    :subdirectory "xemacs-packages/edebug/"
    :subject-prefix "[PACKAGES (%n)]")
   ("ediff" "xemacs-packages"
    :subdirectory "xemacs-packages/ediff/"
    :subject-prefix "[PACKAGES (%n)]")
   ("edit-utils" "xemacs-packages"
    :subdirectory "xemacs-packages/edit-utils/"
    :subject-prefix "[PACKAGES (%n)]")
   ("edt" "xemacs-packages"
    :subdirectory "xemacs-packages/edt/"
    :subject-prefix "[PACKAGES (%n)]")
   ("efs" "xemacs-packages"
    :subdirectory "xemacs-packages/efs/"
    :subject-prefix "[PACKAGES (%n)]")
   ("eieio" "xemacs-packages"
    :subdirectory "xemacs-packages/eieio/"
    :subject-prefix "[PACKAGES (%n)]")
   ("elib" "xemacs-packages"
    :subdirectory "xemacs-packages/elib/"
    :subject-prefix "[PACKAGES (%n)]")
   ("emerge" "xemacs-packages"
    :subdirectory "xemacs-packages/emerge/"
    :subject-prefix "[PACKAGES (%n)]")
   ("eshell" "xemacs-packages"
    :subdirectory "xemacs-packages/eshell/"
    :subject-prefix "[PACKAGES (%n)]")
   ("ess" "xemacs-packages"
    :subdirectory "xemacs-packages/ess/"
    :subject-prefix "[PACKAGES (%n)]")
   ("eterm" "xemacs-packages"
    :subdirectory "xemacs-packages/eterm/"
    :subject-prefix "[PACKAGES (%n)]")
   ("eudc" "xemacs-packages"
    :subdirectory "xemacs-packages/eudc/"
    :subject-prefix "[PACKAGES (%n)]")
   ("footnote" "xemacs-packages"
    :subdirectory "xemacs-packages/footnote/"
    :subject-prefix "[PACKAGES (%n)]")
   ("forms" "xemacs-packages"
    :subdirectory "xemacs-packages/forms/"
    :subject-prefix "[PACKAGES (%n)]")
   ("fortran-modes" "xemacs-packages"
    :subdirectory "xemacs-packages/fortran-modes/"
    :subject-prefix "[PACKAGES (%n)]")
   ("frame-icon" "xemacs-packages"
    :subdirectory "xemacs-packages/frame-icon/"
    :subject-prefix "[PACKAGES (%n)]")
   ("fsf-compat" "xemacs-packages"
    :subdirectory "xemacs-packages/fsf-compat/"
    :subject-prefix "[PACKAGES (%n)]")
   ("games" "xemacs-packages"
    :subdirectory "xemacs-packages/games/"
    :subject-prefix "[PACKAGES (%n)]")
   ("general-docs" "xemacs-packages"
    :subdirectory "xemacs-packages/general-docs/"
    :subject-prefix "[PACKAGES (%n)]")
   ("gnats" "xemacs-packages"
    :subdirectory "xemacs-packages/gnats/"
    :subject-prefix "[PACKAGES (%n)]")
   ("gnus" "xemacs-packages"
    :subdirectory "xemacs-packages/gnus/"
    :subject-prefix "[PACKAGES (%n)]")
   ("haskell-mode" "xemacs-packages"
    :subdirectory "xemacs-packages/haskell-mode/"
    :subject-prefix "[PACKAGES (%n)]")
   ("hm--html-menus" "xemacs-packages"
    :subdirectory "xemacs-packages/hm--html-menus/"
    :subject-prefix "[PACKAGES (%n)]")
   ("ibuffer" "xemacs-packages"
    :subdirectory "xemacs-packages/ibuffer/"
    :subject-prefix "[PACKAGES (%n)]")
   ("idlwave" "xemacs-packages"
    :subdirectory "xemacs-packages/idlwave/"
    :subject-prefix "[PACKAGES (%n)]")
   ("igrep" "xemacs-packages"
    :subdirectory "xemacs-packages/igrep/"
    :subject-prefix "[PACKAGES (%n)]")
   ("ilisp" "xemacs-packages"
    :subdirectory "xemacs-packages/ilisp/"
    :subject-prefix "[PACKAGES (%n)]")
   ("ispell" "xemacs-packages"
    :subdirectory "xemacs-packages/ispell/"
    :subject-prefix "[PACKAGES (%n)]")
   ("jde" "xemacs-packages"
    :subdirectory "xemacs-packages/jde/"
    :subject-prefix "[PACKAGES (%n)]")
   ("liece" "xemacs-packages"
    :subdirectory "xemacs-packages/liece/"
    :subject-prefix "[PACKAGES (%n)]")
   ("mail-lib" "xemacs-packages"
    :subdirectory "xemacs-packages/mail-lib/"
    :subject-prefix "[PACKAGES (%n)]")
   ("mailcrypt" "xemacs-packages"
    :subdirectory "xemacs-packages/mailcrypt/"
    :subject-prefix "[PACKAGES (%n)]")
   ("mew" "xemacs-packages"
    :subdirectory "xemacs-packages/mew/"
    :subject-prefix "[PACKAGES (%n)]")
   ("mh-e" "xemacs-packages"
    :subdirectory "xemacs-packages/mh-e/"
    :subject-prefix "[PACKAGES (%n)]")
   ("mine" "xemacs-packages"
    :subdirectory "xemacs-packages/mine/"
    :subject-prefix "[PACKAGES (%n)]")
   ("misc-games" "xemacs-packages"
    :subdirectory "xemacs-packages/misc-games/"
    :subject-prefix "[PACKAGES (%n)]")
   ("mmm-mode" "xemacs-packages"
    :subdirectory "xemacs-packages/mmm-mode/"
    :subject-prefix "[PACKAGES (%n)]")
   ("net-utils" "xemacs-packages"
    :subdirectory "xemacs-packages/net-utils/"
    :subject-prefix "[PACKAGES (%n)]")
   ("ocaml" "xemacs-packages"
    :subdirectory "xemacs-packages/ocaml/"
    :subject-prefix "[PACKAGES (%n)]")
   ("os-utils" "xemacs-packages"
    :subdirectory "xemacs-packages/os-utils/"
    :subject-prefix "[PACKAGES (%n)]")
   ("pc" "xemacs-packages"
    :subdirectory "xemacs-packages/pc/"
    :subject-prefix "[PACKAGES (%n)]")
   ("pcl-cvs" "xemacs-packages"
    :subdirectory "xemacs-packages/pcl-cvs/"
    :subject-prefix "[PACKAGES (%n)]")
   ("pcomplete" "xemacs-packages"
    :subdirectory "xemacs-packages/pcomplete/"
    :subject-prefix "[PACKAGES (%n)]")
   ("perl-modes" "xemacs-packages"
    :subdirectory "xemacs-packages/perl-modes/"
    :subject-prefix "[PACKAGES (%n)]")
   ("pgg" "xemacs-packages"
    :subdirectory "xemacs-packages/pgg/"
    :subject-prefix "[PACKAGES (%n)]")
   ("prog-modes" "xemacs-packages"
    :subdirectory "xemacs-packages/prog-modes/"
    :subject-prefix "[PACKAGES (%n)]")
   ("ps-print" "xemacs-packages"
    :subdirectory "xemacs-packages/ps-print/"
    :subject-prefix "[PACKAGES (%n)]")
   ("psgml" "xemacs-packages"
    :subdirectory "xemacs-packages/psgml/"
    :subject-prefix "[PACKAGES (%n)]")
   ("psgml-dtds" "xemacs-packages"
    :subdirectory "xemacs-packages/psgml-dtds/"
    :subject-prefix "[PACKAGES (%n)]")
   ("python-modes" "xemacs-packages"
    :subdirectory "xemacs-packages/python-modes/"
    :subject-prefix "[PACKAGES (%n)]")
   ("reftex" "xemacs-packages"
    :subdirectory "xemacs-packages/reftex/"
    :subject-prefix "[PACKAGES (%n)]")
   ("rmail" "xemacs-packages"
    :subdirectory "xemacs-packages/rmail/"
    :subject-prefix "[PACKAGES (%n)]")
   ("ruby-modes" "xemacs-packages"
    :subdirectory "xemacs-packages/ruby-modes/"
    :subject-prefix "[PACKAGES (%n)]")
   ("sasl" "xemacs-packages"
    :subdirectory "xemacs-packages/sasl/"
    :subject-prefix "[PACKAGES (%n)]")
   ("scheme" "xemacs-packages"
    :subdirectory "xemacs-packages/scheme/"
    :subject-prefix "[PACKAGES (%n)]")
   ("semantic" "xemacs-packages"
    :subdirectory "xemacs-packages/semantic/"
    :subject-prefix "[PACKAGES (%n)]")
   ("sgml" "xemacs-packages"
    :subdirectory "xemacs-packages/sgml/"
    :subject-prefix "[PACKAGES (%n)]")
   ("sh-script" "xemacs-packages"
    :subdirectory "xemacs-packages/sh-script/"
    :subject-prefix "[PACKAGES (%n)]")
   ("sieve" "xemacs-packages"
    :subdirectory "xemacs-packages/sieve/"
    :subject-prefix "[PACKAGES (%n)]")
   ("slider" "xemacs-packages"
    :subdirectory "xemacs-packages/slider/"
    :subject-prefix "[PACKAGES (%n)]")
   ("sml-mode" "xemacs-packages"
    :subdirectory "xemacs-packages/sml-mode/"
    :subject-prefix "[PACKAGES (%n)]")
   ("sounds-au" "xemacs-packages"
    :subdirectory "xemacs-packages/sounds-au/"
    :subject-prefix "[PACKAGES (%n)]")
   ("sounds-wav" "xemacs-packages"
    :subdirectory "xemacs-packages/sounds-wav/"
    :subject-prefix "[PACKAGES (%n)]")
   ("speedbar" "xemacs-packages"
    :subdirectory "xemacs-packages/speedbar/"
    :subject-prefix "[PACKAGES (%n)]")
   ("strokes" "xemacs-packages"
    :subdirectory "xemacs-packages/strokes/"
    :subject-prefix "[PACKAGES (%n)]")
   ("supercite" "xemacs-packages"
    :subdirectory "xemacs-packages/supercite/"
    :subject-prefix "[PACKAGES (%n)]")
   ("texinfo" "xemacs-packages"
    :subdirectory "xemacs-packages/texinfo/"
    :subject-prefix "[PACKAGES (%n)]")
   ("text-modes" "xemacs-packages"
    :subdirectory "xemacs-packages/text-modes/"
    :subject-prefix "[PACKAGES (%n)]")
   ("textools" "xemacs-packages"
    :subdirectory "xemacs-packages/textools/"
    :subject-prefix "[PACKAGES (%n)]")
   ("time" "xemacs-packages"
    :subdirectory "xemacs-packages/time/"
    :subject-prefix "[PACKAGES (%n)]")
   ("tm" "xemacs-packages"
    :subdirectory "xemacs-packages/tm/"
    :subject-prefix "[PACKAGES (%n)]")
   ("tooltalk" "xemacs-packages"
    :subdirectory "xemacs-packages/tooltalk/"
    :subject-prefix "[PACKAGES (%n)]")
   ("tpu" "xemacs-packages"
    :subdirectory "xemacs-packages/tpu/"
    :subject-prefix "[PACKAGES (%n)]")
   ("tramp" "xemacs-packages"
    :subdirectory "xemacs-packages/tramp/"
    :subject-prefix "[PACKAGES (%n)]")
   ("vc" "xemacs-packages"
    :subdirectory "xemacs-packages/vc/"
    :subject-prefix "[PACKAGES (%n)]")
   ("vc-cc" "xemacs-packages"
    :subdirectory "xemacs-packages/vc-cc/"
    :subject-prefix "[PACKAGES (%n)]")
   ("vhdl" "xemacs-packages"
    :subdirectory "xemacs-packages/vhdl/"
    :subject-prefix "[PACKAGES (%n)]")
   ("view-process" "xemacs-packages"
    :subdirectory "xemacs-packages/view-process/"
    :subject-prefix "[PACKAGES (%n)]")
   ("viper" "xemacs-packages"
    :subdirectory "xemacs-packages/viper/"
    :subject-prefix "[PACKAGES (%n)]")
   ("vm" "xemacs-packages"
    :subdirectory "xemacs-packages/vm/"
    :subject-prefix "[PACKAGES (%n)]")
   ("w3" "xemacs-packages"
    :subdirectory "xemacs-packages/w3/"
    :subject-prefix "[PACKAGES (%n)]")
   ("x-symbol" "xemacs-packages"
    :subdirectory "xemacs-packages/x-symbol/"
    :subject-prefix "[PACKAGES (%n)]")
   ("xemacs-base" "xemacs-packages"
    :subdirectory "xemacs-packages/xemacs-base/"
    :subject-prefix "[PACKAGES (%n)]")
   ("xemacs-devel" "xemacs-packages"
    :subdirectory "xemacs-packages/xemacs-devel/"
    :subject-prefix "[PACKAGES (%n)]")
   ("xslide" "xemacs-packages"
    :subdirectory "xemacs-packages/xslide/"
    :subject-prefix "[PACKAGES (%n)]")
   ("xslt-process" "xemacs-packages"
    :subdirectory "xemacs-packages/xslt-process/"
    :subject-prefix "[PACKAGES (%n)]")
   ("zenirc" "xemacs-packages"
    :subdirectory "xemacs-packages/zenirc/"
    :subject-prefix "[PACKAGES (%n)]")
   ;; Mule Packages.
   ("edict" "xemacs-packages"
    :subdirectory "mule-packages/edict/"
    :subject-prefix "[PACKAGES (%n)]")
   ("egg-its" "xemacs-packages"
    :subdirectory "mule-packages/egg-its/"
    :subject-prefix "[PACKAGES (%n)]")
   ("latin-unity" "xemacs-packages"
    :subdirectory "mule-packages/latin-unity/"
    :subject-prefix "[PACKAGES (%n)]")
   ("leim" "xemacs-packages"
    :subdirectory "mule-packages/leim/"
    :subject-prefix "[PACKAGES (%n)]")
   ("locale" "xemacs-packages"
    :subdirectory "mule-packages/locale/"
    :subject-prefix "[PACKAGES (%n)]")
   ("lookup" "xemacs-packages"
    :subdirectory "mule-packages/lookup/"
    :subject-prefix "[PACKAGES (%n)]")
   ("mule-base" "xemacs-packages"
    :subdirectory "mule-packages/mule-base/"
    :subject-prefix "[PACKAGES (%n)]")
   ("mule-ucs" "xemacs-packages"
    :subdirectory "mule-packages/mule-ucs/"
    :subject-prefix "[PACKAGES (%n)]")
   ("skk" "xemacs-packages"
    :subdirectory "mule-packages/skk/"
    :subject-prefix "[PACKAGES (%n)]")))

;:*=======================
;:* Liece - IRC
(setq
 liece-auto-iterate-nick t
 liece-channel-buffer-mode t
 liece-display-unread-mark t
 liece-ignore-changes nil
 liece-ignore-fakes t
 liece-my-userhost "JackaLX@JackaLX.org"
 liece-name "JackaLX"
 liece-nick-buffer-mode t
 liece-nickname "JackaLX"
 liece-reconnect-automagic t
 liece-server-alist
 '(("FreeNode" :host "irc.freenode.net")
   ("OpenProjects" :host "irc.openprojects.net")
   ("Lightning" :host "irc.lightning.net")
   ("BigPond" :host "irc.bigpond.com")
   ("Lagged" :host "irc.lagged.org")
   ("My Gnus" :host "irc.my.gnus.org"))
 liece-startup-channel-list '("#linuxhelp"
                              "#Slackware"
                              "#latex"
                              "#postgresql")
 liece-use-x-face t
 liece-want-traditional t)

;:*=======================
;:* FFAP -- Find File At Point
(require 'ffap)

(setq
 ffap-bindings
 (nconc
  '((global-set-key '(shift button3) 'ffap-at-mouse)
    (global-set-key '(control shift button3) 'ffap-menu)
    (global-set-key "\C-x\C-f" 'find-file-at-point)
    (global-set-key "\C-x4f"   'ffap-other-window)
    (global-set-key "\C-x5f"   'ffap-other-frame)))
 ffap-machine-p-known 'accept
 ffap-machine-p-unknown 'accept
 ffap-machine-p-local 'accept)

(ffap-bindings)
;(add-hook 'find-file-hooks 'ffap-menu-rescan)
(add-hook 'mouse-track-click-hook 'ffap-mouse-track-click)

;:*=======================
;:* ECB - Emacs Code Browser
;;
;; Sets up a very nice, easy to use, highly configurable coding
;; environment.

;; XEmacs 21.5 is currently having some window config problems so the
;; ECB advised window functions don't work too well.  This is just to
;; work around that.
(if (eq emacs-minor-version 5)
    (setq ecb-advice-window-functions nil)
  (setq  ecb-advice-window-functions '(other-window
                                       delete-window
                                       delete-other-windows
                                       delete-windows-on
                                       split-window-horizontally
                                       split-window-vertically
                                       switch-to-buffer
                                       switch-to-buffer-other-window
                                       other-window-for-scrolling)))
(setq
 ecb-compile-window-enlarge-by-select t
 ecb-compile-window-height 5
 ecb-eshell-auto-activate t
 ecb-layout-name "top1"
 ecb-layout-window-sizes '(("top1"
                            (0.2192982456140351 . 0.2888888888888889)
                            (0.2017543859649123 . 0.2888888888888889)
                            (0.5087719298245614 . 0.2888888888888889)))
 ecb-major-modes-activate 'none
 ecb-new-ecb-frame nil
 ecb-source-path
 '(("/home/steve/programming/Eicq/Devel/" "Eicq Projects")
   ("/home/steve/programming/lisp/Devel/" "Lisp Projects")
   ("/home/steve/programming/XEmacs/Devel/" "XEmacs Projects"))
 ecb-temp-dir "/tmp/steve/"
 ecb-tree-expand-symbol-before t
 ecb-truncate-long-names nil)
(message "ECB initialised!")
;:*=======================
;:* Auto-Insert
(require 'auto-insert-tkld)

(setq auto-insert-alist '(("\\.texi\\(nfo\\)?$" . "TeXinfo")
                          ("\\.c$"              . "C")
                          ("\\.cc$"             . "C++")
                          ("\\.h$"              . "C Header")
                          ("\\.el$"             . "Emacs Lisp")
                          ("[Mm]akefile"        . "Makefile")
                          ("\\.sh$"             . "Sh")
                          ("\\.pl$"             . "Perl")))

(setq auto-insert-type-alist '(("TeXinfo"    . "texinfo-insert.texi")
                               ("C"          . "c-insert.c")
                               ("C Header"   . "h-insert.h")
                               ("C++"        . "c++-insert.cc")
                               ("Emacs Lisp" . "elisp-insert.el")
                               ("Makefile"   . "makefile.inc")
                               ("Perl"       . "perl-insert.pl")
                               ("Sh"         . "sh-insert.sh")))

(add-to-list 'auto-insert-path '"~/etc/XEmacs/templates/")

;; Don't auto-insert into AucTeX style .els
(defadvice TeX-auto-store (around no-auto-insert activate)
  "Ensure auto-insert is deactivated"
  (let ((auto-insert-automatically nil))
    ad-do-it))
(message "Auto-Insert initialised!")
;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::*
(message "packages loaded")

Copyright © 2003 Steve Youngs
Verbatim copying and distribution is permitted in any medium, providing this notice is preserved.
Last modified: Sat Oct 18 02:15:05 EST 2003