Created
August 28, 2015 14:28
-
-
Save pipcet/46eb9b87d75660b7c330 to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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