← Back to branch summary

~ubuntu-branches/ubuntu/trusty/erlang/trusty

« back to all changes in this revision

Viewing changes to debian/patches/emacs.patch

  • Committer: Bazaar Package Importer
  • Author(s): Clint Byrum
  • Date: 2011-05-05 15:48:43 UTC
  • mfrom: (3.5.13 sid)
  • Revision ID: james.westby@ubuntu.com-20110505154843-0om6ekzg6m7ugj27
Tags: 1:14.b.2-dfsg-3ubuntu1
* Merge from debian unstable.  Remaining changes:
  - Drop libwxgtk2.8-dev build dependency. Wx isn't in main, and not
    supposed to.
  - Drop erlang-wx binary.
  - Drop erlang-wx dependency from -megaco, -common-test, and -reltool, they
    do not really need wx. Also drop it from -debugger; the GUI needs wx,
    but it apparently has CLI bits as well, and is also needed by -megaco,
    so let's keep the package for now.
  - debian/patches/series: Do what I meant, and enable build-options.patch
    instead.
* Additional changes:
  - Drop erlang-wx from -et
* Dropped Changes:
  - patches/pcre-crash.patch: CVE-2008-2371: outer level option with
    alternatives caused crash. (Applied Upstream)
  - fix for ssl certificate verification in newSSL: 
    ssl_cacertfile_fix.patch (Applied Upstream)
  - debian/patches/series: Enable native.patch again, to get stripped beam
    files and reduce the package size again. (build-options is what
    actually accomplished this)
  - Remove build-options.patch on advice from upstream and because it caused
    odd build failures.

Show diffs side-by-side

added added

removed removed

Lines of Context:
debian/patches/emacs.patch
1
1
Patch by Balint Reczey <balint@balintreczey.hu> fixes backquote
2
2
syntax (see http://bugs.debian.org/cgi-bin/bugreport.cgi?bug=494823).
 
3
Also, it fixes manpage name regexp matching only 3erl manpages in
 
4
section 3.
3
5
 
4
 
--- erlang-13.b.3-dfsg.orig/lib/tools/emacs/erlang.el
5
 
+++ erlang-13.b.3-dfsg/lib/tools/emacs/erlang.el
6
 
@@ -2367,23 +2367,22 @@
 
6
--- erlang-14.b.2-dfsg.orig/lib/tools/emacs/erlang.el
 
7
+++ erlang-14.b.2-dfsg/lib/tools/emacs/erlang.el
 
8
@@ -495,8 +495,8 @@
 
9
 (defvar erlang-man-dirs
 
10
   '(("Man - Commands" "/man/man1" t)
 
11
     ("Man - Modules" "/man/man3" t)
 
12
-    ("Man - Files" "/man/man4" t)
 
13
-    ("Man - Applications" "/man/man6" t))
 
14
+    ("Man - Files" "/man/man5" t)
 
15
+    ("Man - Applications" "/man/man7" t))
 
16
   "*The man directories displayed in the Erlang menu.
 
17
 
 
18
 Each item in the list should be a list with three elements, the first
 
19
@@ -1179,23 +1179,22 @@
7
20
 (or (fboundp 'eval-when-compile)
8
21
     (defmacro eval-when-compile (&rest rest) nil))
9
22
 
31
44
 
32
45
 ;; defvar some obsolete variables, which we still support for
33
46
 ;; backwardscompatibility reasons.
 
47
@@ -1938,7 +1937,7 @@
 
48
 
 
49
 (defun erlang-man-make-menu-item (file)
 
50
   "Create a menu item containing the name of the man page."
 
51
-  (and (string-match ".+/\\([^/]+\\)\\.\\([124-9]\\|3\\(erl\\)?\\)\\(\\.gz\\)?$" file)
 
52
+  (and (string-match ".+/\\([^/]+\\)\\.\\([124-9]\\|3\\(erl\\)\\)\\(\\.gz\\)?$" file)
 
53
        (let ((page (substring file (match-beginning 1) (match-end 1))))
 
54
         (list (capitalize page)
 
55
               (list 'lambda '()
 
56
@@ -1949,7 +1948,7 @@
 
57
 
 
58
 (defun erlang-man-get-files (dir)
 
59
   "Return files in directory DIR."
 
60
-  (directory-files dir t ".+\\.\\([124-9]\\|3\\(erl\\)?\\)\\(\\.gz\\)?\\'"))
 
61
+  (directory-files dir t ".+\\.\\([124-9]\\|3\\(erl\\)\\)\\(\\.gz\\)?\\'"))
 
62
 
 
63
 
 
64
 (defun erlang-man-module (&optional module)
 
65
@@ -1969,7 +1968,7 @@
 
66
   (if (or (null module) (string= module ""))
 
67
       (error "No Erlang module name given"))
 
68
   (let ((dir-list erlang-man-dirs)
 
69
-       (pat (concat "/" (regexp-quote module) "\\.\\([124-9]\\|3\\(erl\\)?\\)\\(\\.gz\\)?$"))
 
70
+       (pat (concat "/" (regexp-quote module) "\\.\\([124-9]\\|3\\(erl\\)\\)\\(\\.gz\\)?$"))
 
71
        (file nil)
 
72
        file-list)
 
73
     (while (and dir-list (null file))
 
74
@@ -2110,9 +2109,9 @@
 
75
     (error nil))
 
76
   (if file
 
77
       (let ((process-environment (copy-sequence process-environment)))
 
78
-       (if (string-match "\\(.*\\)/man[^/]*/\\([^.]+\\)\\.\\([124-9]\\|3\\(erl\\)?\\)\\(\\.gz\\)?$" file)
 
79
+       (if (string-match "\\(.*\\)/man[^/]*/\\([^.]+\\)\\.\\([124-9]\\|3\\(erl\\)\\)\\(\\.gz\\)?$" file)
 
80
            (let ((dir (substring file (match-beginning 1) (match-end 1)))
 
81
-                 (page (substring file (match-beginning 2) (match-end 2))))
 
82
+                 (page (concat (substring file (match-beginning 2) (match-end 2)) "(" (substring file (match-beginning 3) (match-end 3)) ")")))
 
83
              (if (fboundp 'setenv)
 
84
                  (setenv "MANPATH" dir)
 
85
                ;; Emacs 18