Date: Mon, 13 Aug 2012 01:41:11 +0000 (UTC) From: Ashish SHUKLA <ashish@FreeBSD.org> To: ports-committers@freebsd.org, svn-ports-all@freebsd.org, svn-ports-head@freebsd.org Subject: svn commit: r302456 - in head/lang/tuareg-mode.el: . files Message-ID: <201208130141.q7D1fBGH069438@svn.freebsd.org>
next in thread | raw e-mail | index | archive | help
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@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))
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201208130141.q7D1fBGH069438>