aboutsummaryrefslogtreecommitdiffstats
path: root/src/data.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/data.c')
-rw-r--r--src/data.c31
1 files changed, 17 insertions, 14 deletions
diff --git a/src/data.c b/src/data.c
index 4102af809ca..09cb6c8b40a 100644
--- a/src/data.c
+++ b/src/data.c
@@ -1876,39 +1876,42 @@ If the current binding is global (the default), the value is nil. */)
1876 return Qnil; 1876 return Qnil;
1877} 1877}
1878 1878
1879extern struct display *get_display P_ ((Lisp_Object display, int)); 1879extern struct device *get_device P_ ((Lisp_Object display, int));
1880 1880
1881DEFUN ("terminal-local-value", Fterminal_local_value, Sterminal_local_value, 2, 2, 0, 1881DEFUN ("terminal-local-value", Fterminal_local_value, Sterminal_local_value, 2, 2, 0,
1882 doc: /* Return the terminal-local value of SYMBOL on DISPLAY. 1882 doc: /* Return the terminal-local value of SYMBOL on DEVICE.
1883If SYMBOL is not a terminal-local variable, then return its normal 1883If SYMBOL is not a terminal-local variable, then return its normal
1884value, like `symbol-value'. 1884value, like `symbol-value'.
1885 1885
1886DISPLAY may be a display, a frame, or nil (meaning the selected 1886DEVICE may be a display device id, a frame, or nil (meaning the
1887frame's display). */) 1887selected frame's display device). */)
1888 (symbol, display) 1888 (symbol, device)
1889 Lisp_Object symbol; 1889 Lisp_Object symbol;
1890 Lisp_Object display; 1890 Lisp_Object device;
1891{ 1891{
1892 Lisp_Object result; 1892 Lisp_Object result;
1893 struct display *d = get_display (display, 1); 1893 struct device *d = get_device (device, 1);
1894 push_display_kboard (d); 1894 push_device_kboard (d);
1895 result = Fsymbol_value (symbol); 1895 result = Fsymbol_value (symbol);
1896 pop_frame_kboard (); 1896 pop_frame_kboard ();
1897 return result; 1897 return result;
1898} 1898}
1899 1899
1900DEFUN ("set-terminal-local-value", Fset_terminal_local_value, Sset_terminal_local_value, 3, 3, 0, 1900DEFUN ("set-terminal-local-value", Fset_terminal_local_value, Sset_terminal_local_value, 3, 3, 0,
1901 doc: /* Set the terminal-local binding of SYMBOL on DISPLAY to VALUE. 1901 doc: /* Set the terminal-local binding of SYMBOL on DEVICE to VALUE.
1902If VARIABLE is not a terminal-local variable, then set its normal 1902If VARIABLE is not a terminal-local variable, then set its normal
1903binding, like `set'. */) 1903binding, like `set'.
1904 (symbol, display, value) 1904
1905DEVICE may be a display device id, a frame, or nil (meaning the
1906selected frame's display device). */)
1907 (symbol, device, value)
1905 Lisp_Object symbol; 1908 Lisp_Object symbol;
1906 Lisp_Object display; 1909 Lisp_Object device;
1907 Lisp_Object value; 1910 Lisp_Object value;
1908{ 1911{
1909 Lisp_Object result; 1912 Lisp_Object result;
1910 struct display *d = get_display (display, 1); 1913 struct device *d = get_device (device, 1);
1911 push_display_kboard (d); 1914 push_device_kboard (d);
1912 result = Fset (symbol, value); 1915 result = Fset (symbol, value);
1913 pop_frame_kboard (); 1916 pop_frame_kboard ();
1914 return result; 1917 return result;