; Add cross-reference to string-equal docstring

* lisp/subr.el (string-equal-ignore-case):
* src/fns.c (Fstring_equal): Doc fix; add cross-references.

diff --git a/lisp/subr.el b/lisp/subr.el
index 15662162798073142b4ae72b1a3559f252e868a5..21f43092d4282e2d4dca96f38acb2a0d66973634 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -5437,7 +5437,9 @@ and replace a sub-expression, e.g.
 (defsubst string-equal-ignore-case (string1 string2)
   "Compare STRING1 and STRING2 case-insensitively.
 Upper-case and lower-case letters are treated as equal.
-Unibyte strings are converted to multibyte for comparison."
+Unibyte strings are converted to multibyte for comparison.
+
+See also `string-equal'."
   (declare (pure t) (side-effect-free t))
   (eq t (compare-strings string1 0 nil string2 0 nil t)))
 

diff --git a/src/fns.c b/src/fns.c
index 7cc6d00afeff9294830bd4682c5cf36a39ab7ff7..d8744c1a4de1a4b30108c029c1f13244fddafd8f 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -334,7 +334,9 @@ Letter-case is significant, but text properties are ignored. */)
 DEFUN ("string-equal", Fstring_equal, Sstring_equal, 2, 2, 0,
        doc: /* Return t if two strings have identical contents.
 Case is significant, but text properties are ignored.
-Symbols are also allowed; their print names are used instead.  */)
+Symbols are also allowed; their print names are used instead.
+
+See also `string-equal-ignore-case'.  */)
   (register Lisp_Object s1, Lisp_Object s2)
 {
   if (SYMBOLP (s1))