sync/ports
1
0
Fork 0
mirror of https://git.freebsd.org/ports.git synced 2025-07-18 01:39:16 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix elisp error at connecting to remote site.

Browse source 
Obtained from:	tramp CVS
This commit is contained in:
Jun Kuriyama 2004-06-14 10:03:26 +00:00
parent 754926f254
commit 8e503fc908
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=111451
2 changed files with 43 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
net/tramp/Makefile
View file

@ -7,6 +7,7 @@
PORTNAME= tramp
PORTVERSION= 2.0.41
PORTREVISION= 1
CATEGORIES= net elisp
MASTER_SITES= ${MASTER_SITE_SAVANNAH}
MASTER_SITE_SUBDIR= ${PORTNAME}

42
net/tramp/files/patch-tramp.el Normal file
View file

@ -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 --