Commit fde7326e authored by Richard M. Stallman's avatar Richard M. Stallman

(forward-same-syntax): New function.

parent 67384793
;;; thingatpt.el --- Get the `thing' at point
;; Copyright (C) 1991,1992,1993 Free Software Foundation, Inc.
;; Copyright (C) 1991,1992,1993,1994,1995 Free Software Foundation, Inc.
;; Author: Mike Williams <mikew@gopher.dosli.govt.nz>
;; Keywords: extensions, matching, mouse
......@@ -174,6 +174,18 @@ bounds-of-thing-at-point."
(skip-syntax-backward "w_"))
(setq ARG (1+ ARG)))))
;;--- Syntax blocks ---
(defun forward-same-syntax (&optional arg)
(interactive "p")
(while (< arg 0)
(skip-syntax-backward
(char-to-string (char-syntax (char-after (1- (point))))))
(setq arg (1+ arg)))
(while (> arg 0)
(skip-syntax-forward (char-to-string (char-syntax (char-after (point)))))
(setq arg (1- arg))))
;;=== Aliases =============================================================
(defun word-at-point () (thing-at-point 'word))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment