Skip to content

Instantly share code, notes, and snippets.

@pipcet
Created August 28, 2015 14:28
Show Gist options
  • Save pipcet/46eb9b87d75660b7c330 to your computer and use it in GitHub Desktop.
Save pipcet/46eb9b87d75660b7c330 to your computer and use it in GitHub Desktop.
Debugger entered--Lisp error: (wrong-type-argument (or eieio-object class) nil obj)
signal(wrong-type-argument ((or eieio-object class) nil obj))
slot-value(nil status)
(= xcb:GrabStatus:Success (slot-value (car (xcb:-+reply exwm--connection (xcb:-+request-unchecked exwm--connection (make-instance (quote xcb:GrabPointer) :owner-events 0 :grab-window frame-id :event-mask xcb:EventMask:NoEvent :pointer-mode xcb:GrabMode:Async :keyboard-mode xcb:GrabMode:Async :confine-to xcb:Window:None :cursor xcb:Cursor:None :time xcb:Time:CurrentTime)) nil)) (quote status)))
(and buffer (setq frame (save-current-buffer (set-buffer buffer) exwm--floating-frame)) (setq frame-id (frame-parameter frame (quote exwm-outer-id))) (= xcb:GrabStatus:Success (slot-value (car (xcb:-+reply exwm--connection (xcb:-+request-unchecked exwm--connection (make-instance (quote xcb:GrabPointer) :owner-events 0 :grab-window frame-id :event-mask xcb:EventMask:NoEvent :pointer-mode xcb:GrabMode:Async :keyboard-mode xcb:GrabMode:Async :confine-to xcb:Window:None :cursor xcb:Cursor:None :time xcb:Time:CurrentTime)) nil)) (quote status))))
(if (and buffer (setq frame (save-current-buffer (set-buffer buffer) exwm--floating-frame)) (setq frame-id (frame-parameter frame (quote exwm-outer-id))) (= xcb:GrabStatus:Success (slot-value (car (xcb:-+reply exwm--connection (xcb:-+request-unchecked exwm--connection (make-instance ... :owner-events 0 :grab-window frame-id :event-mask xcb:EventMask:NoEvent :pointer-mode xcb:GrabMode:Async :keyboard-mode xcb:GrabMode:Async :confine-to xcb:Window:None :cursor xcb:Cursor:None :time xcb:Time:CurrentTime)) nil)) (quote status)))) (progn (setq exwm--floating-edges nil) (let* ((object (car (xcb:-+reply exwm--connection (xcb:-+request-unchecked exwm--connection ...) nil)))) (progn (exwm-workspace--select-frame frame) (setq width (frame-pixel-width frame) height (frame-pixel-height frame)) (if type nil (setq x (/ (* 3 ...) (float width)) y (/ (* 3 ...) (float height)) type (cond (... xcb:ewmh:_NET_WM_MOVERESIZE_SIZE_TOPLEFT) (... xcb:ewmh:_NET_WM_MOVERESIZE_SIZE_TOPRIGHT) (... xcb:ewmh:_NET_WM_MOVERESIZE_SIZE_BOTTOMRIGHT) (... xcb:ewmh:_NET_WM_MOVERESIZE_SIZE_BOTTOMLEFT) (... xcb:ewmh:_NET_WM_MOVERESIZE_SIZE_TOP) (... xcb:ewmh:_NET_WM_MOVERESIZE_SIZE_RIGHT) (... xcb:ewmh:_NET_WM_MOVERESIZE_SIZE_BOTTOM) (... xcb:ewmh:_NET_WM_MOVERESIZE_SIZE_LEFT)))) (if type (progn (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...)) (car (xcb:-+reply exwm--connection ... nil))))))))
(let ((buffer (exwm--id->buffer id)) frame frame-id cursor) (if (and buffer (setq frame (save-current-buffer (set-buffer buffer) exwm--floating-frame)) (setq frame-id (frame-parameter frame (quote exwm-outer-id))) (= xcb:GrabStatus:Success (slot-value (car (xcb:-+reply exwm--connection (xcb:-+request-unchecked exwm--connection ...) nil)) (quote status)))) (progn (setq exwm--floating-edges nil) (let* ((object (car (xcb:-+reply exwm--connection ... nil)))) (progn (exwm-workspace--select-frame frame) (setq width (frame-pixel-width frame) height (frame-pixel-height frame)) (if type nil (setq x (/ ... ...) y (/ ... ...) type (cond ... ... ... ... ... ... ... ...))) (if type (progn (cond ... ... ... ... ... ... ... ... ...) (car ...))))))))
exwm-floating--start-moveresize(41943053)
(cond ((and (= (slot-value object (quote state)) exwm-input--move-mask) (= (slot-value object (quote detail)) exwm-input--move-keysym)) (exwm-floating--start-moveresize (slot-value object (quote event)) xcb:ewmh:_NET_WM_MOVERESIZE_MOVE)) ((and (= (slot-value object (quote state)) exwm-input--resize-mask) (= (slot-value object (quote detail)) exwm-input--resize-keysym)) (exwm-floating--start-moveresize (slot-value object (quote event)))) (t (select-window (get-buffer-window (exwm--id->buffer (slot-value object (quote event))) t)) (setq mode xcb:Allow:ReplayPointer)))
(progn (setq exwm-input--timestamp (slot-value object (quote time))) (cond ((and (= (slot-value object (quote state)) exwm-input--move-mask) (= (slot-value object (quote detail)) exwm-input--move-keysym)) (exwm-floating--start-moveresize (slot-value object (quote event)) xcb:ewmh:_NET_WM_MOVERESIZE_MOVE)) ((and (= (slot-value object (quote state)) exwm-input--resize-mask) (= (slot-value object (quote detail)) exwm-input--resize-keysym)) (exwm-floating--start-moveresize (slot-value object (quote event)))) (t (select-window (get-buffer-window (exwm--id->buffer (slot-value object (quote event))) t)) (setq mode xcb:Allow:ReplayPointer))))
(let* ((object obj)) (progn (setq exwm-input--timestamp (slot-value object (quote time))) (cond ((and (= (slot-value object (quote state)) exwm-input--move-mask) (= (slot-value object (quote detail)) exwm-input--move-keysym)) (exwm-floating--start-moveresize (slot-value object (quote event)) xcb:ewmh:_NET_WM_MOVERESIZE_MOVE)) ((and (= (slot-value object (quote state)) exwm-input--resize-mask) (= (slot-value object (quote detail)) exwm-input--resize-keysym)) (exwm-floating--start-moveresize (slot-value object (quote event)))) (t (select-window (get-buffer-window (exwm--id->buffer (slot-value object ...)) t)) (setq mode xcb:Allow:ReplayPointer)))))
(let ((obj (make-instance (quote xcb:ButtonPress))) (mode xcb:Allow:SyncPointer)) (xcb:unmarshal obj data) (let* ((object obj)) (progn (setq exwm-input--timestamp (slot-value object (quote time))) (cond ((and (= (slot-value object ...) exwm-input--move-mask) (= (slot-value object ...) exwm-input--move-keysym)) (exwm-floating--start-moveresize (slot-value object (quote event)) xcb:ewmh:_NET_WM_MOVERESIZE_MOVE)) ((and (= (slot-value object ...) exwm-input--resize-mask) (= (slot-value object ...) exwm-input--resize-keysym)) (exwm-floating--start-moveresize (slot-value object (quote event)))) (t (select-window (get-buffer-window (exwm--id->buffer ...) t)) (setq mode xcb:Allow:ReplayPointer))))) (xcb:-+request exwm--connection (make-instance (quote xcb:AllowEvents) :mode mode :time xcb:Time:CurrentTime)) (xcb:flush exwm--connection))
exwm-input--on-ButtonPress([4 3 178 4 177 2 64 65 151 0 0 0 13 0 128 2 24 0 128 2 178 2 89 1 146 1 142 0 0 0 1 0] nil)
funcall(exwm-input--on-ButtonPress [4 3 178 4 177 2 64 65 151 0 0 0 13 0 128 2 24 0 128 2 178 2 89 1 146 1 142 0 0 0 1 0] nil)
(let ((listener (car --dolist-tail--))) (funcall listener data synthetic) (setq --dolist-tail-- (cdr --dolist-tail--)))
(while --dolist-tail-- (let ((listener (car --dolist-tail--))) (funcall listener data synthetic) (setq --dolist-tail-- (cdr --dolist-tail--))))
(let ((--dolist-tail-- (elt event 0))) (while --dolist-tail-- (let ((listener (car --dolist-tail--))) (funcall listener data synthetic) (setq --dolist-tail-- (cdr --dolist-tail--)))))
(while (setq event (car-safe (prog1 (slot-value object (quote event-queue)) (let* ((v object)) (eieio-oset v (quote event-queue) (cdr (slot-value object ...))))))) (setq data (elt event 1) synthetic (elt event 2)) (let ((--dolist-tail-- (elt event 0))) (while --dolist-tail-- (let ((listener (car --dolist-tail--))) (funcall listener data synthetic) (setq --dolist-tail-- (cdr --dolist-tail--))))))
(let (event data synthetic) (while (setq event (car-safe (prog1 (slot-value object (quote event-queue)) (let* ((v object)) (eieio-oset v (quote event-queue) (cdr ...)))))) (setq data (elt event 1) synthetic (elt event 2)) (let ((--dolist-tail-- (elt event 0))) (while --dolist-tail-- (let ((listener (car --dolist-tail--))) (funcall listener data synthetic) (setq --dolist-tail-- (cdr --dolist-tail--)))))))
(if (slot-value object (quote event-lock)) nil (let* ((v object)) (eieio-oset v (quote event-lock) t)) (let (event data synthetic) (while (setq event (car-safe (prog1 (slot-value object (quote event-queue)) (let* (...) (eieio-oset v ... ...))))) (setq data (elt event 1) synthetic (elt event 2)) (let ((--dolist-tail-- (elt event 0))) (while --dolist-tail-- (let ((listener ...)) (funcall listener data synthetic) (setq --dolist-tail-- (cdr --dolist-tail--))))))) (let* ((v object)) (eieio-oset v (quote event-lock) nil)))
(let* ((object connection)) (if (slot-value object (quote event-lock)) nil (let* ((v object)) (eieio-oset v (quote event-lock) t)) (let (event data synthetic) (while (setq event (car-safe (prog1 (slot-value object ...) (let* ... ...)))) (setq data (elt event 1) synthetic (elt event 2)) (let ((--dolist-tail-- (elt event 0))) (while --dolist-tail-- (let (...) (funcall listener data synthetic) (setq --dolist-tail-- ...)))))) (let* ((v object)) (eieio-oset v (quote event-lock) nil))))
(if (slot-value connection (quote lock)) nil (let* ((object connection)) (let ((current-cache-length (length (slot-value object (quote message-cache))))) (let* ((v object)) (eieio-oset v (quote message-cache) (substring (slot-value object (quote message-cache)) (- cache-length (length cache))))) (if (/= current-cache-length cache-length) (progn (xcb:-connection-filter process []))))) (let* ((object connection)) (if (slot-value object (quote event-lock)) nil (let* ((v object)) (eieio-oset v (quote event-lock) t)) (let (event data synthetic) (while (setq event (car-safe (prog1 ... ...))) (setq data (elt event 1) synthetic (elt event 2)) (let ((--dolist-tail-- ...)) (while --dolist-tail-- (let ... ... ...))))) (let* ((v object)) (eieio-oset v (quote event-lock) nil)))))
(let* ((connection (plist-get (process-plist process) (quote connection))) (cache (vconcat (slot-value connection (quote message-cache)) message)) (cache-length (length cache))) (let* ((v connection)) (eieio-oset v (quote message-cache) cache)) (catch (quote return) (if (slot-value connection (quote lock)) (progn (throw (quote return) (quote lock)))) (let* ((v connection)) (eieio-oset v (quote lock) t)) (if (slot-value connection (quote connected)) nil (if (<= 8 (length cache)) (progn (let ((data-len ...) obj) (if (>= ... data-len) (progn nil ...))))) (let* ((v connection)) (eieio-oset v (quote lock) nil)) (throw (quote return) (quote setup))) (catch (quote break) (while (<= 32 (length cache)) (let* ((val (elt cache 0))) (cond ((eq val 0) (let nil nil ...)) ((eq val 1) (let nil ...)) (t (let ... nil ... ...)))))) (let* ((v connection)) (eieio-oset v (quote lock) nil))) (if (slot-value connection (quote lock)) nil (let* ((object connection)) (let ((current-cache-length (length (slot-value object ...)))) (let* ((v object)) (eieio-oset v (quote message-cache) (substring (slot-value object ...) (- cache-length ...)))) (if (/= current-cache-length cache-length) (progn (xcb:-connection-filter process []))))) (let* ((object connection)) (if (slot-value object (quote event-lock)) nil (let* ((v object)) (eieio-oset v (quote event-lock) t)) (let (event data synthetic) (while (setq event (car-safe ...)) (setq data (elt event 1) synthetic (elt event 2)) (let (...) (while --dolist-tail-- ...)))) (let* ((v object)) (eieio-oset v (quote event-lock) nil))))))
xcb:-connection-filter(#<process XELB> "\262\261@A\227
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment