ป้องกันการคลิกเมาส์ในเฟรมที่ไม่ใช้งานจากจุด reposistioning

ฉันต้องการป้องกันการคลิก "ครั้งแรก" บนเฟรมในหน้าต่าง X ที่ไม่ใช้งานไม่ให้มีผลกระทบใด ๆ นอกจากจะทำให้เฟรมใช้งานได้ โดยเฉพาะฉันไม่ต้องการให้เปลี่ยนตำแหน่ง

ปัญหาคือว่าฉันไม่สามารถดูเหมือนจะตรวจสอบว่าเขากรอบก็ไม่ได้ใช้งานเมื่อฉันได้รับการคลิกเมาส์ ดังนั้นรหัสต่อไปนี้จะแสดง"y":

;; detect if frame is active when clicking
(defun my/mouse-drag-region (event)
  (interactive "e")
  (mouse-minibuffer-check event)
  (let* ((window (caadr event))
         (frame (window-frame window)))
    (if (eql frame (selected-frame))
        (print "y")
      (print "n"))))
(global-set-key [down-mouse-1] 'my/mouse-drag-region)

ฉันจะตรวจสอบได้อย่างไรว่าเฟรมไม่ได้ใช้งานมาก่อน

หรือมีใครบางคนประสบความสำเร็จในสิ่งที่ฉันพยายามจะทำที่อื่น?

หมายเหตุ:ฉันกำลังถามหาสิ่งที่แตกต่างจากคำถามอื่นซึ่งเกี่ยวกับหน้าต่างที่ไม่ได้ใช้งานไม่ใช่เฟรมที่ไม่ได้ใช้งาน

ฉันไม่คิดว่ามันเป็นไปได้จากใน Emacs ปัญหาคือทันทีที่คุณคลิกในเฟรมตัวจัดการหน้าต่างจะเลือกเฟรมนั้น Emacs มองเห็นมันทันทีที่เฟรมที่เลือก

รหัสทดสอบของคุณแสดงให้เห็นสิ่งนี้ ไม่มีการให้คำปรึกษาใด ๆmouse-drag-regionหรือmouse-set-point(หรือฟังก์ชั่น Emacs อื่น ๆ ) จะสร้างความแตกต่าง

(อาจมีบางสิ่งที่คุณสามารถทำได้ในระดับ X11 - ดันโน่)

ไม่ใช่สิ่งที่คุณต้องการ แต่สิ่งนี้ทำงานได้ดีสำหรับฉัน:

(global-unset-key [down-mouse-1])   ; no dragging nonsense
(global-set-key [mouse-1] 'mouse-select-window)  ; no setting point

สิ่งนี้ไม่ตรงกับคำขอของคุณอย่างแน่นอนซึ่งไม่เพียง แต่จะทำให้เฟรมใช้งานได้ แต่หน้าต่างจะถูกคลิก แต่ฉันพบว่ามีประโยชน์ ดับเบิลคลิกเลื่อนจุด แต่การคลิกเพียงครั้งเดียวจะไม่เกิดขึ้น