+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.
(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.
* 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.
* 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.
(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.
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.
* 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.
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).
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>
* 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.
(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
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))))
;; 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)
(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
(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))
Info-history))))))
\f
;; 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.
;; 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))
;; 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))
(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)))
(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
(setq current (car items)
items (cdr items)
number (1+ number))
- (setq entries (cons `[,current
+ (setq entries (cons `[,current
(Info-follow-reference ,current)
t]
entries)))
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.
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
(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."
(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))