[Pkg-erlang-commits] r1209 - erlang/trunk/debian/patches

[sgolovan at alioth.debian.org]

Author: sgolovan
Date: 2010-03-08 21:38:39 +0000 (Mon, 08 Mar 2010)
New Revision: 1209

Modified:
   erlang/trunk/debian/patches/emacs.patch
Log:
[erlang]
  * Fixed manpages sections for Emacs.


Modified: erlang/trunk/debian/patches/emacs.patch
===================================================================
--- erlang/trunk/debian/patches/emacs.patch	2010-03-08 18:16:43 UTC (rev 1208)
+++ erlang/trunk/debian/patches/emacs.patch	2010-03-08 21:38:39 UTC (rev 1209)
@@ -71,15 +71,18 @@
  	(file nil)
  	file-list)
      (while (and dir-list (null file))
-@@ -2091,7 +2090,7 @@
+@@ -2091,9 +2090,9 @@
      (error nil))
    (if file
        (let ((process-environment (copy-sequence process-environment)))
 -	(if (string-match "\\(.*\\)/man[^/]*/\\([^.]+\\)\\.\\([124-9]\\|3\\(erl\\)?\\)\\(\\.gz\\)?$" file)
 +	(if (string-match "\\(.*\\)/man[^/]*/\\([^.]+\\)\\.\\([124-9]\\|3\\(erl\\)\\)\\(\\.gz\\)?$" file)
  	    (let ((dir (substring file (match-beginning 1) (match-end 1)))
- 		  (page (substring file (match-beginning 2) (match-end 2))))
+-		  (page (substring file (match-beginning 2) (match-end 2))))
++		  (page (concat (substring file (match-beginning 2) (match-end 2)) "(" (substring file (match-beginning 3) (match-end 3)) ")")))
  	      (if (fboundp 'setenv)
+ 		  (setenv "MANPATH" dir)
+ 		;; Emacs 18
 --- erlang-13.b.4-dfsg.orig/lib/tools/emacs/Makefile
 +++ erlang-13.b.4-dfsg/lib/tools/emacs/Makefile
 @@ -39,6 +39,8 @@