CVS update by albinus packages/xemacs-packages/tramp/lisp ...

[xemacs-cvs at xemacs.org]

  User: albinus 
  Date: 07/01/15 21:32:22

  Modified:    packages/xemacs-packages/tramp/lisp ChangeLog tramp.el
Log:
* tramp.el (with-parsed-tramp-file-name): Protect debug spec
during compilation.

Revision  Changes    Path
1.39      +5 -0      XEmacs/packages/xemacs-packages/tramp/lisp/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/tramp/lisp/ChangeLog,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -p -r1.38 -r1.39
--- ChangeLog	2006/12/31 19:11:12	1.38
+++ ChangeLog	2007/01/15 20:32:21	1.39
@@ -1,3 +1,8 @@
+2007-01-15  Michael Albinus  <michael.albinus at gmx.de>
+
+	* tramp.el (with-parsed-tramp-file-name): Protect debug spec
+	during compilation.
+
 2006-12-31  Michael Albinus  <michael.albinus at gmx.de>
 
 	* tramp.el (tramp-completion-mode): Use `natnump' instead of



1.39      +5 -3      XEmacs/packages/xemacs-packages/tramp/lisp/tramp.el

Index: tramp.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/tramp/lisp/tramp.el,v
retrieving revision 1.38
retrieving revision 1.39
diff -u -p -r1.38 -r1.39
--- tramp.el	2006/12/31 19:11:12	1.38
+++ tramp.el	2007/01/15 20:32:21	1.39
@@ -1,8 +1,8 @@
 ;;; -*- mode: Emacs-Lisp; coding: iso-2022-7bit; -*-
 ;;; tramp.el --- Transparent Remote Access, Multiple Protocol
 
-;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004,
-;;   2005, 2006 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
+;;   2007 Free Software Foundation, Inc.
 
 ;; Author: Kai Gro,A_(Bjohann <kai.grossjohann at gmx.net>
 ;;         Michael Albinus <michael.albinus at gmx.de>
@@ -2073,7 +2073,9 @@ If VAR is nil, then we bind `v' to the s
 
 (put 'with-parsed-tramp-file-name 'lisp-indent-function 2)
 ;; Enable debugging.
-(def-edebug-spec with-parsed-tramp-file-name (form symbolp body))
+(eval-and-compile
+  (when (featurep 'edebug)
+    (def-edebug-spec with-parsed-tramp-file-name (form symbolp body))))
 ;; Highlight as keyword.
 (when (functionp 'font-lock-add-keywords)
   (funcall 'font-lock-add-keywords