保持Emacs窗口大小

windows下用emacsclient打开文件时， 如果当前的Emacs frame原来是最大化的而且当前正被最小化到windows的taskbar， 那么这个frame就会被还原成非最大化状态。解决方法（jcjbrian@newsmth）：

;;  2008 - 4 - 15
;; Brian Jiang

;; When the emacs frame was maximized and is currently minimized into
;; the TaskBar ,   if  opening a file from emacsclient ,  the frame then is
;; restored down to non maximized status .  This is not the behavior
;; that most of us expect .  In this case ,  we want the emacs frame keep
;; in the maximized status when it is restore from minimized .

;; So ?  Hack Emacs a little to let it behave as we expect ....

;; The best solution will be to change the C codes .  e . g .,  procedure
;; x_make_frame_visible .  When the frame is currently minimized ,   use
;; SW_RESTORE instead of SW_SHOWNORMAL to show the window .


;; (defun  select - frame - set - input - focus (frame)
;;    " Select FRAME, raise it, and set input focus, if possible. "
;;     ( select - frame frame)

;;     ;; Brian :  change  1 / 1
;;     ;; (raise - frame frame)
;;     (cond ((eq (cdr (assq  ' visibility (frame-parameters))) t)
;;            (raise-frame frame))
;;           (t
;;            ;; SC_RESTORE
;;            (w32-send-sys-command 61728)
;;            ))
;;     ;; Brian: end of change 1/1
;;     (debug)
;;     ;; Ensure, if possible, that frame gets input focus.
;;     (cond ((memq window-system  ' (x mac))
;;        (x - focus - frame frame))
;;       ((eq window - system   ' w32)
;;        (w32-focus-frame frame)))
;;     (cond (focus-follows-mouse
;;        (set-mouse-position (selected-frame) (1- (frame-width)) 0))))


(defadvice raise-frame (around raise-frame (&optional frame))
  (cond ((eq (cdr (assq  ' visibility (frame - parameters frame))) t)
         ad - do - it)
        (t
         ;; SC_RESTORE
         (w32 - send - sys - command  61728 )
         )))

(ad - activate  ' raise-frame)

(require  ' server)
;; overide the function server - visit - files in server . el
(defun server - visit - files (files client  & optional nowait)
   " Find FILES and return the list CLIENT with the buffers nconc'd.
FILES is an alist whose elements are (FILENAME LINENUMBER COLUMNNUMBER).
NOWAIT non-nil means this client is not waiting for the results,
so don't mark these buffers specially, just visit them normally. "
  ;;  Bind   last - nonmenu - event to force  use  of keyboard ,  not mouse ,   for  queries .
  (let (( last - nonmenu - event t) client - record)
    ;; Restore the current buffer afterward ,  but not using save - excursion ,
    ;; because we don ' t want to save point in this buffer
    ;; if it happens to be one of those specified by the server.
    (save-current-buffer
      (dolist (file files)
    ;; If there is an existing buffer modified or the file is
    ;; modified, revert it.  If there is an existing buffer with
    ;; deleted file, offer to write it.
    (let* ( ;; (minibuffer-auto-raise (or server-raise-frame  ;; brian
               ;; minibuffer-auto-raise))                        ;; brian
               (filen (car file))
               (obuf (get-file-buffer filen)))
          
      (add-to-history  ' file - name - history filen)
      ( if  (and obuf (set - buffer obuf))
          (progn
        (cond ((file - exists - p filen)
                       (when (not (verify - visited - file - modtime obuf))
                         ;; brian ,  hack ...
                         (when (and server - raise - frame
                                    (not (eq (cdr (assq  ' visibility (frame-parameters))) t)))
                           (w32-send-sys-command 61728)
                           (sit-for 0.1))
                         (let ((minibuffer-auto-raise (or server-raise-frame minibuffer-auto-raise)))
                           (revert-buffer t nil))))
              (t
                       ;; brian, hack...
                       (when (and server-raise-frame
                                  (not (eq (cdr (assq  ' visibility (frame - parameters))) t)))
                         (w32 - send - sys - command  61728 )
                         (sit - for   0.1 ))
                       (let ((minibuffer - auto - raise (or server - raise - frame minibuffer - auto - raise)))
                         (when (y - or - n - p
                                (concat  " File no longer exists:  "
                                        filen
                                         " , write buffer to file?  " ))
                           ( write - file filen)))))
        (setq server - existing - buffer t)
        (server - goto - line - column file))
        (set - buffer (find - file - noselect filen))
        (server - goto - line - column file)
        (run - hooks  ' server-visit-hook)))
    (unless nowait
      ;; When the buffer is killed, inform the clients.
      (add-hook  ' kill - buffer - hook  ' server-kill-buffer nil t)
      (push (car client) server-buffer-clients))
    (push (current-buffer) client-record)))
    (nconc client client-record)))

上面的代码可以单独作一个文件，让Emacs启动是加载它，那么在使用emacsclient时就不会出现窗口大小改动的现象了。