From d00b05c949aa1078922281188cdb74689077ddfa Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 20 Jan 2011 21:04:45 -0800 Subject: [PATCH] compile.el fix for bug#7812 * lisp/progmodes/compile.el (compilation-error-regexp-alist): Fix custom type. --- lisp/ChangeLog | 6 +++++- lisp/progmodes/compile.el | 7 ++----- 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 + + * progmodes/compile.el (compilation-error-regexp-alist): + Fix custom type. (Bug#7812) + 2011-01-17 Stefan Monnier * 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 . - 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 -- 2.39.5