Mercurial > hg > xemacs-beta

comparison lisp/info.el @ 446:1ccc32a20af4 r21-2-38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-38
author cvs
date Mon, 13 Aug 2007 11:37:21 +0200
parents 576fb035e263
children e7ef97881643
comparison
equal deleted inserted replaced
445:34f3776fcf0e 446:1ccc32a20af4
2006 (buffer-substring start (1- (point))) 2006 (buffer-substring start (1- (point)))
2007 (skip-chars-forward " \t\n") 2007 (skip-chars-forward " \t\n")
2008 ;; Kludge. 2008 ;; Kludge.
2009 ;; Allow dots in node name not followed by whitespace. 2009 ;; Allow dots in node name not followed by whitespace.
2010 (re-search-forward 2010 (re-search-forward
2011 (concat "\\(([^)]+)[^." 2011 (concat "\\(([^)]+)[^.,"
2012 (if multi-line "" "\n") 2012 (if multi-line "" "\n")
2013 "]*\\|\\([^.,\t" 2013 "]*\\|\\([^.,\t"
2014 (if multi-line "" "\n") 2014 (if multi-line "" "\n")
2015 ;; We consider dots followed by newline as 2015 ;; We consider dots followed by newline as
2016 ;; end of nodename even if multil-line. 2016 ;; end of nodename even if multil-line.
3101 (forward-char (+ 79 len)) 3101 (forward-char (+ 79 len))
3102 (re-search-backward "," nil t) 3102 (re-search-backward "," nil t)
3103 (forward-char 1) 3103 (forward-char 1)
3104 (insert "\n") 3104 (insert "\n")
3105 (just-one-space) 3105 (just-one-space)
3106 (backward-delete-char 1) 3106 (delete-backward-char 1)
3107 (setq p (point) 3107 (setq p (point)
3108 len 0)))) 3108 len 0))))
3109 (toggle-read-only 1) 3109 (toggle-read-only 1)
3110 ;; Highlight xrefs in the top few lines of the node 3110 ;; Highlight xrefs in the top few lines of the node
3111 (goto-char (point-min)) 3111 (goto-char (point-min))