/[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.355 by lute, Fri Jun 6 16:12:56 2003 UTC revision 1.356 by kfstorm, Mon Jun 9 22:00:34 2003 UTC
# Line 2859  the variable `Info-file-list-for-emacs'. Line 2859  the variable `Info-file-list-for-emacs'.
2859            ;; on frames that can display the font above.            ;; on frames that can display the font above.
2860            (when (memq (framep (selected-frame)) '(x pc w32 mac))            (when (memq (framep (selected-frame)) '(x pc w32 mac))
2861              (add-text-properties (1- (match-beginning 2)) (match-end 2)              (add-text-properties (1- (match-beginning 2)) (match-end 2)
2862                                   '(invisible t))))                                   '(invisible t front-sticky nil rear-nonsticky t))))
2863          (goto-char (point-min))          (goto-char (point-min))
2864          (while (re-search-forward "\\(\\*Note[ \t]*\\)\n?[ \t]*\\([^:]*\\)\\(:[^.,:(]*\\(([^)]*)[^.,:]*\\)?[,:]?\n?\\)" nil t)          (while (re-search-forward "\\(\\*Note[ \t]*\\)\n?[ \t]*\\([^:]*\\)\\(:[^.,:(]*\\(([^)]*)[^.,:]*\\)?[,:]?\n?\\)" nil t)
2865            (unless (= (char-after (1- (match-beginning 0))) ?\") ; hack            (unless (= (char-after (1- (match-beginning 0))) ?\") ; hack
# Line 2882  the variable `Info-file-list-for-emacs'. Line 2882  the variable `Info-file-list-for-emacs'.
2882                  (goto-char next))                  (goto-char next))
2883                (if hide-tag                (if hide-tag
2884                    (add-text-properties (match-beginning 1) (match-end 1)                    (add-text-properties (match-beginning 1) (match-end 1)
2885                                         '(invisible t)))                                         '(invisible t front-sticky nil rear-nonsticky t)))
2886                (add-text-properties                (add-text-properties
2887                 (match-beginning 2) (match-end 2)                 (match-beginning 2) (match-end 2)
2888                 (cons 'help-echo                 (cons 'help-echo
# Line 2893  the variable `Info-file-list-for-emacs'. Line 2893  the variable `Info-file-list-for-emacs'.
2893                               mouse-face highlight))))                               mouse-face highlight))))
2894                (when (eq Info-hide-note-references t)                (when (eq Info-hide-note-references t)
2895                  (add-text-properties (match-beginning 3) (match-end 3)                  (add-text-properties (match-beginning 3) (match-end 3)
2896                                       '(invisible t)))                                       '(invisible t front-sticky nil rear-nonsticky t)))
2897                (when other-tag                (when other-tag
2898                  (save-excursion                  (save-excursion
2899                    (goto-char (match-beginning 1))                    (goto-char (match-beginning 1))
# Line 2913  the variable `Info-file-list-for-emacs'. Line 2913  the variable `Info-file-list-for-emacs'.
2913                (setq paragraph-markers (cdr paragraph-markers))                (setq paragraph-markers (cdr paragraph-markers))
2914                (when (< m (point))                (when (< m (point))
2915                  (goto-char m)                  (goto-char m)
2916                  (move-to-left-margin)                  (beginning-of-line)
2917                  (when (zerop (forward-paragraph))                  (let ((beg (point)))
2918                    (let ((end (point))                    (when (zerop (forward-paragraph))
2919                          (beg (progn (backward-paragraph) (point))))                      (fill-individual-paragraphs beg (point) nil nil)
                     (fill-individual-paragraphs beg end nil nil)  
2920                      (goto-char beg))))                      (goto-char beg))))
2921                (set-marker m nil))))                (set-marker m nil))))
2922    

Legend:
Removed from v.1.355  
changed lines
  Added in v.1.356

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