changeset 28162:fcaa686e3b46

*** empty log message ***
author Gerd Moellmann <gerd@gnu.org>
date Wed, 15 Mar 2000 23:09:16 +0000
parents b12b7a2e2bdb
children c314d747a819
files lisp/cus-load.el lisp/loaddefs.el
diffstat 2 files changed, 126 insertions(+), 31 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/cus-load.el	Wed Mar 15 21:29:58 2000 +0000
+++ b/lisp/cus-load.el	Wed Mar 15 23:09:16 2000 +0000
@@ -267,7 +267,7 @@
 (put 'ebnf-optimization 'custom-loads '("ebnf2ps"))
 (put 'apropos 'custom-loads '("apropos"))
 (put 'gomoku 'custom-loads '("gomoku"))
-(put 'tools 'custom-loads '("add-log" "calculator" "compare-w" "diff-mode" "diff" "ediff" "elide-head" "emerge" "gud" "rcompile" "smerge-mode" "speedbar" "tempo" "tooltip" "vc" "which-func" "copyright" "compile" "etags" "glasses" "make-mode"))
+(put 'tools 'custom-loads '("add-log" "calculator" "compare-w" "diff-mode" "diff" "ediff" "elide-head" "emerge" "gud" "pcvs-defs" "rcompile" "smerge-mode" "speedbar" "tempo" "tooltip" "vc" "which-func" "copyright" "compile" "etags" "glasses" "make-mode"))
 (put 'gnus-topic 'custom-loads '("gnus-topic"))
 (put 'sgml 'custom-loads '("sgml-mode"))
 (put 'keyboard 'custom-loads '("simple" "chistory" "type-break"))
@@ -299,6 +299,7 @@
 (put 'facemenu 'custom-loads '("facemenu"))
 (put 'pp 'custom-loads '("pp"))
 (put 'two-column 'custom-loads '("two-column"))
+(put 'log-edit 'custom-loads '("log-edit"))
 (put 'message-forwarding 'custom-loads '("message"))
 (put 'message-faces 'custom-loads '("message"))
 (put 'environment 'custom-loads '("cus-edit" "dired" "faces" "dos-vars"))
@@ -323,6 +324,7 @@
 (put 'menu 'custom-loads '("faces" "tmm" "easymenu"))
 (put 'vhdl-highlight 'custom-loads '("vhdl-mode"))
 (put 'widgets 'custom-loads '("wid-browse" "wid-edit"))
+(put 'log-view 'custom-loads '("log-view"))
 (put 'PostScript 'custom-loads '("ps-mode"))
 (put 'abbrev-mode 'custom-loads '("abbrev" "cus-edit" "mailabbrev"))
 (put 'earcon 'custom-loads '("earcon"))
@@ -348,6 +350,7 @@
 (put 'gnus-group-levels 'custom-loads '("gnus-group" "gnus-start" "gnus"))
 (put 'cperl 'custom-loads '("cperl-mode"))
 (put 'files 'custom-loads '("files" "ange-ftp" "autoinsert" "autorevert" "cus-edit" "filecache" "recentf" "shadow"))
+(put 'pcl-cvs 'custom-loads '("cvs-status" "log-edit" "log-view" "pcvs-defs" "pcvs-info" "pcvs-parse" "pcvs"))
 (put 'rmail-files 'custom-loads '("rmail"))
 (put 'gnus-summary-format 'custom-loads '("gnus-sum" "gnus"))
 (put 'windmove 'custom-loads '("windmove"))
@@ -598,8 +601,6 @@
 (custom-put-if-not 'custom-face-default-form 'standard-value t)
 (custom-put-if-not 'hexl-follow-ascii 'custom-version "20.3")
 (custom-put-if-not 'hexl-follow-ascii 'standard-value t)
-(custom-put-if-not 'mouse-avoidance-mode 'custom-version "20.3")
-(custom-put-if-not 'mouse-avoidance-mode 'standard-value t)
 (custom-put-if-not 'browse-url-filename-alist 'custom-version "20.3")
 (custom-put-if-not 'browse-url-filename-alist 'standard-value t)
 (custom-put-if-not 'change-log-version-info-enabled 'custom-version "21.1")
@@ -674,8 +675,6 @@
 (custom-put-if-not 'rmail-file-name 'standard-value t)
 (custom-put-if-not 'cperl 'custom-version "20.3")
 (custom-put-if-not 'cperl 'group-documentation "Major mode for editing Perl code.")
-(custom-put-if-not 'focus-follows-mouse 'custom-version "20.3")
-(custom-put-if-not 'focus-follows-mouse 'standard-value t)
 (custom-put-if-not 'fortran-comment-line-start-skip 'custom-version "21.1")
 (custom-put-if-not 'fortran-comment-line-start-skip 'standard-value t)
 (custom-put-if-not 'checkdoc 'custom-version "20.3")
@@ -741,7 +740,7 @@
 (custom-put-if-not 'eval-expression-print-level 'custom-version "21.1")
 (custom-put-if-not 'eval-expression-print-level 'standard-value t)
 
-(defvar custom-versions-load-alist '(("20.3.3" "dos-vars") ("20.4" "sh-script" "help" "compile") ("21.1" "debug" "paths" "sgml-mode" "fortran" "etags" "cus-edit" "add-log" "find-func" "simple") ("20.3" "desktop" "easymenu" "hscroll" "dabbrev" "ffap" "rmail" "paren" "mailabbrev" "frame" "uce" "mouse" "diary-lib" "sendmail" "debug" "avoid" "hexl" "vcursor" "vc" "compile" "etags" "help" "browse-url" "add-log" "find-func" "vc-hooks" "cus-edit" "replace"))
+(defvar custom-versions-load-alist '(("20.3.3" "dos-vars") ("20.4" "sh-script" "help" "compile") ("21.1" "debug" "paths" "sgml-mode" "fortran" "etags" "cus-edit" "add-log" "find-func" "simple") ("20.3" "desktop" "easymenu" "hscroll" "dabbrev" "ffap" "rmail" "paren" "mailabbrev" "uce" "mouse" "diary-lib" "sendmail" "debug" "hexl" "vcursor" "vc" "compile" "etags" "help" "browse-url" "add-log" "find-func" "vc-hooks" "cus-edit" "replace"))
  "For internal use by custom.")
 
 (provide 'cus-load)
--- a/lisp/loaddefs.el	Wed Mar 15 21:29:58 2000 +0000
+++ b/lisp/loaddefs.el	Wed Mar 15 23:09:16 2000 +0000
@@ -504,8 +504,8 @@
 
 ;;;***
 
-;;;### (autoloads (archive-mode) "arc-mode" "arc-mode.el" (14447
-;;;;;;  15307))
+;;;### (autoloads (archive-mode) "arc-mode" "arc-mode.el" (14539
+;;;;;;  44524))
 ;;; Generated autoloads from arc-mode.el
 
 (autoload (quote archive-mode) "arc-mode" "\
@@ -725,10 +725,20 @@
 
 ;;;***
 
-;;;### (autoloads (mouse-avoidance-mode) "avoid" "avoid.el" (14263
-;;;;;;  35271))
+;;;### (autoloads (mouse-avoidance-mode mouse-avoidance-mode) "avoid"
+;;;;;;  "avoid.el" (14539 53646))
 ;;; Generated autoloads from avoid.el
 
+(defvar mouse-avoidance-mode nil "\
+Activate mouse avoidance mode.  
+See function `mouse-avoidance-mode' for possible values.
+Setting this variable directly does not take effect;
+use either \\[customize] or the function `mouse-avoidance-mode'.")
+
+(custom-add-to-group (quote avoid) (quote mouse-avoidance-mode) (quote custom-variable))
+
+(custom-add-load (quote mouse-avoidance-mode) (quote avoid))
+
 (autoload (quote mouse-avoidance-mode) "avoid" "\
 Set cursor avoidance mode to MODE.
 MODE should be one of the symbols `banish', `exile', `jump', `animate',
@@ -2292,7 +2302,7 @@
 
 ;;;### (autoloads (ccl-execute-with-args check-ccl-program define-ccl-program
 ;;;;;;  declare-ccl-program ccl-dump ccl-compile) "ccl" "international/ccl.el"
-;;;;;;  (14236 19568))
+;;;;;;  (14543 61454))
 ;;; Generated autoloads from international/ccl.el
 
 (autoload (quote ccl-compile) "ccl" "\
@@ -3323,7 +3333,7 @@
 ;;;;;;  customize-option-other-window customize-changed-options customize-option
 ;;;;;;  customize-group-other-window customize-group customize customize-save-variable
 ;;;;;;  customize-set-variable customize-set-value) "cus-edit" "cus-edit.el"
-;;;;;;  (14505 58892))
+;;;;;;  (14542 5199))
 ;;; Generated autoloads from cus-edit.el
  (add-hook 'same-window-regexps "\\`\\*Customiz.*\\*\\'")
 
@@ -3409,7 +3419,7 @@
 If SYMBOL is nil, customize all faces." t nil)
 
 (autoload (quote customize-face-other-window) "cus-edit" "\
-Show customization buffer for FACE in other window." t nil)
+Show customization buffer for face SYMBOL in other window." t nil)
 
 (autoload (quote customize-customized) "cus-edit" "\
 Customize all user options set since the last save in this session." t nil)
@@ -3502,6 +3512,14 @@
 
 ;;;***
 
+;;;### (autoloads nil "cvs-status" "cvs-status.el" (14537 49316))
+;;; Generated autoloads from cvs-status.el
+
+(autoload (quote cvs-status-mode) "cvs-status" "\
+Mode used for cvs status output." t)
+
+;;;***
+
 ;;;### (autoloads (global-cwarn-mode turn-on-cwarn-mode cwarn-mode)
 ;;;;;;  "cwarn" "progmodes/cwarn.el" (14431 15379))
 ;;; Generated autoloads from progmodes/cwarn.el
@@ -4578,8 +4596,8 @@
 
 ;;;***
 
-;;;### (autoloads (define-minor-mode) "easy-mmode" "emacs-lisp/easy-mmode.el"
-;;;;;;  (14398 37514))
+;;;### (autoloads (easy-mmode-defsyntax easy-mmode-defmap define-minor-mode)
+;;;;;;  "easy-mmode" "emacs-lisp/easy-mmode.el" (14539 53684))
 ;;; Generated autoloads from emacs-lisp/easy-mmode.el
 
 (defalias (quote easy-mmode-define-minor-mode) (quote define-minor-mode))
@@ -4598,6 +4616,10 @@
 BODY contains code that will be executed each time the mode is (dis)activated.
 It will be executed after any toggling but before running the hooks." nil (quote macro))
 
+(autoload (quote easy-mmode-defmap) "easy-mmode" nil nil (quote macro))
+
+(autoload (quote easy-mmode-defsyntax) "easy-mmode" nil nil (quote macro))
+
 ;;;***
 
 ;;;### (autoloads (easy-menu-change easy-menu-create-menu easy-menu-do-define
@@ -5382,7 +5404,7 @@
 ;;;***
 
 ;;;### (autoloads (enriched-decode enriched-encode enriched-mode)
-;;;;;;  "enriched" "enriched.el" (14513 4487))
+;;;;;;  "enriched" "enriched.el" (14539 53665))
 ;;; Generated autoloads from enriched.el
 
 (autoload (quote enriched-mode) "enriched" "\
@@ -6019,7 +6041,7 @@
 ;;;;;;  facemenu-remove-special facemenu-remove-all facemenu-remove-face-props
 ;;;;;;  facemenu-set-read-only facemenu-set-intangible facemenu-set-invisible
 ;;;;;;  facemenu-set-face-from-menu facemenu-set-background facemenu-set-foreground
-;;;;;;  facemenu-set-face) "facemenu" "facemenu.el" (14529 14394))
+;;;;;;  facemenu-set-face) "facemenu" "facemenu.el" (14539 53665))
 ;;; Generated autoloads from facemenu.el
  (define-key global-map "\M-g" 'facemenu-keymap)
  (autoload 'facemenu-keymap "facemenu" "Keymap for face-changing commands." t 'keymap)
@@ -6613,7 +6635,7 @@
 ;;;### (autoloads (font-lock-fontify-buffer global-font-lock-mode
 ;;;;;;  global-font-lock-mode font-lock-remove-keywords font-lock-add-keywords
 ;;;;;;  turn-on-font-lock font-lock-mode) "font-lock" "font-lock.el"
-;;;;;;  (14535 40196))
+;;;;;;  (14539 53666))
 ;;; Generated autoloads from font-lock.el
 
 (defvar font-lock-mode-hook nil "\
@@ -6804,7 +6826,7 @@
 ;;;***
 
 ;;;### (autoloads (fortran-mode fortran-tab-mode-default) "fortran"
-;;;;;;  "progmodes/fortran.el" (14477 53257))
+;;;;;;  "progmodes/fortran.el" (14537 23071))
 ;;; Generated autoloads from progmodes/fortran.el
 
 (defvar fortran-tab-mode-default nil "\
@@ -7245,7 +7267,7 @@
 ;;;***
 
 ;;;### (autoloads (hanoi-unix-64 hanoi-unix hanoi) "hanoi" "play/hanoi.el"
-;;;;;;  (14268 8415))
+;;;;;;  (14539 53714))
 ;;; Generated autoloads from play/hanoi.el
 
 (autoload (quote hanoi) "hanoi" "\
@@ -8212,7 +8234,7 @@
 
 ;;;### (autoloads (info-complete-file info-complete-symbol info-lookup-file
 ;;;;;;  info-lookup-symbol info-lookup-reset) "info-look" "info-look.el"
-;;;;;;  (14272 15606))
+;;;;;;  (14539 53666))
 ;;; Generated autoloads from info-look.el
 
 (autoload (quote info-lookup-reset) "info-look" "\
@@ -9046,6 +9068,28 @@
 
 ;;;***
 
+;;;### (autoloads (log-edit) "log-edit" "log-edit.el" (14537 49316))
+;;; Generated autoloads from log-edit.el
+
+(autoload (quote log-edit) "log-edit" "\
+Setup a buffer to enter a log message.
+The buffer will be put in `log-edit-mode'.
+If SETUP is non-nil, the buffer is then erased and `log-edit-hook' is run.
+Mark and point will be set around the entire contents of the
+buffer so that it is easy to kill the contents of the buffer with \\[kill-region].
+Once you're done editing the message, pressing \\[log-edit-done] will call
+`log-edit-done' which will end up calling CALLBACK to do the actual commit." nil nil)
+
+;;;***
+
+;;;### (autoloads nil "log-view" "log-view.el" (14537 49316))
+;;; Generated autoloads from log-view.el
+
+(autoload (quote log-view-mode) "log-view" "\
+Major mode for browsing CVS log output." t)
+
+;;;***
+
 ;;;### (autoloads (print-region lpr-region print-buffer lpr-buffer
 ;;;;;;  lpr-command lpr-switches printer-name) "lpr" "lpr.el" (14440
 ;;;;;;  46009))
@@ -9468,7 +9512,7 @@
 
 ;;;***
 
-;;;### (autoloads (man-follow man) "man" "man.el" (14252 7234))
+;;;### (autoloads (man-follow man) "man" "man.el" (14539 53667))
 ;;; Generated autoloads from man.el
 
 (defalias (quote manual-entry) (quote man))
@@ -10661,6 +10705,54 @@
 
 ;;;***
 
+;;;### (autoloads (cvs-dired-use-hook cvs-status cvs-update cvs-examine
+;;;;;;  cvs-checkout) "pcvs" "pcvs.el" (14537 49318))
+;;; Generated autoloads from pcvs.el
+
+(autoload (quote cvs-checkout) "pcvs" "\
+Run a 'cvs checkout MODULES' in DIR.
+Feed the output to a *cvs* buffer, display it in the current window,
+and run `cvs-mode' on it.
+
+With a prefix argument, prompt for cvs FLAGS to use." t nil)
+
+(autoload (quote cvs-examine) "pcvs" "\
+Run a `cvs -n update' in the specified DIRECTORY.
+That is, check what needs to be done, but don't change the disc.
+Feed the output to a *cvs* buffer and run `cvs-mode' on it.
+With a prefix argument, prompt for a directory and cvs FLAGS to use.
+A prefix arg >8 (ex: \\[universal-argument] \\[universal-argument]),
+  prevents reuse of an existing *cvs* buffer.
+Optional argument NOSHOW if non-nil means not to display the buffer." t nil)
+
+(autoload (quote cvs-update) "pcvs" "\
+Run a `cvs update' in the current working DIRECTORY.
+Feed the output to a *cvs* buffer and run `cvs-mode' on it.
+With a prefix argument, prompt for a directory and cvs FLAGS to use.
+A prefix arg >8 (ex: \\[universal-argument] \\[universal-argument]),
+  prevents reuse of an existing *cvs* buffer." t nil)
+
+(autoload (quote cvs-status) "pcvs" "\
+Run a `cvs status' in the current working DIRECTORY.
+Feed the output to a *cvs* buffer and run `cvs-mode' on it.
+With a prefix argument, prompt for a directory and cvs FLAGS to use.
+A prefix arg >8 (ex: \\[universal-argument] \\[universal-argument]),
+  prevents reuse of an existing *cvs* buffer.
+Optional argument NOSHOW if non-nil means not to display the buffer." t nil)
+
+(add-to-list (quote completion-ignored-extensions) "CVS/")
+
+(defvar cvs-dired-use-hook (quote (4)) "\
+Whether or not opening a CVS directory should run PCL-CVS.
+NIL means never do it.
+ALWAYS means to always do it unless a prefix argument is given to the
+  command that prompted the opening of the directory.
+Anything else means to do it only if the prefix arg is equal to this value.")
+
+(progn (defun cvs-dired-noselect (dir) "Run `cvs-examine' if DIR is a CVS administrative directory.\nThe exact behavior is determined also by `cvs-dired-use-hook'." (when (stringp dir) (setq dir (directory-file-name dir)) (when (and (string= "CVS" (file-name-nondirectory dir)) (file-readable-p (expand-file-name "Entries" dir)) cvs-dired-use-hook (if (eq cvs-dired-use-hook (quote always)) (not current-prefix-arg) (equal current-prefix-arg cvs-dired-use-hook))) (save-excursion (cvs-examine (file-name-directory dir) t t))))))
+
+;;;***
+
 ;;;### (autoloads (perl-mode) "perl-mode" "progmodes/perl-mode.el"
 ;;;;;;  (13639 61036))
 ;;; Generated autoloads from progmodes/perl-mode.el
@@ -10993,7 +11085,7 @@
 ;;;;;;  ps-spool-region ps-spool-buffer-with-faces ps-spool-buffer
 ;;;;;;  ps-print-region-with-faces ps-print-region ps-print-buffer-with-faces
 ;;;;;;  ps-print-buffer ps-print-customize ps-paper-type) "ps-print"
-;;;;;;  "ps-print.el" (14454 86))
+;;;;;;  "ps-print.el" (14543 36973))
 ;;; Generated autoloads from ps-print.el
 
 (defvar ps-paper-type (quote letter) "\
@@ -11343,7 +11435,7 @@
 ;;;***
 
 ;;;### (autoloads (re-builder) "re-builder" "emacs-lisp/re-builder.el"
-;;;;;;  (14536 1936))
+;;;;;;  (14539 41135))
 ;;; Generated autoloads from emacs-lisp/re-builder.el
 
 (autoload (quote re-builder) "re-builder" "\
@@ -11352,8 +11444,8 @@
 ;;;***
 
 ;;;### (autoloads (recentf-open-more-files recentf-cleanup recentf-edit-list
-;;;;;;  recentf-save-list recentf-mode) "recentf" "recentf.el" (14533
-;;;;;;  31505))
+;;;;;;  recentf-save-list recentf-mode) "recentf" "recentf.el" (14539
+;;;;;;  49146))
 ;;; Generated autoloads from recentf.el
 
 (autoload (quote recentf-mode) "recentf" "\
@@ -11378,10 +11470,11 @@
 
 ;;;***
 
-;;;### (autoloads (clear-rectangle string-rectangle delete-whitespace-rectangle
-;;;;;;  open-rectangle insert-rectangle yank-rectangle kill-rectangle
-;;;;;;  extract-rectangle delete-extract-rectangle delete-rectangle
-;;;;;;  move-to-column-force) "rect" "rect.el" (14273 29571))
+;;;### (autoloads (clear-rectangle replace-rectangle string-rectangle
+;;;;;;  delete-whitespace-rectangle open-rectangle insert-rectangle
+;;;;;;  yank-rectangle kill-rectangle extract-rectangle delete-extract-rectangle
+;;;;;;  delete-rectangle move-to-column-force) "rect" "rect.el" (14537
+;;;;;;  23030))
 ;;; Generated autoloads from rect.el
 
 (autoload (quote move-to-column-force) "rect" "\
@@ -11461,6 +11554,9 @@
 The left edge of the rectangle specifies the column for insertion.
 This command does not delete or overwrite any existing text." t nil)
 
+(autoload (quote replace-rectangle) "rect" "\
+Like `string-rectangle', but replace the original region." t nil)
+
 (autoload (quote clear-rectangle) "rect" "\
 Blank out the region-rectangle.
 The text previously in the region is overwritten with blanks.
@@ -13853,7 +13949,7 @@
 ;;;***
 
 ;;;### (autoloads (texinfo-mode) "texinfo" "textmodes/texinfo.el"
-;;;;;;  (14302 8279))
+;;;;;;  (14536 60906))
 ;;; Generated autoloads from textmodes/texinfo.el
 
 (autoload (quote texinfo-mode) "texinfo" "\