From: Gregory Heytings <gregory@heytings.org>
Date: Sun, 27 Nov 2022 01:02:16 +0000 (+0000)
Subject: ; * src/editfns.c: Minor improvements in comments.
X-Git-Tag: emacs-29.0.90~1447^2~1
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=914b7903ad1c68cff174274d585685939186bcf4;p=emacs.git

; * src/editfns.c: Minor improvements in comments.
---

diff --git a/src/editfns.c b/src/editfns.c
index a57ae823e56..a3a8f3edefd 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -2703,7 +2703,8 @@ narrowing_lock_get_bound (Lisp_Object buf, bool begv, bool outermost)
   return XMARKER (marker);
 }
 
-/* Retrieve the tag of the innermost narrowing in BUF.  */
+/* Retrieve the tag of the innermost narrowing in BUF.  Return nil if
+   BUF is not in narrowing_locks or is a killed buffer.  */
 static Lisp_Object
 narrowing_lock_peek_tag (Lisp_Object buf)
 {
@@ -2815,7 +2816,7 @@ unwind_narrow_to_region_locked (Lisp_Object tag)
   Fwiden ();
 }
 
-/* Narrow current_buffer to BEGV-ZV with a locked narrowing */
+/* Narrow current_buffer to BEGV-ZV with a narrowing locked with TAG.  */
 void
 narrow_to_region_locked (Lisp_Object begv, Lisp_Object zv, Lisp_Object tag)
 {