/[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.340 by schwab, Fri Mar 7 11:34:40 2003 UTC revision 1.341 by schwab, Mon Mar 10 13:04:10 2003 UTC
# Line 1352  saying which chars may appear in the nod Line 1352  saying which chars may appear in the nod
1352         (if (looking-at "(")         (if (looking-at "(")
1353             (skip-chars-forward "^)")))             (skip-chars-forward "^)")))
1354       (skip-chars-backward " ")       (skip-chars-backward " ")
      ;; Skip trailing period.  
      (if (equal (char-before) ?.)  
          (forward-char -1))  
1355       (point))))       (point))))
1356    
1357  (defun Info-next ()  (defun Info-next ()
# Line 1496  FOOTNOTENAME may be an abbreviation of t Line 1493  FOOTNOTENAME may be an abbreviation of t
1493            (if (looking-at ":")            (if (looking-at ":")
1494                (buffer-substring-no-properties beg (1- (point)))                (buffer-substring-no-properties beg (1- (point)))
1495              (skip-chars-forward " \t\n")              (skip-chars-forward " \t\n")
1496              (Info-following-node-name (if multi-line "^,\t" "^,\t\n"))))              (Info-following-node-name (if multi-line "^.,\t" "^.,\t\n"))))
1497      (replace-regexp-in-string "[ \n]+" " " str)))      (replace-regexp-in-string "[ \n]+" " " str)))
1498    
1499  ;; No one calls this.  ;; No one calls this.

Legend:
Removed from v.1.340  
changed lines
  Added in v.1.341

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