procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't call purecopy in dnd.el

Browse source 
* lisp/dnd.el (dnd-protocol-alist):
* lisp/pgtk-dnd.el (pgtk-dnd-types-alist, pgtk-dnd-known-types):
* lisp/x-dnd.el (x-dnd-types-alist, x-dnd-known-types):
Remove calls to purecopy.
This commit is contained in:
Stefan Kangas 2024-12-09 21:11:45 +01:00
parent 8bd246d87e
commit b0afe306b7
3 changed files with 53 additions and 54 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/dnd.el
View file

@ -42,11 +42,11 @@
;;;###autoload
(defcustom dnd-protocol-alist
`((,(purecopy "^file:///") . dnd-open-local-file) ; XDND format.
(,(purecopy "^file://[^/]") . dnd-open-file) ; URL with host
(,(purecopy "^file:/[^/]") . dnd-open-local-file) ; Old KDE, Motif, Sun
(,(purecopy "^file:[^/]") . dnd-open-local-file) ; MS-Windows
(,(purecopy "^\\(https?\\|ftp\\|nfs\\)://") . dnd-open-file))
'(("^file:///" . dnd-open-local-file) ; XDND format.
("^file://[^/]" . dnd-open-file) ; URL with host
("^file:/[^/]" . dnd-open-local-file) ; Old KDE, Motif, Sun
("^file:[^/]" . dnd-open-local-file) ; MS-Windows
("^\\(https?\\|ftp\\|nfs\\)://" . dnd-open-file))
"The functions to call for different protocols when a drop is made.
This variable is used by `dnd-handle-multiple-urls'.
The list contains of (REGEXP . FUNCTION) pairs.

36
lisp/pgtk-dnd.el
View file

@ -55,15 +55,15 @@ The default value for this variable is `pgtk-dnd-default-test-function'."
:group 'pgtk)
(defcustom pgtk-dnd-types-alist
`((,(purecopy "text/uri-list") . pgtk-dnd-handle-uri-list)
(,(purecopy "FILE_NAME") . pgtk-dnd-handle-file-name)
(,(purecopy "UTF8_STRING") . pgtk-dnd-insert-utf8-text)
(,(purecopy "text/plain;charset=UTF-8") . pgtk-dnd-insert-utf8-text)
(,(purecopy "text/plain;charset=utf-8") . pgtk-dnd-insert-utf8-text)
(,(purecopy "text/plain") . dnd-insert-text)
(,(purecopy "COMPOUND_TEXT") . pgtk-dnd-insert-ctext)
(,(purecopy "STRING") . dnd-insert-text)
(,(purecopy "TEXT") . dnd-insert-text))
`(("text/uri-list" . pgtk-dnd-handle-uri-list)
("FILE_NAME" . pgtk-dnd-handle-file-name)
("UTF8_STRING" . pgtk-dnd-insert-utf8-text)
("text/plain;charset=UTF-8" . pgtk-dnd-insert-utf8-text)
("text/plain;charset=utf-8" . pgtk-dnd-insert-utf8-text)
("text/plain" . dnd-insert-text)
("COMPOUND_TEXT" . pgtk-dnd-insert-ctext)
("STRING" . dnd-insert-text)
("TEXT" . dnd-insert-text))
"Which function to call to handle a drop of that type.
If the type for the drop is not present, or the function is nil,
the drop is rejected. The function takes three arguments, WINDOW, ACTION
@ -77,15 +77,15 @@ if drop is successful, nil if not."
:group 'pgtk)
(defcustom pgtk-dnd-known-types
(mapcar 'purecopy '("text/uri-list"
"FILE_NAME"
"UTF8_STRING"
"text/plain;charset=UTF-8"
"text/plain;charset=utf-8"
"text/plain"
"COMPOUND_TEXT"
"STRING"
"TEXT"))
'("text/uri-list"
"FILE_NAME"
"UTF8_STRING"
"text/plain;charset=UTF-8"
"text/plain;charset=utf-8"
"text/plain"
"COMPOUND_TEXT"
"STRING"
"TEXT")
"The types accepted by default for dropped data.
The types are chosen in the order they appear in the list."
:version "22.1"

61
lisp/x-dnd.el
View file

@ -58,21 +58,21 @@ The default value for this variable is `x-dnd-default-test-function'."
:group 'x)
(defcustom x-dnd-types-alist
`((,(purecopy "text/uri-list") . x-dnd-handle-uri-list)
(,(purecopy "text/x-moz-url") . x-dnd-handle-moz-url)
(,(purecopy "_NETSCAPE_URL") . x-dnd-handle-uri-list)
(,(purecopy "FILE_NAME") . x-dnd-handle-file-name)
(,(purecopy "UTF8_STRING") . x-dnd-insert-utf8-text)
(,(purecopy "text/plain;charset=UTF-8") . x-dnd-insert-utf8-text)
(,(purecopy "text/plain;charset=utf-8") . x-dnd-insert-utf8-text)
(,(purecopy "text/unicode") . x-dnd-insert-utf16-text)
(,(purecopy "text/plain") . dnd-insert-text)
(,(purecopy "COMPOUND_TEXT") . x-dnd-insert-ctext)
(,(purecopy "STRING") . dnd-insert-text)
(,(purecopy "TEXT") . dnd-insert-text)
(,(purecopy "DndTypeFile") . x-dnd-handle-offix-file)
(,(purecopy "DndTypeFiles") . x-dnd-handle-offix-files)
(,(purecopy "DndTypeText") . dnd-insert-text))
'(("text/uri-list" . x-dnd-handle-uri-list)
("text/x-moz-url" . x-dnd-handle-moz-url)
("_NETSCAPE_URL" . x-dnd-handle-uri-list)
("FILE_NAME" . x-dnd-handle-file-name)
("UTF8_STRING" . x-dnd-insert-utf8-text)
("text/plain;charset=UTF-8" . x-dnd-insert-utf8-text)
("text/plain;charset=utf-8" . x-dnd-insert-utf8-text)
("text/unicode" . x-dnd-insert-utf16-text)
("text/plain" . dnd-insert-text)
("COMPOUND_TEXT" . x-dnd-insert-ctext)
("STRING" . dnd-insert-text)
("TEXT" . dnd-insert-text)
("DndTypeFile" . x-dnd-handle-offix-file)
("DndTypeFiles" . x-dnd-handle-offix-files)
("DndTypeText" . dnd-insert-text))
"Functions to call to handle drag-and-drop of known types.
If the type of the drop is not present in the alist, or the
function corresponding to the type is nil, the drop of that
@ -90,22 +90,21 @@ excluding `ask') if drop is successful, nil if not."
:group 'x)
(defcustom x-dnd-known-types
(mapcar 'purecopy
'("XdndDirectSave0"
"text/uri-list"
"text/x-moz-url"
"_NETSCAPE_URL"
"FILE_NAME"
"UTF8_STRING"
"text/plain;charset=UTF-8"
"text/plain;charset=utf-8"
"text/unicode"
"text/plain"
"COMPOUND_TEXT"
"STRING"
"TEXT"
"DndTypeFile"
"DndTypeText"))
'("XdndDirectSave0"
"text/uri-list"
"text/x-moz-url"
"_NETSCAPE_URL"
"FILE_NAME"
"UTF8_STRING"
"text/plain;charset=UTF-8"
"text/plain;charset=utf-8"
"text/unicode"
"text/plain"
"COMPOUND_TEXT"
"STRING"
"TEXT"
"DndTypeFile"
"DndTypeText")
"The types accepted by default for dropped data.
The types are chosen in the order they appear in the list."
:version "22.1"