609 |
(erase-buffer) |
(erase-buffer) |
610 |
(if (eq filename t) |
(if (eq filename t) |
611 |
(Info-insert-dir) |
(Info-insert-dir) |
612 |
(info-insert-file-contents filename t) |
(info-insert-file-contents filename nil) |
613 |
(setq default-directory (file-name-directory filename))) |
(setq default-directory (file-name-directory filename))) |
614 |
(set-buffer-modified-p nil) |
(set-buffer-modified-p nil) |
615 |
;; See whether file has a tag table. Record the location if yes. |
;; See whether file has a tag table. Record the location if yes. |
1393 |
(buffer-substring-no-properties beg (1- (point))) |
(buffer-substring-no-properties beg (1- (point))) |
1394 |
(skip-chars-forward " \t\n") |
(skip-chars-forward " \t\n") |
1395 |
(Info-following-node-name (if multi-line "^.,\t" "^.,\t\n")))) |
(Info-following-node-name (if multi-line "^.,\t" "^.,\t\n")))) |
1396 |
(while (setq i (string-match "\n" str i)) |
(replace-regexp-in-string "[ \n]+" " " str))) |
|
(aset str i ?\ )) |
|
|
;; Collapse multiple spaces. |
|
|
(while (string-match " +" str) |
|
|
(setq str (replace-match " " t t str))) |
|
|
str)) |
|
1397 |
|
|
1398 |
;; No one calls this. |
;; No one calls this. |
1399 |
;;(defun Info-menu-item-sequence (list) |
;;(defun Info-menu-item-sequence (list) |