aboutsummaryrefslogtreecommitdiffstats
path: root/lib/tools/emacs/erlang-start.el
diff options
context:
space:
mode:
authorJohan Claesson <[email protected]>2016-12-30 12:20:01 +0100
committerJohan Claesson <[email protected]>2017-02-08 21:44:16 +0100
commit1607c07f41a8ff0d87d982fefab6e0c0009d83c3 (patch)
treeb83b854d67bb78ee130736ef458da9a891f22f63 /lib/tools/emacs/erlang-start.el
parent03c822629b1fafa39d3b83eb1fd04dab8232d9c6 (diff)
downloadotp-1607c07f41a8ff0d87d982fefab6e0c0009d83c3.tar.gz
otp-1607c07f41a8ff0d87d982fefab6e0c0009d83c3.tar.bz2
otp-1607c07f41a8ff0d87d982fefab6e0c0009d83c3.zip
Emacs: Consider arity when jumping to definitions
Only the xref front-end introduced in Emacs 25 consider arity. It is not implemented for older emacsen. Look for manual page files in lib/erlang/man in erlang-root-dir. Also do not give up in erlang-man-module when not finding the manual page file. Call manual-entry as a fallback. Do not bother to populate menu-bar with man pages when menu-bar-mode is nil. Add erlang extensions also to dired-omit-extensions. Remove some support for Emacs 18 and 19.
Diffstat (limited to 'lib/tools/emacs/erlang-start.el')
-rw-r--r--lib/tools/emacs/erlang-start.el11
1 files changed, 4 insertions, 7 deletions
diff --git a/lib/tools/emacs/erlang-start.el b/lib/tools/emacs/erlang-start.el
index 66bd3dd3a2..c35f280bf4 100644
--- a/lib/tools/emacs/erlang-start.el
+++ b/lib/tools/emacs/erlang-start.el
@@ -115,18 +115,15 @@ A function suitable for `eldoc-documentation-function'.\n\n(fn)" nil nil)
;;
;; Ignore files ending in ".jam", ".vee", and ".beam" when performing
-;; file completion.
+;; file completion and in dired omit mode.
;;
;;;###autoload
(let ((erl-ext '(".jam" ".vee" ".beam")))
(while erl-ext
- (let ((cie completion-ignored-extensions))
- (while (and cie (not (string-equal (car cie) (car erl-ext))))
- (setq cie (cdr cie)))
- (if (null cie)
- (setq completion-ignored-extensions
- (cons (car erl-ext) completion-ignored-extensions))))
+ (add-to-list 'completion-ignored-extensions (car erl-ext))
+ (when (boundp 'dired-omit-extensions)
+ (add-to-list 'dired-omit-extensions (car erl-ext)))
(setq erl-ext (cdr erl-ext))))