(Qleft_fringe, Qright_fringe): New vars.

[gnu-emacs] / src / frame.c

diff --git a/src/frame.c b/src/frame.c
index a32cc56e2b9dd0a2cc6989cd8c17c184f3f88bae..d6154b7ab040da9a3a2e9b53ded8962a8889ef58 100644 (file)
--- a/src/frame.c
+++ b/src/frame.c
@@ -37,7 +37,6 @@ Boston, MA 02111-1307, USA.  */
 /* These help us bind and responding to switch-frame events.  */
 #include "commands.h"
 #include "keyboard.h"
-#include "keymap.h"
 #include "frame.h"
 #ifdef HAVE_WINDOW_SYSTEM
 #include "fontset.h"
@@ -73,6 +72,8 @@ Lisp_Object Qtitle;
 Lisp_Object Qdisplay_type;
 Lisp_Object Qbackground_mode;
 Lisp_Object Qinhibit_default_face_x_resources;
+Lisp_Object Qleft_fringe;
+Lisp_Object Qright_fringe;
 
 Lisp_Object Vterminal_frame;
 Lisp_Object Vdefault_frame_alist;
@@ -181,7 +182,7 @@ DEFUN ("frame-live-p", Fframe_live_p, Sframe_live_p, 1, 1, 0,
        doc: /* Return non-nil if OBJECT is a frame which has not been deleted.
 Value is nil if OBJECT is not a live frame.  If object is a live
 frame, the return value indicates what sort of output device it is
-displayed on.  See the documentation of  `framep' for possible
+displayed on.  See the documentation of `framep' for possible
 return values.  */)
      (object)
      Lisp_Object object;
@@ -2469,6 +2470,10 @@ syms_of_frame ()
   staticpro (&Qdisplay_type);
   Qbackground_mode = intern ("background-mode");
   staticpro (&Qbackground_mode);
+  Qleft_fringe = intern ("left-fringe");
+  staticpro (&Qleft_fringe);
+  Qright_fringe = intern ("right-fringe");
+  staticpro (&Qright_fringe);
 
   DEFVAR_LISP ("default-frame-alist", &Vdefault_frame_alist,
               doc: /* Alist of default values for frame creation.
@@ -2565,12 +2570,3 @@ This variable is local to the current terminal and cannot be buffer-local.  */);
   defsubr (&Sset_frame_size);
   defsubr (&Sset_frame_position);
 }
-
-void
-keys_of_frame ()
-{
-  initial_define_lispy_key (global_map, "switch-frame", "handle-switch-frame");
-  initial_define_lispy_key (global_map, "delete-frame", "handle-delete-frame");
-  initial_define_lispy_key (global_map, "iconify-frame", "ignore-event");
-  initial_define_lispy_key (global_map, "make-frame-visible", "ignore-event");
-}