diff options
Diffstat (limited to 'src/data.c')
| -rw-r--r-- | src/data.c | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/src/data.c b/src/data.c index bd08368c2fb..0b2036395da 100644 --- a/src/data.c +++ b/src/data.c | |||
| @@ -1900,41 +1900,41 @@ If the current binding is global (the default), the value is nil. */) | |||
| 1900 | /* This code is disabled now that we use the selected frame to return | 1900 | /* This code is disabled now that we use the selected frame to return |
| 1901 | keyboard-local-values. */ | 1901 | keyboard-local-values. */ |
| 1902 | #if 0 | 1902 | #if 0 |
| 1903 | extern struct device *get_device P_ ((Lisp_Object display, int)); | 1903 | extern struct terminal *get_terminal P_ ((Lisp_Object display, int)); |
| 1904 | 1904 | ||
| 1905 | DEFUN ("terminal-local-value", Fterminal_local_value, Sterminal_local_value, 2, 2, 0, | 1905 | DEFUN ("terminal-local-value", Fterminal_local_value, Sterminal_local_value, 2, 2, 0, |
| 1906 | doc: /* Return the terminal-local value of SYMBOL on DEVICE. | 1906 | doc: /* Return the terminal-local value of SYMBOL on TERMINAL. |
| 1907 | If SYMBOL is not a terminal-local variable, then return its normal | 1907 | If SYMBOL is not a terminal-local variable, then return its normal |
| 1908 | value, like `symbol-value'. | 1908 | value, like `symbol-value'. |
| 1909 | 1909 | ||
| 1910 | DEVICE may be a display device id, a frame, or nil (meaning the | 1910 | TERMINAL may be a terminal id, a frame, or nil (meaning the |
| 1911 | selected frame's display device). */) | 1911 | selected frame's terminal device). */) |
| 1912 | (symbol, device) | 1912 | (symbol, terminal) |
| 1913 | Lisp_Object symbol; | 1913 | Lisp_Object symbol; |
| 1914 | Lisp_Object device; | 1914 | Lisp_Object terminal; |
| 1915 | { | 1915 | { |
| 1916 | Lisp_Object result; | 1916 | Lisp_Object result; |
| 1917 | struct device *d = get_device (device, 1); | 1917 | struct terminal *t = get_terminal (terminal, 1); |
| 1918 | push_kboard (d->kboard); | 1918 | push_kboard (t->kboard); |
| 1919 | result = Fsymbol_value (symbol); | 1919 | result = Fsymbol_value (symbol); |
| 1920 | pop_kboard (); | 1920 | pop_kboard (); |
| 1921 | return result; | 1921 | return result; |
| 1922 | } | 1922 | } |
| 1923 | 1923 | ||
| 1924 | DEFUN ("set-terminal-local-value", Fset_terminal_local_value, Sset_terminal_local_value, 3, 3, 0, | 1924 | DEFUN ("set-terminal-local-value", Fset_terminal_local_value, Sset_terminal_local_value, 3, 3, 0, |
| 1925 | doc: /* Set the terminal-local binding of SYMBOL on DEVICE to VALUE. | 1925 | doc: /* Set the terminal-local binding of SYMBOL on TERMINAL to VALUE. |
| 1926 | If VARIABLE is not a terminal-local variable, then set its normal | 1926 | If VARIABLE is not a terminal-local variable, then set its normal |
| 1927 | binding, like `set'. | 1927 | binding, like `set'. |
| 1928 | 1928 | ||
| 1929 | DEVICE may be a display device id, a frame, or nil (meaning the | 1929 | TERMINAL may be a terminal id, a frame, or nil (meaning the |
| 1930 | selected frame's display device). */) | 1930 | selected frame's terminal device). */) |
| 1931 | (symbol, device, value) | 1931 | (symbol, terminal, value) |
| 1932 | Lisp_Object symbol; | 1932 | Lisp_Object symbol; |
| 1933 | Lisp_Object device; | 1933 | Lisp_Object terminal; |
| 1934 | Lisp_Object value; | 1934 | Lisp_Object value; |
| 1935 | { | 1935 | { |
| 1936 | Lisp_Object result; | 1936 | Lisp_Object result; |
| 1937 | struct device *d = get_device (device, 1); | 1937 | struct terminal *t = get_terminal (terminal, 1); |
| 1938 | push_kboard (d->kboard); | 1938 | push_kboard (d->kboard); |
| 1939 | result = Fset (symbol, value); | 1939 | result = Fset (symbol, value); |
| 1940 | pop_kboard (); | 1940 | pop_kboard (); |