summaryrefslogtreecommitdiff
path: root/lisp/term
diff options
context:
space:
mode:
authorSam Steingold <sds@gnu.org>2011-02-01 16:37:12 -0500
committerSam Steingold <sds@gnu.org>2011-02-01 16:37:12 -0500
commit8098eb1d21b004c6cf9c153188f1574267eb5ec0 (patch)
tree63cd3f48d98ae69448cc6c92cf999cbb1453ebbf /lisp/term
parenta4348c24258a1f2cf79c6d451117490f28e6dc88 (diff)
downloademacs-8098eb1d21b004c6cf9c153188f1574267eb5ec0.tar.gz
undo 103071 (purecopy-cons, purecopy-car) at Stefan Monnier's request
Diffstat (limited to 'lisp/term')
-rw-r--r--lisp/term/x-win.el3
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index c966fc561cb..1ec80d5c277 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -1447,7 +1447,8 @@ Request data types in the order specified by `x-select-request-type'."
(define-key special-event-map [drag-n-drop] 'x-dnd-handle-drag-n-drop-event)
(defcustom x-gtk-stock-map
- (mapcar 'purecopy-cons
+ (mapcar (lambda (arg)
+ (cons (purecopy (car arg)) (purecopy (cdr arg))))
'(
("etc/images/new" . "gtk-new")
("etc/images/open" . "gtk-open")