From: Juanma Barranquero <lekktu@gmail.com>
Date: Thu, 6 Apr 2006 08:44:24 +0000 (+0000)
Subject: (WoMan-xref-man-page): Fix call to `substring'.
X-Git-Tag: emacs-pretest-22.0.90~3314
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2b54c197fecaa595087af22336f8b48384400913;p=emacs.git

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

diff --git a/lisp/woman.el b/lisp/woman.el
index 1aa5ce25716..2392d0bfa4c 100644
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -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