emacs-devel
[Top][All Lists]
Advanced

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

Two minor issues with info.el


From: Martin Rudalics
Subject: Two minor issues with info.el
Date: Mon, 13 Feb 2006 09:05:28 +0100

1. `info-xref-visited' should inherit both from `link-visited' and
   `info-xref'.

2.  Displaying node 23.4.5 of the Elisp manual "`%'-Constructs in the
    Mode Line" currently clobbers the mode line.

        * info.el (info-xref-visited): Inherit from info-xref too.
        (Info-set-mode-line): Replace occurrences of `%' by `%%'
        when propertizing Info-current-file and Info-current-node.

*** info.el     Wed Feb  1 10:17:44 2006
--- info.el     Mon Feb 13 08:54:32 2006
***************
*** 134,140 ****
    :group 'info)

  (defface info-xref-visited
!   '((t :inherit link-visited))
    "Face for visited Info cross-references."
    :version "22.1"
    :group 'info)
--- 134,140 ----
    :group 'info)

  (defface info-xref-visited
!   '((t :inherit (link-visited info-xref)))
    "Face for visited Info cross-references."
    :version "22.1"
    :group 'info)
***************
*** 1407,1417 ****
                (concat
                 " ("
                 (if (stringp Info-current-file)
!                    (file-name-nondirectory Info-current-file)
                   "")
                 ") "
                 (if Info-current-node
!                    (propertize Info-current-node
                                 'face 'mode-line-buffer-id
                                 'help-echo
                                 "mouse-1: scroll forward, mouse-3: scroll back"
--- 1407,1419 ----
                (concat
                 " ("
                 (if (stringp Info-current-file)
!                    (replace-regexp-in-string
!                     "%" "%%" (file-name-nondirectory Info-current-file))
                   "")
                 ") "
                 (if Info-current-node
!                    (propertize (replace-regexp-in-string
!                                 "%" "%%" Info-current-node)
                                 'face 'mode-line-buffer-id
                                 'help-echo
                                 "mouse-1: scroll forward, mouse-3: scroll back"




reply via email to

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