--- a/lisp/hm--html-menus/adapt.el	Mon Aug 13 09:00:04 2007 +0200
+++ b/lisp/hm--html-menus/adapt.el	Mon Aug 13 09:02:59 2007 +0200
@@ -1,6 +1,6 @@
-;;; $Id: adapt.el,v 1.3 1997/03/26 22:42:37 steve Exp $
+;;; $Id: adapt.el,v 1.1.1.1 1996/12/18 22:43:20 steve Exp $
 ;;;
-;;; Copyright (C) 1993 - 1997  Heiko Muenkel
+;;; Copyright (C) 1993, 1994, 1995  Heiko Muenkel
 ;;; email: muenkel@tnt.uni-hannover.de
 ;;;
 ;;;  This program is free software; you can redistribute it and/or modify
@@ -20,7 +20,7 @@
 ;;; 
 ;;; Description:
 ;;;
-;;;	General functions to port XEmacs functions to GNU Emacs 19.
+;;;	General functions to port Lucid Emacs to GNU Emacs 19.
 ;;; 
 ;;; Installation: 
 ;;;   
@@ -47,7 +47,7 @@
    (not (adapt-xemacsp))
    (string= (substring emacs-version 0 2) "19")))
 
-;;; Functions, which don't exist in both emacs versions
+;;; Functions, which doesn't exist in both emacses
 
 (defun adapt-region-active-p ()
   "Returns t, if a region is active."
@@ -55,19 +55,7 @@
       (mark)
     mark-active))
 
-(if (not (fboundp 'file-remote-p))
-    (defun file-remote-p (file)
-      "Test wether file resides on the local system.
-The special value 'unknown is returned if no remote file acess package
-has been loaded."
-      (if (not (featurep 'ange-ftp))
-	  (require 'ange-ftp))
-      (if (not (fboundp 'ange-ftp-ftp-p))
-	  nil ; better than nothing, if no ange-ftp-ftp-p exists
-	(ange-ftp-ftp-path file))))
 
-
-;;; Functions, which don't exist in the Emacs 19
 (if (adapt-emacs19p)
     (progn
       (load-library "lucid")
@@ -250,20 +238,6 @@
 	    (and (button-event-p obj)
 		 (not (button-press-event-p obj)))))
 
-      (if (not (fboundp 'button-click-event-p))
-	  (defun button-click-event-p (obj)
-	    "True if OBJ is a click event obkect."
-	    ;; only for the Emacs 19
-	    ;; doesn't exist and can't (?) exist in the XEmacs
-	    (and (button-event-p obj)
-		 (member 'click (event-modifiers obj)))))
-      
-      (if (not (fboundp 'mouse-event-p))
-	  (defun mouse-event-p (obj)
-	    "True if OBJ is a button-press, button-release, or mouse-motion event object."
-	    (or (button-event-p obj)
-		(member 'drag (event-modifiers obj)))))
-
       (if (not (fboundp 'event-window))
 	  (defun event-window (event)
 	    "Return the window of the given mouse event.
@@ -338,13 +312,6 @@
 				minor-mode-map-alist))))
 	      ))
 	)
-
-      (if (not (fboundp 'redraw-modeline))
-	  (defalias 'redraw-modeline 'force-mode-line-update))
-
-      (if (not (fboundp 'mouse-track))
-	  (defalias 'mouse-track 'mouse-drag-region))
-
       ))