--- a/lisp/lib-complete.el	Mon Aug 13 10:32:23 2007 +0200
+++ b/lisp/lib-complete.el	Mon Aug 13 10:33:18 2007 +0200
@@ -38,7 +38,7 @@
 ;; Last Modified By: Heiko M|nkel <muenkel@tnt.uni-hannover.de>
 ;; Additional XEmacs integration By: Chuck Thompson <cthomp@cs.uiuc.edu>
 ;; Last Modified On: Thu Jul 1 14:23:00 1994
-;; RCS Info        : $Revision: 1.2 $ $Locker:  $
+;; RCS Info        : $Revision: 1.3 $ $Locker:  $
 ;; ========================================================================
 ;; NOTE: XEmacs must be redumped if this file is changed.
 ;;
@@ -123,10 +123,8 @@
       (message "%s" (, MESSAGE))
       (progn (,@ FORMS))
       (message "")))))
-#+infodock (defalias 'lib-funcall-with-msg 'progn-with-message)
 
 (put 'progn-with-message 'lisp-indent-hook 1)
-#+infodock (put 'lib-funcall-with-message 'lisp-indent-hook 1)
 
 ;;=== Completion caching ==================================================
 
@@ -140,7 +138,6 @@
 where each <cache-record> has the form
 
    (<root> <modtimes> <completion-table>)")
-#+infodock (defvaralias 'lib-completions 'lib-complete:cache)
 
 (defun lib-complete:better-root (ROOT1 ROOT2)
   "Return non-nil if ROOT1 is a superset of ROOT2."
@@ -320,7 +317,6 @@
 	 (if current-prefix-arg
 	   (read-coding-system "Coding System: "))))
   (find-file-other-window library codesys))
-#+infodock (defalias 'lib-edit-other-window 'find-library-other-window)
 
 (defun find-library-other-frame (library &optional codesys)
   "Load the library named LIBRARY in a newly-created frame.
@@ -338,9 +334,6 @@
 (define-key global-map "\C-x4l" 'find-library-other-window)
 (define-key global-map "\C-x5l" 'find-library-other-frame)
 
-#+infodock (defalias 'lib-where-is 'locate-library)
-
-#+infodock (provide 'lib)
 (provide 'lib-complete)
 
 ;;; lib-complete.el ends here