svn commit: r302456 - in head/lang/tuareg-mode.el: . files
Ashish SHUKLA
ashish at FreeBSD.org
Mon Aug 13 01:41:12 UTC 2012
Author: ashish
Date: Mon Aug 13 01:41:10 2012
New Revision: 302456
URL: http://svn.freebsd.org/changeset/ports/302456
Log:
- Add patch to fix breakage with Emacs 24.x
- Bump PORTREVISION
Reported by: beat
Approved by: Michael Grünewald <michael.grunewald at laposte.net>
Added:
head/lang/tuareg-mode.el/files/
head/lang/tuareg-mode.el/files/patch-tuareg.el (contents, props changed)
Modified:
head/lang/tuareg-mode.el/Makefile
Modified: head/lang/tuareg-mode.el/Makefile
==============================================================================
--- head/lang/tuareg-mode.el/Makefile Mon Aug 13 00:14:51 2012 (r302455)
+++ head/lang/tuareg-mode.el/Makefile Mon Aug 13 01:41:10 2012 (r302456)
@@ -7,7 +7,7 @@
PORTNAME= tuareg-mode
PORTVERSION= 1.45.6
-PORTREVISION= 10
+PORTREVISION= 11
PORTEPOCH= 1
CATEGORIES= lang elisp
MASTER_SITES= http://www-rocq.inria.fr/~acohen/tuareg/mode/
Added: head/lang/tuareg-mode.el/files/patch-tuareg.el
==============================================================================
--- /dev/null 00:00:00 1970 (empty, because file is newly added)
+++ head/lang/tuareg-mode.el/files/patch-tuareg.el Mon Aug 13 01:41:10 2012 (r302456)
@@ -0,0 +1,39 @@
+
+$FreeBSD$
+
+--- tuareg.el.orig
++++ tuareg.el
+@@ -1245,8 +1245,7 @@
+ possible."
+ (if (eq major-mode 'tuareg-mode)
+ (let ((beg nil) (end nil))
+- (save-excursion
+- (set-buffer compilation-last-buffer)
++ (with-current-buffer compilation-last-buffer
+ (save-excursion
+ (goto-char (window-point (get-buffer-window (current-buffer) t)))
+ (if (looking-at tuareg-error-chars-regexp)
+@@ -1438,11 +1437,11 @@
+ (defun tuareg-find-match ()
+ (tuareg-find-kwop tuareg-find-kwop-regexp))
+
+-(defconst tuareg-find-,-match-regexp
++(defconst tuareg-find-comma-match-regexp
+ (tuareg-make-find-kwop-regexp
+ "\\<\\(and\\|match\\|begin\\|else\\|exception\\|then\\|try\\|with\\|or\\|fun\\|function\\|let\\|do\\)\\>\\|->\\|[[{(]"))
+-(defun tuareg-find-,-match ()
+- (tuareg-find-kwop tuareg-find-,-match-regexp))
++(defun tuareg-find-comma-match ()
++ (tuareg-find-kwop tuareg-find-comma-match-regexp))
+
+ (defconst tuareg-find-with-match-regexp
+ (tuareg-make-find-kwop-regexp
+@@ -1922,7 +1921,7 @@
+ ((string= kwop ",")
+ (if (looking-at ",[ \t]*\\((\\*\\|$\\)")
+ (progn
+- (setq kwop (tuareg-find-,-match))
++ (setq kwop (tuareg-find-comma-match))
+ (if (or (looking-at "[[{(]\\|\\.<")
+ (and (looking-at "[<|]")
+ (char-equal ?\[ (preceding-char))
More information about the svn-ports-head
mailing list