diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 22 | ||||
| -rw-r--r-- | lisp/Makefile.in | 6 | ||||
| -rw-r--r-- | lisp/hi-lock.el | 9 | ||||
| -rw-r--r-- | lisp/progmodes/compile.el | 2 |
4 files changed, 26 insertions, 13 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b311fc4fcaa..c7775422417 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,16 @@ | |||
| 1 | 2012-05-21 Stefan Monnier <monnier@iro.umontreal.ca> | ||
| 2 | |||
| 3 | * hi-lock.el (hi-lock-face-defaults): Move obsolete before definition. | ||
| 4 | |||
| 5 | * progmodes/compile.el (compilation-error-regexp-alist-alist): | ||
| 6 | Simplify Maven regexp, and make sure the file can't start with a space | ||
| 7 | (bug#11517). | ||
| 8 | |||
| 9 | 2012-05-21 Glenn Morris <rgm@gnu.org> | ||
| 10 | |||
| 11 | * Makefile.in (setwins, setwins_almost, setwins_for_subdirs): | ||
| 12 | Scrap superfluous subshells. | ||
| 13 | |||
| 1 | 2012-05-19 Stefan Monnier <monnier@iro.umontreal.ca> | 14 | 2012-05-19 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 15 | ||
| 3 | * emacs-lisp/bytecomp.el (byte-compile-root-dir): New var. | 16 | * emacs-lisp/bytecomp.el (byte-compile-root-dir): New var. |
| @@ -7,10 +20,11 @@ | |||
| 7 | 20 | ||
| 8 | * calc/calc.el (calc-ensure-consistent-units): New variable. | 21 | * calc/calc.el (calc-ensure-consistent-units): New variable. |
| 9 | 22 | ||
| 10 | * calc/calc-units.el (math-consistent-units-p, math-check-unit-consistency): | 23 | * calc/calc-units.el (math-consistent-units-p) |
| 11 | New functions. | 24 | (math-check-unit-consistency): New functions. |
| 12 | (calc-quick-units, calc-convert-units): Use `math-check-unit-consistency' when | 25 | (calc-quick-units, calc-convert-units): |
| 13 | `calc-ensure-consistent-units' is non-nil. | 26 | Use `math-check-unit-consistency' when `calc-ensure-consistent-units' |
| 27 | is non-nil. | ||
| 14 | (calc-extract-units): Fix typo. | 28 | (calc-extract-units): Fix typo. |
| 15 | 29 | ||
| 16 | 2012-05-18 Stefan Monnier <monnier@iro.umontreal.ca> | 30 | 2012-05-18 Stefan Monnier <monnier@iro.umontreal.ca> |
diff --git a/lisp/Makefile.in b/lisp/Makefile.in index d2c4e615577..ff211589f49 100644 --- a/lisp/Makefile.in +++ b/lisp/Makefile.in | |||
| @@ -106,7 +106,7 @@ COMPILE_FIRST = \ | |||
| 106 | emacs = EMACSLOADPATH=$(lisp) LC_ALL=C $(EMACS) $(EMACSOPT) | 106 | emacs = EMACSLOADPATH=$(lisp) LC_ALL=C $(EMACS) $(EMACSOPT) |
| 107 | 107 | ||
| 108 | # Common command to find subdirectories | 108 | # Common command to find subdirectories |
| 109 | setwins=subdirs=`(find . -type d -print)`; \ | 109 | setwins=subdirs=`find . -type d -print`; \ |
| 110 | for file in $$subdirs; do \ | 110 | for file in $$subdirs; do \ |
| 111 | case $$file in */.* | */.*/* | */=* ) ;; \ | 111 | case $$file in */.* | */.*/* | */=* ) ;; \ |
| 112 | *) wins="$$wins $$file" ;; \ | 112 | *) wins="$$wins $$file" ;; \ |
| @@ -114,7 +114,7 @@ setwins=subdirs=`(find . -type d -print)`; \ | |||
| 114 | done | 114 | done |
| 115 | 115 | ||
| 116 | # Find all subdirectories except `obsolete' and `term'. | 116 | # Find all subdirectories except `obsolete' and `term'. |
| 117 | setwins_almost=subdirs=`(find . -type d -print)`; \ | 117 | setwins_almost=subdirs=`find . -type d -print`; \ |
| 118 | for file in $$subdirs; do \ | 118 | for file in $$subdirs; do \ |
| 119 | case $$file in */.* | */.*/* | */=* | */obsolete | */term ) ;; \ | 119 | case $$file in */.* | */.*/* | */=* | */obsolete | */term ) ;; \ |
| 120 | *) wins="$$wins $$file" ;; \ | 120 | *) wins="$$wins $$file" ;; \ |
| @@ -122,7 +122,7 @@ setwins_almost=subdirs=`(find . -type d -print)`; \ | |||
| 122 | done | 122 | done |
| 123 | 123 | ||
| 124 | # Find all subdirectories in which we might want to create subdirs.el | 124 | # Find all subdirectories in which we might want to create subdirs.el |
| 125 | setwins_for_subdirs=subdirs=`(find . -type d -print)`; \ | 125 | setwins_for_subdirs=subdirs=`find . -type d -print`; \ |
| 126 | for file in $$subdirs; do \ | 126 | for file in $$subdirs; do \ |
| 127 | case $$file in */.* | */.*/* | */=* | */cedet* ) ;; \ | 127 | case $$file in */.* | */.*/* | */=* | */cedet* ) ;; \ |
| 128 | *) wins="$$wins $$file" ;; \ | 128 | *) wins="$$wins $$file" ;; \ |
diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index 32a041e6c09..2c2d08e19cc 100644 --- a/lisp/hi-lock.el +++ b/lisp/hi-lock.el | |||
| @@ -204,16 +204,15 @@ patterns." | |||
| 204 | (defvar hi-lock-interactive-patterns nil | 204 | (defvar hi-lock-interactive-patterns nil |
| 205 | "Patterns provided to hi-lock by user. Should not be changed.") | 205 | "Patterns provided to hi-lock by user. Should not be changed.") |
| 206 | 206 | ||
| 207 | (define-obsolete-variable-alias 'hi-lock-face-history | ||
| 208 | 'hi-lock-face-defaults "23.1") | ||
| 207 | (defvar hi-lock-face-defaults | 209 | (defvar hi-lock-face-defaults |
| 208 | '("hi-yellow" "hi-pink" "hi-green" "hi-blue" "hi-black-b" | 210 | '("hi-yellow" "hi-pink" "hi-green" "hi-blue" "hi-black-b" |
| 209 | "hi-blue-b" "hi-red-b" "hi-green-b" "hi-black-hb") | 211 | "hi-blue-b" "hi-red-b" "hi-green-b" "hi-black-hb") |
| 210 | "Default faces for hi-lock interactive functions.") | 212 | "Default faces for hi-lock interactive functions.") |
| 211 | 213 | ||
| 212 | ;(dolist (f hi-lock-face-defaults) (unless (facep f) (error "%s not a face" f))) | 214 | ;;(dolist (f hi-lock-face-defaults) |
| 213 | 215 | ;; (unless (facep f) (error "%s not a face" f))) | |
| 214 | (define-obsolete-variable-alias 'hi-lock-face-history | ||
| 215 | 'hi-lock-face-defaults | ||
| 216 | "23.1") | ||
| 217 | 216 | ||
| 218 | (define-obsolete-variable-alias 'hi-lock-regexp-history | 217 | (define-obsolete-variable-alias 'hi-lock-regexp-history |
| 219 | 'regexp-history | 218 | 'regexp-history |
diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index fe1b63f3048..45986591499 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el | |||
| @@ -209,7 +209,7 @@ of[ \t]+\"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?:" 3 2 nil (1)) | |||
| 209 | ;; due to matching filenames via \\(.*?\\). This might be faster. | 209 | ;; due to matching filenames via \\(.*?\\). This might be faster. |
| 210 | (maven | 210 | (maven |
| 211 | ;; Maven is a popular free software build tool for Java. | 211 | ;; Maven is a popular free software build tool for Java. |
| 212 | "\\([0-9]*[^0-9\n]\\(?:[^\n :]\\| [^-/\n]\\|:[^ \n]\\)*?\\):\\[\\([0-9]+\\),\\([0-9]+\\)\\] " 1 2 3) | 212 | "\\([^ \n]\\(?:[^\n :]\\| [^-/\n]\\|:[^ \n]\\)*?\\):\\[\\([0-9]+\\),\\([0-9]+\\)\\] " 1 2 3) |
| 213 | 213 | ||
| 214 | (jikes-line | 214 | (jikes-line |
| 215 | "^ *\\([0-9]+\\)\\.[ \t]+.*\n +\\(<-*>\n\\*\\*\\* \\(?:Error\\|Warnin\\(g\\)\\)\\)" | 215 | "^ *\\([0-9]+\\)\\.[ \t]+.*\n +\\(<-*>\n\\*\\*\\* \\(?:Error\\|Warnin\\(g\\)\\)\\)" |