2 files changed, 6 insertions, 2 deletions

diff --git a/lisp/subr.el b/lisp/subr.el
index 15662162798..21f43092d42 100644
--- 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 7cc6d00afef..d8744c1a4de 100644
--- 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))