diff options
| author | Jun Kuriyama <kuriyama@FreeBSD.org> | 2004-06-14 10:03:26 +0000 |
|---|---|---|
| committer | Jun Kuriyama <kuriyama@FreeBSD.org> | 2004-06-14 10:03:26 +0000 |
| commit | 8e503fc9086af034b38cfaf3e889edc467aedadc (patch) | |
| tree | 2e022a8b0d96054d73ed6f40ebcad66e192ce71a /net/tramp | |
| parent | 754926f25478f23a94bc210708d85f2357446859 (diff) | |
| download | ports-8e503fc9086af034b38cfaf3e889edc467aedadc.tar.gz ports-8e503fc9086af034b38cfaf3e889edc467aedadc.zip | |
Notes
Diffstat (limited to 'net/tramp')
| -rw-r--r-- | net/tramp/Makefile | 1 | ||||
| -rw-r--r-- | net/tramp/files/patch-tramp.el | 42 |
2 files changed, 43 insertions, 0 deletions
diff --git a/net/tramp/Makefile b/net/tramp/Makefile index f1f4d19721c5..ee9ad76c1151 100644 --- a/net/tramp/Makefile +++ b/net/tramp/Makefile @@ -7,6 +7,7 @@ PORTNAME= tramp PORTVERSION= 2.0.41 +PORTREVISION= 1 CATEGORIES= net elisp MASTER_SITES= ${MASTER_SITE_SAVANNAH} MASTER_SITE_SUBDIR= ${PORTNAME} diff --git a/net/tramp/files/patch-tramp.el b/net/tramp/files/patch-tramp.el new file mode 100644 index 000000000000..aad7656df633 --- /dev/null +++ b/net/tramp/files/patch-tramp.el @@ -0,0 +1,42 @@ +Index: lisp/tramp.el +=================================================================== +RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v +retrieving revision 2.359.2.3 +retrieving revision 2.359.2.4 +diff -u -r2.359.2.3 -r2.359.2.4 +--- lisp/tramp.el 29 May 2004 21:40:49 -0000 2.359.2.3 ++++ lisp/tramp.el 30 May 2004 20:55:59 -0000 2.359.2.4 +@@ -1885,6 +1885,16 @@ + ;; 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,16 +6800,6 @@ + (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 -- |