diff options
| author | Eli Zaretskii | 2025-04-26 17:20:01 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2025-04-26 17:20:01 +0300 |
| commit | f7aad714d2854e3f05d87298776628df1d5bfbb2 (patch) | |
| tree | 79c8e4ce9d723cbca62619f352ab9531982fe071 | |
| parent | ec8075219da2e3cb676d89db58164f54b079b85d (diff) | |
| download | emacs-f7aad714d2854e3f05d87298776628df1d5bfbb2.tar.gz emacs-f7aad714d2854e3f05d87298776628df1d5bfbb2.zip | |
Avoid signaling errors in 'cursor-face-highlight-mode'
* lisp/simple.el (redisplay--update-cursor-face-highlight): Don't
go beyond the accessible portion of the buffer. (Bug#77747)
| -rw-r--r-- | lisp/simple.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index ee09a6f1b19..486092de2c8 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -7265,7 +7265,7 @@ This variable is similar to `highlight-nonselected-windows'." | |||
| 7265 | (pt (window-point window)) | 7265 | (pt (window-point window)) |
| 7266 | (cursor-face (get-text-property pt 'cursor-face))) | 7266 | (cursor-face (get-text-property pt 'cursor-face))) |
| 7267 | (let* ((start (previous-single-property-change | 7267 | (let* ((start (previous-single-property-change |
| 7268 | (1+ pt) 'cursor-face nil (point-min))) | 7268 | (min (1+ pt) (point-max)) 'cursor-face nil (point-min))) |
| 7269 | (end (next-single-property-change | 7269 | (end (next-single-property-change |
| 7270 | pt 'cursor-face nil (point-max))) | 7270 | pt 'cursor-face nil (point-max))) |
| 7271 | (new (redisplay--highlight-overlay-function | 7271 | (new (redisplay--highlight-overlay-function |