summaryrefslogtreecommitdiff
path: root/lisp/term
diff options
context:
space:
mode:
authorAlan Third <alan@idiocy.org>2020-02-11 17:27:11 +0000
committerAlan Third <alan@idiocy.org>2020-02-11 17:27:11 +0000
commit89d0c4451f4807a5f0e1adf9a9df395f84407066 (patch)
tree16d9c590693aa76bf8bf7ca1d9f8706f671d980c /lisp/term
parentad5e350ab764f3a420d29f24ab3222f671b2e8c0 (diff)
downloademacs-89d0c4451f4807a5f0e1adf9a9df395f84407066.tar.gz
Revert "Fix display of working text on NS (Bug#23412, Bug#1453)"
This reverts commit ba042176d8931cdf9441b3b4919ec74b75019494. Do not merge to master (bug#38851)
Diffstat (limited to 'lisp/term')
-rw-r--r--lisp/term/ns-win.el10
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el
index 6acf6cd1992..90024b001f7 100644
--- a/lisp/term/ns-win.el
+++ b/lisp/term/ns-win.el
@@ -314,9 +314,10 @@ The overlay is assigned the face `ns-working-text-face'."
(interactive)
(ns-delete-working-text)
(let ((start (point)))
- (overlay-put (setq ns-working-overlay (make-overlay start (point)))
- 'after-string
- (propertize ns-working-text 'face 'ns-working-text-face))))
+ (insert ns-working-text)
+ (overlay-put (setq ns-working-overlay (make-overlay start (point)
+ (current-buffer) nil t))
+ 'face 'ns-working-text-face)))
(defun ns-echo-working-text ()
"Echo contents of `ns-working-text' in message display area.
@@ -339,7 +340,8 @@ See `ns-insert-working-text'."
;; Still alive?
(overlay-buffer ns-working-overlay))
(with-current-buffer (overlay-buffer ns-working-overlay)
- (overlay-put ns-working-overlay 'after-string nil)
+ (delete-region (overlay-start ns-working-overlay)
+ (overlay-end ns-working-overlay))
(delete-overlay ns-working-overlay)))
((integerp ns-working-overlay)
(let ((msg (current-message))