# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1295586285 28800
# Node ID a2432c16dc9f5c8ac4489676edd28213bd091a54
# Parent  a3e090c3eecbda4690cdd32df6186f41eb0a2924
compile.el fix for bug#7812

* lisp/progmodes/compile.el (compilation-error-regexp-alist):
Fix custom type.

diff -r a3e090c3eecb -r a2432c16dc9f lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Jan 17 18:31:59 2011 -0800
+++ b/lisp/ChangeLog	Thu Jan 20 21:04:45 2011 -0800
@@ -1,3 +1,8 @@
+2011-01-21  Glenn Morris  <rgm@gnu.org>
+
+	* progmodes/compile.el (compilation-error-regexp-alist):
+	Fix custom type.  (Bug#7812)
+
 2011-01-17  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* emacs-lisp/easy-mmode.el (define-minor-mode): Don't re-evaluate the
@@ -12487,4 +12492,3 @@
 
   You should have received a copy of the GNU General Public License
   along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
-
diff -r a3e090c3eecb -r a2432c16dc9f lisp/progmodes/compile.el
--- a/lisp/progmodes/compile.el	Mon Jan 17 18:31:59 2011 -0800
+++ b/lisp/progmodes/compile.el	Thu Jan 20 21:04:45 2011 -0800
@@ -499,10 +499,8 @@
 
 Additional HIGHLIGHTs as described under `font-lock-keywords' can
 be added."
-  :type `(set :menu-tag "Pick"
-	      ,@(mapcar (lambda (elt)
-			  (list 'const (car elt)))
-			compilation-error-regexp-alist-alist))
+  :type '(repeat (choice (symbol :tag "Predefined symbol")
+			 (sexp :tag "Error specification")))
   :link `(file-link :tag "example file"
 		    ,(expand-file-name "compilation.txt" data-directory))
   :group 'compilation)
@@ -2389,5 +2387,4 @@
 
 (provide 'compile)
 
-;; arch-tag: 12465727-7382-4f72-b234-79855a00dd8c
 ;;; compile.el ends here