Commit 4472ac28 authored by csr21's avatar csr21
Browse files

always return object from save-id

Whoops; the previous change broke resources from other clients entirely.
Spotted while testing McCLIM's highlight and paste.

darcs-hash:20080826211255-df18d-730b3d1ae5fb374a6c05b47540ca663c251a5483.gz
parent 970eef3a
......@@ -215,7 +215,8 @@
(let ((base (display-resource-id-base display))
(mask (display-resource-id-mask display)))
(when (= (logandc2 id mask) base)
(setf (gethash id (display-resource-id-map display)) object))))
(setf (gethash id (display-resource-id-map display)) object))
object))
;; Define functions to find the CLX data types given a display and resource-id
;; If the data type is being cached, look there first.
......
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