続: Frame resize [Emacs 編]

;; Frame Resize
(defun set-shrink-frame-width ()
  (interactive)
  (call-interactively 'save-buffer)
  (call-interactively 'delete-window)
  (set-frame-width (selected-frame) 80))
(defun set-enlarge-frame-width ()
  (set-frame-width (selected-frame) 162)
  (call-interactively 'split-window-horizontally)
  (interactive)
  (call-interactively 'find-file))
(global-set-key "\C-c1" 'set-shrink-frame-width)
(global-set-key "\C-c2" 'set-enlarge-frame-width)