[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
thing-after-point-utils.el 1.0
From: |
Andreas Roehler |
Subject: |
thing-after-point-utils.el 1.0 |
Date: |
Sat, 20 Jan 2007 12:17:36 +0100 |
User-agent: |
KMail/1.8.2 |
;;; thing-after-point-utils.el --- more thing-at-point edit functions
;; Version: 1.0
;; Copyright (C) 2006, 2007 Andreas Roehler
;; Author: Andreas Roehler <address@hidden>
;; Keywords: convenience, lisp
;; This file is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; This file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
;;; Commentary:
;; Information is given with thingatpt-utils-base.el
(require 'thingatpt-utils-base)
;;;###autoload
(defsubst list-afpt (&optional arg ispec)
"Returns list after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt 'list arg ispec))))
;;;###autoload
(defsubst bounds-of-list-afpt (&optional arg ispec)
"Returns border of list after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-bounds 'list arg ispec))))
;;;###autoload
(defsubst list-afpt-beginning-position (&optional arg ispec)
"Returns beginning of list after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-beginning 'list arg ispec))))
;;;###autoload
(defsubst list-afpt-end-position (&optional arg ispec)
"Returns end position of list after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-end 'list arg ispec))))
;;;###autoload
(defsubst copy-list-afpt (&optional arg ispec)
"Returns a copy of list after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-copy 'list arg ispec))))
;;;###autoload
(defsubst separate-list-afpt (&optional arg ispec)
"Returns a copy of list after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-separate 'list arg ispec))))
;;;###autoload
(defsubst comment-list-afpt (&optional arg ispec)
"Returns a copy of list after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-comment 'list arg ispec))))
;;;###autoload
(defsubst doublequote-list-afpt (&optional arg ispec)
"Doublequotes list after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'list 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-list-afpt (&optional arg ispec)
"Singlequotes list after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'list 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-list-afpt (&optional arg ispec)
"Parentizes list after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'list 'parentize arg ispec))))
;;;###autoload
(defsubst brace-list-afpt (&optional arg ispec)
"Braces list after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'list 'brace arg ispec))))
;;;###autoload
(defsubst bracket-list-afpt (&optional arg ispec)
"Brackets list after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'list 'bracket arg ispec))))
;;;###autoload
(defsubst kill-list-afpt ()
"Kills list after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-kill 'list))))
;;;###autoload
(defsubst forward-list-afpt (&optional arg ispec)
"Moves forward over list after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward " \t\n\r\f")
;; (forward-char 1)
(thatpt-forward 'list arg ispec)))
;;;###autoload
(defsubst symbol-afpt (&optional arg ispec)
"Returns symbol after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt 'symbol arg ispec))))
;;;###autoload
(defsubst bounds-of-symbol-afpt (&optional arg ispec)
"Returns border of symbol after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-bounds 'symbol arg ispec))))
;;;###autoload
(defsubst symbol-afpt-beginning-position (&optional arg ispec)
"Returns beginning of symbol after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-beginning 'symbol arg ispec))))
;;;###autoload
(defsubst symbol-afpt-end-position (&optional arg ispec)
"Returns end position of symbol after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-end 'symbol arg ispec))))
;;;###autoload
(defsubst copy-symbol-afpt (&optional arg ispec)
"Returns a copy of symbol after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-copy 'symbol arg ispec))))
;;;###autoload
(defsubst separate-symbol-afpt (&optional arg ispec)
"Returns a copy of symbol after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-separate 'symbol arg ispec))))
;;;###autoload
(defsubst comment-symbol-afpt (&optional arg ispec)
"Returns a copy of symbol after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-comment 'symbol arg ispec))))
;;;###autoload
(defsubst doublequote-symbol-afpt (&optional arg ispec)
"Doublequotes symbol after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'symbol 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-symbol-afpt (&optional arg ispec)
"Singlequotes symbol after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'symbol 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-symbol-afpt (&optional arg ispec)
"Parentizes symbol after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'symbol 'parentize arg ispec))))
;;;###autoload
(defsubst brace-symbol-afpt (&optional arg ispec)
"Braces symbol after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'symbol 'brace arg ispec))))
;;;###autoload
(defsubst bracket-symbol-afpt (&optional arg ispec)
"Brackets symbol after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'symbol 'bracket arg ispec))))
;;;###autoload
(defsubst kill-symbol-afpt ()
"Kills symbol after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-kill 'symbol))))
;;;###autoload
(defsubst forward-symbol-afpt (&optional arg ispec)
"Moves forward over symbol after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward " \t\n\r\f")
;; (forward-char 1)
(thatpt-forward 'symbol arg ispec)))
;;;###autoload
(defsubst word-afpt (&optional arg ispec)
"Returns word after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:word:]")
(thatpt 'word arg ispec))))
;;;###autoload
(defsubst bounds-of-word-afpt (&optional arg ispec)
"Returns border of word after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:word:]")
(thatpt-bounds 'word arg ispec))))
;;;###autoload
(defsubst word-afpt-beginning-position (&optional arg ispec)
"Returns beginning of word after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:word:]")
(thatpt-beginning 'word arg ispec))))
;;;###autoload
(defsubst word-afpt-end-position (&optional arg ispec)
"Returns end position of word after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:word:]")
(thatpt-end 'word arg ispec))))
;;;###autoload
(defsubst copy-word-afpt (&optional arg ispec)
"Returns a copy of word after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:word:]")
(thatpt-copy 'word arg ispec))))
;;;###autoload
(defsubst separate-word-afpt (&optional arg ispec)
"Returns a copy of word after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:word:]")
(thatpt-separate 'word arg ispec))))
;;;###autoload
(defsubst comment-word-afpt (&optional arg ispec)
"Returns a copy of word after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:word:]")
(thatpt-comment 'word arg ispec))))
;;;###autoload
(defsubst doublequote-word-afpt (&optional arg ispec)
"Doublequotes word after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:word:]")
(unless (eobp)
(thatpt-delim 'word 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-word-afpt (&optional arg ispec)
"Singlequotes word after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:word:]")
(unless (eobp)
(thatpt-delim 'word 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-word-afpt (&optional arg ispec)
"Parentizes word after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:word:]")
(unless (eobp)
(thatpt-delim 'word 'parentize arg ispec))))
;;;###autoload
(defsubst brace-word-afpt (&optional arg ispec)
"Braces word after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:word:]")
(unless (eobp)
(thatpt-delim 'word 'brace arg ispec))))
;;;###autoload
(defsubst bracket-word-afpt (&optional arg ispec)
"Brackets word after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:word:]")
(unless (eobp)
(thatpt-delim 'word 'bracket arg ispec))))
;;;###autoload
(defsubst kill-word-afpt ()
"Kills word after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:word:]")
(thatpt-kill 'word))))
;;;###autoload
(defsubst forward-word-afpt (&optional arg ispec)
"Moves forward over word after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward "^[:word:]")
;; (forward-char 1)
(thatpt-forward 'word arg ispec)))
;;;###autoload
(defsubst sexp-afpt (&optional arg ispec)
"Returns sexp after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt 'sexp arg ispec))))
;;;###autoload
(defsubst bounds-of-sexp-afpt (&optional arg ispec)
"Returns border of sexp after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-bounds 'sexp arg ispec))))
;;;###autoload
(defsubst sexp-afpt-beginning-position (&optional arg ispec)
"Returns beginning of sexp after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-beginning 'sexp arg ispec))))
;;;###autoload
(defsubst sexp-afpt-end-position (&optional arg ispec)
"Returns end position of sexp after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-end 'sexp arg ispec))))
;;;###autoload
(defsubst copy-sexp-afpt (&optional arg ispec)
"Returns a copy of sexp after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-copy 'sexp arg ispec))))
;;;###autoload
(defsubst separate-sexp-afpt (&optional arg ispec)
"Returns a copy of sexp after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-separate 'sexp arg ispec))))
;;;###autoload
(defsubst comment-sexp-afpt (&optional arg ispec)
"Returns a copy of sexp after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-comment 'sexp arg ispec))))
;;;###autoload
(defsubst doublequote-sexp-afpt (&optional arg ispec)
"Doublequotes sexp after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'sexp 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-sexp-afpt (&optional arg ispec)
"Singlequotes sexp after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'sexp 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-sexp-afpt (&optional arg ispec)
"Parentizes sexp after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'sexp 'parentize arg ispec))))
;;;###autoload
(defsubst brace-sexp-afpt (&optional arg ispec)
"Braces sexp after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'sexp 'brace arg ispec))))
;;;###autoload
(defsubst bracket-sexp-afpt (&optional arg ispec)
"Brackets sexp after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'sexp 'bracket arg ispec))))
;;;###autoload
(defsubst kill-sexp-afpt ()
"Kills sexp after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-kill 'sexp))))
;;;###autoload
(defsubst forward-sexp-afpt (&optional arg ispec)
"Moves forward over sexp after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward " \t\n\r\f")
;; (forward-char 1)
(thatpt-forward 'sexp arg ispec)))
;;;###autoload
(defsubst paragraph-afpt (&optional arg ispec)
"Returns paragraph after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt 'paragraph arg ispec))))
;;;###autoload
(defsubst bounds-of-paragraph-afpt (&optional arg ispec)
"Returns border of paragraph after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-bounds 'paragraph arg ispec))))
;;;###autoload
(defsubst paragraph-afpt-beginning-position (&optional arg ispec)
"Returns beginning of paragraph after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-beginning 'paragraph arg ispec))))
;;;###autoload
(defsubst paragraph-afpt-end-position (&optional arg ispec)
"Returns end position of paragraph after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-end 'paragraph arg ispec))))
;;;###autoload
(defsubst copy-paragraph-afpt (&optional arg ispec)
"Returns a copy of paragraph after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-copy 'paragraph arg ispec))))
;;;###autoload
(defsubst separate-paragraph-afpt (&optional arg ispec)
"Returns a copy of paragraph after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-separate 'paragraph arg ispec))))
;;;###autoload
(defsubst comment-paragraph-afpt (&optional arg ispec)
"Returns a copy of paragraph after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-comment 'paragraph arg ispec))))
;;;###autoload
(defsubst doublequote-paragraph-afpt (&optional arg ispec)
"Doublequotes paragraph after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'paragraph 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-paragraph-afpt (&optional arg ispec)
"Singlequotes paragraph after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'paragraph 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-paragraph-afpt (&optional arg ispec)
"Parentizes paragraph after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'paragraph 'parentize arg ispec))))
;;;###autoload
(defsubst brace-paragraph-afpt (&optional arg ispec)
"Braces paragraph after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'paragraph 'brace arg ispec))))
;;;###autoload
(defsubst bracket-paragraph-afpt (&optional arg ispec)
"Brackets paragraph after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'paragraph 'bracket arg ispec))))
;;;###autoload
(defsubst kill-paragraph-afpt ()
"Kills paragraph after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-kill 'paragraph))))
;;;###autoload
(defsubst forward-paragraph-afpt (&optional arg ispec)
"Moves forward over paragraph after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward " \t\n\r\f")
;; (forward-char 1)
(thatpt-forward 'paragraph arg ispec)))
;;;###autoload
(defsubst string-afpt (&optional arg ispec)
"Returns string after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt 'string arg ispec))))
;;;###autoload
(defsubst bounds-of-string-afpt (&optional arg ispec)
"Returns border of string after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-bounds 'string arg ispec))))
;;;###autoload
(defsubst string-afpt-beginning-position (&optional arg ispec)
"Returns beginning of string after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-beginning 'string arg ispec))))
;;;###autoload
(defsubst string-afpt-end-position (&optional arg ispec)
"Returns end position of string after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-end 'string arg ispec))))
;;;###autoload
(defsubst copy-string-afpt (&optional arg ispec)
"Returns a copy of string after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-copy 'string arg ispec))))
;;;###autoload
(defsubst separate-string-afpt (&optional arg ispec)
"Returns a copy of string after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-separate 'string arg ispec))))
;;;###autoload
(defsubst comment-string-afpt (&optional arg ispec)
"Returns a copy of string after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-comment 'string arg ispec))))
;;;###autoload
(defsubst doublequote-string-afpt (&optional arg ispec)
"Doublequotes string after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'string 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-string-afpt (&optional arg ispec)
"Singlequotes string after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'string 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-string-afpt (&optional arg ispec)
"Parentizes string after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'string 'parentize arg ispec))))
;;;###autoload
(defsubst brace-string-afpt (&optional arg ispec)
"Braces string after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'string 'brace arg ispec))))
;;;###autoload
(defsubst bracket-string-afpt (&optional arg ispec)
"Brackets string after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'string 'bracket arg ispec))))
;;;###autoload
(defsubst kill-string-afpt ()
"Kills string after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-kill 'string))))
;;;###autoload
(defsubst forward-string-afpt (&optional arg ispec)
"Moves forward over string after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward " \t\n\r\f")
;; (forward-char 1)
(thatpt-forward 'string arg ispec)))
;;;###autoload
(defsubst line-afpt (&optional arg ispec)
"Returns line after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt 'line arg ispec))))
;;;###autoload
(defsubst bounds-of-line-afpt (&optional arg ispec)
"Returns border of line after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-bounds 'line arg ispec))))
;;;###autoload
(defsubst line-afpt-beginning-position (&optional arg ispec)
"Returns beginning of line after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-beginning 'line arg ispec))))
;;;###autoload
(defsubst line-afpt-end-position (&optional arg ispec)
"Returns end position of line after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-end 'line arg ispec))))
;;;###autoload
(defsubst copy-line-afpt (&optional arg ispec)
"Returns a copy of line after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-copy 'line arg ispec))))
;;;###autoload
(defsubst separate-line-afpt (&optional arg ispec)
"Returns a copy of line after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-separate 'line arg ispec))))
;;;###autoload
(defsubst comment-line-afpt (&optional arg ispec)
"Returns a copy of line after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-comment 'line arg ispec))))
;;;###autoload
(defsubst doublequote-line-afpt (&optional arg ispec)
"Doublequotes line after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'line 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-line-afpt (&optional arg ispec)
"Singlequotes line after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'line 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-line-afpt (&optional arg ispec)
"Parentizes line after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'line 'parentize arg ispec))))
;;;###autoload
(defsubst brace-line-afpt (&optional arg ispec)
"Braces line after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'line 'brace arg ispec))))
;;;###autoload
(defsubst bracket-line-afpt (&optional arg ispec)
"Brackets line after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'line 'bracket arg ispec))))
;;;###autoload
(defsubst kill-line-afpt ()
"Kills line after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-kill 'line))))
;;;###autoload
(defsubst forward-line-afpt (&optional arg ispec)
"Moves forward over line after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward " \t\n\r\f")
;; (forward-char 1)
(thatpt-forward 'line arg ispec)))
;;;###autoload
(defsubst sentence-afpt (&optional arg ispec)
"Returns sentence after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt 'sentence arg ispec))))
;;;###autoload
(defsubst bounds-of-sentence-afpt (&optional arg ispec)
"Returns border of sentence after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-bounds 'sentence arg ispec))))
;;;###autoload
(defsubst sentence-afpt-beginning-position (&optional arg ispec)
"Returns beginning of sentence after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-beginning 'sentence arg ispec))))
;;;###autoload
(defsubst sentence-afpt-end-position (&optional arg ispec)
"Returns end position of sentence after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-end 'sentence arg ispec))))
;;;###autoload
(defsubst copy-sentence-afpt (&optional arg ispec)
"Returns a copy of sentence after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-copy 'sentence arg ispec))))
;;;###autoload
(defsubst separate-sentence-afpt (&optional arg ispec)
"Returns a copy of sentence after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-separate 'sentence arg ispec))))
;;;###autoload
(defsubst comment-sentence-afpt (&optional arg ispec)
"Returns a copy of sentence after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-comment 'sentence arg ispec))))
;;;###autoload
(defsubst doublequote-sentence-afpt (&optional arg ispec)
"Doublequotes sentence after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'sentence 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-sentence-afpt (&optional arg ispec)
"Singlequotes sentence after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'sentence 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-sentence-afpt (&optional arg ispec)
"Parentizes sentence after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'sentence 'parentize arg ispec))))
;;;###autoload
(defsubst brace-sentence-afpt (&optional arg ispec)
"Braces sentence after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'sentence 'brace arg ispec))))
;;;###autoload
(defsubst bracket-sentence-afpt (&optional arg ispec)
"Brackets sentence after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'sentence 'bracket arg ispec))))
;;;###autoload
(defsubst kill-sentence-afpt ()
"Kills sentence after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-kill 'sentence))))
;;;###autoload
(defsubst forward-sentence-afpt (&optional arg ispec)
"Moves forward over sentence after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward " \t\n\r\f")
;; (forward-char 1)
(thatpt-forward 'sentence arg ispec)))
;;;###autoload
(defsubst defun-afpt (&optional arg ispec)
"Returns defun after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt 'defun arg ispec))))
;;;###autoload
(defsubst bounds-of-defun-afpt (&optional arg ispec)
"Returns border of defun after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-bounds 'defun arg ispec))))
;;;###autoload
(defsubst defun-afpt-beginning-position (&optional arg ispec)
"Returns beginning of defun after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-beginning 'defun arg ispec))))
;;;###autoload
(defsubst defun-afpt-end-position (&optional arg ispec)
"Returns end position of defun after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-end 'defun arg ispec))))
;;;###autoload
(defsubst copy-defun-afpt (&optional arg ispec)
"Returns a copy of defun after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-copy 'defun arg ispec))))
;;;###autoload
(defsubst separate-defun-afpt (&optional arg ispec)
"Returns a copy of defun after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-separate 'defun arg ispec))))
;;;###autoload
(defsubst comment-defun-afpt (&optional arg ispec)
"Returns a copy of defun after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-comment 'defun arg ispec))))
;;;###autoload
(defsubst doublequote-defun-afpt (&optional arg ispec)
"Doublequotes defun after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'defun 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-defun-afpt (&optional arg ispec)
"Singlequotes defun after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'defun 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-defun-afpt (&optional arg ispec)
"Parentizes defun after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'defun 'parentize arg ispec))))
;;;###autoload
(defsubst brace-defun-afpt (&optional arg ispec)
"Braces defun after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'defun 'brace arg ispec))))
;;;###autoload
(defsubst bracket-defun-afpt (&optional arg ispec)
"Brackets defun after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'defun 'bracket arg ispec))))
;;;###autoload
(defsubst kill-defun-afpt ()
"Kills defun after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-kill 'defun))))
;;;###autoload
(defsubst forward-defun-afpt (&optional arg ispec)
"Moves forward over defun after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward " \t\n\r\f")
;; (forward-char 1)
(thatpt-forward 'defun arg ispec)))
;;;###autoload
(defsubst email-afpt (&optional arg ispec)
"Returns email after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt 'email arg ispec))))
;;;###autoload
(defsubst bounds-of-email-afpt (&optional arg ispec)
"Returns border of email after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-bounds 'email arg ispec))))
;;;###autoload
(defsubst email-afpt-beginning-position (&optional arg ispec)
"Returns beginning of email after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-beginning 'email arg ispec))))
;;;###autoload
(defsubst email-afpt-end-position (&optional arg ispec)
"Returns end position of email after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-end 'email arg ispec))))
;;;###autoload
(defsubst copy-email-afpt (&optional arg ispec)
"Returns a copy of email after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-copy 'email arg ispec))))
;;;###autoload
(defsubst separate-email-afpt (&optional arg ispec)
"Returns a copy of email after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-separate 'email arg ispec))))
;;;###autoload
(defsubst comment-email-afpt (&optional arg ispec)
"Returns a copy of email after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-comment 'email arg ispec))))
;;;###autoload
(defsubst doublequote-email-afpt (&optional arg ispec)
"Doublequotes email after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'email 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-email-afpt (&optional arg ispec)
"Singlequotes email after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'email 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-email-afpt (&optional arg ispec)
"Parentizes email after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'email 'parentize arg ispec))))
;;;###autoload
(defsubst brace-email-afpt (&optional arg ispec)
"Braces email after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'email 'brace arg ispec))))
;;;###autoload
(defsubst bracket-email-afpt (&optional arg ispec)
"Brackets email after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'email 'bracket arg ispec))))
;;;###autoload
(defsubst kill-email-afpt ()
"Kills email after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-kill 'email))))
;;;###autoload
(defsubst forward-email-afpt (&optional arg ispec)
"Moves forward over email after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward " \t\n\r\f")
;; (forward-char 1)
(thatpt-forward 'email arg ispec)))
;;;###autoload
(defsubst csv-afpt (&optional arg ispec)
"Returns csv after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt 'csv arg ispec))))
;;;###autoload
(defsubst bounds-of-csv-afpt (&optional arg ispec)
"Returns border of csv after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-bounds 'csv arg ispec))))
;;;###autoload
(defsubst csv-afpt-beginning-position (&optional arg ispec)
"Returns beginning of csv after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-beginning 'csv arg ispec))))
;;;###autoload
(defsubst csv-afpt-end-position (&optional arg ispec)
"Returns end position of csv after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-end 'csv arg ispec))))
;;;###autoload
(defsubst copy-csv-afpt (&optional arg ispec)
"Returns a copy of csv after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-copy 'csv arg ispec))))
;;;###autoload
(defsubst separate-csv-afpt (&optional arg ispec)
"Returns a copy of csv after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-separate 'csv arg ispec))))
;;;###autoload
(defsubst comment-csv-afpt (&optional arg ispec)
"Returns a copy of csv after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-comment 'csv arg ispec))))
;;;###autoload
(defsubst doublequote-csv-afpt (&optional arg ispec)
"Doublequotes csv after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'csv 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-csv-afpt (&optional arg ispec)
"Singlequotes csv after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'csv 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-csv-afpt (&optional arg ispec)
"Parentizes csv after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'csv 'parentize arg ispec))))
;;;###autoload
(defsubst brace-csv-afpt (&optional arg ispec)
"Braces csv after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'csv 'brace arg ispec))))
;;;###autoload
(defsubst bracket-csv-afpt (&optional arg ispec)
"Brackets csv after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'csv 'bracket arg ispec))))
;;;###autoload
(defsubst kill-csv-afpt ()
"Kills csv after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-kill 'csv))))
;;;###autoload
(defsubst forward-csv-afpt (&optional arg ispec)
"Moves forward over csv after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward " \t\n\r\f")
;; (forward-char 1)
(thatpt-forward 'csv arg ispec)))
;;;###autoload
(defsubst phone-afpt (&optional arg ispec)
"Returns phone after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt 'phone arg ispec))))
;;;###autoload
(defsubst bounds-of-phone-afpt (&optional arg ispec)
"Returns border of phone after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-bounds 'phone arg ispec))))
;;;###autoload
(defsubst phone-afpt-beginning-position (&optional arg ispec)
"Returns beginning of phone after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-beginning 'phone arg ispec))))
;;;###autoload
(defsubst phone-afpt-end-position (&optional arg ispec)
"Returns end position of phone after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-end 'phone arg ispec))))
;;;###autoload
(defsubst copy-phone-afpt (&optional arg ispec)
"Returns a copy of phone after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-copy 'phone arg ispec))))
;;;###autoload
(defsubst separate-phone-afpt (&optional arg ispec)
"Returns a copy of phone after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-separate 'phone arg ispec))))
;;;###autoload
(defsubst comment-phone-afpt (&optional arg ispec)
"Returns a copy of phone after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-comment 'phone arg ispec))))
;;;###autoload
(defsubst doublequote-phone-afpt (&optional arg ispec)
"Doublequotes phone after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'phone 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-phone-afpt (&optional arg ispec)
"Singlequotes phone after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'phone 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-phone-afpt (&optional arg ispec)
"Parentizes phone after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'phone 'parentize arg ispec))))
;;;###autoload
(defsubst brace-phone-afpt (&optional arg ispec)
"Braces phone after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'phone 'brace arg ispec))))
;;;###autoload
(defsubst bracket-phone-afpt (&optional arg ispec)
"Brackets phone after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'phone 'bracket arg ispec))))
;;;###autoload
(defsubst kill-phone-afpt ()
"Kills phone after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-kill 'phone))))
;;;###autoload
(defsubst forward-phone-afpt (&optional arg ispec)
"Moves forward over phone after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward " \t\n\r\f")
;; (forward-char 1)
(thatpt-forward 'phone arg ispec)))
;;;###autoload
(defsubst ml-text-afpt (&optional arg ispec)
"Returns ml-text after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt 'ml-text arg ispec))))
;;;###autoload
(defsubst bounds-of-ml-text-afpt (&optional arg ispec)
"Returns border of ml-text after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-bounds 'ml-text arg ispec))))
;;;###autoload
(defsubst ml-text-afpt-beginning-position (&optional arg ispec)
"Returns beginning of ml-text after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-beginning 'ml-text arg ispec))))
;;;###autoload
(defsubst ml-text-afpt-end-position (&optional arg ispec)
"Returns end position of ml-text after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-end 'ml-text arg ispec))))
;;;###autoload
(defsubst copy-ml-text-afpt (&optional arg ispec)
"Returns a copy of ml-text after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-copy 'ml-text arg ispec))))
;;;###autoload
(defsubst separate-ml-text-afpt (&optional arg ispec)
"Returns a copy of ml-text after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-separate 'ml-text arg ispec))))
;;;###autoload
(defsubst comment-ml-text-afpt (&optional arg ispec)
"Returns a copy of ml-text after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-comment 'ml-text arg ispec))))
;;;###autoload
(defsubst doublequote-ml-text-afpt (&optional arg ispec)
"Doublequotes ml-text after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'ml-text 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-ml-text-afpt (&optional arg ispec)
"Singlequotes ml-text after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'ml-text 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-ml-text-afpt (&optional arg ispec)
"Parentizes ml-text after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'ml-text 'parentize arg ispec))))
;;;###autoload
(defsubst brace-ml-text-afpt (&optional arg ispec)
"Braces ml-text after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'ml-text 'brace arg ispec))))
;;;###autoload
(defsubst bracket-ml-text-afpt (&optional arg ispec)
"Brackets ml-text after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'ml-text 'bracket arg ispec))))
;;;###autoload
(defsubst kill-ml-text-afpt ()
"Kills ml-text after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-kill 'ml-text))))
;;;###autoload
(defsubst forward-ml-text-afpt (&optional arg ispec)
"Moves forward over ml-text after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward " \t\n\r\f")
;; (forward-char 1)
(thatpt-forward 'ml-text arg ispec)))
;;;###autoload
(defsubst filename-afpt (&optional arg ispec)
"Returns filename after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt 'filename arg ispec))))
;;;###autoload
(defsubst bounds-of-filename-afpt (&optional arg ispec)
"Returns border of filename after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-bounds 'filename arg ispec))))
;;;###autoload
(defsubst filename-afpt-beginning-position (&optional arg ispec)
"Returns beginning of filename after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-beginning 'filename arg ispec))))
;;;###autoload
(defsubst filename-afpt-end-position (&optional arg ispec)
"Returns end position of filename after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-end 'filename arg ispec))))
;;;###autoload
(defsubst copy-filename-afpt (&optional arg ispec)
"Returns a copy of filename after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-copy 'filename arg ispec))))
;;;###autoload
(defsubst separate-filename-afpt (&optional arg ispec)
"Returns a copy of filename after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-separate 'filename arg ispec))))
;;;###autoload
(defsubst comment-filename-afpt (&optional arg ispec)
"Returns a copy of filename after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-comment 'filename arg ispec))))
;;;###autoload
(defsubst doublequote-filename-afpt (&optional arg ispec)
"Doublequotes filename after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'filename 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-filename-afpt (&optional arg ispec)
"Singlequotes filename after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'filename 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-filename-afpt (&optional arg ispec)
"Parentizes filename after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'filename 'parentize arg ispec))))
;;;###autoload
(defsubst brace-filename-afpt (&optional arg ispec)
"Braces filename after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'filename 'brace arg ispec))))
;;;###autoload
(defsubst bracket-filename-afpt (&optional arg ispec)
"Brackets filename after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'filename 'bracket arg ispec))))
;;;###autoload
(defsubst kill-filename-afpt ()
"Kills filename after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-kill 'filename))))
;;;###autoload
(defsubst forward-filename-afpt (&optional arg ispec)
"Moves forward over filename after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward " \t\n\r\f")
;; (forward-char 1)
(thatpt-forward 'filename arg ispec)))
;;;###autoload
(defsubst url-afpt (&optional arg ispec)
"Returns url after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt 'url arg ispec))))
;;;###autoload
(defsubst bounds-of-url-afpt (&optional arg ispec)
"Returns border of url after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-bounds 'url arg ispec))))
;;;###autoload
(defsubst url-afpt-beginning-position (&optional arg ispec)
"Returns beginning of url after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-beginning 'url arg ispec))))
;;;###autoload
(defsubst url-afpt-end-position (&optional arg ispec)
"Returns end position of url after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-end 'url arg ispec))))
;;;###autoload
(defsubst copy-url-afpt (&optional arg ispec)
"Returns a copy of url after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-copy 'url arg ispec))))
;;;###autoload
(defsubst separate-url-afpt (&optional arg ispec)
"Returns a copy of url after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-separate 'url arg ispec))))
;;;###autoload
(defsubst comment-url-afpt (&optional arg ispec)
"Returns a copy of url after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-comment 'url arg ispec))))
;;;###autoload
(defsubst doublequote-url-afpt (&optional arg ispec)
"Doublequotes url after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'url 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-url-afpt (&optional arg ispec)
"Singlequotes url after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'url 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-url-afpt (&optional arg ispec)
"Parentizes url after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'url 'parentize arg ispec))))
;;;###autoload
(defsubst brace-url-afpt (&optional arg ispec)
"Braces url after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'url 'brace arg ispec))))
;;;###autoload
(defsubst bracket-url-afpt (&optional arg ispec)
"Brackets url after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'url 'bracket arg ispec))))
;;;###autoload
(defsubst kill-url-afpt ()
"Kills url after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-kill 'url))))
;;;###autoload
(defsubst forward-url-afpt (&optional arg ispec)
"Moves forward over url after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward " \t\n\r\f")
;; (forward-char 1)
(thatpt-forward 'url arg ispec)))
;;;###autoload
(defsubst number-afpt (&optional arg ispec)
"Returns number after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt 'number arg ispec))))
;;;###autoload
(defsubst bounds-of-number-afpt (&optional arg ispec)
"Returns border of number after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-bounds 'number arg ispec))))
;;;###autoload
(defsubst number-afpt-beginning-position (&optional arg ispec)
"Returns beginning of number after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-beginning 'number arg ispec))))
;;;###autoload
(defsubst number-afpt-end-position (&optional arg ispec)
"Returns end position of number after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-end 'number arg ispec))))
;;;###autoload
(defsubst copy-number-afpt (&optional arg ispec)
"Returns a copy of number after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-copy 'number arg ispec))))
;;;###autoload
(defsubst separate-number-afpt (&optional arg ispec)
"Returns a copy of number after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-separate 'number arg ispec))))
;;;###autoload
(defsubst comment-number-afpt (&optional arg ispec)
"Returns a copy of number after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-comment 'number arg ispec))))
;;;###autoload
(defsubst doublequote-number-afpt (&optional arg ispec)
"Doublequotes number after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'number 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-number-afpt (&optional arg ispec)
"Singlequotes number after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'number 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-number-afpt (&optional arg ispec)
"Parentizes number after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'number 'parentize arg ispec))))
;;;###autoload
(defsubst brace-number-afpt (&optional arg ispec)
"Braces number after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'number 'brace arg ispec))))
;;;###autoload
(defsubst bracket-number-afpt (&optional arg ispec)
"Brackets number after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'number 'bracket arg ispec))))
;;;###autoload
(defsubst kill-number-afpt ()
"Kills number after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-kill 'number))))
;;;###autoload
(defsubst forward-number-afpt (&optional arg ispec)
"Moves forward over number after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward " \t\n\r\f")
;; (forward-char 1)
(thatpt-forward 'number arg ispec)))
;;;###autoload
(defsubst float-afpt (&optional arg ispec)
"Returns float after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt 'float arg ispec))))
;;;###autoload
(defsubst bounds-of-float-afpt (&optional arg ispec)
"Returns border of float after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-bounds 'float arg ispec))))
;;;###autoload
(defsubst float-afpt-beginning-position (&optional arg ispec)
"Returns beginning of float after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-beginning 'float arg ispec))))
;;;###autoload
(defsubst float-afpt-end-position (&optional arg ispec)
"Returns end position of float after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-end 'float arg ispec))))
;;;###autoload
(defsubst copy-float-afpt (&optional arg ispec)
"Returns a copy of float after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-copy 'float arg ispec))))
;;;###autoload
(defsubst separate-float-afpt (&optional arg ispec)
"Returns a copy of float after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-separate 'float arg ispec))))
;;;###autoload
(defsubst comment-float-afpt (&optional arg ispec)
"Returns a copy of float after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-comment 'float arg ispec))))
;;;###autoload
(defsubst doublequote-float-afpt (&optional arg ispec)
"Doublequotes float after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'float 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-float-afpt (&optional arg ispec)
"Singlequotes float after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'float 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-float-afpt (&optional arg ispec)
"Parentizes float after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'float 'parentize arg ispec))))
;;;###autoload
(defsubst brace-float-afpt (&optional arg ispec)
"Braces float after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'float 'brace arg ispec))))
;;;###autoload
(defsubst bracket-float-afpt (&optional arg ispec)
"Brackets float after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'float 'bracket arg ispec))))
;;;###autoload
(defsubst kill-float-afpt ()
"Kills float after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-kill 'float))))
;;;###autoload
(defsubst forward-float-afpt (&optional arg ispec)
"Moves forward over float after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward " \t\n\r\f")
;; (forward-char 1)
(thatpt-forward 'float arg ispec)))
;;;###autoload
(defsubst page-afpt (&optional arg ispec)
"Returns page after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt 'page arg ispec))))
;;;###autoload
(defsubst bounds-of-page-afpt (&optional arg ispec)
"Returns border of page after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-bounds 'page arg ispec))))
;;;###autoload
(defsubst page-afpt-beginning-position (&optional arg ispec)
"Returns beginning of page after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-beginning 'page arg ispec))))
;;;###autoload
(defsubst page-afpt-end-position (&optional arg ispec)
"Returns end position of page after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-end 'page arg ispec))))
;;;###autoload
(defsubst copy-page-afpt (&optional arg ispec)
"Returns a copy of page after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-copy 'page arg ispec))))
;;;###autoload
(defsubst separate-page-afpt (&optional arg ispec)
"Returns a copy of page after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-separate 'page arg ispec))))
;;;###autoload
(defsubst comment-page-afpt (&optional arg ispec)
"Returns a copy of page after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-comment 'page arg ispec))))
;;;###autoload
(defsubst doublequote-page-afpt (&optional arg ispec)
"Doublequotes page after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'page 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-page-afpt (&optional arg ispec)
"Singlequotes page after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'page 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-page-afpt (&optional arg ispec)
"Parentizes page after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'page 'parentize arg ispec))))
;;;###autoload
(defsubst brace-page-afpt (&optional arg ispec)
"Braces page after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'page 'brace arg ispec))))
;;;###autoload
(defsubst bracket-page-afpt (&optional arg ispec)
"Brackets page after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'page 'bracket arg ispec))))
;;;###autoload
(defsubst kill-page-afpt ()
"Kills page after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-kill 'page))))
;;;###autoload
(defsubst forward-page-afpt (&optional arg ispec)
"Moves forward over page after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward " \t\n\r\f")
;; (forward-char 1)
(thatpt-forward 'page arg ispec)))
;;;###autoload
(defsubst whitespace-afpt (&optional arg ispec)
"Returns whitespace after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt 'whitespace arg ispec))))
;;;###autoload
(defsubst bounds-of-whitespace-afpt (&optional arg ispec)
"Returns border of whitespace after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-bounds 'whitespace arg ispec))))
;;;###autoload
(defsubst whitespace-afpt-beginning-position (&optional arg ispec)
"Returns beginning of whitespace after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-beginning 'whitespace arg ispec))))
;;;###autoload
(defsubst whitespace-afpt-end-position (&optional arg ispec)
"Returns end position of whitespace after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-end 'whitespace arg ispec))))
;;;###autoload
(defsubst copy-whitespace-afpt (&optional arg ispec)
"Returns a copy of whitespace after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-copy 'whitespace arg ispec))))
;;;###autoload
(defsubst separate-whitespace-afpt (&optional arg ispec)
"Returns a copy of whitespace after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-separate 'whitespace arg ispec))))
;;;###autoload
(defsubst comment-whitespace-afpt (&optional arg ispec)
"Returns a copy of whitespace after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-comment 'whitespace arg ispec))))
;;;###autoload
(defsubst doublequote-whitespace-afpt (&optional arg ispec)
"Doublequotes whitespace after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'whitespace 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-whitespace-afpt (&optional arg ispec)
"Singlequotes whitespace after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'whitespace 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-whitespace-afpt (&optional arg ispec)
"Parentizes whitespace after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'whitespace 'parentize arg ispec))))
;;;###autoload
(defsubst brace-whitespace-afpt (&optional arg ispec)
"Braces whitespace after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'whitespace 'brace arg ispec))))
;;;###autoload
(defsubst bracket-whitespace-afpt (&optional arg ispec)
"Brackets whitespace after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward " \t\n\r\f")
(unless (eobp)
(thatpt-delim 'whitespace 'bracket arg ispec))))
;;;###autoload
(defsubst kill-whitespace-afpt ()
"Kills whitespace after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward " \t\n\r\f")
(thatpt-kill 'whitespace))))
;;;###autoload
(defsubst forward-whitespace-afpt (&optional arg ispec)
"Moves forward over whitespace after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward " \t\n\r\f")
;; (forward-char 1)
(thatpt-forward 'whitespace arg ispec)))
;;;###autoload
(defsubst alnum-afpt (&optional arg ispec)
"Returns alnum after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:alnum:]")
(thatpt 'alnum arg ispec))))
;;;###autoload
(defsubst bounds-of-alnum-afpt (&optional arg ispec)
"Returns border of alnum after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:alnum:]")
(thatpt-bounds 'alnum arg ispec))))
;;;###autoload
(defsubst alnum-afpt-beginning-position (&optional arg ispec)
"Returns beginning of alnum after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:alnum:]")
(thatpt-beginning 'alnum arg ispec))))
;;;###autoload
(defsubst alnum-afpt-end-position (&optional arg ispec)
"Returns end position of alnum after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:alnum:]")
(thatpt-end 'alnum arg ispec))))
;;;###autoload
(defsubst copy-alnum-afpt (&optional arg ispec)
"Returns a copy of alnum after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:alnum:]")
(thatpt-copy 'alnum arg ispec))))
;;;###autoload
(defsubst separate-alnum-afpt (&optional arg ispec)
"Returns a copy of alnum after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:alnum:]")
(thatpt-separate 'alnum arg ispec))))
;;;###autoload
(defsubst comment-alnum-afpt (&optional arg ispec)
"Returns a copy of alnum after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:alnum:]")
(thatpt-comment 'alnum arg ispec))))
;;;###autoload
(defsubst doublequote-alnum-afpt (&optional arg ispec)
"Doublequotes alnum after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:alnum:]")
(unless (eobp)
(thatpt-delim 'alnum 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-alnum-afpt (&optional arg ispec)
"Singlequotes alnum after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:alnum:]")
(unless (eobp)
(thatpt-delim 'alnum 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-alnum-afpt (&optional arg ispec)
"Parentizes alnum after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:alnum:]")
(unless (eobp)
(thatpt-delim 'alnum 'parentize arg ispec))))
;;;###autoload
(defsubst brace-alnum-afpt (&optional arg ispec)
"Braces alnum after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:alnum:]")
(unless (eobp)
(thatpt-delim 'alnum 'brace arg ispec))))
;;;###autoload
(defsubst bracket-alnum-afpt (&optional arg ispec)
"Brackets alnum after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:alnum:]")
(unless (eobp)
(thatpt-delim 'alnum 'bracket arg ispec))))
;;;###autoload
(defsubst kill-alnum-afpt ()
"Kills alnum after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:alnum:]")
(thatpt-kill 'alnum))))
;;;###autoload
(defsubst forward-alnum-afpt (&optional arg ispec)
"Moves forward over alnum after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward "^[:alnum:]")
;; (forward-char 1)
(thatpt-forward 'alnum arg ispec)))
;;;###autoload
(defsubst alpha-afpt (&optional arg ispec)
"Returns alpha after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:alpha:]")
(thatpt 'alpha arg ispec))))
;;;###autoload
(defsubst bounds-of-alpha-afpt (&optional arg ispec)
"Returns border of alpha after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:alpha:]")
(thatpt-bounds 'alpha arg ispec))))
;;;###autoload
(defsubst alpha-afpt-beginning-position (&optional arg ispec)
"Returns beginning of alpha after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:alpha:]")
(thatpt-beginning 'alpha arg ispec))))
;;;###autoload
(defsubst alpha-afpt-end-position (&optional arg ispec)
"Returns end position of alpha after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:alpha:]")
(thatpt-end 'alpha arg ispec))))
;;;###autoload
(defsubst copy-alpha-afpt (&optional arg ispec)
"Returns a copy of alpha after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:alpha:]")
(thatpt-copy 'alpha arg ispec))))
;;;###autoload
(defsubst separate-alpha-afpt (&optional arg ispec)
"Returns a copy of alpha after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:alpha:]")
(thatpt-separate 'alpha arg ispec))))
;;;###autoload
(defsubst comment-alpha-afpt (&optional arg ispec)
"Returns a copy of alpha after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:alpha:]")
(thatpt-comment 'alpha arg ispec))))
;;;###autoload
(defsubst doublequote-alpha-afpt (&optional arg ispec)
"Doublequotes alpha after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:alpha:]")
(unless (eobp)
(thatpt-delim 'alpha 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-alpha-afpt (&optional arg ispec)
"Singlequotes alpha after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:alpha:]")
(unless (eobp)
(thatpt-delim 'alpha 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-alpha-afpt (&optional arg ispec)
"Parentizes alpha after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:alpha:]")
(unless (eobp)
(thatpt-delim 'alpha 'parentize arg ispec))))
;;;###autoload
(defsubst brace-alpha-afpt (&optional arg ispec)
"Braces alpha after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:alpha:]")
(unless (eobp)
(thatpt-delim 'alpha 'brace arg ispec))))
;;;###autoload
(defsubst bracket-alpha-afpt (&optional arg ispec)
"Brackets alpha after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:alpha:]")
(unless (eobp)
(thatpt-delim 'alpha 'bracket arg ispec))))
;;;###autoload
(defsubst kill-alpha-afpt ()
"Kills alpha after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:alpha:]")
(thatpt-kill 'alpha))))
;;;###autoload
(defsubst forward-alpha-afpt (&optional arg ispec)
"Moves forward over alpha after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward "^[:alpha:]")
;; (forward-char 1)
(thatpt-forward 'alpha arg ispec)))
;;;###autoload
(defsubst ascii-afpt (&optional arg ispec)
"Returns ascii after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:ascii:]")
(thatpt 'ascii arg ispec))))
;;;###autoload
(defsubst bounds-of-ascii-afpt (&optional arg ispec)
"Returns border of ascii after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:ascii:]")
(thatpt-bounds 'ascii arg ispec))))
;;;###autoload
(defsubst ascii-afpt-beginning-position (&optional arg ispec)
"Returns beginning of ascii after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:ascii:]")
(thatpt-beginning 'ascii arg ispec))))
;;;###autoload
(defsubst ascii-afpt-end-position (&optional arg ispec)
"Returns end position of ascii after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:ascii:]")
(thatpt-end 'ascii arg ispec))))
;;;###autoload
(defsubst copy-ascii-afpt (&optional arg ispec)
"Returns a copy of ascii after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:ascii:]")
(thatpt-copy 'ascii arg ispec))))
;;;###autoload
(defsubst separate-ascii-afpt (&optional arg ispec)
"Returns a copy of ascii after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:ascii:]")
(thatpt-separate 'ascii arg ispec))))
;;;###autoload
(defsubst comment-ascii-afpt (&optional arg ispec)
"Returns a copy of ascii after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:ascii:]")
(thatpt-comment 'ascii arg ispec))))
;;;###autoload
(defsubst doublequote-ascii-afpt (&optional arg ispec)
"Doublequotes ascii after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:ascii:]")
(unless (eobp)
(thatpt-delim 'ascii 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-ascii-afpt (&optional arg ispec)
"Singlequotes ascii after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:ascii:]")
(unless (eobp)
(thatpt-delim 'ascii 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-ascii-afpt (&optional arg ispec)
"Parentizes ascii after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:ascii:]")
(unless (eobp)
(thatpt-delim 'ascii 'parentize arg ispec))))
;;;###autoload
(defsubst brace-ascii-afpt (&optional arg ispec)
"Braces ascii after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:ascii:]")
(unless (eobp)
(thatpt-delim 'ascii 'brace arg ispec))))
;;;###autoload
(defsubst bracket-ascii-afpt (&optional arg ispec)
"Brackets ascii after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:ascii:]")
(unless (eobp)
(thatpt-delim 'ascii 'bracket arg ispec))))
;;;###autoload
(defsubst kill-ascii-afpt ()
"Kills ascii after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:ascii:]")
(thatpt-kill 'ascii))))
;;;###autoload
(defsubst forward-ascii-afpt (&optional arg ispec)
"Moves forward over ascii after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward "^[:ascii:]")
;; (forward-char 1)
(thatpt-forward 'ascii arg ispec)))
;;;###autoload
(defsubst blank-afpt (&optional arg ispec)
"Returns blank after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:blank:]")
(thatpt 'blank arg ispec))))
;;;###autoload
(defsubst bounds-of-blank-afpt (&optional arg ispec)
"Returns border of blank after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:blank:]")
(thatpt-bounds 'blank arg ispec))))
;;;###autoload
(defsubst blank-afpt-beginning-position (&optional arg ispec)
"Returns beginning of blank after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:blank:]")
(thatpt-beginning 'blank arg ispec))))
;;;###autoload
(defsubst blank-afpt-end-position (&optional arg ispec)
"Returns end position of blank after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:blank:]")
(thatpt-end 'blank arg ispec))))
;;;###autoload
(defsubst copy-blank-afpt (&optional arg ispec)
"Returns a copy of blank after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:blank:]")
(thatpt-copy 'blank arg ispec))))
;;;###autoload
(defsubst separate-blank-afpt (&optional arg ispec)
"Returns a copy of blank after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:blank:]")
(thatpt-separate 'blank arg ispec))))
;;;###autoload
(defsubst comment-blank-afpt (&optional arg ispec)
"Returns a copy of blank after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:blank:]")
(thatpt-comment 'blank arg ispec))))
;;;###autoload
(defsubst doublequote-blank-afpt (&optional arg ispec)
"Doublequotes blank after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:blank:]")
(unless (eobp)
(thatpt-delim 'blank 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-blank-afpt (&optional arg ispec)
"Singlequotes blank after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:blank:]")
(unless (eobp)
(thatpt-delim 'blank 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-blank-afpt (&optional arg ispec)
"Parentizes blank after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:blank:]")
(unless (eobp)
(thatpt-delim 'blank 'parentize arg ispec))))
;;;###autoload
(defsubst brace-blank-afpt (&optional arg ispec)
"Braces blank after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:blank:]")
(unless (eobp)
(thatpt-delim 'blank 'brace arg ispec))))
;;;###autoload
(defsubst bracket-blank-afpt (&optional arg ispec)
"Brackets blank after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:blank:]")
(unless (eobp)
(thatpt-delim 'blank 'bracket arg ispec))))
;;;###autoload
(defsubst kill-blank-afpt ()
"Kills blank after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:blank:]")
(thatpt-kill 'blank))))
;;;###autoload
(defsubst forward-blank-afpt (&optional arg ispec)
"Moves forward over blank after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward "^[:blank:]")
;; (forward-char 1)
(thatpt-forward 'blank arg ispec)))
;;;###autoload
(defsubst cntrl-afpt (&optional arg ispec)
"Returns cntrl after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:cntrl:]")
(thatpt 'cntrl arg ispec))))
;;;###autoload
(defsubst bounds-of-cntrl-afpt (&optional arg ispec)
"Returns border of cntrl after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:cntrl:]")
(thatpt-bounds 'cntrl arg ispec))))
;;;###autoload
(defsubst cntrl-afpt-beginning-position (&optional arg ispec)
"Returns beginning of cntrl after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:cntrl:]")
(thatpt-beginning 'cntrl arg ispec))))
;;;###autoload
(defsubst cntrl-afpt-end-position (&optional arg ispec)
"Returns end position of cntrl after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:cntrl:]")
(thatpt-end 'cntrl arg ispec))))
;;;###autoload
(defsubst copy-cntrl-afpt (&optional arg ispec)
"Returns a copy of cntrl after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:cntrl:]")
(thatpt-copy 'cntrl arg ispec))))
;;;###autoload
(defsubst separate-cntrl-afpt (&optional arg ispec)
"Returns a copy of cntrl after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:cntrl:]")
(thatpt-separate 'cntrl arg ispec))))
;;;###autoload
(defsubst comment-cntrl-afpt (&optional arg ispec)
"Returns a copy of cntrl after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:cntrl:]")
(thatpt-comment 'cntrl arg ispec))))
;;;###autoload
(defsubst doublequote-cntrl-afpt (&optional arg ispec)
"Doublequotes cntrl after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:cntrl:]")
(unless (eobp)
(thatpt-delim 'cntrl 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-cntrl-afpt (&optional arg ispec)
"Singlequotes cntrl after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:cntrl:]")
(unless (eobp)
(thatpt-delim 'cntrl 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-cntrl-afpt (&optional arg ispec)
"Parentizes cntrl after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:cntrl:]")
(unless (eobp)
(thatpt-delim 'cntrl 'parentize arg ispec))))
;;;###autoload
(defsubst brace-cntrl-afpt (&optional arg ispec)
"Braces cntrl after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:cntrl:]")
(unless (eobp)
(thatpt-delim 'cntrl 'brace arg ispec))))
;;;###autoload
(defsubst bracket-cntrl-afpt (&optional arg ispec)
"Brackets cntrl after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:cntrl:]")
(unless (eobp)
(thatpt-delim 'cntrl 'bracket arg ispec))))
;;;###autoload
(defsubst kill-cntrl-afpt ()
"Kills cntrl after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:cntrl:]")
(thatpt-kill 'cntrl))))
;;;###autoload
(defsubst forward-cntrl-afpt (&optional arg ispec)
"Moves forward over cntrl after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward "^[:cntrl:]")
;; (forward-char 1)
(thatpt-forward 'cntrl arg ispec)))
;;;###autoload
(defsubst digit-afpt (&optional arg ispec)
"Returns digit after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:digit:]")
(thatpt 'digit arg ispec))))
;;;###autoload
(defsubst bounds-of-digit-afpt (&optional arg ispec)
"Returns border of digit after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:digit:]")
(thatpt-bounds 'digit arg ispec))))
;;;###autoload
(defsubst digit-afpt-beginning-position (&optional arg ispec)
"Returns beginning of digit after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:digit:]")
(thatpt-beginning 'digit arg ispec))))
;;;###autoload
(defsubst digit-afpt-end-position (&optional arg ispec)
"Returns end position of digit after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:digit:]")
(thatpt-end 'digit arg ispec))))
;;;###autoload
(defsubst copy-digit-afpt (&optional arg ispec)
"Returns a copy of digit after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:digit:]")
(thatpt-copy 'digit arg ispec))))
;;;###autoload
(defsubst separate-digit-afpt (&optional arg ispec)
"Returns a copy of digit after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:digit:]")
(thatpt-separate 'digit arg ispec))))
;;;###autoload
(defsubst comment-digit-afpt (&optional arg ispec)
"Returns a copy of digit after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:digit:]")
(thatpt-comment 'digit arg ispec))))
;;;###autoload
(defsubst doublequote-digit-afpt (&optional arg ispec)
"Doublequotes digit after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:digit:]")
(unless (eobp)
(thatpt-delim 'digit 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-digit-afpt (&optional arg ispec)
"Singlequotes digit after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:digit:]")
(unless (eobp)
(thatpt-delim 'digit 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-digit-afpt (&optional arg ispec)
"Parentizes digit after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:digit:]")
(unless (eobp)
(thatpt-delim 'digit 'parentize arg ispec))))
;;;###autoload
(defsubst brace-digit-afpt (&optional arg ispec)
"Braces digit after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:digit:]")
(unless (eobp)
(thatpt-delim 'digit 'brace arg ispec))))
;;;###autoload
(defsubst bracket-digit-afpt (&optional arg ispec)
"Brackets digit after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:digit:]")
(unless (eobp)
(thatpt-delim 'digit 'bracket arg ispec))))
;;;###autoload
(defsubst kill-digit-afpt ()
"Kills digit after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:digit:]")
(thatpt-kill 'digit))))
;;;###autoload
(defsubst forward-digit-afpt (&optional arg ispec)
"Moves forward over digit after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward "^[:digit:]")
;; (forward-char 1)
(thatpt-forward 'digit arg ispec)))
;;;###autoload
(defsubst graph-afpt (&optional arg ispec)
"Returns graph after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:graph:]")
(thatpt 'graph arg ispec))))
;;;###autoload
(defsubst bounds-of-graph-afpt (&optional arg ispec)
"Returns border of graph after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:graph:]")
(thatpt-bounds 'graph arg ispec))))
;;;###autoload
(defsubst graph-afpt-beginning-position (&optional arg ispec)
"Returns beginning of graph after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:graph:]")
(thatpt-beginning 'graph arg ispec))))
;;;###autoload
(defsubst graph-afpt-end-position (&optional arg ispec)
"Returns end position of graph after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:graph:]")
(thatpt-end 'graph arg ispec))))
;;;###autoload
(defsubst copy-graph-afpt (&optional arg ispec)
"Returns a copy of graph after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:graph:]")
(thatpt-copy 'graph arg ispec))))
;;;###autoload
(defsubst separate-graph-afpt (&optional arg ispec)
"Returns a copy of graph after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:graph:]")
(thatpt-separate 'graph arg ispec))))
;;;###autoload
(defsubst comment-graph-afpt (&optional arg ispec)
"Returns a copy of graph after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:graph:]")
(thatpt-comment 'graph arg ispec))))
;;;###autoload
(defsubst doublequote-graph-afpt (&optional arg ispec)
"Doublequotes graph after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:graph:]")
(unless (eobp)
(thatpt-delim 'graph 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-graph-afpt (&optional arg ispec)
"Singlequotes graph after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:graph:]")
(unless (eobp)
(thatpt-delim 'graph 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-graph-afpt (&optional arg ispec)
"Parentizes graph after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:graph:]")
(unless (eobp)
(thatpt-delim 'graph 'parentize arg ispec))))
;;;###autoload
(defsubst brace-graph-afpt (&optional arg ispec)
"Braces graph after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:graph:]")
(unless (eobp)
(thatpt-delim 'graph 'brace arg ispec))))
;;;###autoload
(defsubst bracket-graph-afpt (&optional arg ispec)
"Brackets graph after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:graph:]")
(unless (eobp)
(thatpt-delim 'graph 'bracket arg ispec))))
;;;###autoload
(defsubst kill-graph-afpt ()
"Kills graph after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:graph:]")
(thatpt-kill 'graph))))
;;;###autoload
(defsubst forward-graph-afpt (&optional arg ispec)
"Moves forward over graph after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward "^[:graph:]")
;; (forward-char 1)
(thatpt-forward 'graph arg ispec)))
;;;###autoload
(defsubst lower-afpt (&optional arg ispec)
"Returns lower after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:lower:]")
(thatpt 'lower arg ispec))))
;;;###autoload
(defsubst bounds-of-lower-afpt (&optional arg ispec)
"Returns border of lower after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:lower:]")
(thatpt-bounds 'lower arg ispec))))
;;;###autoload
(defsubst lower-afpt-beginning-position (&optional arg ispec)
"Returns beginning of lower after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:lower:]")
(thatpt-beginning 'lower arg ispec))))
;;;###autoload
(defsubst lower-afpt-end-position (&optional arg ispec)
"Returns end position of lower after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:lower:]")
(thatpt-end 'lower arg ispec))))
;;;###autoload
(defsubst copy-lower-afpt (&optional arg ispec)
"Returns a copy of lower after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:lower:]")
(thatpt-copy 'lower arg ispec))))
;;;###autoload
(defsubst separate-lower-afpt (&optional arg ispec)
"Returns a copy of lower after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:lower:]")
(thatpt-separate 'lower arg ispec))))
;;;###autoload
(defsubst comment-lower-afpt (&optional arg ispec)
"Returns a copy of lower after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:lower:]")
(thatpt-comment 'lower arg ispec))))
;;;###autoload
(defsubst doublequote-lower-afpt (&optional arg ispec)
"Doublequotes lower after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:lower:]")
(unless (eobp)
(thatpt-delim 'lower 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-lower-afpt (&optional arg ispec)
"Singlequotes lower after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:lower:]")
(unless (eobp)
(thatpt-delim 'lower 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-lower-afpt (&optional arg ispec)
"Parentizes lower after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:lower:]")
(unless (eobp)
(thatpt-delim 'lower 'parentize arg ispec))))
;;;###autoload
(defsubst brace-lower-afpt (&optional arg ispec)
"Braces lower after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:lower:]")
(unless (eobp)
(thatpt-delim 'lower 'brace arg ispec))))
;;;###autoload
(defsubst bracket-lower-afpt (&optional arg ispec)
"Brackets lower after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:lower:]")
(unless (eobp)
(thatpt-delim 'lower 'bracket arg ispec))))
;;;###autoload
(defsubst kill-lower-afpt ()
"Kills lower after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:lower:]")
(thatpt-kill 'lower))))
;;;###autoload
(defsubst forward-lower-afpt (&optional arg ispec)
"Moves forward over lower after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward "^[:lower:]")
;; (forward-char 1)
(thatpt-forward 'lower arg ispec)))
;;;###autoload
(defsubst multibyte-afpt (&optional arg ispec)
"Returns multibyte after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:multibyte:]")
(thatpt 'multibyte arg ispec))))
;;;###autoload
(defsubst bounds-of-multibyte-afpt (&optional arg ispec)
"Returns border of multibyte after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:multibyte:]")
(thatpt-bounds 'multibyte arg ispec))))
;;;###autoload
(defsubst multibyte-afpt-beginning-position (&optional arg ispec)
"Returns beginning of multibyte after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:multibyte:]")
(thatpt-beginning 'multibyte arg ispec))))
;;;###autoload
(defsubst multibyte-afpt-end-position (&optional arg ispec)
"Returns end position of multibyte after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:multibyte:]")
(thatpt-end 'multibyte arg ispec))))
;;;###autoload
(defsubst copy-multibyte-afpt (&optional arg ispec)
"Returns a copy of multibyte after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:multibyte:]")
(thatpt-copy 'multibyte arg ispec))))
;;;###autoload
(defsubst separate-multibyte-afpt (&optional arg ispec)
"Returns a copy of multibyte after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:multibyte:]")
(thatpt-separate 'multibyte arg ispec))))
;;;###autoload
(defsubst comment-multibyte-afpt (&optional arg ispec)
"Returns a copy of multibyte after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:multibyte:]")
(thatpt-comment 'multibyte arg ispec))))
;;;###autoload
(defsubst doublequote-multibyte-afpt (&optional arg ispec)
"Doublequotes multibyte after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:multibyte:]")
(unless (eobp)
(thatpt-delim 'multibyte 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-multibyte-afpt (&optional arg ispec)
"Singlequotes multibyte after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:multibyte:]")
(unless (eobp)
(thatpt-delim 'multibyte 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-multibyte-afpt (&optional arg ispec)
"Parentizes multibyte after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:multibyte:]")
(unless (eobp)
(thatpt-delim 'multibyte 'parentize arg ispec))))
;;;###autoload
(defsubst brace-multibyte-afpt (&optional arg ispec)
"Braces multibyte after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:multibyte:]")
(unless (eobp)
(thatpt-delim 'multibyte 'brace arg ispec))))
;;;###autoload
(defsubst bracket-multibyte-afpt (&optional arg ispec)
"Brackets multibyte after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:multibyte:]")
(unless (eobp)
(thatpt-delim 'multibyte 'bracket arg ispec))))
;;;###autoload
(defsubst kill-multibyte-afpt ()
"Kills multibyte after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:multibyte:]")
(thatpt-kill 'multibyte))))
;;;###autoload
(defsubst forward-multibyte-afpt (&optional arg ispec)
"Moves forward over multibyte after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward "^[:multibyte:]")
;; (forward-char 1)
(thatpt-forward 'multibyte arg ispec)))
;;;###autoload
(defsubst nonascii-afpt (&optional arg ispec)
"Returns nonascii after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:nonascii:]")
(thatpt 'nonascii arg ispec))))
;;;###autoload
(defsubst bounds-of-nonascii-afpt (&optional arg ispec)
"Returns border of nonascii after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:nonascii:]")
(thatpt-bounds 'nonascii arg ispec))))
;;;###autoload
(defsubst nonascii-afpt-beginning-position (&optional arg ispec)
"Returns beginning of nonascii after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:nonascii:]")
(thatpt-beginning 'nonascii arg ispec))))
;;;###autoload
(defsubst nonascii-afpt-end-position (&optional arg ispec)
"Returns end position of nonascii after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:nonascii:]")
(thatpt-end 'nonascii arg ispec))))
;;;###autoload
(defsubst copy-nonascii-afpt (&optional arg ispec)
"Returns a copy of nonascii after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:nonascii:]")
(thatpt-copy 'nonascii arg ispec))))
;;;###autoload
(defsubst separate-nonascii-afpt (&optional arg ispec)
"Returns a copy of nonascii after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:nonascii:]")
(thatpt-separate 'nonascii arg ispec))))
;;;###autoload
(defsubst comment-nonascii-afpt (&optional arg ispec)
"Returns a copy of nonascii after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:nonascii:]")
(thatpt-comment 'nonascii arg ispec))))
;;;###autoload
(defsubst doublequote-nonascii-afpt (&optional arg ispec)
"Doublequotes nonascii after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:nonascii:]")
(unless (eobp)
(thatpt-delim 'nonascii 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-nonascii-afpt (&optional arg ispec)
"Singlequotes nonascii after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:nonascii:]")
(unless (eobp)
(thatpt-delim 'nonascii 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-nonascii-afpt (&optional arg ispec)
"Parentizes nonascii after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:nonascii:]")
(unless (eobp)
(thatpt-delim 'nonascii 'parentize arg ispec))))
;;;###autoload
(defsubst brace-nonascii-afpt (&optional arg ispec)
"Braces nonascii after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:nonascii:]")
(unless (eobp)
(thatpt-delim 'nonascii 'brace arg ispec))))
;;;###autoload
(defsubst bracket-nonascii-afpt (&optional arg ispec)
"Brackets nonascii after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:nonascii:]")
(unless (eobp)
(thatpt-delim 'nonascii 'bracket arg ispec))))
;;;###autoload
(defsubst kill-nonascii-afpt ()
"Kills nonascii after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:nonascii:]")
(thatpt-kill 'nonascii))))
;;;###autoload
(defsubst forward-nonascii-afpt (&optional arg ispec)
"Moves forward over nonascii after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward "^[:nonascii:]")
;; (forward-char 1)
(thatpt-forward 'nonascii arg ispec)))
;;;###autoload
(defsubst print-afpt (&optional arg ispec)
"Returns print after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:print:]")
(thatpt 'print arg ispec))))
;;;###autoload
(defsubst bounds-of-print-afpt (&optional arg ispec)
"Returns border of print after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:print:]")
(thatpt-bounds 'print arg ispec))))
;;;###autoload
(defsubst print-afpt-beginning-position (&optional arg ispec)
"Returns beginning of print after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:print:]")
(thatpt-beginning 'print arg ispec))))
;;;###autoload
(defsubst print-afpt-end-position (&optional arg ispec)
"Returns end position of print after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:print:]")
(thatpt-end 'print arg ispec))))
;;;###autoload
(defsubst copy-print-afpt (&optional arg ispec)
"Returns a copy of print after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:print:]")
(thatpt-copy 'print arg ispec))))
;;;###autoload
(defsubst separate-print-afpt (&optional arg ispec)
"Returns a copy of print after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:print:]")
(thatpt-separate 'print arg ispec))))
;;;###autoload
(defsubst comment-print-afpt (&optional arg ispec)
"Returns a copy of print after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:print:]")
(thatpt-comment 'print arg ispec))))
;;;###autoload
(defsubst doublequote-print-afpt (&optional arg ispec)
"Doublequotes print after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:print:]")
(unless (eobp)
(thatpt-delim 'print 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-print-afpt (&optional arg ispec)
"Singlequotes print after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:print:]")
(unless (eobp)
(thatpt-delim 'print 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-print-afpt (&optional arg ispec)
"Parentizes print after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:print:]")
(unless (eobp)
(thatpt-delim 'print 'parentize arg ispec))))
;;;###autoload
(defsubst brace-print-afpt (&optional arg ispec)
"Braces print after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:print:]")
(unless (eobp)
(thatpt-delim 'print 'brace arg ispec))))
;;;###autoload
(defsubst bracket-print-afpt (&optional arg ispec)
"Brackets print after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:print:]")
(unless (eobp)
(thatpt-delim 'print 'bracket arg ispec))))
;;;###autoload
(defsubst kill-print-afpt ()
"Kills print after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:print:]")
(thatpt-kill 'print))))
;;;###autoload
(defsubst forward-print-afpt (&optional arg ispec)
"Moves forward over print after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward "^[:print:]")
;; (forward-char 1)
(thatpt-forward 'print arg ispec)))
;;;###autoload
(defsubst punct-afpt (&optional arg ispec)
"Returns punct after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:punct:]")
(thatpt 'punct arg ispec))))
;;;###autoload
(defsubst bounds-of-punct-afpt (&optional arg ispec)
"Returns border of punct after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:punct:]")
(thatpt-bounds 'punct arg ispec))))
;;;###autoload
(defsubst punct-afpt-beginning-position (&optional arg ispec)
"Returns beginning of punct after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:punct:]")
(thatpt-beginning 'punct arg ispec))))
;;;###autoload
(defsubst punct-afpt-end-position (&optional arg ispec)
"Returns end position of punct after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:punct:]")
(thatpt-end 'punct arg ispec))))
;;;###autoload
(defsubst copy-punct-afpt (&optional arg ispec)
"Returns a copy of punct after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:punct:]")
(thatpt-copy 'punct arg ispec))))
;;;###autoload
(defsubst separate-punct-afpt (&optional arg ispec)
"Returns a copy of punct after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:punct:]")
(thatpt-separate 'punct arg ispec))))
;;;###autoload
(defsubst comment-punct-afpt (&optional arg ispec)
"Returns a copy of punct after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:punct:]")
(thatpt-comment 'punct arg ispec))))
;;;###autoload
(defsubst doublequote-punct-afpt (&optional arg ispec)
"Doublequotes punct after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:punct:]")
(unless (eobp)
(thatpt-delim 'punct 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-punct-afpt (&optional arg ispec)
"Singlequotes punct after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:punct:]")
(unless (eobp)
(thatpt-delim 'punct 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-punct-afpt (&optional arg ispec)
"Parentizes punct after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:punct:]")
(unless (eobp)
(thatpt-delim 'punct 'parentize arg ispec))))
;;;###autoload
(defsubst brace-punct-afpt (&optional arg ispec)
"Braces punct after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:punct:]")
(unless (eobp)
(thatpt-delim 'punct 'brace arg ispec))))
;;;###autoload
(defsubst bracket-punct-afpt (&optional arg ispec)
"Brackets punct after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:punct:]")
(unless (eobp)
(thatpt-delim 'punct 'bracket arg ispec))))
;;;###autoload
(defsubst kill-punct-afpt ()
"Kills punct after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:punct:]")
(thatpt-kill 'punct))))
;;;###autoload
(defsubst forward-punct-afpt (&optional arg ispec)
"Moves forward over punct after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward "^[:punct:]")
;; (forward-char 1)
(thatpt-forward 'punct arg ispec)))
;;;###autoload
(defsubst space-afpt (&optional arg ispec)
"Returns space after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:space:]")
(thatpt 'space arg ispec))))
;;;###autoload
(defsubst bounds-of-space-afpt (&optional arg ispec)
"Returns border of space after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:space:]")
(thatpt-bounds 'space arg ispec))))
;;;###autoload
(defsubst space-afpt-beginning-position (&optional arg ispec)
"Returns beginning of space after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:space:]")
(thatpt-beginning 'space arg ispec))))
;;;###autoload
(defsubst space-afpt-end-position (&optional arg ispec)
"Returns end position of space after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:space:]")
(thatpt-end 'space arg ispec))))
;;;###autoload
(defsubst copy-space-afpt (&optional arg ispec)
"Returns a copy of space after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:space:]")
(thatpt-copy 'space arg ispec))))
;;;###autoload
(defsubst separate-space-afpt (&optional arg ispec)
"Returns a copy of space after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:space:]")
(thatpt-separate 'space arg ispec))))
;;;###autoload
(defsubst comment-space-afpt (&optional arg ispec)
"Returns a copy of space after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:space:]")
(thatpt-comment 'space arg ispec))))
;;;###autoload
(defsubst doublequote-space-afpt (&optional arg ispec)
"Doublequotes space after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:space:]")
(unless (eobp)
(thatpt-delim 'space 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-space-afpt (&optional arg ispec)
"Singlequotes space after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:space:]")
(unless (eobp)
(thatpt-delim 'space 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-space-afpt (&optional arg ispec)
"Parentizes space after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:space:]")
(unless (eobp)
(thatpt-delim 'space 'parentize arg ispec))))
;;;###autoload
(defsubst brace-space-afpt (&optional arg ispec)
"Braces space after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:space:]")
(unless (eobp)
(thatpt-delim 'space 'brace arg ispec))))
;;;###autoload
(defsubst bracket-space-afpt (&optional arg ispec)
"Brackets space after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:space:]")
(unless (eobp)
(thatpt-delim 'space 'bracket arg ispec))))
;;;###autoload
(defsubst kill-space-afpt ()
"Kills space after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:space:]")
(thatpt-kill 'space))))
;;;###autoload
(defsubst forward-space-afpt (&optional arg ispec)
"Moves forward over space after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward "^[:space:]")
;; (forward-char 1)
(thatpt-forward 'space arg ispec)))
;;;###autoload
(defsubst unibyte-afpt (&optional arg ispec)
"Returns unibyte after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:unibyte:]")
(thatpt 'unibyte arg ispec))))
;;;###autoload
(defsubst bounds-of-unibyte-afpt (&optional arg ispec)
"Returns border of unibyte after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:unibyte:]")
(thatpt-bounds 'unibyte arg ispec))))
;;;###autoload
(defsubst unibyte-afpt-beginning-position (&optional arg ispec)
"Returns beginning of unibyte after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:unibyte:]")
(thatpt-beginning 'unibyte arg ispec))))
;;;###autoload
(defsubst unibyte-afpt-end-position (&optional arg ispec)
"Returns end position of unibyte after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:unibyte:]")
(thatpt-end 'unibyte arg ispec))))
;;;###autoload
(defsubst copy-unibyte-afpt (&optional arg ispec)
"Returns a copy of unibyte after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:unibyte:]")
(thatpt-copy 'unibyte arg ispec))))
;;;###autoload
(defsubst separate-unibyte-afpt (&optional arg ispec)
"Returns a copy of unibyte after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:unibyte:]")
(thatpt-separate 'unibyte arg ispec))))
;;;###autoload
(defsubst comment-unibyte-afpt (&optional arg ispec)
"Returns a copy of unibyte after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:unibyte:]")
(thatpt-comment 'unibyte arg ispec))))
;;;###autoload
(defsubst doublequote-unibyte-afpt (&optional arg ispec)
"Doublequotes unibyte after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:unibyte:]")
(unless (eobp)
(thatpt-delim 'unibyte 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-unibyte-afpt (&optional arg ispec)
"Singlequotes unibyte after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:unibyte:]")
(unless (eobp)
(thatpt-delim 'unibyte 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-unibyte-afpt (&optional arg ispec)
"Parentizes unibyte after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:unibyte:]")
(unless (eobp)
(thatpt-delim 'unibyte 'parentize arg ispec))))
;;;###autoload
(defsubst brace-unibyte-afpt (&optional arg ispec)
"Braces unibyte after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:unibyte:]")
(unless (eobp)
(thatpt-delim 'unibyte 'brace arg ispec))))
;;;###autoload
(defsubst bracket-unibyte-afpt (&optional arg ispec)
"Brackets unibyte after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:unibyte:]")
(unless (eobp)
(thatpt-delim 'unibyte 'bracket arg ispec))))
;;;###autoload
(defsubst kill-unibyte-afpt ()
"Kills unibyte after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:unibyte:]")
(thatpt-kill 'unibyte))))
;;;###autoload
(defsubst forward-unibyte-afpt (&optional arg ispec)
"Moves forward over unibyte after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward "^[:unibyte:]")
;; (forward-char 1)
(thatpt-forward 'unibyte arg ispec)))
;;;###autoload
(defsubst upper-afpt (&optional arg ispec)
"Returns upper after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:upper:]")
(thatpt 'upper arg ispec))))
;;;###autoload
(defsubst bounds-of-upper-afpt (&optional arg ispec)
"Returns border of upper after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:upper:]")
(thatpt-bounds 'upper arg ispec))))
;;;###autoload
(defsubst upper-afpt-beginning-position (&optional arg ispec)
"Returns beginning of upper after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:upper:]")
(thatpt-beginning 'upper arg ispec))))
;;;###autoload
(defsubst upper-afpt-end-position (&optional arg ispec)
"Returns end position of upper after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:upper:]")
(thatpt-end 'upper arg ispec))))
;;;###autoload
(defsubst copy-upper-afpt (&optional arg ispec)
"Returns a copy of upper after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:upper:]")
(thatpt-copy 'upper arg ispec))))
;;;###autoload
(defsubst separate-upper-afpt (&optional arg ispec)
"Returns a copy of upper after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:upper:]")
(thatpt-separate 'upper arg ispec))))
;;;###autoload
(defsubst comment-upper-afpt (&optional arg ispec)
"Returns a copy of upper after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:upper:]")
(thatpt-comment 'upper arg ispec))))
;;;###autoload
(defsubst doublequote-upper-afpt (&optional arg ispec)
"Doublequotes upper after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:upper:]")
(unless (eobp)
(thatpt-delim 'upper 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-upper-afpt (&optional arg ispec)
"Singlequotes upper after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:upper:]")
(unless (eobp)
(thatpt-delim 'upper 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-upper-afpt (&optional arg ispec)
"Parentizes upper after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:upper:]")
(unless (eobp)
(thatpt-delim 'upper 'parentize arg ispec))))
;;;###autoload
(defsubst brace-upper-afpt (&optional arg ispec)
"Braces upper after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:upper:]")
(unless (eobp)
(thatpt-delim 'upper 'brace arg ispec))))
;;;###autoload
(defsubst bracket-upper-afpt (&optional arg ispec)
"Brackets upper after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:upper:]")
(unless (eobp)
(thatpt-delim 'upper 'bracket arg ispec))))
;;;###autoload
(defsubst kill-upper-afpt ()
"Kills upper after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:upper:]")
(thatpt-kill 'upper))))
;;;###autoload
(defsubst forward-upper-afpt (&optional arg ispec)
"Moves forward over upper after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward "^[:upper:]")
;; (forward-char 1)
(thatpt-forward 'upper arg ispec)))
;;;###autoload
(defsubst xdigit-afpt (&optional arg ispec)
"Returns xdigit after point if any, nil otherwise"
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:xdigit:]")
(thatpt 'xdigit arg ispec))))
;;;###autoload
(defsubst bounds-of-xdigit-afpt (&optional arg ispec)
"Returns border of xdigit after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:xdigit:]")
(thatpt-bounds 'xdigit arg ispec))))
;;;###autoload
(defsubst xdigit-afpt-beginning-position (&optional arg ispec)
"Returns beginning of xdigit after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:xdigit:]")
(thatpt-beginning 'xdigit arg ispec))))
;;;###autoload
(defsubst xdigit-afpt-end-position (&optional arg ispec)
"Returns end position of xdigit after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:xdigit:]")
(thatpt-end 'xdigit arg ispec))))
;;;###autoload
(defsubst copy-xdigit-afpt (&optional arg ispec)
"Returns a copy of xdigit after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:xdigit:]")
(thatpt-copy 'xdigit arg ispec))))
;;;###autoload
(defsubst separate-xdigit-afpt (&optional arg ispec)
"Returns a copy of xdigit after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:xdigit:]")
(thatpt-separate 'xdigit arg ispec))))
;;;###autoload
(defsubst comment-xdigit-afpt (&optional arg ispec)
"Returns a copy of xdigit after point if any, nil otherwise "
(interactive "p\np")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:xdigit:]")
(thatpt-comment 'xdigit arg ispec))))
;;;###autoload
(defsubst doublequote-xdigit-afpt (&optional arg ispec)
"Doublequotes xdigit after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:xdigit:]")
(unless (eobp)
(thatpt-delim 'xdigit 'doublequote arg ispec))))
;;;###autoload
(defsubst singlequote-xdigit-afpt (&optional arg ispec)
"Singlequotes xdigit after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:xdigit:]")
(unless (eobp)
(thatpt-delim 'xdigit 'singlequote arg ispec))))
;;;###autoload
(defsubst parentize-xdigit-afpt (&optional arg ispec)
"Parentizes xdigit after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:xdigit:]")
(unless (eobp)
(thatpt-delim 'xdigit 'parentize arg ispec))))
;;;###autoload
(defsubst brace-xdigit-afpt (&optional arg ispec)
"Braces xdigit after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:xdigit:]")
(unless (eobp)
(thatpt-delim 'xdigit 'brace arg ispec))))
;;;###autoload
(defsubst bracket-xdigit-afpt (&optional arg ispec)
"Brackets xdigit after point if any, does nothing otherwise "
(interactive "p\np")
(save-excursion
(skip-chars-forward "^[:xdigit:]")
(unless (eobp)
(thatpt-delim 'xdigit 'bracket arg ispec))))
;;;###autoload
(defsubst kill-xdigit-afpt ()
"Kills xdigit after point if any, does nothing otherwise "
(interactive "*")
(unless (eobp)
(save-excursion
(skip-chars-forward "^[:xdigit:]")
(thatpt-kill 'xdigit))))
;;;###autoload
(defsubst forward-xdigit-afpt (&optional arg ispec)
"Moves forward over xdigit after point if any, does nothing otherwise "
(interactive "p\np")
(unless (eobp)
(skip-chars-forward "^[:xdigit:]")
;; (forward-char 1)
(thatpt-forward 'xdigit arg ispec)))
;;; thing-after-point-utils.el ends here
(provide 'thing-after-point-utils)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- thing-after-point-utils.el 1.0,
Andreas Roehler <=