blob: a5183d480cd6347419417ce8bb0aa75591b5b0c7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
diff -ur otp_src_R10B-6.orig/lib/tools/emacs/erlang.el otp_src_R10B-6/lib/tools/emacs/erlang.el
--- otp_src_R10B-6.orig/lib/tools/emacs/erlang.el 2004-09-30 02:05:50.000000000 -0500
+++ otp_src_R10B-6/lib/tools/emacs/erlang.el 2005-07-18 13:52:13.000000000 -0500
@@ -2518,7 +2518,7 @@
(defun erlang-man-make-menu-item (file)
"Create a menu item containing the name of the man page."
- (and (string-match ".*/\\([^/]+\\)\\.[^.]$" file)
+ (and (string-match ".*/\\([^/]+\\)\\.[0-9]erl\\.gz$" file)
(let ((page (substring file (match-beginning 1) (match-end 1))))
(list (capitalize page)
(list 'lambda '()
@@ -2529,7 +2529,7 @@
(defun erlang-man-get-files (dir)
"Return files in directory DIR."
- (directory-files dir t ".*\\.[0-9]\\'"))
+ (directory-files dir t ".*\\.[0-9]erl\\.gz\\'"))
(defun erlang-man-module (&optional module)
@@ -2690,7 +2690,7 @@
(error nil))
(if file
(let ((process-environment (copy-sequence process-environment)))
- (if (string-match "\\(.*\\)/man[^/]*/\\([^/]+\\)\\.[^.]$" file)
+ (if (string-match "\\(.*\\)/man[^/]*/\\([^/]+\\)\\.[0-9]erl.gz$" file)
(let ((dir (substring file (match-beginning 1) (match-end 1)))
(page (substring file (match-beginning 2) (match-end 2))))
(if (fboundp 'setenv)
Only in otp_src_R10B-6/lib/tools/emacs: erlang.el~
|
GitWeb
