文件内容关键字网页快速搜索

 

(defcustom nsearch-symbol-chars "_-"
  "*A string containing legal characters in a symbol.
The current syntax table should really be used for this."
  :type 'string
  :group 'netsearch)

(defcustom nsearch-filename-chars "-.,/A-Za-z0-9_~!@#$%&+=\\\\"
  "*A string containing legal characters in a symbol.
The current syntax table should really be used for this."
  :type 'string
  :group 'nsearch)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defconst nsearch-running-in-xemacs (string-match "XEmacs\\|Lucid" emacs-version))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defcustom nsearch-no-mouse-prompts nil
  "*If non-nil, use the symbol under the cursor instead of prompting.
Do not prompt for a value, except for when seaching for a egrep pattern
or a file."
  :type 'boolean
  :group 'nsearch)

(defun eskip-chars-backward (symbol)
  (if (re-search-backward symbol 20 t)
      (eskip-chars-backward symbol)
    nil)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun nsearch-extract-symbol-at-cursor (extract-filename)
  (let* ( (symbol-chars (if extract-filename
       nsearch-filename-chars
     nsearch-symbol-chars))
   (symbol-char-regexp (concat "[" symbol-chars "]"))
   )
    (save-excursion
      (progn
 (buffer-substring-no-properties
  (progn
    (if (not (looking-at symbol-char-regexp))
        (re-search-backward "" nil t))
    (skip-chars-backward symbol-chars )
    (point))
  (progn
    (skip-chars-forward symbol-chars )
    (point)
  ))
 (if (or (not sym)
   (string-match " " sym))
       (setq sym (current-word))
     sym)
       ))
    ))

(defun nsearch-prompt-for-symbol (prompt extract-filename)
  "Prompt the user for a cscope symbol."
  (let (sym)
    (setq sym (nsearch-extract-symbol-at-cursor extract-filename))
    (if (or (not sym)
     (string= sym "")
     (not (and nsearch-running-in-xemacs
        nsearch-no-mouse-prompts current-mouse-event
        (or (mouse-event-p current-mouse-event)
     (misc-user-event-p current-mouse-event))))
     ;; Always prompt for symbol in dired mode.
     (eq major-mode 'dired-mode)
     )
 (setq sym (read-from-minibuffer prompt sym))
      sym)
    ))

(defun nsearch-find (symbol)
  "Find a symbol's global definition."
  (interactive (list
  (nsearch-prompt-for-symbol "Find this: " nil)
  ))
  (let ((nsearch-symbol symbol))
    (setq nsearch-symbol (concat "=" nsearch-symbol))
    (message "%s" nsearch-symbol)
    (start-process "iexplorer" (get-buffer-create "temp" )
     "C:/Program Files/Internet Explorer/iexplore.exe" nsearch-symbol)
    ))

(global-set-key (kbd "C-c n") 'nsearch-find)

;;测试