cus-load.el

windows版本的emacs

(put 'gnus-article-saving 'custom-loads '("gnus-art"))
(put 'icomplete 'custom-loads '("icomplete"))
(put 'LaTeX 'custom-loads '("reftex-vars"))
(put 'scrolling 'custom-loads '("frame"))
(put 'man 'custom-loads '("man"))
(put 'solitaire 'custom-loads '("solitaire"))
(put 'hippie-expand 'custom-loads '("hippie-exp"))
(put 'refer 'custom-loads '("refer"))
(put 'message-mail 'custom-loads '("message"))
(put 'modeline 'custom-loads '("faces" "time"))
(put 'archive-zoo 'custom-loads '("arc-mode"))
(put 'idlwave-completion 'custom-loads '("idlwave"))
(put 'eshell-rebind 'custom-loads '("em-rebind"))
(put 'bibtex 'custom-loads '("bibtex"))
(put 'faces 'custom-loads '("loaddefs" "faces" "facemenu" "cus-edit" "font-lock" "hilit-chg" "paren" "ps-print" "speedbar" "time" "wid-edit" "woman" "gnus" "message" "cwarn" "make-mode"))
(put 'gnus-summary-various 'custom-loads '("gnus-sum"))
(put 'applications 'custom-loads '("calendar" "cus-edit" "uniquify" "eshell" "spell"))
(put 'ebrowse-member 'custom-loads '("ebrowse"))
(put 'terminal 'custom-loads '("terminal"))
(put 'shadow 'custom-loads '("shadowfile" "shadow"))
(put 'hl-line 'custom-loads '("hl-line"))
(put 'eshell-glob 'custom-loads '("em-glob"))
(put 'internal 'custom-loads '("startup" "cus-edit" "delim-col"))
(put 'lisp 'custom-loads '("simple" "lisp" "lisp-mode" "ielm" "xscheme" "advice" "bytecomp" "checkdoc" "cl-indent" "cust-print" "edebug" "eldoc" "elp" "find-func" "pp" "re-builder" "shadow" "trace" "scheme"))
(put 'local 'custom-loads '("calendar"))
(put 'rlogin 'custom-loads '("rlogin"))
(put 'debugger 'custom-loads '("debug"))
(put 'archive-zip 'custom-loads '("arc-mode"))
(put 'gnus-start-server 'custom-loads '("gnus-start"))
(put 'debug 'custom-loads '("debug"))
(put 'vhdl-electric 'custom-loads '("vhdl-mode"))
(put 'gnus-extract-archive 'custom-loads '("gnus-uu"))
(put 'message 'custom-loads '("startup" "message" "footnote"))
(put 'message-sending 'custom-loads '("message"))
(put 'archive-arc 'custom-loads '("arc-mode"))
(put 'rmail-output 'custom-loads '("rmailout"))
(put 'editing 'custom-loads '("simple" "view" "indent" "paragraphs" "cus-edit" "faces" "outline" "hl-line" "vcursor" "whitespace" "auto-show" "hscroll" "picture"))
(put 'crisp 'custom-loads '("crisp"))
(put 'nroff 'custom-loads '("nroff-mode"))
(put 'gnus-group-icons 'custom-loads '("gnus-group"))
(put 'executable 'custom-loads '("executable"))
(put 'gnus-score-adapt 'custom-loads '("gnus-score" "gnus"))
(put 'copyright 'custom-loads '("copyright"))
(put 'bytecomp 'custom-loads '("bytecomp"))
(put 'message-insertion 'custom-loads '("message"))
(put 'pcmpl-unix 'custom-loads '("pcmpl-unix"))
(put 'gnus-extract-post 'custom-loads '("gnus-uu"))
(put 'reftex-viewing-cross-references 'custom-loads '("reftex-vars"))
(put 'hanoi 'custom-loads '("hanoi"))
(put 'reftex-index-support 'custom-loads '("reftex-vars"))
(put 'pascal 'custom-loads '("pascal"))
(put 'rmail-retrieve 'custom-loads '("rmail" "rmailsum"))
(put 'data 'custom-loads '("text-mode" "arc-mode" "forms" "hexl" "jka-compr" "saveplace" "sort" "tar-mode" "time-stamp" "snmp-mode" "timeclock"))
(put 'mail 'custom-loads '("simple" "startup" "time" "gnus" "mail-utils" "mm-decode" "message" "imap" "starttls" "emacsbug" "feedmail" "mail-extr" "mail-hist" "mailalias" "metamail" "mh-e" "mspools" "rmail" "sendmail" "smtpmail" "supercite" "uce" "eudc-vars" "fortune"))
(put 'paren-blinking 'custom-loads '("simple"))
(put 'gnus-summary-sort 'custom-loads '("gnus-sum"))
(put 'fast-lock 'custom-loads '("fast-lock"))
(put 'gnus-group-new 'custom-loads '("gnus-start"))
(put 'viper-highlighting 'custom-loads '("viper-init"))
(put 'customize 'custom-loads '("wid-edit" "cus-edit"))
(put 'dired 'custom-loads '("files" "ls-lisp" "dired-aux" "dired-x" "dired" "find-dired"))
(put 'recentf 'custom-loads '("recentf"))
(put 'fill 'custom-loads '("simple" "newcomment" "fill" "align"))
(put 'outlines 'custom-loads '("allout" "outline" "ooutline"))
(put 'latin1-display 'custom-loads '("latin1-disp"))
(put 'paragraphs 'custom-loads '("paragraphs"))
(put 'ebrowse 'custom-loads '("ebrowse"))
(put 'nnmail-split 'custom-loads '("nnmail"))
(put 'makefile 'custom-loads '("make-mode"))
(put 'supercite-attr 'custom-loads '("supercite"))
(put 'fortune 'custom-loads '("fortune"))
(put 'diff-mode 'custom-loads '("diff-mode"))
(put 'isearch-lazy-highlight 'custom-loads '("isearch"))
(put 'gnus-asynchronous 'custom-loads '("gnus-async"))
(put 'woman-formatting 'custom-loads '("woman"))
(put 'vcursor 'custom-loads '("vcursor"))
(put 'iso-ascii 'custom-loads '("iso-ascii"))
(put 'gnus-dribble-file 'custom-loads '("gnus-start"))
(put 'widget-button 'custom-loads '("wid-edit"))
(put 'uniquify 'custom-loads '("uniquify"))
(put 'old-c++ 'custom-loads '("cplus-md"))
(put 'ps-print-font 'custom-loads '("ps-mule" "ps-print"))
(put 'eshell-basic 'custom-loads '("em-basic"))
(put 'vhdl-misc 'custom-loads '("vhdl-mode"))
(put 'dired-x 'custom-loads '("dired-x"))
(put 'spook 'custom-loads '("spook"))
(put 'tex-file 'custom-loads '("tex-mode"))
(put 'eshell-dirs 'custom-loads '("em-dirs"))
(put 'time-stamp 'custom-loads '("time-stamp"))
(put 'todo 'custom-loads '("todo-mode"))
(put 'ebnf-special 'custom-loads '("ebnf2ps"))
(put 'gnus-article-highlight 'custom-loads '("gnus-art"))
(put 'tooltip 'custom-loads '("tooltip"))
(put 'gud 'custom-loads '("gud" "tooltip"))
(put 'c-macro 'custom-loads '("cmacexp"))
(put 'gnus-cache 'custom-loads '("gnus-cache" "gnus"))
(put 'eshell-module 'custom-loads '("esh-groups" "esh-module"))
(put 'gnus-extract 'custom-loads '("gnus" "gnus-uu" "uudecode"))
(put 'quickurl 'custom-loads '("quickurl"))
(put 'browse-url 'custom-loads '("browse-url"))
(put 'cust-print 'custom-loads '("cust-print"))
(put 'gnus-article 'custom-loads '("gnus-art" "gnus-cite"))
(put 'fortran-indent 'custom-loads '("fortran"))
(put 'comment 'custom-loads '("newcomment"))
(put 'hardware 'custom-loads '("battery"))
(put 'edebug 'custom-loads '("edebug"))
(put 'emerge 'custom-loads '("emerge"))
(put 'scheme 'custom-loads '("cmuscheme" "scheme"))
(put 'gametree 'custom-loads '("gametree"))
(put 'gnus-group-foreign 'custom-loads '("gnus-group"))
(put 'initialization 'custom-loads '("startup"))
(put 'sh-script 'custom-loads '("sh-script"))
(put 'cperl-speed 'custom-loads '("cperl-mode"))
(put 'PostScript-edit 'custom-loads '("ps-mode"))
(put 'calendar 'custom-loads '("midnight" "calendar" "solar" "todo-mode"))
(put 'programming 'custom-loads '("cus-edit"))
(put 'meta-font 'custom-loads '("meta-mode"))
(put 'ps-print-zebra 'custom-loads '("ps-print"))
(put 'eshell-unix 'custom-loads '("em-unix"))
(put 'hi-lock-faces 'custom-loads '("hi-lock"))
(put 'hideshow 'custom-loads '("hideshow"))
(put 'mailcap 'custom-loads '("mailcap"))
(put 'viper-search 'custom-loads '("viper-init"))
(put 'ls-lisp 'custom-loads '("ls-lisp"))
(put 'mule 'custom-loads '("mule" "mule-cmds" "kkc"))
(put 'glasses 'custom-loads '("glasses"))
(put 'vhdl-style 'custom-loads '("vhdl-mode"))
(put 'tempo 'custom-loads '("tempo"))
(put 'c 'custom-loads '("cc-vars" "cmacexp" "cpp" "hideif"))
(put 'nnmail-prepare 'custom-loads '("nnmail"))
(put 'processes 'custom-loads '("ansi-color" "comint" "cus-edit" "executable" "pcomplete" "shell" "term" "metamail" "rcompile" "rlogin" "compile" "sql" "flyspell"))
(put 'ebnf2ps 'custom-loads '("ebnf2ps"))
(put 'sendmail 'custom-loads '("sendmail"))
(put 'gnus-article-signature 'custom-loads '("gnus-art"))
(put 'eshell-ls 'custom-loads '("em-ls"))
(put 'idlwave 'custom-loads '("idlw-shell" "idlwave"))
(put 'viper-ex 'custom-loads '("viper-ex"))
(put 'gulp 'custom-loads '("gulp"))
(put 'leim 'custom-loads '("quail"))
(put 'ielm 'custom-loads '("ielm"))
(put 'find-dired 'custom-loads '("find-dired"))
(put 'delphi 'custom-loads '("delphi"))
(put 're-builder 'custom-loads '("re-builder"))
(put 'eshell-io 'custom-loads '("esh-io"))
(put 'killing 'custom-loads '("simple" "x-win"))
(put 'woman-interface 'custom-loads '("woman"))
(put 'gnus-group-various 'custom-loads '("gnus-group" "gnus"))
;;; These are for handling :version.  We need to have a minimum of
;;; information so `custom-changed-variables' could do its job.  
;;; For both groups and variables we have to set `custom-version'.
;;; For variables we also set the `standard-value' and for groups
;;; `group-documentation' (which is shown in the customize buffer), so
;;; we don't have to load the file containing the group.

;;; `custom-versions-load-alist' is an alist that has as car a version
;;; number and as elts the files that have variables that contain that
;;; version. These files should be loaded before showing the
;;; customization buffer that `customize-changed-options' generates.


;;; This macro is used so we don't modify the information about
;;; variables and groups if it's already set. (We don't know when
;;; cus-load.el is going to be loaded and at that time some of the
;;; files might be loaded and some others might not).
(defmacro custom-put-if-not (symbol propname value)
  `(unless (get ,symbol ,propname)
     (put ,symbol ,propname ,value)))

(custom-put-if-not 'mime-display 'custom-version "21.1")
(custom-put-if-not 'mime-display 'group-documentation "Display of MIME in mail and news articles.")
(custom-put-if-not 'SQL 'custom-version "20.4")
(custom-put-if-not 'SQL 'group-documentation "Running a SQL interpreter from within Emacs buffers")
(custom-put-if-not 'sql-postgres-options 'custom-version "20.8")
(custom-put-if-not 'sql-postgres-options 'standard-value t)
(custom-put-if-not 'speedbar-reconfigure-keymaps-hook 'custom-version "21.1")
(custom-put-if-not 'speedbar-reconfigure-keymaps-hook 'standard-value t)
(custom-put-if-not 'highlight-changes 'custom-version "20.4")
(custom-put-if-not 'highlight-changes 'group-documentation "Highlight Changes mode.")
(custom-put-if-not 'browse-url-gnome-moz-arguments 'custom-version "21.1")
(custom-put-if-not 'browse-url-gnome-moz-arguments 'standard-value t)
(custom-put-if-not 'query-replace-from-history-variable 'custom-version "20.3")
(custom-put-if-not 'query-replace-from-history-variable 'standard-value t)
(custom-put-if-not 'footnote 'custom-version "21.1")
(custom-put-if-not 'footnote 'group-documentation "Support for footnotes in mail and news messages.")
(custom-put-if-not 'pcomplete 'custom-version "21.1")
(custom-put-if-not 'pcomplete 'group-documentation "Programmable completion.")
(custom-put-if-not 'gnus-mime-action-alist 'custom-version "21.1")
(custom-put-if-not 'gnus-mime-action-alist 'standard-value t)
(custom-put-if-not 'fancy-splash-screen 'custom-version "21.1")
(custom-put-if-not 'fancy-splash-screen 'group-documentation "Fancy splash screen when Emacs starts.")
(custom-put-if-not 'flyspell-large-region 'custom-version "21.1")
(custom-put-if-not 'flyspell-large-region 'standard-value t)
(custom-put-if-not 'custom-variable-default-form 'custom-version "20.3")
(custom-put-if-not 'custom-variable-default-form 'standard-value t)
(custom-put-if-not 'gnus-agent-synchronize-flags 'custom-version "21.1")
(custom-put-if-not 'gnus-agent-synchronize-flags 'standard-value t)
(custom-put-if-not 'mode-line 'custom-version "21.1")
(custom-put-if-not 'mode-line 'group-documentation nil)
(custom-put-if-not 'find-function-after-hook 'custom-version "20.3")
(custom-put-if-not 'find-function-after-hook 'standard-value t)
(custom-put-if-not 'flyspell-sort-corrections 'custom-version "21.1")
(custom-put-if-not 'flyspell-sort-corrections 'standard-value t)
(custom-put-if-not 'add-log-keep-changes-together 'custom-version "20.3")
(custom-put-if-not 'add-log-keep-changes-together 'standard-value t)
(custom-put-if-not 'eval-expression-debug-on-error 'custom-version "21.1")
(custom-put-if-not 'eval-expression-debug-on-error 'standard-value t)
(custom-put-if-not 'browse-url-lynx-input-field 'custom-version "20.3")
(custom-put-if-not 'browse-url-lynx-input-field 'standard-value t)
(custom-put-if-not 'help-highlight-face 'custom-version "20.3")
(custom-put-if-not 'help-highlight-face 'standard-value t)
(custom-put-if-not 'ldap 'custom-version "21.1")
(custom-put-if-not 'ldap 'group-documentation "Lightweight Directory Access Protocol.")
(custom-put-if-not 'vc-cvs-header 'custom-version "21.1")
(custom-put-if-not 'vc-cvs-header 'standard-value t)
(custom-put-if-not 'ps-footer-frame-alist 'custom-version "21.1")
(custom-put-if-not 'ps-footer-frame-alist 'standard-value t)
(custom-put-if-not 'speedbar 'custom-version "20.3")
(custom-put-if-not 'speedbar 'group-documentation "File and tag browser frame.")
(custom-put-if-not 'message-dont-reply-to-names 'custom-version "21.1")
(custom-put-if-not 'message-dont-reply-to-names 'standard-value t)