[Emacs-diffs] emacs/lisp ChangeLog subr.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/11/25 03:59:23

Modified files:
        lisp           : ChangeLog subr.el 

Log message:
        (string-prefix-p): New function.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16725&r2=1.16726
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/subr.el?cvsroot=emacs&r1=1.666&r2=1.667

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16725
retrieving revision 1.16726
diff -u -b -r1.16725 -r1.16726
--- ChangeLog   25 Nov 2009 03:51:00 -0000      1.16725
+++ ChangeLog   25 Nov 2009 03:59:19 -0000      1.16726
@@ -1,5 +1,7 @@
 2009-11-25  Stefan Monnier  <address@hidden>
 
+       * subr.el (string-prefix-p): New function.
+
        * man.el (Man-completion-cache): New var.
        (Man-completion-table): Use it.
 

Index: subr.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/subr.el,v
retrieving revision 1.666
retrieving revision 1.667
diff -u -b -r1.666 -r1.667
--- subr.el     11 Nov 2009 06:36:44 -0000      1.666
+++ subr.el     25 Nov 2009 03:59:23 -0000      1.667
@@ -3193,6 +3193,13 @@
       (setq matches (cons (substring string start l) matches)) ; leftover
       (apply #'concat (nreverse matches)))))
 
+(defun string-prefix-p (str1 str2 &optional ignore-case)
+  "Return non-nil if STR1 is a prefix of STR2.
+If IGNORE-CASE is non-nil, the comparison is done without paying attention
+to case differences."
+  (eq t (compare-strings str1 nil nil
+                         str2 0 (length str1) ignore-case)))
+
 ;;;; invisibility specs
 
 (defun add-to-invisibility-spec (element)