compile.el fix for bug#7812

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

2 files changed, 7 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0cb79fe8c29..865f46562cf 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 @@ See ChangeLog.14 for earlier changes.
 
   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 --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index a3eb0763f57..e6cbced1fcf 100644
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -499,10 +499,8 @@ matched by the whole REGEXP becomes the hyperlink.
 
 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 @@ The file-structure looks like this:
 
 (provide 'compile)
 
-;; arch-tag: 12465727-7382-4f72-b234-79855a00dd8c
 ;;; compile.el ends here