Show
Ignore:
Timestamp:
07/01/06 08:27:06 (3 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/pcvs.el

    r4091 r4098  
    468468         (set (make-local-variable 'list-buffers-directory) buffer-name) 
    469469         ;;(set (make-local-variable 'cvs-temp-buffer) (cvs-temp-buffer)) 
    470          (let ((cookies (ewoc-create 'cvs-fileinfo-pp "\n\n" "\n"))) 
     470         (let ((cookies (ewoc-create 'cvs-fileinfo-pp "\n\n" "\n" t))) 
    471471           (set (make-local-variable 'cvs-cookies) cookies) 
    472472           (add-hook 'kill-buffer-hook 
    …… 
    17241724          ;; Discard stderr output to work around the CVS+SSH+libc 
    17251725          ;; problem when stdout and stderr are the same. 
    1726           (let ((res (apply 'call-process cvs-program nil '(t nil) nil 
    1727                             "-q" "update" "-p" 
    1728                             ;; If `rev' is HEAD, don't pass it at all: 
    1729                             ;; the default behavior is to get the head 
    1730                             ;; of the current branch whereas "-r HEAD" 
    1731                             ;; stupidly gives you the head of the trunk. 
    1732                             (append (unless (equal rev "HEAD") (list "-r" rev)) 
    1733                                     (list file))))) 
     1726          (let ((res 
     1727                 (let ((coding-system-for-read 'binary)) 
     1728                   (apply 'call-process cvs-program nil '(t nil) nil 
     1729                          "-q" "update" "-p" 
     1730                          ;; If `rev' is HEAD, don't pass it at all: 
     1731                          ;; the default behavior is to get the head 
     1732                          ;; of the current branch whereas "-r HEAD" 
     1733                          ;; stupidly gives you the head of the trunk. 
     1734                          (append (unless (equal rev "HEAD") (list "-r" rev)) 
     1735                                  (list file)))))) 
    17341736            (when (and res (not (and (equal 0 res)))) 
    17351737              (error "Something went wrong retrieving revision %s: %s" rev res)) 
     1738            ;; Figure out the encoding used and decode the byte-sequence 
     1739            ;; into a sequence of chars. 
     1740            (decode-coding-inserted-region 
     1741             (point-min) (point-max) file t nil nil t) 
    17361742            (set-buffer-modified-p nil) 
    17371743            (let ((buffer-file-name (expand-file-name file)))