Mercurial > hg > xemacs-beta

comparison lisp/info.el @ 424:11054d720c21 r21-2-20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-20
author cvs
date Mon, 13 Aug 2007 11:26:11 +0200
parents da8ed4261e83
children
comparison
equal deleted inserted replaced
423:28d9c139be4c 424:11054d720c21
457 :group 'info-faces) 457 :group 'info-faces)
458 458
459 ;; Is this right for NT? .zip, with -c for to stdout, right? 459 ;; Is this right for NT? .zip, with -c for to stdout, right?
460 (defvar Info-suffix-list '( ("" . nil) 460 (defvar Info-suffix-list '( ("" . nil)
461 (".info" . nil) 461 (".info" . nil)
462 (".info.bz2" . "bzip2 -dc %s")
462 (".info.gz" . "gzip -dc %s") 463 (".info.gz" . "gzip -dc %s")
463 (".info-z" . "gzip -dc %s") 464 (".info-z" . "gzip -dc %s")
464 (".info.Z" . "uncompress -c %s") 465 (".info.Z" . "uncompress -c %s")
465 (".bz2" . "bzip2 -dc %s") 466 (".bz2" . "bzip2 -dc %s")
466 (".gz" . "gzip -dc %s") 467 (".gz" . "gzip -dc %s")
499 500
500 (defvar Info-index-alternatives nil 501 (defvar Info-index-alternatives nil
501 "List of possible matches for last Info-index command.") 502 "List of possible matches for last Info-index command.")
502 (defvar Info-index-first-alternative nil) 503 (defvar Info-index-first-alternative nil)
503 504
504 (defcustom Info-annotations-path '("~/.xemacs/info.notes" 505 (defcustom Info-annotations-path
505 "~/.infonotes" 506 (list
506 "/usr/lib/info.notes") 507 (paths-construct-path (list user-init-directory "info.notes"))
508 (paths-construct-path '("~" ".infonotes"))
509 (paths-construct-path '("usr" "lib" "info.notes")
510 (char-to-string directory-sep-char)))
507 "*Names of files that contain annotations for different Info nodes. 511 "*Names of files that contain annotations for different Info nodes.
508 By convention, the first one should reside in your personal directory. 512 By convention, the first one should reside in your personal directory.
509 The last should be a world-writable \"public\" annotations file." 513 The last should be a world-writable \"public\" annotations file."
510 :type '(repeat file) 514 :type '(repeat file)
511 :group 'info) 515 :group 'info)
2058 (while (>= (setq n (1- n)) 0) 2062 (while (>= (setq n (1- n)) 0)
2059 (if (pos-visible-in-window-p (point-min)) 2063 (if (pos-visible-in-window-p (point-min))
2060 (progn 2064 (progn
2061 (Info-global-prev) 2065 (Info-global-prev)
2062 (message "Node: %s" Info-current-node) 2066 (message "Node: %s" Info-current-node)
2063 (sit-for 0) 2067 (goto-char (point-max))
2064 ;;(scroll-up 1) ; work around bug in pos-visible-in-window-p 2068 (recenter -1)
2065 ;;(scroll-down 1) 2069 (move-to-window-line 0))
2066 (while (not (pos-visible-in-window-p (point-max)))
2067 (scroll-up)))
2068 (scroll-down))))) 2070 (scroll-down)))))
2069 2071
2070 (defun Info-scroll-prev (arg) 2072 (defun Info-scroll-prev (arg)
2071 (interactive "P") 2073 (interactive "P")
2072 (if Info-auto-advance 2074 (if Info-auto-advance