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 |
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 |
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)) |
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 |
|
|