Mercurial > emacs
changeset 69813:a77e27984bb1
(WoMan-xref-man-page): Fix call to `substring'.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Thu, 06 Apr 2006 08:44:24 +0000 |
parents | 3bc8ba8f08a1 |
children | 7512e19cdda7 |
files | lisp/woman.el |
diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/woman.el Thu Apr 06 02:56:05 2006 +0000 +++ b/lisp/woman.el Thu Apr 06 08:44:24 2006 +0000 @@ -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