Commit 9d8f6d31 authored by Adrian Robert's avatar Adrian Robert
Browse files

* term/ns-win.el (ns-insert-working-text, ns-put-working-text): Switch names...

* term/ns-win.el (ns-insert-working-text, ns-put-working-text): Switch names and update comments for clarity.
parent d900b2af
2009-01-23 Adrian Robert <Adrian.B.Robert@gmail.com>
* term/ns-win.el (ns-insert-working-text, ns-put-working-text): Switch
names and update comments for clarity.
2009-01-23 Stefan Monnier <monnier@iro.umontreal.ca>
 
* mail/rmail.el (rmail-write-region-annotate): Only switch buffer if
......
......@@ -815,15 +815,16 @@ is currently being used."
(eq (get-char-property (1- (point)) 'composition)
(get-char-property (point) 'composition)))))))
;; Currently not used, doesn't work because the 'interactive' here stays
;; for subinvocations.
(defun ns-insert-working-text ()
;; The 'interactive' here stays for subinvocations, so the ns-in-echo-area
;; always returns nil for some reason. If this WASN'T the case, we could
;; map this to [ns-insert-working-text] and eliminate Fevals in nsterm.m.
(defun ns-put-working-text ()
(interactive)
(if (ns-in-echo-area) (ns-echo-working-text) (ns-put-working-text)))
(if (ns-in-echo-area) (ns-echo-working-text) (ns-insert-working-text)))
(defvar ns-working-text) ; nsterm.m
(defun ns-put-working-text ()
(defun ns-insert-working-text ()
"Insert contents of ns-working-text as UTF8 string and mark with
ns-working-overlay. Any previously existing working text is cleared first.
The overlay is assigned the face ns-working-text-face."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment