diff options
Diffstat (limited to 'dev-lang/erlang/files/10.2.7-manpage-emacs-gentoo.patch')
| -rw-r--r-- | dev-lang/erlang/files/10.2.7-manpage-emacs-gentoo.patch | 31 |
1 files changed, 31 insertions, 0 deletions
diff --git a/dev-lang/erlang/files/10.2.7-manpage-emacs-gentoo.patch b/dev-lang/erlang/files/10.2.7-manpage-emacs-gentoo.patch new file mode 100644 index 000000000000..a5183d480cd6 --- /dev/null +++ b/dev-lang/erlang/files/10.2.7-manpage-emacs-gentoo.patch @@ -0,0 +1,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~ |