equal
deleted
inserted
replaced
74 " <" user-mail-address ">" |
74 " <" user-mail-address ">" |
75 (when (boundp 'user-home-page) (concat ", " user-home-page)))) |
75 (when (boundp 'user-home-page) (concat ", " user-home-page)))) |
76 |
76 |
77 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
77 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
78 (message "my defun, defmacro, defvar") |
78 (message "my defun, defmacro, defvar") |
|
79 |
|
80 (require 'cl) |
79 |
81 |
80 (defmacro my-filter (pred list) |
82 (defmacro my-filter (pred list) |
81 "Construct list with elements from LIST which satisfy PRED." |
83 "Construct list with elements from LIST which satisfy PRED." |
82 (let ( (r (make-symbol "r_")) ) |
84 (let ( (r (make-symbol "r_")) ) |
83 `(let ( (,r (list nil)) ) |
85 `(let ( (,r (list nil)) ) |
606 (add-to-list 'grep-find-ignored-files "GPATH") |
608 (add-to-list 'grep-find-ignored-files "GPATH") |
607 ) |
609 ) |
608 )) |
610 )) |
609 (global-set-key [f7] 'rgrep) |
611 (global-set-key [f7] 'rgrep) |
610 (global-set-key [M-f7] 'rgrep) |
612 (global-set-key [M-f7] 'rgrep) |
|
613 |
|
614 (defun lzgrep () |
|
615 (interactive) |
|
616 (let ( (grep-template "zgrep <C> -nH -e <R> <F>") (grep-find-ignored-files nil) ) |
|
617 (flet ( (grep-compute-defaults () nil) ) |
|
618 (call-interactively #'lgrep)))) |
|
619 |
|
620 (defun rzgrep () |
|
621 (interactive) |
|
622 (let ( (grep-find-template "find . -type f <F> -exec zgrep <C> -nH -e <R> {} +") (grep-find-ignored-files nil) ) |
|
623 (flet ( (grep-compute-defaults () nil) ) |
|
624 (call-interactively #'rgrep)))) |
611 |
625 |
612 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
626 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
613 (message "highlighting") |
627 (message "highlighting") |
614 |
628 |
615 ;; Increase scrolling speed by defer consuming operation. |
629 ;; Increase scrolling speed by defer consuming operation. |