Commit 2b54c197 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

(WoMan-xref-man-page): Fix call to `substring'.

parent f634ee8e
......@@ -381,7 +381,7 @@
;; code fragments, general interest, etc.:
;; Jari Aalto <jari.aalto@cs.tpu.fi>
;; Dean Andrews <dean@dra.com>
;; Juanma Barranquero <barranquero@laley-actualidad.es>
;; Juanma Barranquero <lekktu@gmail.com>
;; Karl Berry <kb@cs.umb.edu>
;; Jim Chapman <jchapman@netcomuk.co.uk>
;; Kin Cho <kin@neoscale.com>
......@@ -426,14 +426,14 @@
(require 'man)
(require 'button)
(define-button-type 'WoMan-xref-man-page
(define-button-type 'WoMan-xref-man-page
:supertype 'Man-abstract-xref-man-page
'func (lambda (arg)
(woman
;; `woman' cannot deal with arguments that contain a
;; section name, like close(2), so strip the section name.
(if (string-match Man-reference-regexp arg)
(subqstring arg 0 (match-end 1))
(substring arg 0 (match-end 1))
arg))))
(eval-when-compile ; to avoid compiler warnings
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment