[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/pcvs-util.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/pcvs-util.el [emacs-unicode-2] |
Date: |
Thu, 09 Sep 2004 08:01:01 -0400 |
Index: emacs/lisp/pcvs-util.el
diff -c emacs/lisp/pcvs-util.el:1.19.4.2 emacs/lisp/pcvs-util.el:1.19.4.3
*** emacs/lisp/pcvs-util.el:1.19.4.2 Mon Jun 28 07:28:44 2004
--- emacs/lisp/pcvs-util.el Thu Sep 9 09:36:31 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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/pcvs-util.el [emacs-unicode-2],
Miles Bader <=