Take care of fallout from updating/fixing #'eval-after-load

[sxemacs] / lisp / info.el

diff --git a/lisp/info.el b/lisp/info.el
index e15974e..ce20e3d 100644 (file)
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -336,6 +336,12 @@
   :type 'boolean
   :group 'info)
 
+;; Presently, the only reason this exists is to keep a few FSF-originated
+;; packages happy. We don't use it. --SY
+(defvar Info-file-list-for-emacs nil)
+(make-compatible-variable 'Info-file-list-for-emacs
+                         "SXEmacs does NOT use this")
+
 (defvar Info-history nil
   "List of info nodes user has visited.
 Each element of list is a list (\"(FILENAME)NODENAME\" BUFPOS WINSTART).")
@@ -2522,10 +2528,10 @@ which returns to Info mode for browsing.
 (defun Info-annotate (arg)
   "Add a personal annotation to the current Info node.
  Only you will be able to see this annotation.  Annotations are stored
-in the file \"~/.sxemacs/info.notes\" by default.  If point is inside
-an existing annotation, edit that annotation.  A prefix argument
-specifies which annotations file (from `Info-annotations-path') is to
-be edited; default is 1."
+in the file \"info.notes\" in your `user-init-directory' by default.  If
+point is inside an existing annotation, edit that annotation.  A prefix
+argument specifies which annotations file (from `Info-annotations-path')
+is to be edited; default is 1."
   (interactive "p")
   (setq arg (1- arg))
   (if (or (< arg 0) (not (nth arg Info-annotations-path)))