[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/pcvs.el
From: |
Thien-Thi Nguyen |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/pcvs.el |
Date: |
Thu, 18 May 2006 12:07:10 +0000 |
Index: emacs/lisp/pcvs.el
diff -u emacs/lisp/pcvs.el:1.90 emacs/lisp/pcvs.el:1.91
--- emacs/lisp/pcvs.el:1.90 Mon Feb 6 14:33:34 2006
+++ emacs/lisp/pcvs.el Thu May 18 12:07:10 2006
@@ -467,7 +467,7 @@
(cvs-mode)
(set (make-local-variable 'list-buffers-directory) buffer-name)
;;(set (make-local-variable 'cvs-temp-buffer) (cvs-temp-buffer))
- (let ((cookies (ewoc-create 'cvs-fileinfo-pp "\n" "")))
+ (let ((cookies (ewoc-create 'cvs-fileinfo-pp "\n\n" "\n")))
(set (make-local-variable 'cvs-cookies) cookies)
(add-hook 'kill-buffer-hook
(lambda ()
@@ -618,7 +618,7 @@
(str (car hf))
(done "")
(tin (ewoc-nth cvs-cookies 0)))
- (if (eq (length str) 1) (setq str ""))
+ (if (eq (length str) 2) (setq str ""))
;; look for the first *real* fileinfo (to determine emptyness)
(while
(and tin
@@ -633,6 +633,7 @@
(setq str (replace-match "" t t str))
(if (zerop (length str)) (setq str "\n"))
(setq done (concat "-- last cmd: " cmd " --"))))
+ (setq str (concat str "\n") done (concat done "\n"))
;; set the new header and footer
(ewoc-set-hf cvs-cookies
str (concat "\n--------------------- "
- [Emacs-diffs] Changes to emacs/lisp/pcvs.el,
Thien-Thi Nguyen <=