changelog shortlog tags changeset files revisions annotate raw

de_searching.el

changeset 66: 5b737eefe5ea
parent:9c1be740c92b
author: kim.vanwyk
date: Wed Nov 10 15:19:03 2010 +0200 (18 months ago)
permissions: -rw-r--r--
description: Adding CSharp Mode and Google Weather 
     1;; Bring in ack

     2(require-if-exists 'ack-emacs)

     3

     4;; isearch-occur

     5(defun isearch-occur ()

     6      "Invoke `occur' from within isearch."

     7      (interactive)

     8      (let ((case-fold-search isearch-case-fold-search))

     9        (occur (if isearch-regexp isearch-string (regexp-quote isearch-string)))))

    10(define-key isearch-mode-map (kbd "C-o") 'isearch-occur)

    11(global-set-key (kbd "M-s") 'multi-occur-in-matching-buffers)

    12

    13;; Codewright-like Grep in file

    14(defun occur-at-point()

    15  "invokes occur with the thing-at-point"

    16  (interactive)

    17  (if (thing-at-point 'symbol)

    18      (occur (thing-at-point 'symbol))

    19;;    (call-interactively 'occur)

    20   (call-interactively 'other-window) 

    21  )

    22)  

    23(global-set-key "\C-cg" 'occur-at-point)

    24(global-set-key (quote [C-down]) (quote next-error))

    25(global-set-key (quote [C-up]) (quote previous-error))

    26

    27(global-set-key (quote [M-down]) (quote scroll-other-window))

    28(global-set-key (quote [M-up]) (quote scroll-other-window-down))

    29

    30;; Use findstr as grep

    31(setq grep-find-command '("findstr /sn *" . 13))

    32

    33(global-set-key [f4] 'rgrep) 

    34(provide 'de_searching)