bug#5900: [Aquamacs-bugs] Wrong type argument: number-or-marker-p, (+ -299)

bug#5900: [Aquamacs-bugs] Wrong type argument: number-or-marker-p, (+ -299)

[William Henney]

[-- Attachment #1: Type: text/plain, Size: 438 bytes --]

Hi,

I often get an error similar to that given in the subject line when  
trying to do something in aquamacs, usually something involving  
making a new window or frame.

It is very annoying since usually even turning on debug-on-error  
doesn't help. The creation of the debug window triggers the same  
error :(

However, I did manage to get a backtrace on one occasion, which I  
have attached to this message.

Cheers

Will Henney



[-- Attachment #2: aquamacs-backtrace --]
[-- Type: application/octet-stream, Size: 3389 bytes --]

Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p (+ -299))
  -((+ -299) 47)
  (abs (- (frame-parameter f ...) ny))
  (> (abs (- ... ny)) 10)
  (or (> (abs ...) 10) (or (> next-x ...) (< ... ...)))
  (if (or (> ... 10) (or ... ...)) nil (setq samerow nil))
  (while --cl-dolist-temp-- (setq f (car --cl-dolist-temp--)) (if (or ... ...) nil (setq samerow nil)) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
  (let ((--cl-dolist-temp-- ...) f) (while --cl-dolist-temp-- (setq f ...) (if ... nil ...) (setq --cl-dolist-temp-- ...)) nil)
  (catch (quote --cl-block-nil--) (let (... f) (while --cl-dolist-temp-- ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... f) (while --cl-dolist-temp-- ... ... ...) nil))
  (dolist (f (visible-frame-list)) (if (or ... ...) nil (setq samerow nil)))
  (let ((samerow t)) (dolist (f ...) (if ... nil ...)) (if samerow (setq next-y ny)))
  (if next-y nil (let (...) (dolist ... ...) (if samerow ...)))
  (while --cl-dolist-temp-- (setq ny (car --cl-dolist-temp--)) (if next-y nil (let ... ... ...)) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
  (let ((--cl-dolist-temp-- ...) ny) (while --cl-dolist-temp-- (setq ny ...) (if next-y nil ...) (setq --cl-dolist-temp-- ...)) nil)
  (catch (quote --cl-block-nil--) (let (... ny) (while --cl-dolist-temp-- ... ... ...) nil))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let ... ... nil)))
  (block nil (let (... ny) (while --cl-dolist-temp-- ... ... ...) nil))
  (dolist (ny (list y ... ... ... ... ... ... ... ... ... ... ... ...)) (if next-y nil (let ... ... ...)))
  (let ((next-x ...) (next-y nil)) (dolist (ny ...) (if next-y nil ...)) (if next-y (setq next-y ...) (setq next-y margin)) (assq-set (quote left) next-x (quote new-frame-parameters)) (assq-set (quote top) next-y (quote new-frame-parameters)) new-frame-parameters)
  (let ((y ...) (x ...) (w ...) (h ...) (next-w ...) (next-h ...) (margin smart-frame-positioning-margin)) (unless (frame-visible-p old-frame) (setq x margin y ... w 0 h 0)) (let (... ...) (dolist ... ...) (if next-y ... ...) (assq-set ... next-x ...) (assq-set ... next-y ...) new-frame-parameters))
  (or preassigned (let (... ... ... ... ... ... ...) (unless ... ...) (let ... ... ... ... ... new-frame-parameters)))
  (let ((preassigned ...)) (or preassigned (let ... ... ...)))
  (if (and (not smart-frame-positioning-enforce) (cdr ...)) nil (let (...) (or preassigned ...)))
  (let ((new-frame-parameters)) (if (and ... ...) nil (let ... ...)))
  find-good-frame-position(#<frame Emacs - 2005.06.21 0x1e3d480> #<frame Emacs@william-henneys-powerbook-g4-15.local 0x1e1fd00>)
  (setq newpos (find-good-frame-position oldframe f))
  (let* ((hasbeenfitted) (oldframe ...) (newparms ...) (f ...)) (if (cdr ...) (when ... ...)) (setq newpos (find-good-frame-position oldframe f)) (if hasbeenfitted (setq newpos ...)) (setq newpos (assq-delete-all ... newpos)) (modify-frame-parameters f newpos) (make-frame-visible f) f)
  smart-position-and-create-frame(nil)
  make-frame(nil)
  (lambda nil (make-frame pop-up-frame-alist))()
  pop-to-buffer(#<buffer New document<3>> t nil)
  (let ((pop-up-frames t)) (pop-to-buffer buffer t norecord))
  switch-to-buffer-other-frame(#<buffer New document<3>>)
  new-frame-with-new-scratch()
  call-interactively(new-frame-with-new-scratch)

[-- Attachment #3: Type: text/plain, Size: 2217 bytes --]





In GNU Emacs 22.0.50.1 (powerpc-apple-darwin7.9.0)
  of 2005-06-04 on madonna - Aquamacs Distribution 0.9.2 beta-7
Distributor `Apple Computers' version (10 4 1) .
configured using `configure '--without-x' '--prefix=/usr/local''

Important settings:
   value of $LC_ALL: nil
   value of $LC_COLLATE: nil
   value of $LC_CTYPE: nil
   value of $LC_MESSAGES: nil
   value of $LC_MONETARY: nil
   value of $LC_NUMERIC: nil
   value of $LC_TIME: nil
   value of $LANG: nil
   locale-coding-system: iso-latin-1
   default-enable-multibyte-characters: t

Major mode: Planner

Minor modes in effect:
   auto-fill-function: do-auto-fill
   delete-selection-mode: t
   pc-selection-mode: t
   aquamacs-tool-bar-mode: t
   smart-frame-positioning-mode: t
   recentf-mode: t
   encoded-kbd-mode: t
   osx-key-mode: t
   mouse-wheel-mode: t
   tooltip-mode: t
   auto-compression-mode: t
   global-font-lock-mode: t
   font-lock-mode: t
   unify-8859-on-encoding-mode: t
   utf-translate-cjk-mode: t
   column-number-mode: t
   line-number-mode: t
   transient-mark-mode: t
   next-error-follow-minor-mode:  Fol

Recent input:
<down> <down> <down> <down> <down> <down> <down> <down> <down> <down>  
<down> <down> <down> <down> <down> <down> <down> <down> <down> <down>  
<down> <down> <down> <down> <down> <down> <down> <down> <down> <down>  
<down> <down> <down> <down> <down> <down> <down> <down> <down> <down>  
<down> <down> <down> <down> <up> <up> <up> <up> <up> <up> <up> <up>  
<up> <up> <up> <up> <up> <up> <up> <up> <up> <up> <up> <up> <up> <up>  
C-x k <return> <switch-frame> <help-echo> <help-echo> H-n <down- 
mouse-1> <mouse-1> H-n <down-mouse-1> <mouse-1> H-n <down> <down>  
<down> <up> <up> C-x 5 2 H-x M-x r e p o r t <tab> a q <tab> <return>

Recent messages:
 >: Wrong type argument: number-or-marker-p, (+ -1099)
Entering debugger...
mwheel-scroll: Beginning of buffer [6 times]
 >: Wrong type argument: number-or-marker-p, (+ -774) [2 times]
Loading semantic-el...done
Loading semantic-edit...done
Loading semanticdb-file...done
Mark set
line-move-1: End of buffer [8 times]
abs: Wrong type argument: number-or-marker-p, (+ -299) [4 times]
recursive-edit: The mark is not set now, so there is no region