[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 8975400: Change gui--selection-value-internal comme
From: |
Stefan Kangas |
Subject: |
[Emacs-diffs] master 8975400: Change gui--selection-value-internal comment into doc string |
Date: |
Fri, 13 Sep 2019 09:01:08 -0400 (EDT) |
branch: master
commit 897540069fb09d091802046046daca821079aac5
Author: Stefan Kangas <address@hidden>
Commit: Stefan Kangas <address@hidden>
Change gui--selection-value-internal comment into doc string
* lisp/select.el (gui--selection-value-internal): Change comment into
doc string. (Bug#25528)
---
lisp/select.el | 9 ++++-----
1 file changed, 4 insertions(+), 5 deletions(-)
diff --git a/lisp/select.el b/lisp/select.el
index 59bcf7d..334e10f 100644
--- a/lisp/select.el
+++ b/lisp/select.el
@@ -160,12 +160,11 @@ The value nil is the same as the list (UTF8_STRING
COMPOUND_TEXT STRING)."
(const TEXT)))
:group 'killing)
-;; Get a selection value of type TYPE by calling gui-get-selection with
-;; an appropriate DATA-TYPE argument decided by `x-select-request-type'.
-;; The return value is already decoded. If gui-get-selection causes an
-;; error, this function return nil.
-
(defun gui--selection-value-internal (type)
+ "Get a selection value of type TYPE.
+Call `gui-get-selection' with an appropriate DATA-TYPE argument
+decided by `x-select-request-type'. The return value is already
+decoded. If `gui-get-selection' signals an error, return nil."
(let ((request-type (if (eq window-system 'x)
(or x-select-request-type
'(UTF8_STRING COMPOUND_TEXT STRING))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 8975400: Change gui--selection-value-internal comment into doc string,
Stefan Kangas <=