diff options
| author | Dan Gudmundsson <[email protected]> | 2017-02-09 09:51:45 +0100 |
|---|---|---|
| committer | Dan Gudmundsson <[email protected]> | 2017-02-09 09:51:45 +0100 |
| commit | 83a391577271b167a3a71bdb0b7f950007ba8ba6 (patch) | |
| tree | c1d516cd7bdd3bceb8e5130de7415e422bf382f9 /lib/tools/emacs/erlang-start.el | |
| parent | 434c34e003f9c9fe60518f17ae9b81dc21c4cca3 (diff) | |
| parent | 3f4e841c660da464a9781acb5e5e1740f9b0b23d (diff) | |
| download | otp-83a391577271b167a3a71bdb0b7f950007ba8ba6.tar.gz otp-83a391577271b167a3a71bdb0b7f950007ba8ba6.tar.bz2 otp-83a391577271b167a3a71bdb0b7f950007ba8ba6.zip | |
Merge remote-tracking branch 'upstream/pr/1297'
* upstream/pr/1297:
Emacs: Describe how to run unit tests
Emacs: Consider arity when jumping to definitions
Diffstat (limited to 'lib/tools/emacs/erlang-start.el')
| -rw-r--r-- | lib/tools/emacs/erlang-start.el | 11 |
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)))) |