emacs-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: emacs-28 b4f47d2: Use @pxref when necessary


From: Eli Zaretskii
Subject: Re: emacs-28 b4f47d2: Use @pxref when necessary
Date: Thu, 25 Nov 2021 11:52:27 +0200

> From: Robert Pluim <rpluim@gmail.com>
> Date: Thu, 25 Nov 2021 10:19:22 +0100
> Cc: emacs-devel@gnu.org
> 
>     Eli> This problem should be fixed in info.el, not in the Texinfo sources.
>     Eli> (It should have been mentioned in the log message as well, btw.)
>     Eli> There's nothing wrong with "see @ref" from the Texinfo usage
>     Eli> POV.
> 
> This is "(see @ref", not "see @ref". The latter works correctly. Maybe
> this can be fixed in info.el as you say (it would certainly clean up
> the display of org.info).

So I guess it's this part of info.el that needs to become smarter:

              (when Info-hide-note-references
                (when (and (not (eq Info-hide-note-references 'hide))
                           (> (line-number-at-pos) 4)) ; Skip breadcrumbs
                  ;; *Note is often used where *note should have been
                  (goto-char start)
                  (skip-syntax-backward " ")
                  (when (memq (char-before) '(?\( ?\[ ?\{))
                    ;; Check whether the paren is preceded by
                    ;; an end of sentence
                    (skip-syntax-backward " ("))
                  (setq other-tag
                        (cond ((save-match-data (looking-back "\\(^\\| \\)see"
                                                              (- (point) 4)))
                               "")
                              ((save-match-data (looking-back "\\(^\\| \\)in"
                                                              (- (point) 3)))
                               "")
                              ((memq (char-before) '(nil ?\. ?! ??))
                               "See ")
                              ((save-match-data
                                 (save-excursion
                                   (search-forward "\n\n" start t)))
                               "See ")
                              (t "see "))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]