Re: FIX: byte-code: Wrong type argument: number-or-marker-p, (+ -21)

[Jan Nieuwenhuizen]

Jan Nieuwenhuizen <address@hidden> writes:

> Ah, so that's what (and why) the strange notation means.  Then it
> should probably be something like:
>
>  (cond ((eq '+ (car fif-top)) (cadr fif-top))
>        ((eq '- (car fif-top)) (- <DISPLAY-HEIGHT> (cadr fif-top)))

So here's a new try.

Jan.

2003-11-18  Jan Nieuwenhuizen  <address@hidden>

        * frame.el (frame-notice-user-settings): Fix for TOP parameter
        of CONS flavour.

--- frame.el.~1.205.~   2003-10-02 16:06:45.000000000 +0200
+++ frame.el    2003-11-18 22:07:36.000000000 +0100
@@ -333,7 +333,13 @@ React to settings of `default-frame-alis
                   (newparms (list (cons 'height (- height lines))))
                   (initial-top (cdr (assq 'top
                                           frame-initial-geometry-arguments)))
-                  (top (frame-parameter frame-initial-frame 'top)))
+                  (fif-top (frame-parameter frame-initial-frame 'top))
+                  (top (if (consp fif-top)
+                           (cond ((eq '+ (car fif-top)) (cadr fif-top))
+                                 ((eq '- (car fif-top))
+                                  (- (display-pixel-height) (cadr fif-top)))
+                                 (t 0))
+                         fif-top)))
              (when (and (consp initial-top) (eq '- (car initial-top)))
                (setq newparms
                      (append newparms


-- 
Jan Nieuwenhuizen <address@hidden> | GNU LilyPond - The music typesetter
http://www.xs4all.nl/~jantien       | http://www.lilypond.org