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.
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
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
'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.
(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.
(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.