diff options
| author | Glenn Morris <rgm@gnu.org> | 2014-08-25 12:40:53 -0400 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2014-08-25 12:40:53 -0400 |
| commit | 20a4f6a967dc864b1fb5428a3f358246f5ab67f8 (patch) | |
| tree | 873194243ef101966b49a1be198562bfaca34a69 /lisp/emulation/cua-rect.el | |
| parent | 934cde5459b50b54901c1583e7d19ff0dd5dd6ab (diff) | |
| download | emacs-20a4f6a967dc864b1fb5428a3f358246f5ab67f8.tar.gz | |
* emulation/cua-rect.el (cua--highlight-rectangle): Avoid error at point-min.
Fixes: debbugs:18309
Diffstat (limited to 'lisp/emulation/cua-rect.el')
| -rw-r--r-- | lisp/emulation/cua-rect.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el index 31dd137a6b9..4620b0e8c0f 100644 --- a/lisp/emulation/cua-rect.el +++ b/lisp/emulation/cua-rect.el @@ -794,7 +794,7 @@ If command is repeated at same position, delete the rectangle." (make-string (- l cl0 (if (and (= le pl) (/= le lb)) 1 0)) (if cua--virtual-edges-debug ?. ?\s)) - 'face (or (get-text-property (1- s) 'face) 'default))) + 'face (or (get-text-property (max (1- s) (point-min)) 'face) 'default))) (if (/= pl le) (setq s (1- s)))) (cond |