Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
71726072
Commit
71726072
authored
Nov 19, 2005
by
Eli Zaretskii
Browse files
(Man-highlight-references): Doc fix. Reformat code in a more Lisp-ish way.
parent
e0d47340
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
23 additions
and
23 deletions
+23
-23
lisp/ChangeLog
lisp/ChangeLog
+5
-0
lisp/man.el
lisp/man.el
+18
-23
No files found.
lisp/ChangeLog
View file @
71726072
2005-11-19 Eli Zaretskii <eliz@gnu.org>
* man.el (Man-highlight-references): Doc fix. Reformat code in a
more Lisp-ish way.
2005-11-19 Slawomir Nowaczyk <slawomir.nowaczyk.847@student.lu.se> (tiny change)
* ls-lisp.el (ls-lisp-format-file-size): Format file size with 9
...
...
lisp/man.el
View file @
71726072
...
...
@@ -919,35 +919,30 @@ Same for the ANSI bold and normal escape sequences."
(
defun
Man-highlight-references
(
&optional
xref-man-type
)
"Highlight the references on mouse-over.
References include items in the SEE ALSO section,
header file (#include <foo.h>) and files in FILES.
If
XREF-MAN-TYPE is used as the button type for items
in SEE ALSO section. If it is nil,
default type,
`Man-xref-man-page' is used."
header file (#include <foo.h>)
,
and files in FILES.
If
optional argument XREF-MAN-TYPE is non-nil, it used as the
button type for items
in SEE ALSO section.
If it is nil,
the
default type,
`Man-xref-man-page' is used
for the buttons
."
;; `Man-highlight-references' is used from woman.el, too.
;; woman.el doesn't set `Man-arguments'.
(
unless
Man-arguments
(
setq
Man-arguments
""
))
(
if
(
string-match
"-k "
Man-arguments
)
(
progn
(
Man-highlight-references0
nil
Man-reference-regexp
1
nil
(
or
xref-man-type
'Man-xref-man-page
))
(
Man-highlight-references0
nil
Man-apropos-regexp
1
(
lambda
()
(
format
"%s(%s)"
(
match-string
1
)
(
match-string
2
)))
(
or
xref-man-type
'Man-xref-man-page
))
)
(
Man-highlight-references0
Man-see-also-regexp
Man-reference-regexp
1
nil
(
or
xref-man-type
'Man-xref-man-page
))
(
Man-highlight-references0
Man-synopsis-regexp
Man-header-regexp
0
2
'Man-xref-header-file
)
(
Man-highlight-references0
Man-files-regexp
Man-normal-file-regexp
0
0
'Man-xref-normal-file
)))
(
Man-highlight-references0
nil
Man-reference-regexp
1
nil
(
or
xref-man-type
'Man-xref-man-page
))
(
Man-highlight-references0
nil
Man-apropos-regexp
1
(
lambda
()
(
format
"%s(%s)"
(
match-string
1
)
(
match-string
2
)))
(
or
xref-man-type
'Man-xref-man-page
)))
(
Man-highlight-references0
Man-see-also-regexp
Man-reference-regexp
1
nil
(
or
xref-man-type
'Man-xref-man-page
))
(
Man-highlight-references0
Man-synopsis-regexp
Man-header-regexp
0
2
'Man-xref-header-file
)
(
Man-highlight-references0
Man-files-regexp
Man-normal-file-regexp
0
0
'Man-xref-normal-file
)))
(
defun
Man-highlight-references0
(
start-section
regexp
button-pos
target
type
)
;; Based on `Man-build-references-alist'
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment