[New function to make big frames clinton@unknownlamer.org**20070331105448 Added interactive specs to frame making procudures. ] { hunk ./init.d/frame.el 32 - (let ((f (make-frame))) + (interactive) + (let ((f (make-frame))) hunk ./init.d/frame.el 43 -(defun cke-make-php-frame () - "Creates a 120 character wide frame for viewing/editing wide php" +(defun cke-make-wide-frame () + "Creates a 120 character wide frame for viewing/editing wide data" + (interactive) hunk ./init.d/frame.el 49 +(defun cke-make-big-frame () + "Creates a frame the size of the initial frame" + (interactive) + (let ((cke-frame-width cke-initial-frame-width)) + (cke-make-frame))) + hunk ./init.d/frame.el 57 - #'(lambda () - (interactive) - (cke-make-frame))) + #'cke-make-frame) hunk ./init.d/frame.el 60 - #'(lambda () - (interactive) - (cke-make-php-frame))) + #'cke-make-wide-frame) + +(global-set-key [?\C-x ?5 ?\C-2] + #'cke-make-big-frame) }