: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).")
(goto-char start)
(while (re-search-forward
(concat #r"^\* \([^:]+\):\("
- "[ \t]*"
- #r"(\([^)]*\))\w*\.\|:\)")
- nil t)
+ "[ \t]*"
+ #r"(\([^)]*\))\w*\.\|:\)")
+ nil t)
(setq entry (list (match-string 2)
(match-string 1)
(downcase (or (match-string 3)
nil t))
(let (filename)
(string-match (concat #r"\s *\((\s *\("
- "[^\t)]*"
- #r"\)\s *)\s *\|\)\(.*\)")
+ "[^\t)]*"
+ #r"\)\s *)\s *\|\)\(.*\)")
nodename)
(setq filename (if (= (match-beginning 1) (match-end 1))
""
(setq Info-last-search regexp)
(with-search-caps-disable-folding regexp t
(let ((found ())
- (onode Info-current-node)
- (ofile Info-current-file)
- (opoint (point))
- (osubfile Info-current-subfile))
+ (onode Info-current-node)
+ (ofile Info-current-file)
+ (opoint (point))
+ (osubfile Info-current-subfile))
(save-excursion
- (save-restriction
- (widen)
- (if (null Info-current-subfile)
- (progn (re-search-forward regexp) (setq found (point)))
- (condition-case nil
- (progn (re-search-forward regexp) (setq found (point)))
- (search-failed nil)))))
+ (save-restriction
+ (widen)
+ (if (null Info-current-subfile)
+ (progn (re-search-forward regexp) (setq found (point)))
+ (condition-case nil
+ (progn (re-search-forward regexp) (setq found (point)))
+ (search-failed nil)))))
(if (not found)
;; can only happen in subfile case -- else would have erred
- (unwind-protect
- (let ((list ()))
- (save-excursion
+ (unwind-protect
+ (let ((list ()))
+ (save-excursion
(set-buffer (marker-buffer Info-tag-table-marker))
(goto-char (point-min))
(search-forward "\n\^_\nIndirect:")
(goto-char (1+ (match-end 0))))
(setq list (nreverse list)
list (cdr list))))
- (while list
- (message "Searching subfile %s..." (cdr (car list)))
- (Info-read-subfile (car (car list)))
- (setq list (cdr list))
- (goto-char (point-min))
- (if (re-search-forward regexp nil t)
- (setq found (point) list ())))
- (if found
- (message "")
- (signal 'search-failed (list regexp))))
- (if (not found)
- (progn (Info-read-subfile opoint)
- (goto-char opoint)
- (Info-select-node)))))
+ (while list
+ (message "Searching subfile %s..." (cdr (car list)))
+ (Info-read-subfile (car (car list)))
+ (setq list (cdr list))
+ (goto-char (point-min))
+ (if (re-search-forward regexp nil t)
+ (setq found (point) list ())))
+ (if found
+ (message "")
+ (signal 'search-failed (list regexp))))
+ (if (not found)
+ (progn (Info-read-subfile opoint)
+ (goto-char opoint)
+ (Info-select-node)))))
(widen)
(goto-char found)
(Info-select-node)
(or (and (equal onode Info-current-node)
- (equal ofile Info-current-file))
- (Info-history-add ofile onode opoint)))))
+ (equal ofile Info-current-file))
+ (Info-history-add ofile onode opoint)))))
\f
;; Extract the value of the node-pointer named NAME.
;; If there is none, use ERRORNAME in the error message;
(defun Info-next-reference (n)
(interactive "p")
(let ((pat (format (concat "\\*%s[ \n\t]*"
- #r"\([^:]*\):\|^\* .*:\|<<.*>>")
+ #r"\([^:]*\):\|^\* .*:\|<<.*>>")
Info-footnote-tag))
(old-pt (point))
wrapped found-nomenu)
(if (string= item "")
(if default
(setq item default)
- ;; ask again
- (setq item nil))))
+ ;; ask again
+ (setq item nil))))
(list item))))
;; there is a problem here in that if several menu items have the same
;; name you can only go to the node of the first with this command.
(format " (default %s)" fn)
""))
obarray 'fboundp t
- nil nil (and fn (symbol-name fn))))
+ nil nil (and fn (symbol-name fn))))
(list (if (equal val "")
fn (intern val)))))
(save-window-excursion
(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)))