/[emacs]/emacs/lisp/info.el
ViewVC logotype

Diff of /emacs/lisp/info.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.286 by monnier, Thu Nov 29 23:44:01 2001 UTC revision 1.287 by monnier, Fri Nov 30 23:59:28 2001 UTC
# Line 609  a case-insensitive match is tried." Line 609  a case-insensitive match is tried."
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.
# Line 1393  FOOTNOTENAME may be an abbreviation of t Line 1393  FOOTNOTENAME may be an abbreviation of t
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)

Legend:
Removed from v.1.286  
changed lines
  Added in v.1.287

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26