mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

(debug-ignored-errors): more errors to ignore.

Browse Source
This commit is contained in:
Sam Steingold 2000-05-16 16:24:25 +00:00
parent 01651f075f
commit 399c88ad20
2 changed files with 33 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lisp/ChangeLog
View File

@ -1,3 +1,7 @@
2000-05-16 Sam Steingold <sds@gnu.org>
* info.el (debug-ignored-errors): more errors to ignore.
2000-05-16 Dave Love <fx@gnu.org>
* 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 <fx@gnu.org>
* 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 <handa@etl.go.jp>
* 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 <vinicius@cpqd.com.br>
* 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 <gerd@gnu.org>
@ -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 <sen@eccosys.com>
* emacs-lisp/crm.el (crm-completion-table): New variable.
(crm-collection-fn, crm-test-completion)
(completing-read-multiple): Use it.

34
lisp/info.el
View File

@ -291,7 +291,7 @@ Do the right thing if the file has been compressed or zipped."
(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 @@ In interactive use, a prefix argument directs this command
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 @@ else defaults to `Top'."
;; 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 @@ else defaults to `Top'."
(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 @@ If FORK is a string, it is the name to use for the new buffer."
(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 @@ If FORK is a string, it is the name to use for the new buffer."
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 @@ Completion is allowed, and the menu item point is on is the default."
;; 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 @@ N is the digit argument used to invoke this command."
;; 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 "\\<index\\>" Info-current-node))
@ -1940,13 +1940,13 @@ If no reference to follow, moves to the next node, or up if none."
(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 @@ If no reference to follow, moves to the next node, or up if none."
(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 @@ If no reference to follow, moves to the next node, or up if none."
(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 @@ When after all menu items (or if their is no menu), move up to
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 @@ The alist key is the character the title is underlined with (?*, ?= or ?-)."
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 @@ specific node to expand."
(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 @@ BUFFER is the buffer speedbar is requesting buttons for."
(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))