November 2012 - implementations-list

evil not entering emacs-state in magit-key-mode even if magit-key-mode is listed in evil-emacs-state-modes
by Alessandro Piras 08 Nov '12

08 Nov '12

I got this issue in one of the last updates i did. I'm installing both packages from melpa. I temporarily solved the issue using an advice, as magit-key-mode has no magit-key-mode-hook - I don't know if this is related at all. By the way, great job with evil in general, it's working great apart from this small issue! Cheers, Alessandro Piras

4 11

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

visual-mode and X-selections
by Hans-Peter Deifel 01 Nov '12

01 Nov '12

Hi List! I think that the interaction between visual-mode and the X11 selections is not optimal. Since I don't know if the current behavior is intentional, I haven't yet opened a bug report. The selected text in visual-mode is currently copied via the function x-select-text. With the Emacs 24.1 default configuration, this copies to the X-selection CLIPBOARD (configurable through x-select-enable-clipboard and x-select-enable-primary.) In the rest of Emacs, this function is only used for the explicit copy/yank commands. Copying the active region is controlled by the variable select-active-regions and uses the PRIMARY X-selection by default. This behavior is consistent with most other X applications: The mouse selection is saved in PRIMARY and the explicit copy/paste commands use the CLIPBOARD. Thus, it would be nice if Evil would also use the PRIMARY selection by default for the selected text in visual-mode. I currently use the following redefinition of evil-visual-update-x-selection, that does what I need: #+BEGIN_SRC elisp (defun evil-visual-update-x-selection (&optional buffer) "Update the X selection with the current visual region." (with-current-buffer (or buffer (current-buffer)) (when (and (evil-visual-state-p) (fboundp 'x-select-text) (or (not (boundp 'ns-initialized)) (with-no-warnings ns-initialized)) (not (eq evil-visual-selection 'block))) (x-set-selection 'PRIMARY (buffer-substring-no-properties evil-visual-beginning evil-visual-end)) (setq x-last-selected-text-primary )))) #+END_SRC Regards, Hans-Peter

2 1

Towards evil 1.0
by Frank Fischer 01 Nov '12

01 Nov '12

Hi folks, I've just went once again through all open issues in the issue tracker. I marked those that I think should be fixed for 1.0 with "milestone 1.0". The plan is to get them fixed quickly so version 1.0 of evil can be released by the end of the year. I'm not going to investigate any other of the issues until then. If you think other issues are very important and should be dealt with in 1.0, please comment them in the tracker. Of course, any help (submitting patches etc. ;)) is greatly appreciated. Best regards Frank

1 0

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