[Emacs-diffs] Changes to emacs/lisp/pcvs-util.el [lexbind]

[Miles Bader]

Index: emacs/lisp/pcvs-util.el
diff -c emacs/lisp/pcvs-util.el:1.17.4.3 emacs/lisp/pcvs-util.el:1.17.4.4
*** emacs/lisp/pcvs-util.el:1.17.4.3    Tue Jul  6 09:31:49 2004
--- emacs/lisp/pcvs-util.el     Thu Sep 16 00:12:21 2004
***************
*** 1,7 ****
  ;;; pcvs-util.el --- utility functions for PCL-CVS  -*- byte-compile-dynamic: 
t -*-
  
! ;; Copyright (C) 1991,92,93,94,95,96,97,98,99, 2000,01,04
! ;;  Free Software Foundation, Inc.
  
  ;; Author: Stefan Monnier <address@hidden>
  ;; Keywords: pcl-cvs
--- 1,7 ----
  ;;; pcvs-util.el --- utility functions for PCL-CVS  -*- byte-compile-dynamic: 
t -*-
  
! ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
! ;;   2000, 2001, 2004  Free Software Foundation, Inc.
  
  ;; Author: Stefan Monnier <address@hidden>
  ;; Keywords: pcl-cvs
***************
*** 180,188 ****
  
  (defun cvs-string-prefix-p (str1 str2)
    "Tell whether STR1 is a prefix of STR2."
!   (let ((length1 (length str1)))
!     (and (>= (length str2) length1)
!        (string= str1 (substring str2 0 length1)))))
  
  ;; (string->strings (strings->string X)) == X
  (defun cvs-strings->string (strings &optional separator)
--- 180,186 ----
  
  (defun cvs-string-prefix-p (str1 str2)
    "Tell whether STR1 is a prefix of STR2."
!   (eq t (compare-strings str2 nil (length str1) str1 nil nil)))
  
  ;; (string->strings (strings->string X)) == X
  (defun cvs-strings->string (strings &optional separator)
***************
*** 392,396 ****
  
  (provide 'pcvs-util)
  
! ;;; arch-tag: 3b2588bb-2ae3-4f1f-bf5b-dea91b1f8a59
  ;;; pcvs-util.el ends here
--- 390,394 ----
  
  (provide 'pcvs-util)
  
! ;; arch-tag: 3b2588bb-2ae3-4f1f-bf5b-dea91b1f8a59
  ;;; pcvs-util.el ends here