Re: How do I highlight word at point?

[Nikolaj Schumacher]

Xah <xahlee@gmail.com> wrote:

> is it possible to make it work with selecting a string?

Yes.  It seems so, but the code gets very complicated if you try to do
the right thing in all places.  For instance, inside strings, you might
prefer the text-mode syntax table for best results.

I've written a bit more of this and might turn it into a package once it's
more tested.

(defun semnav-up (arg)
  (interactive "p")
  (when (nth 3 (syntax-ppss))
    (if (> arg 0)
        (progn
          (skip-syntax-forward "^\"")
          (goto-char (1+ (point)))
          (decf arg))
      (skip-syntax-backward "^\"")
      (goto-char (1- (point)))
      (incf arg)))
  (up-list arg))

(defun semnav-mark (arg &optional incremental)
  "Mark the symbol surrounding point.
Subsequent calls mark higher levels of sexps."
  (interactive (list (prefix-numeric-value current-prefix-arg)
                     (or (and transient-mark-mode mark-active)
                         (eq last-command this-command))))
  (if incremental
      (progn
        (semnav-up (- arg))
        (forward-sexp)
        (mark-sexp -1))
    (if (> arg 1)
        (semnav-mark (1- arg) t)
      (if (looking-at "\\=\\(\\s_\\|\\sw\\)*\\_>")
          (goto-char (match-end 0))
        (unless (memq (char-before) '(?\) ?\"))
          (forward-sexp)))
      (mark-sexp -1))))



> “Semantic”? is that a elisp package?

Yes.  It is part of CEDET.
http://cedet.sourceforge.net/semantic.shtml




regards,
Nikolaj Schumacher