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

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

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

revision 1.19.4.2 by miles, Mon Jun 28 07:28:44 2004 UTC revision 1.19.4.3 by miles, Thu Sep 9 09:36:31 2004 UTC
# Line 1  Line 1 
1  ;;; pcvs-util.el --- utility functions for PCL-CVS  -*- byte-compile-dynamic: t -*-  ;;; pcvs-util.el --- utility functions for PCL-CVS  -*- byte-compile-dynamic: t -*-
2    
3  ;; Copyright (C) 1991,92,93,94,95,96,97,98,99, 2000,01,04  ;; Copyright (C) 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998, 1999,
4  ;;  Free Software Foundation, Inc.  ;;   2000, 2001, 2004  Free Software Foundation, Inc.
5    
6  ;; Author: Stefan Monnier <monnier@cs.yale.edu>  ;; Author: Stefan Monnier <monnier@cs.yale.edu>
7  ;; Keywords: pcl-cvs  ;; Keywords: pcl-cvs
# Line 180  arguments.  If ARGS is not a list, no ar Line 180  arguments.  If ARGS is not a list, no ar
180    
181  (defun cvs-string-prefix-p (str1 str2)  (defun cvs-string-prefix-p (str1 str2)
182    "Tell whether STR1 is a prefix of STR2."    "Tell whether STR1 is a prefix of STR2."
183    (let ((length1 (length str1)))    (eq t (compare-strings str2 nil (length str1) str1 nil nil)))
     (and (>= (length str2) length1)  
          (string= str1 (substring str2 0 length1)))))  
184    
185  ;; (string->strings (strings->string X)) == X  ;; (string->strings (strings->string X)) == X
186  (defun cvs-strings->string (strings &optional separator)  (defun cvs-strings->string (strings &optional separator)
# Line 392  and reset it unless READ-ONLY is non-nil Line 390  and reset it unless READ-ONLY is non-nil
390    
391  (provide 'pcvs-util)  (provide 'pcvs-util)
392    
393  ;;; arch-tag: 3b2588bb-2ae3-4f1f-bf5b-dea91b1f8a59  ;; arch-tag: 3b2588bb-2ae3-4f1f-bf5b-dea91b1f8a59
394  ;;; pcvs-util.el ends here  ;;; pcvs-util.el ends here

Legend:
Removed from v.1.19.4.2  
changed lines
  Added in v.1.19.4.3

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