diff options
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 31 |
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 | ||
| 1879 | extern struct display *get_display P_ ((Lisp_Object display, int)); | 1879 | extern struct device *get_device P_ ((Lisp_Object display, int)); |
| 1880 | 1880 | ||
| 1881 | DEFUN ("terminal-local-value", Fterminal_local_value, Sterminal_local_value, 2, 2, 0, | 1881 | DEFUN ("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. |
| 1883 | If SYMBOL is not a terminal-local variable, then return its normal | 1883 | If SYMBOL is not a terminal-local variable, then return its normal |
| 1884 | value, like `symbol-value'. | 1884 | value, like `symbol-value'. |
| 1885 | 1885 | ||
| 1886 | DISPLAY may be a display, a frame, or nil (meaning the selected | 1886 | DEVICE may be a display device id, a frame, or nil (meaning the |
| 1887 | frame's display). */) | 1887 | selected 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 | ||
| 1900 | DEFUN ("set-terminal-local-value", Fset_terminal_local_value, Sset_terminal_local_value, 3, 3, 0, | 1900 | DEFUN ("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. |
| 1902 | If VARIABLE is not a terminal-local variable, then set its normal | 1902 | If VARIABLE is not a terminal-local variable, then set its normal |
| 1903 | binding, like `set'. */) | 1903 | binding, like `set'. |
| 1904 | (symbol, display, value) | 1904 | |
| 1905 | DEVICE may be a display device id, a frame, or nil (meaning the | ||
| 1906 | selected 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; |