]> git.eshelyaron.com Git - emacs.git/commitdiff
Minor improvements to labeled narrowing
authorGregory Heytings <gregory@heytings.org>
Mon, 13 Feb 2023 10:23:39 +0000 (10:23 +0000)
committerGregory Heytings <gregory@heytings.org>
Mon, 13 Feb 2023 10:39:46 +0000 (11:39 +0100)
* lisp/subr.el (internal--with-narrowing):
(internal--without-narrowing): Remove unnecessary 'progn'.

* etc/NEWS: Mention 'with-narrowing' in the entry about long
lines.

* doc/lispref/positions.texi (Narrowing): Fix typo.

* doc/lispref/display.texi (Auto Faces): Use @pxref.

* doc/lispref/commands.texi (Command Overview): Use @pxref.

doc/lispref/commands.texi
doc/lispref/display.texi
doc/lispref/positions.texi
etc/NEWS
lisp/subr.el

index be34027d21db8fec422ecddaf9afa4d0b1791f08..9723c279a454112db3b06b41a567ee7824a5f682 100644 (file)
@@ -100,8 +100,8 @@ emacs, The GNU Emacs Manual}) runs these two hooks just as a keyboard
 command does.
 
   Note that, when the buffer text includes very long lines, these two
-hooks are called as if they were in a @code{with-narrowing} form (see
-@ref{Narrowing}), with a
+hooks are called as if they were in a @code{with-narrowing} form
+(@pxref{Narrowing}), with a
 @code{long-line-optimizations-in-command-hooks} label and with the
 buffer narrowed to a portion around point.
 
index 1b7ef006634eaa2dc5c57bb2d4082eb116428852..f0ca7440c6097491a41bc124e3592e71b58a8c9a 100644 (file)
@@ -3503,7 +3503,7 @@ usually assign faces to around 400 to 600 characters at each call.
 
 Note that, when the buffer text includes very long lines, these
 functions are called as if they were in a @code{with-narrowing} form
-(see @ref{Narrowing}), with a
+(@pxref{Narrowing}), with a
 @code{long-line-optimizations-in-fontification-functions} label and
 with the buffer narrowed to a portion around @var{pos}.
 @end defvar
index e7d5c610d675da1cb42152c5c6cc29935b32101a..bad83e1be2d3fe99f0fa320e6e2f24ae6b54d843 100644 (file)
@@ -1193,5 +1193,5 @@ restores the saved bounds.  In that case it is equivalent to
 
 When the optional @var{label} argument is present however, the
 narrowing set by @code{with-narrowing} with the same @var{label}
-argument are lifted.
+argument is lifted.
 @end defspec
index 01e7f2cfb09fedd7eb99b1799ced1fa52f13c945..de4f65ebe629ab75e7122c78358708b61255e08e 100644 (file)
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -619,8 +619,9 @@ In buffers in which these display optimizations are in effect, the
 'fontification-functions', 'pre-command-hook' and 'post-command-hook'
 hooks are executed on a narrowed portion of the buffer, whose size is
 controlled by the options 'long-line-optimizations-region-size' and
-'long-line-optimizations-bol-search-limit'.  This may, in particular,
-cause occasional mis-fontifications in these buffers.
+'long-line-optimizations-bol-search-limit', as if they were in a
+'with-narrowing' form.  This may, in particular, cause occasional
+mis-fontifications in these buffers.
 
 The new function 'long-line-optimizations-p' returns non-nil when
 these optimizations are in effect in the current buffer.
index 7ed0cb02a70d45d1fa07579c61a165516beeace2..d280c7fef13752bede36c0aae722fd6fffb52e07 100644 (file)
@@ -3961,10 +3961,9 @@ same LABEL argument.
 (defun internal--with-narrowing (start end body &optional label)
   "Helper function for `with-narrowing', which see."
   (save-restriction
-    (progn
-      (narrow-to-region start end)
-      (if label (internal--lock-narrowing label))
-      (funcall body))))
+    (narrow-to-region start end)
+    (if label (internal--lock-narrowing label))
+    (funcall body)))
 
 (defmacro without-narrowing (&rest rest)
   "Execute BODY without restrictions.
@@ -3984,10 +3983,9 @@ are lifted.
 (defun internal--without-narrowing (body &optional label)
   "Helper function for `without-narrowing', which see."
   (save-restriction
-    (progn
-      (if label (internal--unlock-narrowing label))
-      (widen)
-      (funcall body))))
+    (if label (internal--unlock-narrowing label))
+    (widen)
+    (funcall body)))
 
 (defun find-tag-default-bounds ()
   "Determine the boundaries of the default tag, based on text at point.