/[emacs]/emacs/lisp/pcvs-defs.el
ViewVC logotype

Diff of /emacs/lisp/pcvs-defs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.17 by pj, Thu Dec 20 18:42:44 2001 UTC revision 1.17.4.1 by miles, Fri Apr 4 06:20:10 2003 UTC
# Line 40  Line 40 
40  (defvar cvs-version  (defvar cvs-version
41    (ignore-errors    (ignore-errors
42      (with-temp-buffer      (with-temp-buffer
43        (call-process "cvs" nil t nil "-v")        (call-process cvs-program nil t nil "-v")
44        (goto-char (point-min))        (goto-char (point-min))
45        (when (re-search-forward "(CVS) \\([0-9]+\\)\\.\\([0-9]+\\)" nil t)        (when (re-search-forward "(CVS) \\([0-9]+\\)\\.\\([0-9]+\\)" nil t)
46          (cons (string-to-number (match-string 1))          (cons (string-to-number (match-string 1))
# Line 105  Else, they will never be automatically r Line 105  Else, they will never be automatically r
105    
106  (defcustom cvs-auto-remove-directories 'handled  (defcustom cvs-auto-remove-directories 'handled
107    "*If ALL, directory entries will never be shown.    "*If ALL, directory entries will never be shown.
108  If HANLDED, only non-handled directories will be shown.  If HANDLED, only non-handled directories will be shown.
109  If EMPTY, only non-empty directories will be shown."  If EMPTY, only non-empty directories will be shown."
110    :group 'pcl-cvs    :group 'pcl-cvs
111    :type '(choice (const :tag "No" nil) (const all) (const handled) (const empty)))    :type '(choice (const :tag "No" nil) (const all) (const handled) (const empty)))
# Line 137  current line.  See also `cvs-invert-igno Line 137  current line.  See also `cvs-invert-igno
137    :group 'pcl-cvs    :group 'pcl-cvs
138    :type '(boolean))    :type '(boolean))
139    
140  (defvar cvs-diff-ignore-marks t  (defvar cvs-diff-ignore-marks t)
141    "Obsolete: use `cvs-invert-ignore-marks' instead.")  (make-obsolete-variable 'cvs-diff-ignore-marks
142                            'cvs-invert-ignore-marks)
143    
144  (defcustom cvs-invert-ignore-marks  (defcustom cvs-invert-ignore-marks
145    (let ((l ()))    (let ((l ()))
# Line 173  If set to nil, `cvs-mode-add' will alway Line 174  If set to nil, `cvs-mode-add' will alway
174    :type '(choice (const :tag "Prompt" nil)    :type '(choice (const :tag "Prompt" nil)
175                   (string)))                   (string)))
176    
177  (defvar cvs-diff-buffer-name "*cvs-diff*"  (defvar cvs-diff-buffer-name "*cvs-diff*")
178    "Obsolete variable: use `cvs-buffer-name-alist' instead.")  (make-obsolete-variable 'cvs-diff-buffer-name
179                            'cvs-buffer-name-alist)
180    
181  (defcustom cvs-find-file-and-jump nil  (defcustom cvs-find-file-and-jump nil
182    "Jump to the modified area when finding a file.    "Jump to the modified area when finding a file.
# Line 324  This variable is buffer local and only u Line 326  This variable is buffer local and only u
326      ("q" .      cvs-bury-buffer)      ("q" .      cvs-bury-buffer)
327      ("z" .      kill-this-buffer)      ("z" .      kill-this-buffer)
328      ("F" .      cvs-mode-set-flags)      ("F" .      cvs-mode-set-flags)
329      ("\M-f" .   cvs-mode-force-command)      ;; ("\M-f" .        cvs-mode-force-command)
330        ("!" .      cvs-mode-force-command)
331      ("\C-c\C-c" . cvs-mode-kill-process)      ("\C-c\C-c" . cvs-mode-kill-process)
332      ;; marking      ;; marking
333      ("m" .      cvs-mode-mark)      ("m" .      cvs-mode-mark)
# Line 433  This variable is buffer local and only u Line 436  This variable is buffer local and only u
436    :group 'pcl-cvs)    :group 'pcl-cvs)
437    
438  (easy-mmode-defmap cvs-minor-mode-map  (easy-mmode-defmap cvs-minor-mode-map
439    `((,cvs-minor-mode-prefix . cvs-mode-map))    `((,cvs-minor-mode-prefix . cvs-mode-map)
440        ("e" . (menu-item nil cvs-mode-edit-log
441                :filter (lambda (x) (if (derived-mode-p 'log-view-mode) x)))))
442    "Keymap for `cvs-minor-mode', used in buffers related to PCL-CVS.")    "Keymap for `cvs-minor-mode', used in buffers related to PCL-CVS.")
443    
444  (defvar cvs-buffer nil  (defvar cvs-buffer nil

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.17.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26