mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-07 20:54:32 +00:00
Code Issues Releases Activity

* term/ns-win.el (ns-insert-working-text, ns-put-working-text): Switch names and update comments for clarity.

Browse Source
This commit is contained in:
Adrian Robert 2009-01-23 13:00:21 +00:00
parent d900b2af45
commit 9d8f6d3166
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
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

11
lisp/term/ns-win.el
View File

@ -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."