Source

pcl-cvs / cvs-compat.el

Diff from to

File cvs-compat.el

   (defmacro defface (sym val str &rest rest)
     `(defvar ,sym (make-face ',sym) ,str)))
 
-(defun cvs-prepare-diff-mode (flags files)
-  "Gross hack to support XEmacs's diff-mode."
-  (if (boundp 'diff-hunk-pattern) ; recognize old diff.el from EFS/Dired
-      (catch 'done
-	(let ((flags (or flags (list nil))))
-	  (while flags
-	    (let* ((flag (car flags))
-		   (flag-char (and (stringp flag) (aref flag 1)))
-		   (patterns (assq flag-char diff-search-pattern-alist)))
-	      (if patterns
-		  (progn
-		    (let ((old (car files))
-			  (new (car files)))
-		      (setq old-buffer (diff-get-file-buffer old)
-			    new-buffer (diff-get-file-buffer new)
-			    diff-old-file (cons old (cdr old-buffer))
-			    diff-new-file (cons new (cdr new-buffer))))
-		    (setq diff-old-file-pattern (nth 2 patterns)
-			  diff-new-file-pattern (nth 3 patterns)
-			  diff-hunk-pattern (nth 1 patterns))
-		    (throw 'done nil)))
-	      (setq flags (cdr flags))))))))
-
 ;;;;
 ;;;; missing functions in Emacs
 ;;;;