/[emacs]/emacs/lisp/net/tramp.el
ViewVC logotype

Diff of /emacs/lisp/net/tramp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.44 by albinus, Sat May 29 22:28:49 2004 UTC revision 1.45 by kai, Sun May 30 21:00:21 2004 UTC
# Line 1885  If VAR is nil, then we bind `v' to the s Line 1885  If VAR is nil, then we bind `v' to the s
1885  ;; To be activated for debugging containing this macro  ;; To be activated for debugging containing this macro
1886  (def-edebug-spec with-parsed-tramp-file-name t)  (def-edebug-spec with-parsed-tramp-file-name t)
1887    
1888    (defmacro tramp-let-maybe (variable value &rest body)
1889      "Let-bind VARIABLE to VALUE in BODY, but only if VARIABLE is not obsolete.
1890    BODY is executed whether or not the variable is obsolete.
1891    The intent is to protect against `obsolete variable' warnings."
1892      `(if (get ',variable 'byte-obsolete-variable)
1893           (progn ,@body)
1894         (let ((,variable ,value))
1895           ,@body)))
1896    (put 'tramp-let-maybe 'lisp-indent-function 2)
1897    
1898  ;;; Config Manipulation Functions:  ;;; Config Manipulation Functions:
1899    
1900  (defun tramp-set-completion-function (method function-list)  (defun tramp-set-completion-function (method function-list)
# Line 6790  exiting if process is running." Line 6800  exiting if process is running."
6800      (funcall (symbol-function 'process-kill-without-query)      (funcall (symbol-function 'process-kill-without-query)
6801               process flag)))               process flag)))
6802    
 (defmacro tramp-let-maybe (variable value &rest body)  
   "Let-bind VARIABLE to VALUE in BODY, but only if VARIABLE is not obsolete.  
 BODY is executed whether or not the variable is obsolete.  
 The intent is to protect against `obsolete variable' warnings."  
   `(if (get 'byte-obsolete-variable ',variable)  
        (progn ,@body)  
      (let ((,variable ,value))  
        ,@body)))  
 (put 'tramp-let-maybe 'lisp-indent-function 2)  
   
6803    
6804  ;; ------------------------------------------------------------  ;; ------------------------------------------------------------
6805  ;; -- Kludges section --  ;; -- Kludges section --

Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26