summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorJoão Távora <joaotavora@gmail.com>2017-09-28 12:24:44 +0100
committerJoão Távora <joaotavora@gmail.com>2017-10-03 14:18:55 +0100
commitcd39edb5d641f82accad21cd85ff26b3995f1c85 (patch)
tree4041323fd490ca51b3a49ef0174484a4456cc5c6 /lisp
parent5235eaf7816167143b5fef66e5c1acce569c4f61 (diff)
downloademacs-cd39edb5d641f82accad21cd85ff26b3995f1c85.tar.gz
emacs-cd39edb5d641f82accad21cd85ff26b3995f1c85.tar.bz2
emacs-cd39edb5d641f82accad21cd85ff26b3995f1c85.zip
Remove old flymake-display-err-menu-for-current-line, it's useless
See https://lists.gnu.org/archive/html/emacs-devel/2017-09/msg00949.html * lisp/progmodes/flymake-ui.el (flymake-popup-current-error-menu): Remove.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/progmodes/flymake.el32
1 files changed, 0 insertions, 32 deletions
diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el
index 0071ba93eac..20c94d20d8b 100644
--- a/lisp/progmodes/flymake.el
+++ b/lisp/progmodes/flymake.el
@@ -467,38 +467,6 @@ associated `flymake-category' return DEFAULT."
(flymake-log :debug "starting syntax check after no changes for some time")
(flymake-start)))))
-(define-obsolete-function-alias 'flymake-display-err-menu-for-current-line
- 'flymake-popup-current-error-menu "24.4")
-
-(defun flymake-popup-current-error-menu (&optional event)
- "Pop up a menu with errors/warnings for current line."
- (interactive (list last-nonmenu-event))
- (let* ((diag-overlays (or
- (flymake--overlays :filter 'flymake--diagnostic
- :beg (line-beginning-position)
- :end (line-end-position))
- (user-error "No flymake problem for current line")))
- (menu (mapcar (lambda (ov)
- (let ((diag (overlay-get ov 'flymake--diagnostic)))
- (cons (flymake--diag-text diag)
- ov)))
- diag-overlays))
- (event (if (mouse-event-p event)
- event
- (list 'mouse-1 (posn-at-point))))
- (diagnostics (mapcar (lambda (ov) (overlay-get ov 'flymake--diagnostic))
- diag-overlays))
- (title (format "Line %d: %d diagnostics(s)"
- (line-number-at-pos)
- (length diagnostics)))
- (choice (x-popup-menu event (list title (cons "" menu)))))
- (flymake-log :debug "choice=%s" choice)
- ;; FIXME: What is the point of going to the problem locus if we're
- ;; certainly already there?
- ;;
- (when choice (goto-char (overlay-start choice)))))
-
-
;; Nothing in flymake uses this at all any more, so this is just for
;; third-party compatibility.
(define-obsolete-function-alias 'flymake-display-warning 'message-box "26.1")