Commit 5430d399 authored by Juanma Barranquero's avatar Juanma Barranquero

* lisp/term/w32-win.el (w32-default-color-map): Declare obsolete.

* src/w32fns.c (w32_default_color_map): New function, extracted from
  Fw32_default_color_map.
  (Fw32_default_color_map, Fx_open_connection): Use it.
parent 3d0788a9
......@@ -1351,6 +1351,8 @@ with the USER_LIBS build variable.
** New make target `dist' to create binary distribution for MS Windows.
** Function `w32-default-color-map' is now obsolete.
** On Nextstep/OSX, the menu bar can be hidden by customizing
ns-auto-hide-menu-bar.
......
2011-10-26 Juanma Barranquero <lekktu@gmail.com>
* term/w32-win.el (w32-default-color-map): Declare obsolete.
2011-10-26 Michael Albinus <michael.albinus@gmx.de>
* ido.el (ido-file-name-all-completions-1): Do not require
......
......@@ -85,6 +85,7 @@
(define-obsolete-function-alias 'w32-select-font 'x-select-font "23.1")
(defvar w32-color-map) ;; defined in w32fns.c
(make-obsolete 'w32-default-color-map nil "24.1")
(declare-function w32-send-sys-command "w32fns.c")
(declare-function set-message-beep "w32console.c")
......
2011-10-26 Juanma Barranquero <lekktu@gmail.com>
* w32fns.c (w32_default_color_map): New function,
extracted from Fw32_default_color_map.
(Fw32_default_color_map, Fx_open_connection): Use it.
2011-10-25 Paul Eggert <eggert@cs.ucla.edu>
* dispextern.h (Fcontrolling_tty_p): New decl (Bug#6649 part 2).
......
......@@ -635,9 +635,8 @@ colormap_t w32_color_map[] =
{"LightGreen" , PALETTERGB (144,238,144)},
};
DEFUN ("w32-default-color-map", Fw32_default_color_map, Sw32_default_color_map,
0, 0, 0, doc: /* Return the default color map. */)
(void)
static Lisp_Object
w32_default_color_map (void)
{
int i;
colormap_t *pc = w32_color_map;
......@@ -658,6 +657,13 @@ DEFUN ("w32-default-color-map", Fw32_default_color_map, Sw32_default_color_map,
return (cmap);
}
DEFUN ("w32-default-color-map", Fw32_default_color_map, Sw32_default_color_map,
0, 0, 0, doc: /* Return the default color map. */)
(void)
{
return w32_default_color_map ();
}
static Lisp_Object
w32_color_map_lookup (char *colorname)
{
......@@ -683,7 +689,6 @@ w32_color_map_lookup (char *colorname)
QUIT;
}
UNBLOCK_INPUT;
return ret;
......@@ -4768,7 +4773,7 @@ terminate Emacs if we can't open the connection.
UNGCPRO;
}
if (NILP (Vw32_color_map))
Vw32_color_map = Fw32_default_color_map ();
Vw32_color_map = w32_default_color_map ();
/* Merge in system logical colors. */
add_system_logical_colors_to_map (&Vw32_color_map);
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment