2869 |
(skip-syntax-backward " ") |
(skip-syntax-backward " ") |
2870 |
(setq other-tag |
(setq other-tag |
2871 |
(cond |
(cond |
2872 |
|
((<= (point) (point-min)) |
2873 |
|
"See ") |
2874 |
((memq (char-before) '(nil ?\. ?! )) |
((memq (char-before) '(nil ?\. ?! )) |
2875 |
"See ") |
"See ") |
2876 |
((memq (char-before) '( ?\( ?\[ ?\{ ?\, ?\; ?\: )) |
((memq (char-before) '( ?\( ?\[ ?\{ ?\, ?\; ?\: )) |
2898 |
(push (set-marker (make-marker) start) |
(push (set-marker (make-marker) start) |
2899 |
paragraph-markers))))) |
paragraph-markers))))) |
2900 |
|
|
2901 |
(let ((fill-nobreak-invisible t)) |
(let ((fill-nobreak-invisible t) |
2902 |
|
(fill-individual-varying-indent nil) |
2903 |
|
(paragraph-start "\f\\|[ \t]*[-*]\\|[ \t]*$") |
2904 |
|
(paragraph-separate "[ \t]*[-*]\\|[ \t\f]*$") |
2905 |
|
(adaptive-fill-mode nil)) |
2906 |
(goto-char (point-max)) |
(goto-char (point-max)) |
2907 |
(while paragraph-markers |
(while paragraph-markers |
2908 |
(let ((m (car paragraph-markers))) |
(let ((m (car paragraph-markers))) |
2909 |
(setq paragraph-markers (cdr paragraph-markers)) |
(setq paragraph-markers (cdr paragraph-markers)) |
2910 |
(when (< m (point)) |
(when (< m (point)) |
2911 |
(goto-char m) |
(goto-char m) |
2912 |
(fill-paragraph nil) |
(move-to-left-margin) |
2913 |
(backward-paragraph 1)) |
(when (zerop (forward-paragraph)) |
2914 |
|
(let ((end (point)) |
2915 |
|
(beg (progn (backward-paragraph) (point)))) |
2916 |
|
(fill-individual-paragraphs beg end nil nil) |
2917 |
|
(goto-char beg)))) |
2918 |
(set-marker m nil)))) |
(set-marker m nil)))) |
2919 |
|
|
2920 |
(goto-char (point-min)) |
(goto-char (point-min)) |
2929 |
"\\([ \t]*\\)\\)") |
"\\([ \t]*\\)\\)") |
2930 |
nil t) |
nil t) |
2931 |
(setq n (1+ n)) |
(setq n (1+ n)) |
2932 |
(if (zerop (% n 3)) ; visual aids to help with 1-9 keys |
(if (and (<= n 9) (zerop (% n 3))) ; visual aids to help with 1-9 keys |
2933 |
(put-text-property (match-beginning 0) |
(put-text-property (match-beginning 0) |
2934 |
(1+ (match-beginning 0)) |
(1+ (match-beginning 0)) |
2935 |
'font-lock-face 'info-menu-5)) |
'font-lock-face 'info-menu-5)) |