# HG changeset patch # User Sam Steingold # Date 958494265 0 # Node ID 36fd90774cf73e5147edfa8ec6846840f8e26503 # Parent 7ba4cf5748e8926a4999b857a6ef5997e954ffb3 (debug-ignored-errors): more errors to ignore. diff -r 7ba4cf5748e8 -r 36fd90774cf7 lisp/ChangeLog --- a/lisp/ChangeLog Tue May 16 15:03:49 2000 +0000 +++ b/lisp/ChangeLog Tue May 16 16:24:25 2000 +0000 @@ -1,3 +1,7 @@ +2000-05-16 Sam Steingold + + * info.el (debug-ignored-errors): more errors to ignore. + 2000-05-16 Dave Love * cus-edit.el: Don't require cl or easymenu. @@ -62,7 +66,7 @@ (help-xref-go-back): Use position information from stack element. (help-follow): Make position in stack element a pair. Use help-xref-following. - + * autoarg.el: New file. * faces.el: Declare more functions obsolete. @@ -188,7 +192,7 @@ * ange-ftp.el (ange-ftp-skip-msgs): Include 500 code.for handling FTP security extensions. - + 2000-05-11 Dave Love * calendar/todo-mode.el: New file. @@ -198,7 +202,7 @@ * comint.el (comint-read-input-ring): Move reference to comint-input-ring-size outside of the save-excursion. It was causing the default value to be the only one ever seen. - + * font-lock.el: Update copyright. Remove Simon Marshall's email address on request from him. @@ -336,7 +340,7 @@ (makefile-mode): Set local abbrev table to makefile-mode-abbrev-table. (makefile-font-lock-keywords): Fontify includes and conditionals. - + * subr.el (add-minor-mode): Handle AFTER for keymaps. Don't set TOGGLE's value. @@ -344,7 +348,7 @@ mail-interactive-insert-alias. (mail-abbrev-complete-alias): New command. (mail-mode-map): Bind it to `M-TAB'. - + 2000-05-03 Kenichi Handa * language/lao-util.el (lao-compose-region): New function. @@ -354,8 +358,8 @@ * files.el (recover-session): Make directories as necessary if they don't exist yet. - * calendar/cal-french.el - (french-calendar-multibyte-special-days-array) + * calendar/cal-french.el + (french-calendar-multibyte-special-days-array) (french-calendar-special-days-array): Change French text. (calendar-french-date-string): Change output. (calendar-goto-french-date): Likewise. @@ -387,7 +391,7 @@ the code loading subdirs.el. 2000-04-29 Vinicius Jose Latorre - + * ps-print.el: Upside-down and face background color printing, line number step, doc fix. (ps-print-version): New version number (5.2). @@ -407,7 +411,7 @@ before generating auto save file name. (auto-save-file-name-transforms): New variable. - * files.el (backup-enable-predicate): + * files.el (backup-enable-predicate): Correctly test for a file under a temporary directory. 2000-04-28 Gerd Moellmann @@ -433,14 +437,14 @@ * textmodes/texinfmt.el (texinfo-format-xref): Don't try to insert nil. - + * subr.el (add-minor-mode): Use `set' instead of `setq'. * gud.el (gud-gdb-find-file): Call find-file-noselect with NOWARN argument. 2000-04-27 Sen Nagata - + * emacs-lisp/crm.el (crm-completion-table): New variable. (crm-collection-fn, crm-test-completion) (completing-read-multiple): Use it. diff -r 7ba4cf5748e8 -r 36fd90774cf7 lisp/info.el --- a/lisp/info.el Tue May 16 15:03:49 2000 +0000 +++ b/lisp/info.el Tue May 16 16:24:25 2000 +0000 @@ -291,7 +291,7 @@ (list (read-file-name "Info file name: " nil nil t)))) (let (same-window-buffer-names) (info file))) - + ;;;###autoload (add-hook 'same-window-buffer-names "*info*") ;;;###autoload @@ -306,7 +306,7 @@ to read a file name from the minibuffer. The search path for Info files is in the variable `Info-directory-list'. -The top-level Info directory is made by combining all the files named `dir' +The top-level Info directory is made by combining all the files named `dir' in all the directories in that path." (interactive (if current-prefix-arg (list (read-file-name "Info file name: " nil nil t)))) @@ -642,10 +642,10 @@ ;; since we used it. (eval (cons 'and (mapcar '(lambda (elt) - (let ((curr (file-attributes + (let ((curr (file-attributes ;; Handle symlinks (file-truename (car elt))))) - + ;; Don't compare the access time. (if curr (setcar (nthcdr 4 curr) 0)) (setcar (nthcdr 4 (cdr elt)) 0) @@ -703,7 +703,7 @@ (or (cdr dirs) (setq Info-dir-contents-directory (file-name-as-directory (car dirs)))) (setq dirs (cdr dirs)))) - + (or buffers (error "Can't find the Info directory node")) ;; Distinguish the dir file that comes with Emacs from all the @@ -979,7 +979,7 @@ (let ((beg (point))) (forward-line 1) (if (re-search-backward node-regexp beg t) - (setq compl + (setq compl (cons (list (match-string-no-properties 1)) compl)))))))) (setq compl (cons '("*") compl)) @@ -1070,7 +1070,7 @@ Info-history)))))) ;; Extract the value of the node-pointer named NAME. -;; If there is none, use ERRORNAME in the error message; +;; If there is none, use ERRORNAME in the error message; ;; if ERRORNAME is nil, just return nil. (defun Info-extract-pointer (name &optional errorname) ;; Bind this in case the user sets it to nil. @@ -1339,7 +1339,7 @@ ;; 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. (Info-goto-node (Info-extract-menu-item menu-item) (if fork menu-item))) - + (defun Info-extract-menu-item (menu-item) (setq menu-item (regexp-quote menu-item)) (let ((case-fold-search t)) @@ -1389,7 +1389,7 @@ ;; Go to the last node in the menu of Top. (Info-goto-node (Info-extract-menu-counting nil)) ;; If the last node in the menu is not last in pointer structure, - ;; move forward until we can't go any farther. + ;; move forward until we can't go any farther. (while (Info-forward-node t t) nil) ;; Then keep moving down to last subnode, unless we reach an index. (while (and (not (string-match "\\" Info-current-node)) @@ -1940,13 +1940,13 @@ (Info-complete-menu-item "" (lambda (e) t) t) (error nil)))) - entries current + entries current (number 0)) (while (and items (< number 9)) (setq current (car items) items (cdr items) number (1+ number)) - (setq entries (cons `[,current + (setq entries (cons `[,current (Info-menu ,current) :keys ,(format "%d" number)] entries))) @@ -1957,7 +1957,7 @@ (easy-menu-change '("Info") "Menu item" (nreverse entries))) ;; Update reference menu. Code stolen from `Info-follow-reference'. (let ((items nil) - str i entries current + str i entries current (number 0) (case-fold-search t)) (save-excursion @@ -1977,7 +1977,7 @@ (setq current (car items) items (cdr items) number (1+ number)) - (setq entries (cons `[,current + (setq entries (cons `[,current (Info-follow-reference ,current) t] entries))) @@ -2035,7 +2035,7 @@ the parent node. \\[Info-scroll-down] Normally, scroll backward. If the beginning of the buffer is already visible, try to go to the previous menu entry, or up if there is none. -\\[beginning-of-buffer] Go to beginning of node. +\\[beginning-of-buffer] Go to beginning of node. Advanced commands: \\[Info-exit] Quit Info: reselect previously selected buffer. @@ -2291,7 +2291,7 @@ face) (cond ((= c ?*) (setq face 'Info-title-1-face)) ((= c ?=) (setq face 'Info-title-2-face)) - (t (setq face 'Info-title-3-face))) + (t (setq face 'Info-title-3-face))) (put-text-property (match-beginning 1) (match-end 1) 'face face)) ;; This is a serious problem for trying to handle multiple @@ -2425,7 +2425,7 @@ (setq completions (cdr completions))) t) nil)))) - + (defun Info-speedbar-goto-node (text node indent) "When user clicks on TEXT, goto an info NODE. The INDENT level is ignored." @@ -2520,6 +2520,8 @@ (dolist (mess '("^Node has no Previous$" "^No menu in this node$" "^Node has no Next$" + "^No cross-references in this node^" + search-failed "^No \".*\" in index$")) (add-to-list 'debug-ignored-errors mess))