Emacs: значение по умолчанию-frame-alist игнорируется

Question

Я хотел бы, чтобы все кадры перекрывались на (1,1). Тем не менее, с .emacs, содержащей

(setq initial-frame-alist 
     '((top . 1) (left . 1) (width . 80) (height . 55))) 

(setq default-frame-alist 
     '((top . 1) (left . 1) (width . 80) (height . 55))) 

вызова C-х 5 2 результаты в кадрах в каскаде, как вы видите на рисунке.

Как я могу заставить все кадры привязываться на том же месте?

Я бегу Emacs 23.3.1 на OS X (Горный лев).

Answer 1

Настройки не игнорируются. Причина, по которой вы видите вышеуказанное поведение, связана с before-make-frame-hook в ns-win.el, которая добавляет 25 к началу и слева.

Чтобы избежать выше эффекта вы можете добавить следующие строки в ваш файл .emacs:

(setq default-frame-alist '((left . 0) (top . 0) (width . 80) (height . 55))) 
(defvar parameters) 
(add-hook 'before-make-frame-hook 
    (lambda() 
    (let ((left (cdr (assq 'left (frame-parameters)))) 
     (top (cdr (assq 'top (frame-parameters))))) 
     (setq parameters (cons (cons 'left (+ left 0)) 
        (cons (cons 'top (+ top 0)) 
         parameters)))))) 

Если выше не работает, вы можете попробовать следующее, которое берется из ns-win.el before-make-frame-hook.

(setq default-frame-alist '((left . 0) (top . 0) (width . 80) (height . 55))) 

(defvar parameters) 
(add-hook 'before-make-frame-hook 
    (lambda() 
    (let ((left (cdr (assq 'left (frame-parameters)))) 
      (top (cdr (assq 'top (frame-parameters))))) 
     (if (consp left) (setq left (cadr left))) 
     (if (consp top) (setq top (cadr top))) 
     (cond 
     ((or (assq 'top parameters) (assq 'left parameters))) 
     ((or (not left) (not top))) 
     (t 
     (setq parameters (cons (cons 'left (+ left 0)) 
        (cons (cons 'top (+ top 0)) 
        parameters))))))))