compile.el fix for bug#7812

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0cb79fe8c29e15b55a3d261e4307e420d97bd55d..865f46562cf8a0c50720d1c138fed18d67d4df36 100644 (file)
--- 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 a3eb0763f5795ded1219c0e106dd6dde1813b3c9..e6cbced1fcf83636276768f7bab6b8e70b8eda62 100644 (file)
--- 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