October 2012 - implementations-list

<backspace> not bound properly in haskell-mode
by Keshav Kini 25 Jul '14

25 Jul '14

When I have a .hs file open in a buffer (i.e. with haskell-mode activated), it seems that typing <backspace> in <N> state actually deletes characters. Investigating a bit, I see that in other modes - such as message-mode, in which I'm typing this email - doing describe-key on <backspace> yields the following: DEL (translated from <backspace>) runs the command evil-backward-char, which is an interactive compiled Lisp function in `evil-commands.el'. In haskell-mode, however, I get: <backspace> runs the command haskell-indentation-delete-backward-char, which is an interactive compiled Lisp function in `haskell-indentation.el'. The difference I notice is that in the first, we have "DEL (translated from <backspace>)", but in the second, just "<backspace>". From this I gather that evil-mode probably traps the key DEL, but not the key <backspace>. Should evil-mode perhaps trap <backspace> directly as well as DEL? Or is this a bug in haskell-mode, i.e. should haskell-mode be trapping DEL instead of <backspace>? -Keshav

2 2

A couple of questions
by Keshav Kini 13 Sep '13

13 Sep '13

Hello, First of all, thank you very much for your great work on evil! I'm really pleasantly surprised at how active your development is :) I'm a vim user who is trying to learn emacs without losing the handy modal editing of vim (as I imagine many others on this list are), and evil seems to be exactly what I need. I have a couple of questions. First, I am wondering if evil-want-C-u-scroll is broken. I have set it to t using M-x customize-group evil-mode, which causes (custom-set-variables '(evil-want-C-u-scroll t)) to appear in my ~/.emacs , but I don't see any difference in the behavior of evil. Is there something else I need to do in order to make C-u call evil-scroll-up (as C-h k C-d tells me that C-d is bound to evil-scroll-down)? Second, I am wondering about the behavior of :q . It seems to me that it behaves more like :qa does in vim. According to vim documentation, :q[uit] should "Quit the current window. Quit Vim if this is the last window.". So I guess it should be similar to kill-buffer in emacs, no? Thanks again! -Keshav

6 10

How to control Emacs vs. vi state with a file local variable?
by Christoph LANGE 04 Feb '13

04 Feb '13

Dear evil developers/users, I would like to generally open all files of a certain type (org-mode) in vi state but make exceptions for a few individual files. Using file local variables didn't work. I tried Local Variables: eval: (evil-emacs-state) End: but apparently the order of execution was the following: 1. load the file 2. apply the local variables, switching to Emacs state 3. here, or possibly before (2), switch buffer to org-mode 4. on seeing that org-mode is not in the list of evil-emacs-state-modes, switch to vi state If this assumption is right, is there any way of opening individual files in Emacs state? Cheers, and thanks in advance, Christoph -- Christoph Lange, http://www.facebook.com/ch.lange, Skype duke4701

3 2

Failing tests
by Sébastien Willmann 05 Nov '12

05 Nov '12

Hello, After running make test, it seems that some tests fail on my computer (tests results attached). Are the tests wrong or does it mean that there is some compatibility issues? I use emacs 24.1.1 on fedora 17. Thanks, Sébastien Willmann

3 6

Debugger entered--Lisp error: (error "\"Domaine\": pattern not found")
by Guido Van Hoecke 01 Nov '12

01 Nov '12

Hi, Operating steps: 1) /Domaine <enter> 2) c f e Champ <enter> 3) n 4) . 5) n And if the pattern is no longer found, I get a new window with this debugger message: Debugger entered--Lisp error: (error "\"Domaine\": pattern not found") signal(error ("\"Domaine\": pattern not found")) error("\"%s\": %s not found" "Domaine" "pattern") (condition-case nil (funcall search-func string) (search-failed (goto-char orig) (error "\"%s\": %s not found" string (if regexp-p "pattern" "string")))) (let* ((orig (point)) (start (or start (if forward (min (point-max) (1+ orig)) orig))) (isearch-regexp regexp-p) (isearch-forward forward) (case-fold-search (unless (and search-upper-case (not (isearch-no-upper-case-p string nil))) case-fold-search)) (search-func (evil-search-function forward regexp-p evil-search-wrap))) (set-text-properties 0 (length string) nil string) (goto-char start) (condition-case nil (funcall search-func string) (search-failed (goto-char orig) (error "\"%s\": %s not found" string (if regexp-p "pattern" "string")))) (setq isearch-string string) (isearch-update-ring string regexp-p) (when (boundp (quote isearch-filter-predicate)) (funcall isearch-filter-predicate (match-beginning 0) (match-end 0))) (goto-char (match-beginning 0)) (cond ((and forward (< (point) start)) (setq string "Search wrapped around BOTTOM of buffer")) ((and (not forward) (> (point) start)) (setq string "Search wrapped around TOP of buffer")) (t (setq string (evil-search-message string forward)))) (evil-flash-search-pattern string t)) (progn (let* ((orig (point)) (start (or start (if forward (min (point-max) (1+ orig)) orig))) (isearch-regexp regexp-p) (isearch-forward forward) (case-fold-search (unless (and search-upper-case (not (isearch-no-upper-case-p string nil))) case-fold-search)) (search-func (evil-search-function forward regexp-p evil-search-wrap))) (set-text-properties 0 (length string) nil string) (goto-char start) (condition-case nil (funcall search-func string) (search-failed (goto-char orig) (error "\"%s\": %s not found" string (if regexp-p "pattern" "string")))) (setq isearch-string string) (isearch-update-ring string regexp-p) (when (boundp (quote isearch-filter-predicate)) (funcall isearch-filter-predicate (match-beginning 0) (match-end 0))) (goto-char (match-beginning 0)) (cond ((and forward (< (point) start)) (setq string "Search wrapped around BOTTOM of buffer")) ((and (not forward) (> (point) start)) (setq string "Search wrapped around TOP of buffer")) (t (setq string (evil-search-message string forward)))) (evil-flash-search-pattern string t))) (if (and (stringp string) (not (string= string ""))) (progn (let* ((orig (point)) (start (or start (if forward (min ... ...) orig))) (isearch-regexp regexp-p) (isearch-forward forward) (case-fold-search (unless (and search-upper-case (not ...)) case-fold-search)) (search-func (evil-search-function forward regexp-p evil-search-wrap))) (set-text-properties 0 (length string) nil string) (goto-char start) (condition-case nil (funcall search-func string) (search-failed (goto-char orig) (error "\"%s\": %s not found" string (if regexp-p "pattern" "string")))) (setq isearch-string string) (isearch-update-ring string regexp-p) (when (boundp (quote isearch-filter-predicate)) (funcall isearch-filter-predicate (match-beginning 0) (match-end 0))) (goto-char (match-beginning 0)) (cond ((and forward (< (point) start)) (setq string "Search wrapped around BOTTOM of buffer")) ((and (not forward) (> (point) start)) (setq string "Search wrapped around TOP of buffer")) (t (setq string (evil-search-message string forward)))) (evil-flash-search-pattern string t)))) (when (and (stringp string) (not (string= string ""))) (let* ((orig (point)) (start (or start (if forward (min (point-max) (1+ orig)) orig))) (isearch-regexp regexp-p) (isearch-forward forward) (case-fold-search (unless (and search-upper-case (not (isearch-no-upper-case-p string nil))) case-fold-search)) (search-func (evil-search-function forward regexp-p evil-search-wrap))) (set-text-properties 0 (length string) nil string) (goto-char start) (condition-case nil (funcall search-func string) (search-failed (goto-char orig) (error "\"%s\": %s not found" string (if regexp-p "pattern" "string")))) (setq isearch-string string) (isearch-update-ring string regexp-p) (when (boundp (quote isearch-filter-predicate)) (funcall isearch-filter-predicate (match-beginning 0) (match-end 0))) (goto-char (match-beginning 0)) (cond ((and forward (< (point) start)) (setq string "Search wrapped around BOTTOM of buffer")) ((and (not forward) (> (point) start)) (setq string "Search wrapped around TOP of buffer")) (t (setq string (evil-search-message string forward)))) (evil-flash-search-pattern string t))) evil-search("Domaine" t t) (while (< var --cl-dotimes-temp--) (evil-search (if evil-regexp-search (car-safe regexp-search-ring) (car-safe search-ring)) isearch-forward evil-regexp-search) (incf var)) (let ((--cl-dotimes-temp-- (or count 1)) (var 0)) (while (< var --cl-dotimes-temp--) (evil-search (if evil-regexp-search (car-safe regexp-search-ring) (car-safe search-ring)) isearch-forward evil-regexp-search) (incf var))) (catch (quote --cl-block-nil--) (let ((--cl-dotimes-temp-- (or count 1)) (var 0)) (while (< var --cl-dotimes-temp--) (evil-search (if evil-regexp-search (car-safe regexp-search-ring) (car-safe search-ring)) isearch-forward evil-regexp-search) (incf var)))) (cl-block-wrapper (catch (quote --cl-block-nil--) (let ((--cl-dotimes-temp-- (or count 1)) (var 0)) (while (< var --cl-dotimes-temp--) (evil-search (if evil-regexp-search (car-safe regexp-search-ring) (car-safe search-ring)) isearch-forward evil-regexp-search) (incf var))))) (block nil (let ((--cl-dotimes-temp-- (or count 1)) (var 0)) (while (< var --cl-dotimes-temp--) (evil-search (if evil-regexp-search (car-safe regexp-search-ring) (car-safe search-ring)) isearch-forward evil-regexp-search) (incf var)))) (dotimes (var (or count 1)) (evil-search (if evil-regexp-search (car-safe regexp-search-ring) (car-safe search-ring)) isearch-forward evil-regexp-search)) (save-restriction (when (and (not (evil-operator-state-p)) (not (eobp)) (save-excursion (goto-char (point-max)) (bolp))) (evil-narrow nil (1- (point-max)))) (dotimes (var (or count 1)) (evil-search (if evil-regexp-search (car-safe regexp-search-ring) (car-safe search-ring)) isearch-forward evil-regexp-search))) (evil-with-adjust-cursor (dotimes (var (or count 1)) (evil-search (if evil-regexp-search (car-safe regexp-search-ring) (car-safe search-ring)) isearch-forward evil-regexp-search))) evil-search-next(nil) call-interactively(evil-search-next nil nil) How can I just get a message in the mini-buffer? I failed to find a variable that I can set to control this behavior. Thanks in advance, Guido.

2 2

ggVG doesn't copy the last line of a buffer
by Dan Rosén 31 Oct '12

31 Oct '12

Hi, This is an issue I have: When I have a file which ends with a non-blank line, then ggVG will copy (and select) the entire buffer, but that last line. ggVG$ works, but that is a bit annoying. Is there a way to make G go to the last character of the last line, and not only the last line? Thanks, Dan

2 1

Change inner paren doesn't work in python mode
by Alessandro Piras 31 Oct '12

31 Oct '12

Hi guys, ci( does not work in python mode. to replicate: --- example.py --- for i in range(10): print (1, 2, 3) --------------------------- position the cursor over the "2" issue ci( result: --- example.py --- f): print (1, 2, 3) -------------------------- Cheers, Alessandro

3 3

Insert mode - point doesn't move to next line
by aditya siram 31 Oct '12

31 Oct '12

I'm having an issue with the master branch where the cursor in Insert mode doesn't always move to the next line with Return or Ctrl-J. I can reproduce this in the following way: 1. open a new buffer with `:new` 2. Go into Insert mode with `i`. 3. Type `hello world` 4. Hit Enter, the cursor goes to the beginning of the line just typed and not the next line. This also happens intermittently in eshell where when I enter a command like `ls` the cursor moves to the beginning of this line rather than the prompt that comes up after the output. Thanks ... -deech

3 6

Normal Mode issues with tab in org-mode
by aditya siram 31 Oct '12

31 Oct '12

In Normal mode when I hit <Tab> on a headline in org-mode it doesn't expand. It works fine in Insert mode. Thanks ... -deech

2 1

tick-dot not working
by Jason Miller 31 Oct '12

31 Oct '12

The normal command '. prints out the following error message: Symbol's function definition is void: goto-last-change Any idea what's going on here? -Jason

2 1