[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/net/tramp.el [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/net/tramp.el [lexbind] |
Date: |
Tue, 06 Jul 2004 05:46:53 -0400 |
Index: emacs/lisp/net/tramp.el
diff -c emacs/lisp/net/tramp.el:1.34.2.6 emacs/lisp/net/tramp.el:1.34.2.7
*** emacs/lisp/net/tramp.el:1.34.2.6 Tue Jul 6 09:31:52 2004
--- emacs/lisp/net/tramp.el Tue Jul 6 09:38:17 2004
***************
*** 1885,1890 ****
--- 1885,1900 ----
;; To be activated for debugging containing this macro
(def-edebug-spec with-parsed-tramp-file-name t)
+ (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 ',variable 'byte-obsolete-variable)
+ (progn ,@body)
+ (let ((,variable ,value))
+ ,@body)))
+ (put 'tramp-let-maybe 'lisp-indent-function 2)
+
;;; Config Manipulation Functions:
(defun tramp-set-completion-function (method function-list)
***************
*** 6790,6805 ****
(funcall (symbol-function 'process-kill-without-query)
process flag)))
- (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)
-
;; ------------------------------------------------------------
;; -- Kludges section --
--- 6800,6805 ----
- [Emacs-diffs] Changes to emacs/lisp/net/tramp.el [lexbind],
Miles Bader <=