diff options
| author | João Távora | 2017-10-05 22:23:24 +0100 |
|---|---|---|
| committer | João Távora | 2017-10-06 00:07:03 +0100 |
| commit | 03eab7a05e663dcd5ea07b45e83be1f7fd3d7ade (patch) | |
| tree | caad42c9b7d65737dae8985d1f019074eb173b16 | |
| parent | db893ab863770ef3f89102d6837cd3eb021429ba (diff) | |
| download | emacs-03eab7a05e663dcd5ea07b45e83be1f7fd3d7ade.tar.gz emacs-03eab7a05e663dcd5ea07b45e83be1f7fd3d7ade.zip | |
Delete a Flymake obsolete alias that can't possibly work
The function `flymake-ler-make-ler' can't possibly work as an backward
compatible interface to existing extensinos (even purely hypothetical
ones, since none are known). This is because every diagnostic
considered by Flymake has to passed to a report-fn function.
* lisp/progmodes/flymake.el (flymake-ler-make-ler): Delete.
| -rw-r--r-- | lisp/progmodes/flymake.el | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el index acc0637ec35..f61face25bf 100644 --- a/lisp/progmodes/flymake.el +++ b/lisp/progmodes/flymake.el | |||
| @@ -223,17 +223,6 @@ TYPE is a key to `flymake-diagnostic-types-alist' and TEXT is a | |||
| 223 | description of the problem detected in this region." | 223 | description of the problem detected in this region." |
| 224 | (flymake--diag-make :buffer buffer :beg beg :end end :type type :text text)) | 224 | (flymake--diag-make :buffer buffer :beg beg :end end :type type :text text)) |
| 225 | 225 | ||
| 226 | (defun flymake-ler-make-ler (file line type text &optional full-file) | ||
| 227 | (let* ((file (or full-file file)) | ||
| 228 | (buf (find-buffer-visiting file))) | ||
| 229 | (unless buf (flymake-error "No buffer visiting %s" file)) | ||
| 230 | (pcase-let* ((`(,beg . ,end) | ||
| 231 | (with-current-buffer buf | ||
| 232 | (flymake-diag-region line nil)))) | ||
| 233 | (flymake-make-diagnostic buf beg end type text)))) | ||
| 234 | |||
| 235 | (make-obsolete 'flymake-ler-make-ler 'flymake-make-diagnostic "26.1") | ||
| 236 | |||
| 237 | (cl-defun flymake--overlays (&key beg end filter compare key) | 226 | (cl-defun flymake--overlays (&key beg end filter compare key) |
| 238 | "Get flymake-related overlays. | 227 | "Get flymake-related overlays. |
| 239 | If BEG is non-nil and END is nil, consider only `overlays-at' | 228 | If BEG is non-nil and END is nil, consider only `overlays-at' |