[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master a20fe5a 2/5: Remove code #if-0-ed terminal-local co
From: |
Daniel Colascione |
Subject: |
[Emacs-diffs] master a20fe5a 2/5: Remove code #if-0-ed terminal-local code |
Date: |
Mon, 11 Jun 2018 19:10:59 -0400 (EDT) |
branch: master
commit a20fe5a7e3577f9b9ad5e88006962966240d9b0c
Author: Daniel Colascione <address@hidden>
Commit: Daniel Colascione <address@hidden>
Remove code #if-0-ed terminal-local code
This code hasn't been used since 2005.
* src/data.c
(get_terminal, Fterminal_local_value, Fset_terminal_local_value): Remove.
---
src/data.c | 45 ---------------------------------------------
1 file changed, 45 deletions(-)
diff --git a/src/data.c b/src/data.c
index 6f23a26..49c3dd8 100644
--- a/src/data.c
+++ b/src/data.c
@@ -2153,47 +2153,6 @@ If the current binding is global (the default), the
value is nil. */)
}
}
-/* This code is disabled now that we use the selected frame to return
- keyboard-local-values. */
-#if 0
-extern struct terminal *get_terminal (Lisp_Object display, int);
-
-DEFUN ("terminal-local-value", Fterminal_local_value,
- Sterminal_local_value, 2, 2, 0,
- doc: /* Return the terminal-local value of SYMBOL on TERMINAL.
-If SYMBOL is not a terminal-local variable, then return its normal
-value, like `symbol-value'.
-
-TERMINAL may be a terminal object, a frame, or nil (meaning the
-selected frame's terminal device). */)
- (Lisp_Object symbol, Lisp_Object terminal)
-{
- Lisp_Object result;
- struct terminal *t = get_terminal (terminal, 1);
- push_kboard (t->kboard);
- result = Fsymbol_value (symbol);
- pop_kboard ();
- return result;
-}
-
-DEFUN ("set-terminal-local-value", Fset_terminal_local_value,
- Sset_terminal_local_value, 3, 3, 0,
- doc: /* Set the terminal-local binding of SYMBOL on TERMINAL to VALUE.
-If VARIABLE is not a terminal-local variable, then set its normal
-binding, like `set'.
-
-TERMINAL may be a terminal object, a frame, or nil (meaning the
-selected frame's terminal device). */)
- (Lisp_Object symbol, Lisp_Object terminal, Lisp_Object value)
-{
- Lisp_Object result;
- struct terminal *t = get_terminal (terminal, 1);
- push_kboard (d->kboard);
- result = Fset (symbol, value);
- pop_kboard ();
- return result;
-}
-#endif
/* Find the function at the end of a chain of symbol function indirections. */
@@ -3827,10 +3786,6 @@ syms_of_data (void)
defsubr (&Slocal_variable_p);
defsubr (&Slocal_variable_if_set_p);
defsubr (&Svariable_binding_locus);
-#if 0 /* XXX Remove this. --lorentey */
- defsubr (&Sterminal_local_value);
- defsubr (&Sset_terminal_local_value);
-#endif
defsubr (&Saref);
defsubr (&Saset);
defsubr (&Snumber_to_string);