emacs-diffs
[Top][All Lists]
Advanced

[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);



reply via email to

[Prev in Thread] Current Thread [Next in Thread]