Re: [O] Bug: org-capture 'C-c C-q' conflict with mouse avoidance [8.0-pre (release_8.0-pre-487-gd68744 @ ~/.emacs.d/el-get/org-mode/lisp/)]

Re: [O] Bug: org-capture 'C-c C-q' conflict with mouse avoidance [8.0-pre (release_8.0-pre-487-gd68744 @ ~/.emacs.d/el-get/org-mode/lisp/)]

[Shihpin Tseng]

> On Wed, Apr 17, 2013 at 07:51:18PM +0800, Shihpin Tseng wrote:
> >  To reproduce it
> > 
> > 1. M-x org-capture
> > 2. select todo template
> > 3. `C-c C-q' 
> > 
> > 
> > Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
> >   mouse-avoidance-point-position()
> >   mouse-avoidance-too-close-p((#<frame GNU Emacs address@hidden: 
>                                          > CAPTURE-2-GTD.org 0x10a84d448> 89 . 18))
> >   mouse-avoidance-fancy()
> >   apply(mouse-avoidance-fancy nil)
> >   byte-code("r\301\b\302H\b\303H\"\210)\301\207" [timer apply 5 6] 4)
> >   timer-event-handler([t 0 0 100000 t mouse-avoidance-fancy nil idle 0])
> >   read-char-exclusive()
> >   byte-code("........" [groups expert exit-after-next inhibit-quit c 
>                                  > org-last-tag-selection-key message "[a-z..]:Toggle [SPC]:clear [RET]:accept 
> > [TAB]:free [!] %sgroups%s" "no " "" " [C-c]:window" " [C-c]:single" " 
> > [C-c]:multi" t read-char-exclusive 13 throw exit 33 re-search-forward "[{}]" 
> > nil replace-match " " 3 org-fast-tag-show-exit delete-other-windows 
> > set-window-buffer split-window-vertically " *Org tags*" 
> > org-switch-to-buffer-other-window org-fit-window-to-buffer 7 113 rassoc 
> > org-detach-overlay 32 now 9 (byte-code "\303\304\b\206
> > 
> >   org-set-tags(nil nil)
> >   org-set-tags-command(nil)
> >   call-interactively(org-set-tags-command nil nil)
> >   command-execute(org-set-tags-command)
> >   
> > Emacs  : GNU Emacs 24.3.50.1 (x86_64-apple-darwin12.3.0, NS 
> > apple-appkit-1187.37)
> >  of 2013-04-17 on xxxx.local
> > Package: Org-mode version 8.0-pre (release_8.0-pre-487-gd68744 @ 
> > ~/.emacs.d/el-get/org-mode/lisp/)
> 
> I believe this is a problem with mouse avoidance mode.  I have been
> seeing similar tracebacks for multiple other cases, outside of Org,
> where it involves creating a new frame or visiting a new file in a new
> frame.  Sadly I see it when I'm using emacsclient, and it disappears
> when I try to replicate it with emacs -Q.
> 

emacs -Q,  if eval  (mouse-avoidance-mode 'animate) the problem still exit

I did some debug, found that in the following function,  `posh-at-point' will return nil .

(defun mouse-avoidance-point-position ()
  "Return the position of point as (FRAME X . Y).
Analogous to `mouse-position'."
  (let ((edges (window-inside-edges))
	(x-y (posn-x-y (posn-at-point))))
    (cons (selected-frame)
	  (cons (+ (car edges)
		   (/ (car x-y) (frame-char-width)))
		(+ (car (cdr edges))
		   (/ (cdr x-y) (frame-char-height)))))))

I'm not sure it's the bug of org-mode or emacs.

> If you can reproduce this, I would urge you to file a bug against mouse
> avoidance mode on the Emacs bug tracker.