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

diff --git a/src/editfns.c b/src/editfns.c
index a57ae823e56bbd019980eed145e21f2efc9de12d..a3a8f3edefdb993332c5a2dbd2376fbc9a2c7aaa 100644 (file)
--- 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)
 {