« back to all changes in this revision
Viewing changes to thingatpt-utils-core/thingatpt-utils-base.el
- browse files at revision 649
- compare with another revision
- download diff
- download tarball
- view history from revision 649
- Committer: Andreas Röhler
- Date: 2016-10-06 09:41:19 UTC
- Revision ID: andreas.roehler@online.de-20161006094119-g49r1wy2kh07de1s
thingatpt-utils-core new dir
- files added:
- thing-at-point-utils/ar-comment-lor.el
- thingatpt-utils-core
- thingatpt-utils-core/test
- files removed:
- subroutines/ar-comment-lor.el
- files modified:
- run-travis-ci.sh
added
removed
thingatpt-utils-core/thingatpt-utils-base.el
1
;;; thingatpt-utils-base.el --- th-at-point edit functions
2
3
;; Copyright (C) 2010-2016 Andreas Röhler, unless
4
;; indicated otherwise
5
6
;; Author: Andreas Röhler <andreas.roehler@easy-emacs.de>, unless
7
;; indicated otherwise
8
9
;; This file is free software; you can redistribute it and/or modify
10
;; it under the terms of the GNU General Public License as published by
11
;; the Free Software Foundation; either version 2, or (at your option)
12
;; any later version.
13
14
;; This file is distributed in the hope that it will be useful,
15
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
16
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17
;; GNU General Public License for more details.
18
;; You should have received a copy of the GNU General Public License
19
;; along with GNU Emacs; see the file COPYING. If not, write to
20
;; the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
21
;; Boston, MA 02110-1301, USA.
22
23
;; Keywords: convenience
24
25
;;; Commentary:
26
27
;; Delivers a set of functions to return, mover over or
28
;; manipulate a given THING. THING may be a well known
29
;; form as word, paragraph, but also a char class as
30
;; `alnum' or a new defined thing.
31
32
;; For example `ar-alnum-atpt' will return all
33
;; alpha-numerical chars below and around cursor as a
34
;; string. `ar-bounds-of-alnum-atpt' returns the
35
;; borders of that string as a list and so on.
36
37
;; Presently for a given THING the following is
38
;; implemented:
39
40
;; ar-THING-atpt
41
;; ar-THING-bounds-atpt
42
;; ar-THING-beginning-position-atpt
43
;; ar-THING-end-position-atpt
44
;; ar-THING-beginning-atpt
45
;; ar-THING-end-atpt
46
;; ar-THING-length-atpt
47
;; ar-THING-copy-atpt
48
;; ar-THING-kill-atpt
49
;; ar-THING-forward-atpt
50
;; ar-THING-backward-atpt
51
;; ar-THING-transpose-atpt
52
;; ar-THING-sort-atpt
53
;; ar-THING-check-atpt
54
55
;; Beside of the mentioned above, esists still a couple of
56
;; functions, whose use is much less probable:
57
58
;; ar-THING-slash-atpt
59
;; ar-THING-double-backslash-atpt
60
;; ar-THING-doubleslash-atpt
61
;; ar-THING-delete-in-region
62
;; ar-blok-THING-atpt
63
;; ar-THING-escape-atpt
64
;; ar-THING-doublequote-atpt
65
;; ar-THING-double-backslash-paren-atpt
66
;; ar-THING-slashparen-atpt
67
;; ar-THING-dollar-atpt
68
;; ar-THING-equalize-atpt
69
;; ar-THING-greater-angle-atpt
70
;; ar-THING-lesser-angle-atpt
71
;; ar-THING-backslash-atpt
72
;; ar-THING-brace-atpt
73
;; ar-THING-bracket-atpt
74
;; ar-comment-THING-atpt
75
;; ar-commatize-THING-atpt
76
;; ar-quote-THING-atpt
77
;; ar-THING-hyphen-atpt
78
;; ar-THING-mark-atpt
79
;; ar-THING-hide-atpt
80
;; ar-THING-show-atpt
81
;; ar-THING-hide-show-atpt
82
;; ar-THING-left-right-singlequote-atpt
83
;; ar-THING-parentize-atpt
84
;; ar-THING-separate-atpt
85
;; ar-THING-singlequote-atpt
86
;; ar-THING-trim-atpt
87
;; ar-THING-left-trim-atpt
88
;; ar-THING-right-trim-atpt
89
;; ar-underscore-THING-atpt
90
;; ar-whitespace-THING-atpt
91
92
;; To see what's implemented, consult contents of
93
;; variables at the end of this file as
94
;; `ar-atpt-delimlist', `ar-atpt-delimited-list', etc.
95
96
;; Call one of the test-functions `C-u ar-th-delimtest'
97
;; with come chars in scratch-buffer
98
;; or any else changable buffer to get an impression.
99
100
;; The idea comes from Mike Williams
101
;; <mikew@gopher.dosli.govt.nz>, author of
102
;; thingatpt.el
103
104
;; The goal is to have a set of similar forms. For
105
;; example, to provide a word with double-quotes around
106
;; it, call ar-doublequote-word-atpt. In a similar way you
107
;; may double-quote not just a word, but any object
108
;; instrumented here as THING. To make parentheses
109
;; around it call ar-parentize-word-atpt, etc.
110
111
;; Move-functions of this package differ from common
112
;; behaviour in such, as `ar-forward-word-atpt' stops
113
;; not after THING, but on the last char of
114
;; THING. That's in order to enable a call of
115
;; thing-at-point functions at the end
116
;; position. Otherwise, when cursor stops after word
117
;; (THING) as does `forward-word', `ar-word-atpt' would return
118
;; nil.
119
120
;; To see other features, maybe try `ar-separate-list-atpt'
121
;; or `ar-comment-list-atpt' while point is inside a
122
;; list. Try it again with an abstract char-class as
123
;; [:alnum:], i.e. try `ar-comment-alnum-atpt',
124
;; `ar-brace-alnum-atpt' etc.
125
126
;; This utility comes with test-functions which return
127
;; the possible results of most functions (exception
128
;; are the kill-fns). Call th-test, th-mv-test
129
;; or th-delimtest over text. That-delimtest
130
;; changes but restores the buffer. Customize the speed
131
;; of execution via `ar-th-test-delay'
132
133
;; Diffs to basics of required thingatpt.el:
134
;; `bounds-of-thing-at-point' is replaced by a new
135
;; `ar-th-bounds', which now first searches
136
;; backward. As a consequence several
137
;; `beginning-op-at' and `end-op-at' constructs had
138
;; to be rewritten.
139
140
;; Behavior in general is not validating; i.e. if you
141
;; call ar-url-atpt and there is no url, all chars at
142
;; point may be picked, which could be part of a
143
;; url. Sometimes, however, a kind of validation may be
144
;; introduced.
145
146
;; If calling from a program `bounds-of-THING-atpt' is
147
;; recommended as an entry-point. It delivers a list
148
;; with beg and end positions.
149
150
;; In case of trouble, please send me a bug report. Any
151
;; ideas and comments welcome.
152
153
;; You might be interested also to visit Drew Adam's
154
;; http://www.emacswiki.org/emacs/thingatpt+.el
155
;; which predates this approach and was helpful writing it.
156
157
;; Thing-at-point delivers a portion of the
158
;; buffer. Thats useful, if THING is not as easy to grasp as a word.
159
;; For example the first string of an objekt like:
160
161
;; ("4[[:punct:] \t\r\n]? [[:punct:] \t\r\n]?C[[:punct:] \t\r\n]?.[[:punct:] \t\r\n]?2[[:punct:] \t\r\n]?4[[:punct:] \t\r\n]?6[[:punct:] \t\r\n]?4[[:punct:] \t\r\n]?/[[:punct:] \t\r\n]?0[[:punct:] \t\r\n]?3[[:punct:] \t\r\n]? [[:punct:] \t\r\n]?B" . "blah blub B")
162
163
;; Remove comments and put the cursor somewhere into the first
164
;; string:
165
;; `ar-doublequoted-atpt' will return it, copied into the kill-ring,
166
;; enabling yanking it and a lot of further actions.
167
168
;; `ar-doublequoted-atpt' here is to
169
;; (global-set-key [(super \")] 'ar-doublequoted-atpt)
170
171
;; alike a range of similar commands exist:
172
;; (global-set-key [(super \')] 'ar-singlequoted-atpt)
173
;; (global-set-key [(super \))] 'ar-parentized-atpt)
174
;; (global-set-key [(super \/)] 'ar-slashed-atpt)
175
;; (global-set-key [(super \\)] 'ar-backslashed-atpt)
176
;; (global-set-key [(super \])] 'ar-bracketed-atpt)
177
;; (global-set-key [(super \})] 'ar-braced-atpt)
178
179
;; So far THING is simply picked up.
180
181
;; Different approach combines copying, deleting with delimiting
182
183
;; if region is active:
184
185
;; (global-set-key [(control c) (\")] 'ar-doublequote-or-copy-atpt)
186
187
;; will provide doublequotes at beginning and end of region.
188
189
;; With negative argument it deletes the doublequoted portion under
190
;; point.
191
192
;; Without any argument these functions return as their simplier
193
;; counterparts
194
195
;; With universal argument [(control u)] delimiters --i.e. doublequotes, slashes, whatever-- are stripped.
196
197
;;
198
199
;; THING as a buffer substring is determined by
200
;; move-functions specified for thingatpt, called
201
;; beginning-op-at and end-op-at. Point is stored
202
;; after move, beginning and end delivered as pair: as
203
;; consed bounds-of-thing. It's easy to write your own
204
;; thing-at-point functions that way. You need the
205
;; caller and both move forms:
206
207
;; (defun MY-FORM-atpt (&optional arg)
208
;; " "
209
;; (interactive "p")
210
;; (ar-th 'MY-FORM arg))
211
212
;; (put 'MY-FORM 'beginning-op-at
213
;; (lambda () MY-FORWARD-MOVE-CODE))
214
215
;; (put 'MY-FORM 'end-op-at
216
;; (lambda () MY-BACKWARD-MOVE-CODE))
217
218
;; For example if you want to pick all chars at point
219
;; which are written between a string "AAA" and a
220
;; "BBB", which may exist as
221
;; AAA Luckily detected a lot of things! BBB
222
;; After evaluation of
223
;; (put 'MY-FORM 'beginning-op-at
224
;; (lambda ()
225
;; (search-backward "AAA" nil 'move 1)
226
;; ;; step chars of search expression back
227
;; (forward-char 3)))
228
;;
229
;; (put 'MY-FORM 'end-op-at
230
;; (lambda ()
231
;; (search-forward "BBB" nil 'move 1)
232
;; (forward-char -3)))
233
;; together with the functions definition above, it's ready.
234
;; M-x MY-FORM-atpt
235
;; (while point inside) you should see:
236
;; " Luckily detected a lot of things! "
237
;; in the minibuffer.
238
239
;; Some keys
240
241
;; (define-key emacs-lisp-mode-map [(control c)(q)] 'ar-parentized-forward-atpt)
242
;; (define-key emacs-lisp-mode-map [(super c)())] 'ar-symbol-parentize-atpt)
243
;; (define-key emacs-lisp-mode-map [(super c)(n)] 'ar-region-parentize-atpt)
244
;; (global-set-key [(control c)(<)] 'ar-lesser-angle-or-copy-atpt)
245
;; (global-set-key [(control c)(>)] 'ar-greater-angle-or-copy-atpt)
246
;; (global-set-key [(control c)(")] 'ar-doublequote-or-copy-atpt)
247
;; (global-set-key [(control c)(')] 'ar-singlequote-or-copy-atpt)
248
;; (global-set-key [(control c)(()] 'ar-paren-atpt)
249
;; (global-set-key [(control c)())] 'ar-parentize-or-copy-atpt)
250
;; (global-set-key [(control c)(/)] 'ar-slash-or-copy-atpt)
251
;; (global-set-key [(control c)(*)] 'ar-star-or-copy-atpt)
252
253
254
;;; Code:
255
256
(require 'ar-subr)
257
(defconst Emacs-Werkstatt-version "1.5")
258
259
(when (featurep 'xemacs) (require 'overlay))
260
261
(defgroup werkstatt nil
262
"Return, mover over or manipulate a given THING."
263
:prefix "ar-"
264
:group 'matching)
265
266
(defcustom sort-fold-case nil
267
"Whether alphabetic case affects the sort order
268
269
Used by `ar-sort-numbers-subr'"
270
271
:type 'boolean
272
:group 'werkstatt)
273
274
(defcustom match-paren-no-use-syntax-pps nil
275
"If `match-paren' should avoid scanning lists according to syntax but search regexp based. "
276
:type 'boolean
277
:group 'werkstatt)
278
279
280
(defcustom ar-werkstatt-hs-minor-mode-p nil
281
""
282
283
:type 'boolean
284
:group 'werkstatt)
285
286
(defcustom thing-copy-region t
287
"If a found THING should be copied into the kill-ring. "
288
:type 'boolean
289
:group 'werkstatt)
290
291
(defcustom ar-newlines-separate-after 1
292
"How many newlines at-th-separate should insert at the end"
293
294
:type 'number
295
:group 'werkstatt)
296
297
(defcustom ar-newlines-separate-before 1
298
"How many newlines at-th-separate should insert at the end"
299
300
:type 'number
301
:group 'werkstatt)
302
303
;; (defvar th-orig 0
304
;; "Correct orig according to delimiter-length")
305
306
(when (featurep 'xemacs)
307
(defcustom alnum "\\sw"
308
"Rexexp to specify the character class
309
Follows word-syntax. Use something like
310
\"[a-zA-ZäöüßÄÖÜ0-9]\" maybe instead.
311
`unibyte' and `multibyte' class is unused i.e. set to \".\""
312
:type 'regexp
313
:group 'werkstatt))
314
315
(when (featurep 'xemacs)
316
(defcustom alpha "[a-zA-ZäöüßÄÖÜ]"
317
"Rexexp to specify the character class
318
Change it, if you want to pick strings differently.
319
XEmacs-users: `unibyte' and `multibyte' class is unused i.e. set to \".\""
320
:type 'regexp
321
:group 'werkstatt))
322
323
(when (featurep 'xemacs)
324
(defcustom ascii "[\000-\177]"
325
"Rexexp to specify the character class
326
Change it, if you want to pick strings differently.
327
XEmacs-users: `unibyte' and `multibyte' class is unused i.e. set to \".\""
328
:type 'regexp
329
:group 'werkstatt))
330
331
(when (featurep 'xemacs)
332
(defcustom blank "[ \t]"
333
"Rexexp to specify the character class
334
Change it, if you want to pick strings differently.
335
XEmacs-users: `unibyte' and `multibyte' class is unused i.e. set to \".\""
336
:type 'regexp
337
:group 'werkstatt))
338
339
(when (featurep 'xemacs)
340
(defcustom cntrl "[\000-\006]\016-\037]"
341
"Rexexp to specify the character class
342
Change it, if you want to pick strings differently.
343
XEmacs-users: `unibyte' and `multibyte' class is unused i.e. set to \".\""
344
:type 'regexp
345
:group 'werkstatt))
346
347
(when (featurep 'xemacs)
348
(defcustom digit "[0-9]"
349
"Rexexp to specify the character class
350
Change it, if you want to pick strings differently.
351
XEmacs-users: `unibyte' and `multibyte' class is unused i.e. set to \".\""
352
:type 'regexp
353
:group 'werkstatt))
354
355
(when (featurep 'xemacs)
356
(defcustom graph "[\041-\177\241-\377]"
357
"Rexexp to specify the character class
358
Change it, if you want to pick strings differently.
359
XEmacs-users: `unibyte' and `multibyte' class is unused i.e. set to \".\""
360
:type 'regexp
361
:group 'werkstatt))
362
363
(when (featurep 'xemacs)
364
(defcustom lower "[a-zäöüß]"
365
"Rexexp to specify the character class
366
Change it, if you want to pick strings differently.
367
XEmacs-users: `unibyte' and `multibyte' class is unused i.e. set to \".\""
368
:type 'regexp
369
:group 'werkstatt))
370
371
(when (featurep 'xemacs)
372
(defcustom multibyte "[.]"
373
"Rexexp to specify the character class
374
Change it, if you want to pick strings differently.
375
XEmacs-users: `unibyte' and `multibyte' class is unused i.e. set to \".\""
376
:type 'regexp
377
:group 'werkstatt))
378
379
(when (featurep 'xemacs)
380
(defcustom nonascii "[^\040-\177]"
381
"Rexexp to specify the character class
382
Change it, if you want to pick strings differently.
383
XEmacs-users: `unibyte' and `multibyte' class is unused i.e. set to \".\""
384
:type 'regexp
385
:group 'werkstatt))
386
387
(when (featurep 'xemacs)
388
(defcustom print "[\041-\177\241-\377]"
389
"Rexexp to specify the character class
390
Change it, if you want to pick strings differently.
391
XEmacs-users: `unibyte' and `multibyte' class is unused i.e. set to \".\""
392
:type 'regexp
393
:group 'werkstatt))
394
395
(when (featurep 'xemacs)
396
(defcustom punct "[.,-_:;?!]"
397
"Rexexp to specify the character class
398
Change it, if you want to pick strings differently.
399
XEmacs-users: `unibyte' and `multibyte' class is unused i.e. set to \".\""
400
:type 'regexp
401
:group 'werkstatt))
402
403
(when (featurep 'xemacs)
404
(defcustom space "[ \t]"
405
"Rexexp to specify the character class
406
Change it, if you want to pick strings differently.
407
XEmacs-users: `unibyte' and `multibyte' class is unused i.e. set to \".\""
408
:type 'regexp
409
:group 'werkstatt))
410
411
(when (featurep 'xemacs)
412
(defcustom unibyte "[.]"
413
"Rexexp to specify the character class
414
Change it, if you want to pick strings differently.
415
XEmacs-users: `unibyte' and `multibyte' class is unused i.e. set to \".\""
416
:type 'regexp
417
:group 'werkstatt))
418
419
(when (featurep 'xemacs)
420
(defcustom upper "[A-ZÄÖÜ]"
421
"Rexexp to specify the character class
422
Change it, if you want to pick strings differently.
423
XEmacs-users: `unibyte' and `multibyte' class is unused i.e. set to \".\""
424
:type 'regexp
425
:group 'werkstatt))
426
427
(when (featurep 'xemacs)
428
(defcustom xdigit "[0-9.,]"
429
"Rexexp to specify the character class
430
Change it, if you want to pick strings differently.
431
XEmacs-users: `unibyte' and `multibyte' class is unused i.e. set to \".\""
432
:type 'regexp
433
:group 'werkstatt))
434
435
;; (require 'thingatpt-highlight)
436
;; ar-insert-put-classes start
437
438
;; Alnum
439
(put 'alnum 'beginning-op-at
440
(lambda ()
441
(when (or
442
(< 0 (abs (skip-chars-backward "[:alnum:]")))
443
(looking-at "[[:alnum:]]"))
444
(cons (point) (1+ (point))))))
445
446
(put 'alnum 'end-op-at
447
(lambda ()
448
(and (< 0 (skip-chars-forward "[:alnum:]"))
449
(cons (1- (point)) (point)))))
450
451
(put 'alnum 'forward-op-at
452
(lambda ()
453
(if (< 0 (skip-chars-forward "[:alnum:]"))
454
(point)
455
(when (< 0 (skip-chars-forward "^[:alnum:]"))
456
(and (< 0 (skip-chars-forward "[:alnum:]"))
457
(point))))))
458
459
(put 'alnum 'backward-op-at
460
(lambda ()
461
(if (< 0 (abs (skip-chars-backward "[:alnum:]")))
462
(point)
463
(when (< 0 (abs (skip-chars-backward "^[:alnum:]")))
464
(and
465
(< 0 (abs (skip-chars-backward "[:alnum:]")))
466
(point))))))
467
468
;; Alpha
469
(put 'alpha 'beginning-op-at
470
(lambda ()
471
(when (or
472
(< 0 (abs (skip-chars-backward "[:alpha:]")))
473
(looking-at "[[:alpha:]]"))
474
(cons (point) (1+ (point))))))
475
476
(put 'alpha 'end-op-at
477
(lambda ()
478
(and (< 0 (skip-chars-forward "[:alpha:]"))
479
(cons (1- (point)) (point)))))
480
481
(put 'alpha 'forward-op-at
482
(lambda ()
483
(if (< 0 (skip-chars-forward "[:alpha:]"))
484
(point)
485
(when (< 0 (skip-chars-forward "^[:alpha:]"))
486
(and (< 0 (skip-chars-forward "[:alpha:]"))
487
(point))))))
488
489
(put 'alpha 'backward-op-at
490
(lambda ()
491
(if (< 0 (abs (skip-chars-backward "[:alpha:]")))
492
(point)
493
(when (< 0 (abs (skip-chars-backward "^[:alpha:]")))
494
(and
495
(< 0 (abs (skip-chars-backward "[:alpha:]")))
496
(point))))))
497
498
;; Ascii
499
(put 'ascii 'beginning-op-at
500
(lambda ()
501
(when (or
502
(< 0 (abs (skip-chars-backward "[:ascii:]")))
503
(looking-at "[[:ascii:]]"))
504
(cons (point) (1+ (point))))))
505
506
(put 'ascii 'end-op-at
507
(lambda ()
508
(and (< 0 (skip-chars-forward "[:ascii:]"))
509
(cons (1- (point)) (point)))))
510
511
(put 'ascii 'forward-op-at
512
(lambda ()
513
(if (< 0 (skip-chars-forward "[:ascii:]"))
514
(point)
515
(when (< 0 (skip-chars-forward "^[:ascii:]"))
516
(and (< 0 (skip-chars-forward "[:ascii:]"))
517
(point))))))
518
519
(put 'ascii 'backward-op-at
520
(lambda ()
521
(if (< 0 (abs (skip-chars-backward "[:ascii:]")))
522
(point)
523
(when (< 0 (abs (skip-chars-backward "^[:ascii:]")))
524
(and
525
(< 0 (abs (skip-chars-backward "[:ascii:]")))
526
(point))))))
527
528
;; Blank
529
(put 'blank 'beginning-op-at
530
(lambda ()
531
(when (or
532
(< 0 (abs (skip-chars-backward "[:blank:]")))
533
(looking-at "[[:blank:]]"))
534
(cons (point) (1+ (point))))))
535
536
(put 'blank 'end-op-at
537
(lambda ()
538
(and (< 0 (skip-chars-forward "[:blank:]"))
539
(cons (1- (point)) (point)))))
540
541
(put 'blank 'forward-op-at
542
(lambda ()
543
(if (< 0 (skip-chars-forward "[:blank:]"))
544
(point)
545
(when (< 0 (skip-chars-forward "^[:blank:]"))
546
(and (< 0 (skip-chars-forward "[:blank:]"))
547
(point))))))
548
549
(put 'blank 'backward-op-at
550
(lambda ()
551
(if (< 0 (abs (skip-chars-backward "[:blank:]")))
552
(point)
553
(when (< 0 (abs (skip-chars-backward "^[:blank:]")))
554
(and
555
(< 0 (abs (skip-chars-backward "[:blank:]")))
556
(point))))))
557
558
;; Cntrl
559
(put 'cntrl 'beginning-op-at
560
(lambda ()
561
(when (or
562
(< 0 (abs (skip-chars-backward "[:cntrl:]")))
563
(looking-at "[[:cntrl:]]"))
564
(cons (point) (1+ (point))))))
565
566
(put 'cntrl 'end-op-at
567
(lambda ()
568
(and (< 0 (skip-chars-forward "[:cntrl:]"))
569
(cons (1- (point)) (point)))))
570
571
(put 'cntrl 'forward-op-at
572
(lambda ()
573
(if (< 0 (skip-chars-forward "[:cntrl:]"))
574
(point)
575
(when (< 0 (skip-chars-forward "^[:cntrl:]"))
576
(and (< 0 (skip-chars-forward "[:cntrl:]"))
577
(point))))))
578
579
(put 'cntrl 'backward-op-at
580
(lambda ()
581
(if (< 0 (abs (skip-chars-backward "[:cntrl:]")))
582
(point)
583
(when (< 0 (abs (skip-chars-backward "^[:cntrl:]")))
584
(and
585
(< 0 (abs (skip-chars-backward "[:cntrl:]")))
586
(point))))))
587
588
;; Digit
589
(put 'digit 'beginning-op-at
590
(lambda ()
591
(when (or
592
(< 0 (abs (skip-chars-backward "[:digit:]")))
593
(looking-at "[[:digit:]]"))
594
(cons (point) (1+ (point))))))
595
596
(put 'digit 'end-op-at
597
(lambda ()
598
(and (< 0 (skip-chars-forward "[:digit:]"))
599
(cons (1- (point)) (point)))))
600
601
(put 'digit 'forward-op-at
602
(lambda ()
603
(if (< 0 (skip-chars-forward "[:digit:]"))
604
(point)
605
(when (< 0 (skip-chars-forward "^[:digit:]"))
606
(and (< 0 (skip-chars-forward "[:digit:]"))
607
(point))))))
608
609
(put 'digit 'backward-op-at
610
(lambda ()
611
(if (< 0 (abs (skip-chars-backward "[:digit:]")))
612
(point)
613
(when (< 0 (abs (skip-chars-backward "^[:digit:]")))
614
(and
615
(< 0 (abs (skip-chars-backward "[:digit:]")))
616
(point))))))
617
618
;; Graph
619
(put 'graph 'beginning-op-at
620
(lambda ()
621
(when (or
622
(< 0 (abs (skip-chars-backward "[:graph:]")))
623
(looking-at "[[:graph:]]"))
624
(cons (point) (1+ (point))))))
625
626
(put 'graph 'end-op-at
627
(lambda ()
628
(and (< 0 (skip-chars-forward "[:graph:]"))
629
(cons (1- (point)) (point)))))
630
631
(put 'graph 'forward-op-at
632
(lambda ()
633
(if (< 0 (skip-chars-forward "[:graph:]"))
634
(point)
635
(when (< 0 (skip-chars-forward "^[:graph:]"))
636
(and (< 0 (skip-chars-forward "[:graph:]"))
637
(point))))))
638
639
(put 'graph 'backward-op-at
640
(lambda ()
641
(if (< 0 (abs (skip-chars-backward "[:graph:]")))
642
(point)
643
(when (< 0 (abs (skip-chars-backward "^[:graph:]")))
644
(and
645
(< 0 (abs (skip-chars-backward "[:graph:]")))
646
(point))))))
647
648
;; Lower
649
(put 'lower 'beginning-op-at
650
(lambda ()
651
(when (or
652
(< 0 (abs (skip-chars-backward "[:lower:]")))
653
(looking-at "[[:lower:]]"))
654
(cons (point) (1+ (point))))))
655
656
(put 'lower 'end-op-at
657
(lambda ()
658
(and (< 0 (skip-chars-forward "[:lower:]"))
659
(cons (1- (point)) (point)))))
660
661
(put 'lower 'forward-op-at
662
(lambda ()
663
(if (< 0 (skip-chars-forward "[:lower:]"))
664
(point)
665
(when (< 0 (skip-chars-forward "^[:lower:]"))
666
(and (< 0 (skip-chars-forward "[:lower:]"))
667
(point))))))
668
669
(put 'lower 'backward-op-at
670
(lambda ()
671
(if (< 0 (abs (skip-chars-backward "[:lower:]")))
672
(point)
673
(when (< 0 (abs (skip-chars-backward "^[:lower:]")))
674
(and
675
(< 0 (abs (skip-chars-backward "[:lower:]")))
676
(point))))))
677
678
;; Nonascii
679
(put 'nonascii 'beginning-op-at
680
(lambda ()
681
(when (or
682
(< 0 (abs (skip-chars-backward "[:nonascii:]")))
683
(looking-at "[[:nonascii:]]"))
684
(cons (point) (1+ (point))))))
685
686
(put 'nonascii 'end-op-at
687
(lambda ()
688
(and (< 0 (skip-chars-forward "[:nonascii:]"))
689
(cons (1- (point)) (point)))))
690
691
(put 'nonascii 'forward-op-at
692
(lambda ()
693
(if (< 0 (skip-chars-forward "[:nonascii:]"))
694
(point)
695
(when (< 0 (skip-chars-forward "^[:nonascii:]"))
696
(and (< 0 (skip-chars-forward "[:nonascii:]"))
697
(point))))))
698
699
(put 'nonascii 'backward-op-at
700
(lambda ()
701
(if (< 0 (abs (skip-chars-backward "[:nonascii:]")))
702
(point)
703
(when (< 0 (abs (skip-chars-backward "^[:nonascii:]")))
704
(and
705
(< 0 (abs (skip-chars-backward "[:nonascii:]")))
706
(point))))))
707
708
;; Print
709
(put 'print 'beginning-op-at
710
(lambda ()
711
(when (or
712
(< 0 (abs (skip-chars-backward "[:print:]")))
713
(looking-at "[[:print:]]"))
714
(cons (point) (1+ (point))))))
715
716
(put 'print 'end-op-at
717
(lambda ()
718
(and (< 0 (skip-chars-forward "[:print:]"))
719
(cons (1- (point)) (point)))))
720
721
(put 'print 'forward-op-at
722
(lambda ()
723
(if (< 0 (skip-chars-forward "[:print:]"))
724
(point)
725
(when (< 0 (skip-chars-forward "^[:print:]"))
726
(and (< 0 (skip-chars-forward "[:print:]"))
727
(point))))))
728
729
(put 'print 'backward-op-at
730
(lambda ()
731
(if (< 0 (abs (skip-chars-backward "[:print:]")))
732
(point)
733
(when (< 0 (abs (skip-chars-backward "^[:print:]")))
734
(and
735
(< 0 (abs (skip-chars-backward "[:print:]")))
736
(point))))))
737
738
;; Punct
739
(put 'punct 'beginning-op-at
740
(lambda ()
741
(when (or
742
(< 0 (abs (skip-chars-backward "[:punct:]")))
743
(looking-at "[[:punct:]]"))
744
(cons (point) (1+ (point))))))
745
746
(put 'punct 'end-op-at
747
(lambda ()
748
(and (< 0 (skip-chars-forward "[:punct:]"))
749
(cons (1- (point)) (point)))))
750
751
(put 'punct 'forward-op-at
752
(lambda ()
753
(if (< 0 (skip-chars-forward "[:punct:]"))
754
(point)
755
(when (< 0 (skip-chars-forward "^[:punct:]"))
756
(and (< 0 (skip-chars-forward "[:punct:]"))
757
(point))))))
758
759
(put 'punct 'backward-op-at
760
(lambda ()
761
(if (< 0 (abs (skip-chars-backward "[:punct:]")))
762
(point)
763
(when (< 0 (abs (skip-chars-backward "^[:punct:]")))
764
(and
765
(< 0 (abs (skip-chars-backward "[:punct:]")))
766
(point))))))
767
768
;; Space
769
(put 'space 'beginning-op-at
770
(lambda ()
771
(when (or
772
(< 0 (abs (skip-chars-backward "[:space:]")))
773
(looking-at "[[:space:]]"))
774
(cons (point) (1+ (point))))))
775
776
(put 'space 'end-op-at
777
(lambda ()
778
(and (< 0 (skip-chars-forward "[:space:]"))
779
(cons (1- (point)) (point)))))
780
781
(put 'space 'forward-op-at
782
(lambda ()
783
(if (< 0 (skip-chars-forward "[:space:]"))
784
(point)
785
(when (< 0 (skip-chars-forward "^[:space:]"))
786
(and (< 0 (skip-chars-forward "[:space:]"))
787
(point))))))
788
789
(put 'space 'backward-op-at
790
(lambda ()
791
(if (< 0 (abs (skip-chars-backward "[:space:]")))
792
(point)
793
(when (< 0 (abs (skip-chars-backward "^[:space:]")))
794
(and
795
(< 0 (abs (skip-chars-backward "[:space:]")))
796
(point))))))
797
798
;; Upper
799
(put 'upper 'beginning-op-at
800
(lambda ()
801
(when (or
802
(< 0 (abs (skip-chars-backward "[:upper:]")))
803
(looking-at "[[:upper:]]"))
804
(cons (point) (1+ (point))))))
805
806
(put 'upper 'end-op-at
807
(lambda ()
808
(and (< 0 (skip-chars-forward "[:upper:]"))
809
(cons (1- (point)) (point)))))
810
811
(put 'upper 'forward-op-at
812
(lambda ()
813
(if (< 0 (skip-chars-forward "[:upper:]"))
814
(point)
815
(when (< 0 (skip-chars-forward "^[:upper:]"))
816
(and (< 0 (skip-chars-forward "[:upper:]"))
817
(point))))))
818
819
(put 'upper 'backward-op-at
820
(lambda ()
821
(if (< 0 (abs (skip-chars-backward "[:upper:]")))
822
(point)
823
(when (< 0 (abs (skip-chars-backward "^[:upper:]")))
824
(and
825
(< 0 (abs (skip-chars-backward "[:upper:]")))
826
(point))))))
827
828
;; Xdigit
829
(put 'xdigit 'beginning-op-at
830
(lambda ()
831
(when (or
832
(< 0 (abs (skip-chars-backward "[:xdigit:]")))
833
(looking-at "[[:xdigit:]]"))
834
(cons (point) (1+ (point))))))
835
836
(put 'xdigit 'end-op-at
837
(lambda ()
838
(and (< 0 (skip-chars-forward "[:xdigit:]"))
839
(cons (1- (point)) (point)))))
840
841
(put 'xdigit 'forward-op-at
842
(lambda ()
843
(if (< 0 (skip-chars-forward "[:xdigit:]"))
844
(point)
845
(when (< 0 (skip-chars-forward "^[:xdigit:]"))
846
(and (< 0 (skip-chars-forward "[:xdigit:]"))
847
(point))))))
848
849
(put 'xdigit 'backward-op-at
850
(lambda ()
851
(if (< 0 (abs (skip-chars-backward "[:xdigit:]")))
852
(point)
853
(when (< 0 (abs (skip-chars-backward "^[:xdigit:]")))
854
(and
855
(< 0 (abs (skip-chars-backward "[:xdigit:]")))
856
(point))))))
857
858
;; Delimited forms start
859
860
;; Braced
861
(put 'braced 'beginning-op-at
862
(lambda ()
863
(if (char-equal ?{ (char-after))
864
(list (point) (1+ (point)))
865
(beginning-of-form-base "{" "}" nil 'move 1 nil nil 'ar-syntax t))))
866
867
(put 'braced 'end-op-at
868
(lambda ()
869
(when (char-equal ?{ (char-after))
870
(forward-char 1))
871
(end-of-form-base "{" "}" nil 'move 1 nil nil 'ar-syntax t)))
872
873
(put 'braced 'forward-op-at
874
(lambda ()
875
(when (char-equal ?{ (char-after))
876
(forward-char 1))
877
(ar-char-delimiters-end ?} t)
878
(when (char-equal ?} (char-before)) (forward-char -1)
879
(point))))
880
881
;; Bracketed
882
(put 'bracketed 'beginning-op-at
883
(lambda ()
884
(if (char-equal ?\[ (char-after))
885
(list (point) (1+ (point)))
886
(beginning-of-form-base "\\[" "\]" nil 'move 1 nil t 'ar-syntax t))))
887
888
(put 'bracketed 'end-op-at
889
(lambda ()
890
(when (char-equal ?\[ (char-after))
891
(forward-char 1))
892
(end-of-form-base "\\[" "\]" nil 'move 1 nil t 'ar-syntax t)))
893
894
(put 'bracketed 'forward-op-at
895
(lambda ()
896
(when (char-equal ?\[ (char-after))
897
(forward-char 1))
898
(ar-char-delimiters-end ?\] t)
899
(when (char-equal ?\] (char-before)) (forward-char -1)
900
(point))))
901
902
;; Lesser-Angled
903
(put 'lesser-angled 'beginning-op-at
904
(lambda ()
905
(if (char-equal ?< (char-after))
906
(list (point) (1+ (point)))
907
(beginning-of-form-base "<" ">" nil 'move 1 nil nil 'ar-syntax t))))
908
909
(put 'lesser-angled 'end-op-at
910
(lambda ()
911
(when (char-equal ?< (char-after))
912
(forward-char 1))
913
(end-of-form-base "<" ">" nil 'move 1 nil nil 'ar-syntax t)))
914
915
(put 'lesser-angled 'forward-op-at
916
(lambda ()
917
(when (char-equal ?< (char-after))
918
(forward-char 1))
919
(ar-char-delimiters-end ?> t)
920
(when (char-equal ?> (char-before)) (forward-char -1)
921
(point))))
922
923
;; Greater-Angled
924
(put 'greater-angled 'beginning-op-at
925
(lambda ()
926
(if (char-equal ?> (char-after))
927
(list (point) (1+ (point)))
928
(beginning-of-form-base ">" "<" nil 'move 1 nil nil 'ar-syntax t))))
929
930
(put 'greater-angled 'end-op-at
931
(lambda ()
932
(when (char-equal ?> (char-after))
933
(forward-char 1))
934
(end-of-form-base ">" "<" nil 'move 1 nil nil 'ar-syntax t)))
935
936
(put 'greater-angled 'forward-op-at
937
(lambda ()
938
(when (char-equal ?> (char-after))
939
(forward-char 1))
940
(ar-char-delimiters-end ?< t)
941
(when (char-equal ?< (char-before)) (forward-char -1)
942
(point))))
943
944
;; Left-Right-Singlequoted
945
(put 'left-right-singlequoted 'beginning-op-at
946
(lambda ()
947
(if (char-equal ?‘ (char-after))
948
(list (point) (1+ (point)))
949
(beginning-of-form-base "‘" "’" nil 'move 1 nil nil 'ar-syntax t))))
950
951
(put 'left-right-singlequoted 'end-op-at
952
(lambda ()
953
(when (char-equal ?‘ (char-after))
954
(forward-char 1))
955
(end-of-form-base "‘" "’" nil 'move 1 nil nil 'ar-syntax t)))
956
957
(put 'left-right-singlequoted 'forward-op-at
958
(lambda ()
959
(when (char-equal ?‘ (char-after))
960
(forward-char 1))
961
(ar-char-delimiters-end ?’ t)
962
(when (char-equal ?’ (char-before)) (forward-char -1)
963
(point))))
964
965
;; Parentized
966
(put 'parentized 'beginning-op-at
967
(lambda ()
968
(if (char-equal ?\( (char-after))
969
(list (point) (1+ (point)))
970
(beginning-of-form-base "\(" "\)" nil 'move 1 nil nil 'ar-syntax t))))
971
972
(put 'parentized 'end-op-at
973
(lambda ()
974
(when (char-equal ?\( (char-after))
975
(forward-char 1))
976
(end-of-form-base "\(" "\)" nil 'move 1 nil nil 'ar-syntax t)))
977
978
(put 'parentized 'forward-op-at
979
(lambda ()
980
(when (char-equal ?\( (char-after))
981
(forward-char 1))
982
(ar-char-delimiters-end ?\) t)
983
(when (char-equal ?\) (char-before)) (forward-char -1)
984
(point))))
985
986
987
;; Delimited forms end
988
989
;; ar-unpaired-delimited-raw start
990
991
;; Backslashed
992
(put 'backslashed 'beginning-op-at
993
(lambda ()
994
(let ((beg (ar-char-delimiters-beginning ?\\)))
995
(cons beg (1+ beg)))))
996
997
(put 'backslashed 'end-op-at
998
(lambda ()
999
(when (char-equal (char-after) ?\\)
1000
(forward-char 1))
1001
(let ((end (ar-char-delimiters-end ?\\ t)))
1002
(cons (1- end) end))))
1003
1004
(put 'backslashed 'forward-op-at
1005
(lambda ()
1006
(when (char-equal (char-after) ?\\)
1007
(forward-char 1))
1008
(ar-char-delimiters-end ?\\ t)))
1009
1010
(put 'backslashed 'backward-op-at
1011
(lambda ()
1012
(ar-char-delimiters-beginning ?\\)))
1013
1014
;; Backticked
1015
(put 'backticked 'beginning-op-at
1016
(lambda ()
1017
(let ((beg (ar-char-delimiters-beginning ?`)))
1018
(cons beg (1+ beg)))))
1019
1020
(put 'backticked 'end-op-at
1021
(lambda ()
1022
(when (char-equal (char-after) ?`)
1023
(forward-char 1))
1024
(let ((end (ar-char-delimiters-end ?` t)))
1025
(cons (1- end) end))))
1026
1027
(put 'backticked 'forward-op-at
1028
(lambda ()
1029
(when (char-equal (char-after) ?`)
1030
(forward-char 1))
1031
(ar-char-delimiters-end ?` t)))
1032
1033
(put 'backticked 'backward-op-at
1034
(lambda ()
1035
(ar-char-delimiters-beginning ?`)))
1036
1037
;; Coloned
1038
(put 'coloned 'beginning-op-at
1039
(lambda ()
1040
(let ((beg (ar-char-delimiters-beginning ?:)))
1041
(cons beg (1+ beg)))))
1042
1043
(put 'coloned 'end-op-at
1044
(lambda ()
1045
(when (char-equal (char-after) ?:)
1046
(forward-char 1))
1047
(let ((end (ar-char-delimiters-end ?: t)))
1048
(cons (1- end) end))))
1049
1050
(put 'coloned 'forward-op-at
1051
(lambda ()
1052
(when (char-equal (char-after) ?:)
1053
(forward-char 1))
1054
(ar-char-delimiters-end ?: t)))
1055
1056
(put 'coloned 'backward-op-at
1057
(lambda ()
1058
(ar-char-delimiters-beginning ?:)))
1059
1060
;; Dollared
1061
(put 'dollared 'beginning-op-at
1062
(lambda ()
1063
(let ((beg (ar-char-delimiters-beginning ?$)))
1064
(cons beg (1+ beg)))))
1065
1066
(put 'dollared 'end-op-at
1067
(lambda ()
1068
(when (char-equal (char-after) ?$)
1069
(forward-char 1))
1070
(let ((end (ar-char-delimiters-end ?$ t)))
1071
(cons (1- end) end))))
1072
1073
(put 'dollared 'forward-op-at
1074
(lambda ()
1075
(when (char-equal (char-after) ?$)
1076
(forward-char 1))
1077
(ar-char-delimiters-end ?$ t)))
1078
1079
(put 'dollared 'backward-op-at
1080
(lambda ()
1081
(ar-char-delimiters-beginning ?$)))
1082
1083
;; Doublequoted
1084
(put 'doublequoted 'beginning-op-at
1085
(lambda ()
1086
(let ((beg (ar-char-delimiters-beginning ?\")))
1087
(cons beg (1+ beg)))))
1088
1089
(put 'doublequoted 'end-op-at
1090
(lambda ()
1091
(when (char-equal (char-after) ?\")
1092
(forward-char 1))
1093
(let ((end (ar-char-delimiters-end ?\" t)))
1094
(cons (1- end) end))))
1095
1096
(put 'doublequoted 'forward-op-at
1097
(lambda ()
1098
(when (char-equal (char-after) ?\")
1099
(forward-char 1))
1100
(ar-char-delimiters-end ?\" t)))
1101
1102
(put 'doublequoted 'backward-op-at
1103
(lambda ()
1104
(ar-char-delimiters-beginning ?\")))
1105
1106
;; Equalized
1107
(put 'equalized 'beginning-op-at
1108
(lambda ()
1109
(let ((beg (ar-char-delimiters-beginning ?=)))
1110
(cons beg (1+ beg)))))
1111
1112
(put 'equalized 'end-op-at
1113
(lambda ()
1114
(when (char-equal (char-after) ?=)
1115
(forward-char 1))
1116
(let ((end (ar-char-delimiters-end ?= t)))
1117
(cons (1- end) end))))
1118
1119
(put 'equalized 'forward-op-at
1120
(lambda ()
1121
(when (char-equal (char-after) ?=)
1122
(forward-char 1))
1123
(ar-char-delimiters-end ?= t)))
1124
1125
(put 'equalized 'backward-op-at
1126
(lambda ()
1127
(ar-char-delimiters-beginning ?=)))
1128
1129
;; Hyphened
1130
(put 'hyphened 'beginning-op-at
1131
(lambda ()
1132
(let ((beg (ar-char-delimiters-beginning ?-)))
1133
(cons beg (1+ beg)))))
1134
1135
(put 'hyphened 'end-op-at
1136
(lambda ()
1137
(when (char-equal (char-after) ?-)
1138
(forward-char 1))
1139
(let ((end (ar-char-delimiters-end ?- t)))
1140
(cons (1- end) end))))
1141
1142
(put 'hyphened 'forward-op-at
1143
(lambda ()
1144
(when (char-equal (char-after) ?-)
1145
(forward-char 1))
1146
(ar-char-delimiters-end ?- t)))
1147
1148
(put 'hyphened 'backward-op-at
1149
(lambda ()
1150
(ar-char-delimiters-beginning ?-)))
1151
1152
;; Singlequoted
1153
(put 'singlequoted 'beginning-op-at
1154
(lambda ()
1155
(let ((beg (ar-char-delimiters-beginning ?')))
1156
(cons beg (1+ beg)))))
1157
1158
(put 'singlequoted 'end-op-at
1159
(lambda ()
1160
(when (char-equal (char-after) ?')
1161
(forward-char 1))
1162
(let ((end (ar-char-delimiters-end ?' t)))
1163
(cons (1- end) end))))
1164
1165
(put 'singlequoted 'forward-op-at
1166
(lambda ()
1167
(when (char-equal (char-after) ?')
1168
(forward-char 1))
1169
(ar-char-delimiters-end ?' t)))
1170
1171
(put 'singlequoted 'backward-op-at
1172
(lambda ()
1173
(ar-char-delimiters-beginning ?')))
1174
1175
;; Slashed
1176
(put 'slashed 'beginning-op-at
1177
(lambda ()
1178
(let ((beg (ar-char-delimiters-beginning ?/)))
1179
(cons beg (1+ beg)))))
1180
1181
(put 'slashed 'end-op-at
1182
(lambda ()
1183
(when (char-equal (char-after) ?/)
1184
(forward-char 1))
1185
(let ((end (ar-char-delimiters-end ?/ t)))
1186
(cons (1- end) end))))
1187
1188
(put 'slashed 'forward-op-at
1189
(lambda ()
1190
(when (char-equal (char-after) ?/)
1191
(forward-char 1))
1192
(ar-char-delimiters-end ?/ t)))
1193
1194
(put 'slashed 'backward-op-at
1195
(lambda ()
1196
(ar-char-delimiters-beginning ?/)))
1197
1198
;; Stared
1199
(put 'stared 'beginning-op-at
1200
(lambda ()
1201
(let ((beg (ar-char-delimiters-beginning ?*)))
1202
(cons beg (1+ beg)))))
1203
1204
(put 'stared 'end-op-at
1205
(lambda ()
1206
(when (char-equal (char-after) ?*)
1207
(forward-char 1))
1208
(let ((end (ar-char-delimiters-end ?* t)))
1209
(cons (1- end) end))))
1210
1211
(put 'stared 'forward-op-at
1212
(lambda ()
1213
(when (char-equal (char-after) ?*)
1214
(forward-char 1))
1215
(ar-char-delimiters-end ?* t)))
1216
1217
(put 'stared 'backward-op-at
1218
(lambda ()
1219
(ar-char-delimiters-beginning ?*)))
1220
1221
;; Underscored
1222
(put 'underscored 'beginning-op-at
1223
(lambda ()
1224
(let ((beg (ar-char-delimiters-beginning ?_)))
1225
(cons beg (1+ beg)))))
1226
1227
(put 'underscored 'end-op-at
1228
(lambda ()
1229
(when (char-equal (char-after) ?_)
1230
(forward-char 1))
1231
(let ((end (ar-char-delimiters-end ?_ t)))
1232
(cons (1- end) end))))
1233
1234
(put 'underscored 'forward-op-at
1235
(lambda ()
1236
(when (char-equal (char-after) ?_)
1237
(forward-char 1))
1238
(ar-char-delimiters-end ?_ t)))
1239
1240
(put 'underscored 'backward-op-at
1241
(lambda ()
1242
(ar-char-delimiters-beginning ?_)))
1243
1244
;; Whitespaced
1245
(put 'whitespaced 'beginning-op-at
1246
(lambda ()
1247
(let ((beg (ar-char-delimiters-beginning ? )))
1248
(cons beg (1+ beg)))))
1249
1250
(put 'whitespaced 'end-op-at
1251
(lambda ()
1252
(when (char-equal (char-after) ? )
1253
(forward-char 1))
1254
(let ((end (ar-char-delimiters-end ? t)))
1255
(cons (1- end) end))))
1256
1257
(put 'whitespaced 'forward-op-at
1258
(lambda ()
1259
(when (char-equal (char-after) ? )
1260
(forward-char 1))
1261
(ar-char-delimiters-end ? t)))
1262
1263
(put 'whitespaced 'backward-op-at
1264
(lambda ()
1265
(ar-char-delimiters-beginning ? )))
1266
1267
;; ar-unpaired-delimited-raw start
1268
1269
;; ar-atpt-python-quoted-raw start
1270
1271
;; Backslashed
1272
(put 'backslashed 'beginning-op-at
1273
(lambda ()
1274
(let ((beg (ar-char-delimiters-beginning ?\\)))
1275
(cons beg (1+ beg)))))
1276
1277
(put 'backslashed 'end-op-at
1278
(lambda ()
1279
(when (char-equal (char-after) ?\\)
1280
(forward-char 1))
1281
(let ((end (ar-char-delimiters-end ?\\ t)))
1282
(cons (1- end) end))))
1283
1284
(put 'backslashed 'forward-op-at
1285
(lambda ()
1286
(when (char-equal (char-after) ?\\)
1287
(forward-char 1))
1288
(ar-char-delimiters-end ?\\ t)))
1289
1290
(put 'backslashed 'backward-op-at
1291
(lambda ()
1292
(ar-char-delimiters-beginning ?\\)))
1293
1294
;; Backticked
1295
(put 'backticked 'beginning-op-at
1296
(lambda ()
1297
(let ((beg (ar-char-delimiters-beginning ?`)))
1298
(cons beg (1+ beg)))))
1299
1300
(put 'backticked 'end-op-at
1301
(lambda ()
1302
(when (char-equal (char-after) ?`)
1303
(forward-char 1))
1304
(let ((end (ar-char-delimiters-end ?` t)))
1305
(cons (1- end) end))))
1306
1307
(put 'backticked 'forward-op-at
1308
(lambda ()
1309
(when (char-equal (char-after) ?`)
1310
(forward-char 1))
1311
(ar-char-delimiters-end ?` t)))
1312
1313
(put 'backticked 'backward-op-at
1314
(lambda ()
1315
(ar-char-delimiters-beginning ?`)))
1316
1317
;; Coloned
1318
(put 'coloned 'beginning-op-at
1319
(lambda ()
1320
(let ((beg (ar-char-delimiters-beginning ?:)))
1321
(cons beg (1+ beg)))))
1322
1323
(put 'coloned 'end-op-at
1324
(lambda ()
1325
(when (char-equal (char-after) ?:)
1326
(forward-char 1))
1327
(let ((end (ar-char-delimiters-end ?: t)))
1328
(cons (1- end) end))))
1329
1330
(put 'coloned 'forward-op-at
1331
(lambda ()
1332
(when (char-equal (char-after) ?:)
1333
(forward-char 1))
1334
(ar-char-delimiters-end ?: t)))
1335
1336
(put 'coloned 'backward-op-at
1337
(lambda ()
1338
(ar-char-delimiters-beginning ?:)))
1339
1340
;; Dollared
1341
(put 'dollared 'beginning-op-at
1342
(lambda ()
1343
(let ((beg (ar-char-delimiters-beginning ?$)))
1344
(cons beg (1+ beg)))))
1345
1346
(put 'dollared 'end-op-at
1347
(lambda ()
1348
(when (char-equal (char-after) ?$)
1349
(forward-char 1))
1350
(let ((end (ar-char-delimiters-end ?$ t)))
1351
(cons (1- end) end))))
1352
1353
(put 'dollared 'forward-op-at
1354
(lambda ()
1355
(when (char-equal (char-after) ?$)
1356
(forward-char 1))
1357
(ar-char-delimiters-end ?$ t)))
1358
1359
(put 'dollared 'backward-op-at
1360
(lambda ()
1361
(ar-char-delimiters-beginning ?$)))
1362
1363
;; Doublequoted
1364
(put 'doublequoted 'beginning-op-at
1365
(lambda ()
1366
(let ((beg (ar-char-delimiters-beginning ?\")))
1367
(cons beg (1+ beg)))))
1368
1369
(put 'doublequoted 'end-op-at
1370
(lambda ()
1371
(when (char-equal (char-after) ?\")
1372
(forward-char 1))
1373
(let ((end (ar-char-delimiters-end ?\" t)))
1374
(cons (1- end) end))))
1375
1376
(put 'doublequoted 'forward-op-at
1377
(lambda ()
1378
(when (char-equal (char-after) ?\")
1379
(forward-char 1))
1380
(ar-char-delimiters-end ?\" t)))
1381
1382
(put 'doublequoted 'backward-op-at
1383
(lambda ()
1384
(ar-char-delimiters-beginning ?\")))
1385
1386
;; Equalized
1387
(put 'equalized 'beginning-op-at
1388
(lambda ()
1389
(let ((beg (ar-char-delimiters-beginning ?=)))
1390
(cons beg (1+ beg)))))
1391
1392
(put 'equalized 'end-op-at
1393
(lambda ()
1394
(when (char-equal (char-after) ?=)
1395
(forward-char 1))
1396
(let ((end (ar-char-delimiters-end ?= t)))
1397
(cons (1- end) end))))
1398
1399
(put 'equalized 'forward-op-at
1400
(lambda ()
1401
(when (char-equal (char-after) ?=)
1402
(forward-char 1))
1403
(ar-char-delimiters-end ?= t)))
1404
1405
(put 'equalized 'backward-op-at
1406
(lambda ()
1407
(ar-char-delimiters-beginning ?=)))
1408
1409
;; Hyphened
1410
(put 'hyphened 'beginning-op-at
1411
(lambda ()
1412
(let ((beg (ar-char-delimiters-beginning ?-)))
1413
(cons beg (1+ beg)))))
1414
1415
(put 'hyphened 'end-op-at
1416
(lambda ()
1417
(when (char-equal (char-after) ?-)
1418
(forward-char 1))
1419
(let ((end (ar-char-delimiters-end ?- t)))
1420
(cons (1- end) end))))
1421
1422
(put 'hyphened 'forward-op-at
1423
(lambda ()
1424
(when (char-equal (char-after) ?-)
1425
(forward-char 1))
1426
(ar-char-delimiters-end ?- t)))
1427
1428
(put 'hyphened 'backward-op-at
1429
(lambda ()
1430
(ar-char-delimiters-beginning ?-)))
1431
1432
;; Singlequoted
1433
(put 'singlequoted 'beginning-op-at
1434
(lambda ()
1435
(let ((beg (ar-char-delimiters-beginning ?')))
1436
(cons beg (1+ beg)))))
1437
1438
(put 'singlequoted 'end-op-at
1439
(lambda ()
1440
(when (char-equal (char-after) ?')
1441
(forward-char 1))
1442
(let ((end (ar-char-delimiters-end ?' t)))
1443
(cons (1- end) end))))
1444
1445
(put 'singlequoted 'forward-op-at
1446
(lambda ()
1447
(when (char-equal (char-after) ?')
1448
(forward-char 1))
1449
(ar-char-delimiters-end ?' t)))
1450
1451
(put 'singlequoted 'backward-op-at
1452
(lambda ()
1453
(ar-char-delimiters-beginning ?')))
1454
1455
;; Slashed
1456
(put 'slashed 'beginning-op-at
1457
(lambda ()
1458
(let ((beg (ar-char-delimiters-beginning ?/)))
1459
(cons beg (1+ beg)))))
1460
1461
(put 'slashed 'end-op-at
1462
(lambda ()
1463
(when (char-equal (char-after) ?/)
1464
(forward-char 1))
1465
(let ((end (ar-char-delimiters-end ?/ t)))
1466
(cons (1- end) end))))
1467
1468
(put 'slashed 'forward-op-at
1469
(lambda ()
1470
(when (char-equal (char-after) ?/)
1471
(forward-char 1))
1472
(ar-char-delimiters-end ?/ t)))
1473
1474
(put 'slashed 'backward-op-at
1475
(lambda ()
1476
(ar-char-delimiters-beginning ?/)))
1477
1478
;; Stared
1479
(put 'stared 'beginning-op-at
1480
(lambda ()
1481
(let ((beg (ar-char-delimiters-beginning ?*)))
1482
(cons beg (1+ beg)))))
1483
1484
(put 'stared 'end-op-at
1485
(lambda ()
1486
(when (char-equal (char-after) ?*)
1487
(forward-char 1))
1488
(let ((end (ar-char-delimiters-end ?* t)))
1489
(cons (1- end) end))))
1490
1491
(put 'stared 'forward-op-at
1492
(lambda ()
1493
(when (char-equal (char-after) ?*)
1494
(forward-char 1))
1495
(ar-char-delimiters-end ?* t)))
1496
1497
(put 'stared 'backward-op-at
1498
(lambda ()
1499
(ar-char-delimiters-beginning ?*)))
1500
1501
;; Underscored
1502
(put 'underscored 'beginning-op-at
1503
(lambda ()
1504
(let ((beg (ar-char-delimiters-beginning ?_)))
1505
(cons beg (1+ beg)))))
1506
1507
(put 'underscored 'end-op-at
1508
(lambda ()
1509
(when (char-equal (char-after) ?_)
1510
(forward-char 1))
1511
(let ((end (ar-char-delimiters-end ?_ t)))
1512
(cons (1- end) end))))
1513
1514
(put 'underscored 'forward-op-at
1515
(lambda ()
1516
(when (char-equal (char-after) ?_)
1517
(forward-char 1))
1518
(ar-char-delimiters-end ?_ t)))
1519
1520
(put 'underscored 'backward-op-at
1521
(lambda ()
1522
(ar-char-delimiters-beginning ?_)))
1523
1524
;; Whitespaced
1525
(put 'whitespaced 'beginning-op-at
1526
(lambda ()
1527
(let ((beg (ar-char-delimiters-beginning ? )))
1528
(cons beg (1+ beg)))))
1529
1530
(put 'whitespaced 'end-op-at
1531
(lambda ()
1532
(when (char-equal (char-after) ? )
1533
(forward-char 1))
1534
(let ((end (ar-char-delimiters-end ? t)))
1535
(cons (1- end) end))))
1536
1537
(put 'whitespaced 'forward-op-at
1538
(lambda ()
1539
(when (char-equal (char-after) ? )
1540
(forward-char 1))
1541
(ar-char-delimiters-end ? t)))
1542
1543
(put 'whitespaced 'backward-op-at
1544
(lambda ()
1545
(ar-char-delimiters-beginning ? )))
1546
1547
;; ar-atpt-python-quoted-raw start
1548
1549
;; Abbrev
1550
(put 'abbrev 'beginning-op-at
1551
(lambda ()
1552
(when
1553
(looking-at "[[:alnum:]]")
1554
(skip-chars-backward "[:alnum:].-")(point))))
1555
1556
(put 'abbrev 'end-op-at
1557
(lambda ()
1558
(skip-chars-forward "[:alnum:].-")(point)))
1559
1560
;; Acronym
1561
(put 'acronym 'beginning-op-at
1562
(lambda ()
1563
(ar-th-gotobeg 'symbol)))
1564
1565
(put 'acronym 'end-op-at
1566
(lambda ()
1567
(when (or (looking-at "[\({]\\([A-Z][A-Za-z -]+\\)[\)}]")
1568
(looking-at "\\(\\<[A-Z][A-Za-z]*[A-Z][A-Za-z]*\\>\\)"))
1569
(goto-char (match-end 0)))))
1570
1571
;; Angled
1572
(put 'angled-no-nest 'beginning-op-at
1573
(lambda ()
1574
(let ((orig (point))
1575
(forward-form (cond ((equal (char-after) ?>) "<")
1576
((equal (char-after) ?<) ">"))))
1577
(if (ignore-errors (looking-at "[<>]"))
1578
(progn
1579
(search-forward forward-form nil 'move 1)
1580
(search-backward forward-form nil 'move 1)
1581
orig)
1582
(re-search-backward "[<>]" nil 'move 1)))))
1583
1584
(put 'angled-no-nest 'end-op-at
1585
(lambda ()
1586
(let ((forward-form (cond ((equal (char-after) ?>) "<")
1587
((equal (char-after) ?<) ">"))))
1588
(search-forward forward-form nil 'move 1))))
1589
1590
(defalias 'ar-angled-atpt 'ar-angled-no-nest-atpt)
1591
(defalias 'ar-bounds-of-angled-atpt 'ar-bounds-of-angled-no-nest-atpt)
1592
1593
(put 'angled-greater-no-nest 'beginning-op-at
1594
(lambda ()
1595
(if (looking-at ">")
1596
(point)
1597
(re-search-backward ">" nil 'move 1))))
1598
1599
(put 'angled-greater-no-nest 'end-op-at
1600
(lambda ()
1601
(re-search-forward ">" nil 'move 1)))
1602
1603
(put 'angled-lesser-no-nest 'beginning-op-at
1604
(lambda ()
1605
(if (looking-at "<")
1606
(point)
1607
(re-search-backward "<" nil 'move 1))))
1608
1609
(put 'angled-lesser-no-nest 'end-op-at
1610
(lambda ()
1611
(re-search-forward "<" nil 'move 1)))
1612
1613
(put 'angled-greater-nested 'beginning-op-at
1614
(lambda ()
1615
(if (looking-at ">")
1616
(point)
1617
(beginning-of-form-base ">" "<" nil 'move nil nil t))))
1618
1619
(put 'angled-greater-nested 'end-op-at
1620
(lambda ()
1621
(end-of-form-base ">" "<" nil 'move nil nil t)))
1622
1623
(put 'angled-lesser-nested 'beginning-op-at
1624
(lambda ()
1625
(if (looking-at "<")
1626
(point)
1627
(beginning-of-form-base "<" ">" nil 'move nil nil t))))
1628
1629
(put 'angled-lesser-nested 'end-op-at
1630
(lambda ()
1631
(end-of-form-base "<" ">" nil 'move nil nil t)))
1632
1633
;; Buffer
1634
(put 'buffer 'beginning-op-at
1635
(lambda ()
1636
(let ((pos (point-min)))
1637
(unless (eq (point) pos)
1638
(goto-char pos)
1639
pos))))
1640
1641
(put 'buffer 'end-op-at
1642
(lambda ()
1643
(let ((pos (point-max)))
1644
(unless (eq (point) pos)
1645
(goto-char pos)
1646
pos))))
1647
1648
;; Comment
1649
(put 'comment 'beginning-op-at
1650
(lambda ()
1651
(let* ((orig (point))
1652
(nesting (not (or (string= "" comment-end)(eq 10 comment-end))))
1653
(erg (when nesting
1654
(if (looking-at comment-start)
1655
(cons (match-beginning 0) (match-end 0))
1656
(beginning-of-form-base comment-start comment-end nil 'move 1 t))))
1657
last)
1658
(unless erg
1659
(when (looking-at comment-start)
1660
(setq erg (cons (match-beginning 0) (match-end 0)))
1661
(skip-chars-backward " \t\r\n\f"))
1662
(while (and (setq last (point))
1663
(setq erg (nth 8 (syntax-ppss)))
1664
(goto-char erg)
1665
(skip-chars-backward " \t\r\n\f")))
1666
(skip-chars-forward " \t\r\n\f")
1667
(when (looking-at comment-start)
1668
(setq erg (cons (match-beginning 0) (match-end 0)))))
1669
erg)))
1670
1671
(put 'comment 'end-op-at
1672
(lambda ()
1673
(let* ((nesting (not (or (string= "" comment-end)(eq 10 comment-end))))
1674
(erg
1675
(when nesting
1676
(when (looking-at (concat "[ \t]*" (regexp-quote comment-start)))
1677
(progn
1678
(goto-char (match-end 0))
1679
(ignore-errors (end-of-form-base comment-start comment-end nil 'move 1 t)))))))
1680
(unless erg
1681
(when
1682
(looking-at (concat "[ \t]*" (regexp-quote comment-start)))
1683
(setq erg (cons (1- (line-end-position)) (line-end-position)))
1684
(while (and (not (eobp))(forward-line 1)(or (ar-empty-line-p)(looking-at (concat "[ \t]*" (regexp-quote comment-start)))))
1685
(setq erg (cons (1- (line-end-position)) (line-end-position))))))
1686
erg)))
1687
1688
(defun comment-forward-op-intern ()
1689
(let ((orig (point)))
1690
(end-of-line)
1691
(setq orig (point))
1692
(unless (eobp)
1693
(skip-chars-forward " \t\r\n\f")
1694
(if (looking-at comment-start)
1695
(comment-forward-op-intern)
1696
(goto-char orig)))))
1697
1698
(put 'comment 'forward-op-at
1699
(lambda ()
1700
(let ((orig (point)))
1701
(if (string= comment-end "")
1702
(comment-forward-op-intern)
1703
(search-forward comment-end nil t)
1704
(comment-forward-op-intern))
1705
(when (< orig (point)) (point)))))
1706
1707
(defun backward-op-at-intern ()
1708
(let ((this (point)))
1709
(skip-chars-backward " \t\r\n\f")
1710
(unless (bobp)
1711
(forward-char -1)
1712
(if (setq pps (and (nth 4 (parse-partial-sexp (point-min) (point)))
1713
(nth 8 (parse-partial-sexp (point-min) (point)))))
1714
(progn
1715
(goto-char pps)
1716
(backward-op-at-intern))
1717
(goto-char this)))))
1718
1719
(put 'comment 'backward-op-at
1720
(lambda ()
1721
(let ((orig (point))
1722
(pps (when (nth 4 (parse-partial-sexp (point-min) (point)))
1723
(nth 8 (parse-partial-sexp (point-min) (point))))))
1724
(if pps
1725
(progn
1726
(goto-char pps)
1727
(backward-op-at-intern))
1728
(when (search-backward comment-start nil 'move 1)
1729
(backward-op-at-intern)))
1730
(when (< (point) orig) (point)))))
1731
1732
;;; CSV
1733
;; Inspired by
1734
;;; csv-mode.el --- major mode for editing comma-separated value files
1735
;; Author: Francis J. Wright <F.J.Wright at qmul.ac.uk>
1736
;; URL: http://centaur.maths.qmul.ac.uk/Emacs/
1737
(defcustom ar-csv-separator-atpt ";"
1738
"Char to distinguish datasets in a `comma`-separated row"
1739
:type 'string
1740
:group 'werkstatt)
1741
;; (when (boundp 'csv-separators)
1742
;; (setq ar-separator-atpt csv-separators))
1743
1744
(put 'csv 'beginning-op-at
1745
(lambda ()
1746
(skip-chars-backward (concat "^" ar-csv-separator-atpt))(point)))
1747
1748
(put 'csv 'end-op-at
1749
(lambda ()
1750
(skip-chars-forward (concat "^" ar-csv-separator-atpt))(point)))
1751
1752
;; DATE
1753
(put 'date 'beginning-op-at
1754
(lambda ()
1755
;; provide for the case, we are over a
1756
;; string-delimiter as `"'
1757
(when
1758
(and (not (eq 32 (if (featurep 'xemacs)
1759
(encode-char (char-after) 'ucs)
1760
(char-after))))
1761
(or (bobp)
1762
(eq 32 (if (featurep 'xemacs)
1763
(encode-char (char-before) 'ucs)
1764
(char-before)))))
1765
(forward-char 1)
1766
;; as the bounds-function checks position, correct it
1767
;; (setq th-orig 1)
1768
)
1769
(skip-chars-backward "0-9 .-")
1770
(skip-chars-forward " ")(point)))
1771
1772
(put 'date 'end-op-at
1773
(lambda ()
1774
(skip-chars-forward "0-9 .-")
1775
(skip-chars-backward " ")(point)))
1776
1777
;; Defun
1778
(put 'defun 'beginning-op-at (lambda (&optional arg) (beginning-of-defun (or arg 1))(point)))
1779
1780
(put 'defun 'end-op-at (lambda (&optional arg)(end-of-defun (or arg 1))(point)))
1781
1782
;; Delimited
1783
(put 'delimited 'beginning-op-at
1784
(lambda ()
1785
(let ((begdel (concat th-beg-delimiter ar-delimiters-atpt))
1786
(pps (syntax-ppss))
1787
pos)
1788
(cond ((nth 8 pps)
1789
(or
1790
;; in string
1791
(ignore-errors (goto-char (and (nth 3 pps) (nth 8 pps))))
1792
;; in comment
1793
(goto-char (nth 8 pps))))
1794
((looking-at "[({\\[]"))
1795
((looking-at "]")
1796
(beginning-of-form-base "[" "]" nil 'move nil nil t))
1797
((looking-at "}")
1798
(beginning-of-form-base "{" "}" nil 'move nil nil t))
1799
((looking-at ")")
1800
(beginning-of-form-base "(" ")" nil 'move nil nil t))
1801
((looking-at (concat "[" begdel "]"))
1802
(ar-set-delimiter-zeichen)
1803
(let ((pos (nth 8 pps)))
1804
(when pos
1805
(goto-char pos))))
1806
((setq pos (nth 8 pps))
1807
(goto-char pos)
1808
(ar-set-delimiter-zeichen))
1809
((nth 1 pps)
1810
;; brace etc. not covered by (nth 1 pps)
1811
(skip-chars-backward (concat "^" begdel))
1812
(when (looking-back (concat "[" begdel "]"))
1813
(forward-char -1)))
1814
(t (while (and (not (bobp))(re-search-backward (concat "[" begdel "]") nil 'move 1)(looking-at "\""))
1815
(re-search-backward (concat "[" begdel "]") nil 'move 1))
1816
(if (looking-at (concat "[" begdel "]"))
1817
(ar-set-delimiter-zeichen)
1818
(setq ar-delimiter-zeichen-atpt nil))))
1819
(when (looking-at (concat "[" begdel "]"))
1820
(cons (match-beginning 0) (match-end 0))))))
1821
1822
(put 'delimited 'end-op-at
1823
(lambda ()
1824
(let ((enddel (concat th-end-delimiter ar-delimiters-atpt)))
1825
(cond ((looking-at "\\[")
1826
(forward-list 1)
1827
(looking-back "]"))
1828
;; (goto-char (match-end 0))
1829
;; (end-of-form-base "\\[" "]" nil 'move nil nil t))
1830
((looking-at "{")
1831
(goto-char (match-end 0))
1832
(end-of-form-base "{" "}" nil 'move nil nil t))
1833
((looking-at "(")
1834
;; (goto-char (match-end 0))
1835
;; (end-of-form-base "(" ")" nil 'move nil nil t)
1836
(forward-list 1)
1837
;; forward-list doesn't set match-data
1838
(looking-back ")"))
1839
(t (forward-char 1)
1840
(search-forward (char-to-string ar-delimiter-zeichen-atpt) nil nil 1)))
1841
;;(when (looking-back (concat "[" enddel "]"))
1842
(cons (match-beginning 0) (match-end 0)))))
1843
1844
(defun ar-set-delimiter-zeichen ()
1845
(setq ar-delimiter-zeichen-atpt
1846
(if (featurep 'xemacs)
1847
(encode-char (char-after) 'ucs)
1848
(char-after))))
1849
1850
(defvar ar-delimiter-zeichen-atpt nil
1851
"Delimiter char found at place, search it backward then")
1852
(make-variable-buffer-local 'ar-delimiter-zeichen-atpt)
1853
(make-variable-buffer-local 'ar-delimiter-zeichen-atpt)
1854
1855
(defcustom ar-use-parse-partial-sexp t
1856
"When nil, parse symbolic expressions by regexp. "
1857
:type 'boolean
1858
:group 'werkstatt)
1859
1860
(defcustom ar-delimiters-atpt "\"'#\$/=?!:;"
1861
"Specify the delimiter chars. "
1862
:type 'string
1863
:group 'werkstatt)
1864
1865
(defcustom th-beg-delimiter "{>\[(/"
1866
"Specify the delimiter char."
1867
:type 'string
1868
:group 'werkstatt)
1869
1870
(defcustom th-end-delimiter "]}<)/"
1871
"Specify the delimiter char."
1872
:type 'string
1873
:group 'werkstatt)
1874
1875
;; Email
1876
(put 'email 'beginning-op-at
1877
(lambda ()
1878
(when
1879
(looking-at "[^ \t]")
1880
(re-search-backward "[,;][[:graph:]]\\|<[[:graph:]]\\|^[[:graph:]]\\|[^[:graph:]][[:graph:]]" (line-beginning-position) t 1)
1881
(when (looking-at "[[:space:];,<]")
1882
(forward-char 1)))))
1883
1884
(put 'email 'end-op-at
1885
(lambda ()
1886
(when (looking-at "[ <]\\{0,1\\}\\([\041-\132\136-\176]+@[\041-\132\136-\176]+\\)[;,> \t\n]*")
1887
(goto-char (match-end 1))
1888
(skip-chars-backward "[[:punct:]]"))(point)))
1889
1890
;; Filename
1891
(if (featurep 'xemacs)
1892
(defcustom thingatpt-file-name-chars "~//A-Za-z0-9ÄÖÜäöüß_.$?={}#%,:-"
1893
"Characters forseen in filenames. "
1894
:type 'string
1895
:group 'werkstatt)
1896
1897
(defcustom thingatpt-file-name-chars "~//[:alnum:]_.$?={}#%,-"
1898
"Characters forseen in filenames. "
1899
:type 'string
1900
:group 'werkstatt))
1901
1902
(put 'filename 'beginning-op-at
1903
(lambda ()
1904
(unless
1905
(member (char-before) (list 32 ?\t 10 ?\r))
1906
;; (looking-back " \t\n\r")
1907
(skip-chars-backward thingatpt-file-name-chars))(point)))
1908
1909
(put 'filename 'end-op-at
1910
(lambda ()
1911
(and (< 0 (abs (skip-chars-forward (concat "=" thingatpt-file-name-chars))))
1912
(skip-chars-backward ": ")(point))))
1913
1914
;; Filename-nondirectory
1915
(if (featurep 'xemacs)
1916
(defcustom thingatpt-filename-nondirectory-chars "-~A-Za-z0-9ÄÖÜäöüß_.$?={}#%,: "
1917
"Characters forseen in filenames. "
1918
:type 'string
1919
:group 'werkstatt)
1920
1921
(defcustom thingatpt-filename-nondirectory-chars "-~[:alnum:]_.$?={}#%,"
1922
"Characters forseen in filenames. "
1923
:type 'string
1924
:group 'werkstatt))
1925
1926
(put 'filename-nondirectory 'beginning-op-at
1927
(lambda ()
1928
(unless
1929
(member (char-before) (list 32 ?\t 10 ?\r))
1930
(skip-chars-backward thingatpt-filename-nondirectory-chars))(point)))
1931
1932
(put 'filename-nondirectory 'end-op-at
1933
(lambda ()
1934
(and (< 0 (abs (skip-chars-forward (concat "-=" thingatpt-filename-nondirectory-chars))))
1935
(skip-chars-backward ": ")(point))))
1936
1937
;; Floats
1938
(put 'float 'beginning-op-at
1939
(lambda ()
1940
(when (numberp (read (buffer-substring-no-properties (point) (1+ (point)))))
1941
(skip-chars-backward "0-9.,"))(point)))
1942
1943
(put 'float 'end-op-at (lambda () (skip-chars-forward "[0-9.,]")(point)))
1944
1945
;; Function
1946
(put 'function 'beginning-op-at
1947
(lambda ()
1948
(cond
1949
((eq (point) (defun-beginning-position))
1950
(point))
1951
(t (beginning-of-defun)
1952
(point)))))
1953
1954
(put 'function 'end-op-at
1955
(lambda ()
1956
(end-of-defun)
1957
(when (string= major-mode "emacs-lisp-mode")
1958
(skip-chars-backward " \t\r\n"))(point)))
1959
1960
;; IP
1961
(put 'ip 'beginning-op-at
1962
(lambda ()
1963
(unless (looking-at "\\s-")
1964
(skip-chars-backward "0-9."))(point)))
1965
1966
(put 'ip 'end-op-at
1967
(lambda ()
1968
(when (looking-at "[0-9]\\{1,3\\}.[0-9-]\\{1,3\\}.[0-9]\\{1,3\\}.[0-9]\\{1,3\\}")
1969
(goto-char (match-end 0)))(point)))
1970
1971
;; ISBN
1972
(put 'isbn 'beginning-op-at
1973
(lambda ()
1974
(unless (looking-at "\\s-")
1975
(skip-chars-backward "0-9-")(point))))
1976
1977
(put 'isbn 'end-op-at
1978
(lambda ()
1979
(when (looking-at "[0-9]\\{1,3\\}[0-9-]\\{7,12\\}[0-9X]\\{0,1\\}")
1980
(goto-char (match-end 0)))))
1981
1982
;; Lines
1983
(put 'line 'beginning-op-at (lambda () (beginning-of-line)(point)))
1984
1985
(put 'line 'end-op-at (lambda () (end-of-line)(point)))
1986
1987
;; List
1988
(put 'list 'beginning-op-at
1989
(lambda ()
1990
(cond ((eq 4 (car (syntax-after (point))))
1991
(cons (point) (1+ (point))))
1992
(t (let ((pps (parse-partial-sexp (point-min) (point))))
1993
(when (nth 1 pps)
1994
(goto-char (nth 1 pps))
1995
(cons (point) (1+ (point)))))))))
1996
1997
(put 'list 'end-op-at
1998
(lambda ()
1999
(when (eq 4 (car (syntax-after (point))))
2000
(forward-sexp)
2001
(cons (1- (point))(point)))))
2002
2003
;; Markup
2004
(defcustom markup-startstring-atpt "<[^<>]+>"
2005
"Defining the beginning of a markup using ar-markup-atpt functions. "
2006
:type 'string
2007
:group 'werkstatt)
2008
2009
(defcustom markup-endstring-atpt "</[^<>]+>"
2010
"Defining the end of a markup using ar-markup-atpt functions. "
2011
:type 'string
2012
:group 'werkstatt)
2013
2014
(put 'markup 'beginning-op-at
2015
(lambda ()
2016
(if (ignore-errors (looking-at markup-startstring-atpt))
2017
(list (match-beginning 0) (match-end 0))
2018
(beginning-of-form-base markup-startstring-atpt markup-endstring-atpt nil 'move nil nil t))))
2019
2020
(put 'markup 'end-op-at
2021
(lambda ()
2022
(let ((this-end (when (looking-at markup-startstring-atpt)
2023
(match-string-no-properties 0))))
2024
(when (stringp this-end)
2025
(setq this-end (replace-regexp-in-string "<" "</" this-end))
2026
(end-of-form-base markup-startstring-atpt this-end nil 'move nil nil t)))))
2027
2028
;; Markup-no-nest
2029
;; (put 'markup-no-nest 'beginning-op-at
2030
;; (lambda ()
2031
;; (if (ignore-errors (looking-at markup-startstring-atpt))
2032
;; (point)
2033
;; (unless (bobp) (forward-char -1))
2034
;; (while (and (not (bobp) (not (ignore-errors (looking-at markup-startstring-atpt)))))
2035
;; (forward-char -1))
2036
;; (when (ignore-errors (looking-at markup-startstring-atpt))
2037
;; (point)))))
2038
;;
2039
;; (put 'markup-no-nest 'end-op-at
2040
;; (lambda ()
2041
;; (when (ignore-errors (looking-at markup-startstring-atpt))
2042
;; (re-search-forward markup-endstring-atpt nil 'move 1)
2043
;; (when (ignore-errors (looking-at markup-startstring-atpt))
2044
;; (point)))))
2045
2046
;; Ml-data
2047
(put 'ml-data 'beginning-op-at
2048
(lambda ()
2049
(if (ignore-errors (looking-at markup-startstring-atpt))
2050
(match-end 0)
2051
(beginning-of-form-base markup-startstring-atpt markup-endstring-atpt nil 'move nil nil t)
2052
(when (ignore-errors (looking-at markup-startstring-atpt))
2053
(match-end 0)))))
2054
2055
(put 'ml-data 'end-op-at
2056
(lambda ()
2057
(when (ignore-errors (looking-at markup-startstring-atpt))
2058
(end-of-form-base markup-startstring-atpt markup-endstring-atpt nil 'move nil nil t)
2059
(re-search-backward markup-endstring-atpt nil 'move 1))))
2060
2061
;; Ml-tag
2062
(put 'ml-tag 'beginning-op-at
2063
(lambda ()
2064
(if (ignore-errors
2065
(or
2066
(looking-at markup-startstring-atpt)
2067
(looking-at markup-endstring-atpt)))
2068
(list (point) (1+ (point)))
2069
(unless (bobp) (forward-char -1))
2070
(while
2071
(and (not (bobp))
2072
(not
2073
(ignore-errors
2074
(or
2075
(looking-at markup-startstring-atpt)
2076
(looking-at markup-endstring-atpt)))))
2077
(forward-char -1))
2078
(when
2079
(ignore-errors
2080
(or
2081
(looking-at markup-startstring-atpt)
2082
(looking-at markup-endstring-atpt)))
2083
(list (point) (1+ (point)))))))
2084
2085
(put 'ml-tag 'end-op-at
2086
(lambda ()
2087
(when (ignore-errors (or
2088
(looking-at markup-startstring-atpt)
2089
(looking-at markup-endstring-atpt)))
2090
(list (1- (match-end 0))(match-end 0)))))
2091
2092
;; Number
2093
(put 'number 'beginning-op-at
2094
(lambda ()
2095
(when
2096
(string-match "[0-9]" (buffer-substring-no-properties (point) (1+ (point))))
2097
(skip-chars-backward "0-9")(point))))
2098
2099
(put 'number 'end-op-at
2100
(lambda ()
2101
(skip-chars-forward "0-9")(point)))
2102
2103
;; Name
2104
(defcustom ar-name-chars-atpt "a-zA-Z_;-"
2105
"Name is just a identifier for general use, described by chars composing it. "
2106
:type 'regexp
2107
:group 'werkstatt)
2108
2109
(put 'name 'beginning-op-at
2110
(lambda ()
2111
(skip-chars-backward ar-name-chars-atpt)
2112
(point)))
2113
2114
(put 'name 'end-op-at
2115
(lambda ()
2116
(when (looking-at (concat "[" ar-name-chars-atpt "]"))
2117
(skip-chars-forward ar-name-chars-atpt)
2118
;; name may contain char `:' but not at the end, as
2119
;; messages tend to insert it there
2120
(skip-chars-forward ar-name-chars-atpt)
2121
(skip-chars-backward ":")
2122
(point))))
2123
2124
;; Page
2125
(put 'page 'beginning-op-at
2126
(lambda ()
2127
(backward-page)(point)))
2128
2129
(put 'page 'end-op-at
2130
(lambda ()
2131
(forward-page)(point)))
2132
2133
;; Paragraph
2134
(defvar ar-this-paragraph-orig nil)
2135
2136
(defun ar-beginning-of-paragraph-intern ()
2137
(backward-paragraph)
2138
(skip-chars-forward " \t\r\n\f")
2139
(point))
2140
2141
(defun ar-end-of-paragraph-intern ()
2142
(forward-paragraph)
2143
(skip-chars-backward " \t\r\n\f")
2144
(point))
2145
2146
(put 'paragraph 'beginning-op-at
2147
(lambda ()
2148
(setq ar-this-paragraph-orig (point))
2149
(back-to-indentation)
2150
(when (and (eq (point) ar-this-paragraph-orig))
2151
(skip-chars-backward " \t\r\n\f"))
2152
(ar-beginning-of-paragraph-intern)))
2153
2154
(put 'paragraph 'end-op-at
2155
(lambda ()
2156
(ar-end-of-paragraph-intern)
2157
(if (eq (point) ar-this-paragraph-orig)
2158
(progn
2159
(skip-chars-forward " \t\r\n\f")
2160
(ar-end-of-paragraph-intern))
2161
(point))))
2162
2163
;; Paren
2164
(put 'paren 'beginning-op-at
2165
(lambda ()
2166
(cond
2167
((looking-at "\\s)")
2168
(forward-char 1) (backward-list 1))
2169
(t (while
2170
(and (< 0 (abs (skip-chars-backward "^(")))
2171
(nth 8 (parse-partial-sexp (point-min) (point)))))
2172
(when (eq (char-before) ?\()
2173
(forward-char -1)
2174
(cons (point) (1+ (point))))))))
2175
2176
(put 'paren 'end-op-at
2177
(lambda ()
2178
(forward-list 1)
2179
(when (eq (char-before) ?\))
2180
(cons (1- (point)) (point)))))
2181
2182
;; Phone
2183
(put 'phone 'beginning-op-at
2184
(lambda ()
2185
(when
2186
(and (looking-at "[0-9 \t.()-]")
2187
(not (eq (char-before) ?+)))
2188
(re-search-backward "[^0-9 \t.()-][0-9 ()\t-]+" (line-beginning-position) nil 1) (forward-char 1)(point))))
2189
2190
(put 'phone 'end-op-at
2191
(lambda ()
2192
(when
2193
(looking-at "[0-9;, \t()-]")
2194
(re-search-forward "[0-9 \t.()-]+[^0-9 \t-]" (1+ (line-end-position)) nil 1) (forward-char -1))(point)))
2195
2196
;; Region
2197
(defvar ar-region-end-atpt nil)
2198
(put 'region 'beginning-op-at
2199
(lambda ()
2200
(setq ar-region-end-atpt (region-end))
2201
(goto-char (region-beginning))))
2202
2203
(put 'region 'end-op-at
2204
(lambda ()
2205
(goto-char ar-region-end-atpt)))
2206
2207
;; Sentence
2208
(defvar ar-sentence-end-chars "[.!?]")
2209
2210
(defcustom ar-sentence-end-op-re "[.!?] *$\\|[[:alpha:]][^ \t\r\n\f0-9][.!?] *[^a-z]"
2211
""
2212
:type 'regexp
2213
:group 'convenience)
2214
2215
(put 'sentence 'beginning-op-at
2216
(lambda ()
2217
(if (save-excursion
2218
(and (looking-at "[A-Z]")
2219
(progn
2220
(skip-chars-backward " \t\r\n\f")
2221
(or (bobp) (member (char-before) (list 63 ?! ?.))))))
2222
(point)
2223
(let ((limit (save-excursion (backward-paragraph)(point))))
2224
(while
2225
(and (not (bobp))
2226
(or
2227
(prog1
2228
(re-search-backward "[.!?] *$\\|[.!?] *[^a-z]" limit t 1)
2229
(forward-char 1)
2230
(skip-chars-forward " \t\r\n\f"))
2231
(prog1
2232
(backward-paragraph)
2233
(skip-chars-forward " \t\r\n\f")))
2234
(nth 8 (syntax-ppss)))))
2235
(point))))
2236
2237
(put 'sentence 'end-op-at
2238
(lambda ()
2239
(let ((orig (point)))
2240
(re-search-forward ar-sentence-end-op-re nil t 1)
2241
(skip-chars-backward "A-Z")
2242
(skip-chars-backward " \t\r\n\f")
2243
(when (< orig (point)) (point)))))
2244
2245
(put 'sentence 'forward-op-at
2246
(lambda ()
2247
(when (looking-at ar-sentence-end-chars)
2248
(forward-char 1))
2249
(skip-chars-forward " \t\r\n\f")
2250
(let ((orig (point))
2251
(limit (save-excursion (forward-paragraph)(point))))
2252
(while (and (not (eobp))
2253
(re-search-forward (concat ar-sentence-end-chars " *$\\|[.!?] *[^a-z]") limit t 1)
2254
(nth 8 (syntax-ppss))))
2255
(skip-chars-backward "^a-z")
2256
(skip-chars-backward " \t\r\n\f")
2257
(when (< orig (point)) (point)))))
2258
2259
(put 'sentence 'backward-op-at
2260
(lambda ()
2261
(backward-sentence)))
2262
2263
;; Sexp
2264
(put 'sexp 'beginning-op-at
2265
(lambda ()
2266
(unless (member (char-before) (list 32 ?\t 10 ?\r)) (ignore-errors (backward-sexp)))(point)))
2267
2268
(put 'sexp 'end-op-at
2269
(lambda ()
2270
(forward-sexp)(point)))
2271
2272
;; Strings
2273
(put 'string 'beginning-op-at
2274
(lambda ()
2275
(save-restriction
2276
(widen)
2277
(if ar-use-parse-partial-sexp
2278
(let* ((pps (parse-partial-sexp (point-min) (point)))
2279
(pos8 (nth 8 pps)))
2280
(when (nth 3 pps)
2281
(goto-char pos8)))
2282
(when
2283
(re-search-backward "\\([^\\\\]\\)\\(\"\\)" nil 'move 1)
2284
(goto-char (match-beginning 2))))
2285
(when (looking-at "\"*")
2286
(list (match-beginning 0) (match-end 0))))))
2287
2288
(put 'string 'end-op-at
2289
(lambda ()
2290
(save-restriction
2291
(widen)
2292
(forward-char 1)
2293
(if ar-use-parse-partial-sexp
2294
(let* ((orig (point))
2295
(pps (parse-partial-sexp (point-min) (point)))
2296
(char (char-to-string (nth 3 pps)))
2297
(done t))
2298
(progn
2299
(while (and (not (eobp)) (prog1 done (forward-char 1))
2300
(setq done (skip-chars-forward (concat "^" char)))
2301
2302
(nth 5 (parse-partial-sexp orig (point)))))
2303
(when (and (< orig (point))(looking-at char))
2304
(list (match-beginning 0) (match-end 0)))))
2305
(when (re-search-forward "[^\\\\]\"" nil 'move 1)
2306
(list (match-beginning 0) (match-end 0)))))))
2307
2308
;; Sh-struct
2309
(put 'sh-struct 'beginning-op-at
2310
'sh-beginning-of-form)
2311
2312
(put 'sh-struct 'end-op-at
2313
(lambda ()
2314
(when (looking-at ar-beginning-sh-struct-atpt)
2315
(sh-end-of-form)
2316
(forward-char 1)(point))))
2317
2318
(put 'sh-struct 'forward-op-at
2319
(lambda ()
2320
(re-search-forward ar-beginning-sh-struct-atpt nil 'move 1)))
2321
2322
(put 'sh-struct 'backward-op-at
2323
(lambda ()
2324
(re-search-backward ar-end-sh-struct-atpt nil 'move 1)))
2325
2326
;; Symbol
2327
(put 'symbol 'beginning-op-at
2328
(lambda ()
2329
(unless (looking-at "\\s-")
2330
(skip-syntax-backward "w_.\\")(point))))
2331
2332
(put 'symbol 'end-op-at
2333
(lambda ()
2334
(skip-syntax-forward "w_.\\")(point)))
2335
2336
;; Triplequoted
2337
(put 'triplequoted 'beginning-op-at
2338
(lambda ()
2339
(let* ((triplequoted "\"\"\"\\|'''")
2340
(bounds (ar-in-delimiter-base triplequoted)))
2341
(when (car-safe bounds)
2342
(goto-char (car-safe bounds))
2343
bounds))))
2344
2345
(put 'triplequoted 'end-op-at
2346
(lambda ()
2347
(let* ((triplequoted "\"\"\"\\|'''")
2348
(erg (looking-at triplequoted)))
2349
(when erg
2350
(setq triplequoted (match-string-no-properties 0))
2351
(goto-char (match-end 0))
2352
(setq erg (end-of-form-base triplequoted triplequoted nil 'move 1 nil nil 'ar-escaped)))
2353
erg)))
2354
2355
(put 'triplequoted 'forward-op-at
2356
(lambda ()
2357
(let ((triplequoted "\"\"\"\\|'''")
2358
bounds)
2359
(while (and (search-forward triplequoted nil 'move 1)
2360
(not (ar-in-delimiter-base triplequoted))))
2361
(unless (eobp)
2362
(setq bounds (end-of-form-base triplequoted triplequoted nil 'move 1 nil nil 'ar-escaped))
2363
(ignore-errors (goto-char (1- (cadr bounds)))))
2364
bounds)))
2365
2366
(put 'triplequoted 'backward-op-at
2367
(lambda ()
2368
(let ((triplequoted "\"\"\"\\|'''")
2369
erg)
2370
(while (and (search-backward triplequoted nil 'move 1)
2371
(not (setq erg (ar-in-delimiter-base triplequoted)))))
2372
(when erg (goto-char erg))
2373
erg)))
2374
2375
;; Triplequoted-Dq
2376
(put 'triplequoted-dq 'beginning-op-at
2377
(lambda ()
2378
(let* ((triplequoted-dq "\"\"\"")
2379
(bounds (ar-in-delimiter-base triplequoted-dq)))
2380
(when (car-safe bounds)
2381
(goto-char (car-safe bounds))
2382
bounds))))
2383
2384
(put 'triplequoted-dq 'end-op-at
2385
(lambda ()
2386
(let* ((triplequoted-dq "\"\"\"")
2387
(erg (looking-at triplequoted-dq)))
2388
(when erg
2389
(goto-char (match-end 0))
2390
(while (and (search-forward triplequoted-dq nil 'move 1)
2391
(ar-in-delimiter-base triplequoted-dq)))
2392
(when (looking-back triplequoted-dq)
2393
(list (match-beginning 0) (match-end 0)))))))
2394
2395
(put 'triplequoted-dq 'forward-op-at
2396
(lambda ()
2397
(let ((triplequoted-dq "\"\"\""))
2398
(while (and (search-forward triplequoted-dq nil 'move 1)
2399
(not (ar-in-delimiter-base triplequoted-dq)))))))
2400
2401
(put 'triplequoted-dq 'backward-op-at
2402
(lambda ()
2403
(let ((triplequoted-dq "\"\"\""))
2404
(while (and (search-backward triplequoted-dq nil 'move 1)
2405
(not (ar-in-delimiter-base triplequoted-dq)))))))
2406
2407
;; Triplequoted-Sq
2408
(put 'triplequoted-sq 'beginning-op-at
2409
(lambda ()
2410
(let* ((triplequoted-sq "'''")
2411
(bounds (ar-in-delimiter-base triplequoted-sq)))
2412
(when (car-safe bounds)
2413
(goto-char (car-safe bounds))
2414
bounds))))
2415
2416
(put 'triplequoted-sq 'end-op-at
2417
(lambda ()
2418
(let* ((triplequoted-sq "'''")
2419
(erg (looking-at triplequoted-sq)))
2420
(when erg
2421
(goto-char (match-end 0))
2422
(while (and (search-forward triplequoted-sq nil 'move 1)
2423
(ar-in-delimiter-base triplequoted-sq)))
2424
(when (looking-back triplequoted-sq)
2425
(list (match-beginning 0) (match-end 0)))))))
2426
2427
(put 'triplequoted-sq 'forward-op-at
2428
(lambda ()
2429
(let ((triplequoted-sq "'''"))
2430
(while (and (search-forward triplequoted-sq nil 'move 1)
2431
(not (ar-in-delimiter-base triplequoted-sq)))))))
2432
2433
(put 'triplequoted-sq 'backward-op-at
2434
(lambda ()
2435
(let ((triplequoted-sq "'''"))
2436
(while (and (search-backward triplequoted-sq nil 'move 1)
2437
(not (ar-in-delimiter-base triplequoted-sq)))))))
2438
2439
;; Url
2440
;; use thingatpt.el's form here too
2441
(put 'url 'end-op-at (get 'url 'end-op))
2442
(put 'url 'beginning-op-at (get 'url 'beginning-op))
2443
2444
(defcustom url-at-point-chars ":/?#[]@!$&()*+,;=[:alnum:]-._~"
2445
"Chars which might compose a URL. "
2446
:type 'string
2447
:group 'werkstatt)
2448
2449
;; Whitespace
2450
(put 'whitespace 'beginning-op-at
2451
(lambda () (when (looking-at "[ \t]") (skip-chars-backward "[ \t\r\n[:blank:]]")(point))))
2452
2453
(put 'whitespace 'end-op-at (lambda () (skip-chars-forward "[ \t\r\n[:blank:]]")(point)))
2454
2455
;; Word
2456
(put 'word 'beginning-op-at
2457
(lambda () (when (looking-at "\\w")
2458
(unless (looking-back "\\W")
2459
(forward-word -1))
2460
(point))))
2461
2462
(put 'word 'end-op-at
2463
(lambda () (and (looking-back "\\W")(looking-at "\\w"))
2464
(forward-word 1)(point)))
2465
2466
;; Word-alpha-only
2467
(put 'word-alpha-only 'beginning-op-at
2468
(lambda () (when (looking-at "[[:alpha:]]")
2469
(unless (looking-back "[^[:alpha:]]")
2470
(skip-chars-backward "[:alpha:]")
2471
(point)))))
2472
2473
(put 'word-alpha-only 'end-op-at
2474
(lambda () (when (and (looking-back "[^[:alpha:]]")(looking-at "[[:alpha:]]"))
2475
(skip-chars-forward "[:alpha:]")
2476
(point))))
2477
2478
(defun gen--in-string-p-intern (pps)
2479
(goto-char (nth 8 pps))
2480
(list (point) (char-after)(skip-chars-forward (char-to-string (char-after)))))
2481
2482
(defun gen-in-string-p ()
2483
"if inside a double- triple- or singlequoted string,
2484
2485
If non-nil, return a list composed of
2486
- beginning position
2487
- the character used as string-delimiter (in decimal)
2488
- and length of delimiter, commonly 1 or 3 "
2489
(interactive)
2490
(save-excursion
2491
(let* ((pps (parse-partial-sexp (point-min) (point)))
2492
(erg (when (nth 3 pps)
2493
(gen-in-string-p-intern pps))))
2494
(unless erg
2495
(when (looking-at "\"\\|'")
2496
(forward-char 1)
2497
(setq pps (parse-partial-sexp (line-beginning-position) (point)))
2498
(when (nth 3 pps)
2499
(setq erg (gen-in-string-p-intern pps)))))
2500
2501
;; (list (nth 8 pps) (char-before) (1+ (skip-chars-forward (char-to-string (char-before)))))
2502
(when (and gen-verbose-p (interactive-p)) (message "%s" erg))
2503
erg)))
2504
2505
;;
2506
(defcustom copy-or-alternative "word"
2507
"Copy-or commands may act on thing specified here.
2508
2509
For example when `ar-doublequote-or-copy-atpt' is called with positive
2510
argument but without active region and also thing-at-point
2511
--i.e. doublequoted here-- doesn't exist,
2512
it would doublequote a word at point "
2513
:type 'string
2514
:group 'werkstatt)
2515
2516
(defcustom ar-install-directory "~/werkstatt"
2517
"Directory where thingatpt-utils are installed"
2518
:type 'string
2519
:group 'werkstatt)
2520
2521
;; (update-directory-autoloads (expand-file-name ar-install-directory))
2522
2523
2524
;; ML data-forms start
2525
2526
;; Begin-End-Quoted
2527
(put 'begin-end-quoted 'beginning-op-at
2528
(lambda ()
2529
(if (ignore-errors (looking-at "\\begin{quote}"))
2530
(list (match-beginning 0) (match-end 0))
2531
(beginning-of-form-base "\\begin{quote}" "\\end{quote}" nil (quote move) 1 nil nil nil))))
2532
2533
(put 'begin-end-quoted 'end-op-at
2534
(lambda ()
2535
(when (ignore-errors (looking-at "\\begin{quote}"))
2536
(goto-char (match-end 0))
2537
(end-of-form-base "\\begin{quote}" "\\end{quote}" nil (quote move) 1 nil nil nil))))
2538
2539
2540
;; Blok
2541
(put 'blok 'beginning-op-at
2542
(lambda ()
2543
(if (ignore-errors (looking-at "{% "))
2544
(list (match-beginning 0) (match-end 0))
2545
(beginning-of-form-base "{% " " %}" nil (quote move) 1 nil t nil))))
2546
2547
(put 'blok 'end-op-at
2548
(lambda ()
2549
(when (ignore-errors (looking-at "{% "))
2550
(goto-char (match-end 0))
2551
(end-of-form-base "{% " " %}" nil (quote move) 1 nil t nil))))
2552
2553
2554
;; Double-Backslashed
2555
(put 'double-backslashed 'beginning-op-at
2556
(lambda ()
2557
(if (ignore-errors (looking-at "\\\\"))
2558
(list (match-beginning 0) (match-end 0))
2559
(beginning-of-form-base "\\\\" "\\\\" nil (quote move) 1 nil nil (quote ar-escaped)))))
2560
2561
(put 'double-backslashed 'end-op-at
2562
(lambda ()
2563
(when (ignore-errors (looking-at "\\\\"))
2564
(goto-char (match-end 0))
2565
(end-of-form-base "\\\\" "\\\\" nil (quote move) 1 nil nil (quote ar-escaped)))))
2566
2567
2568
;; Doubleslashed
2569
(put 'doubleslashed 'beginning-op-at
2570
(lambda ()
2571
(if (ignore-errors (looking-at "//"))
2572
(list (match-beginning 0) (match-end 0))
2573
(beginning-of-form-base "//" "//" nil (quote move) 1 nil nil (quote ar-escaped)))))
2574
2575
(put 'doubleslashed 'end-op-at
2576
(lambda ()
2577
(when (ignore-errors (looking-at "//"))
2578
(goto-char (match-end 0))
2579
(end-of-form-base "//" "//" nil (quote move) 1 nil nil (quote ar-escaped)))))
2580
2581
2582
;; Doubleslashed-Paren
2583
(put 'doubleslashed-paren 'beginning-op-at
2584
(lambda ()
2585
(if (ignore-errors (looking-at "\\\\\\\\("))
2586
(list (match-beginning 0) (match-end 0))
2587
(beginning-of-form-base "\\\\\\\\(" "\\\\\\\\)" nil (quote move) 1 nil nil (quote ar-escaped)))))
2588
2589
(put 'doubleslashed-paren 'end-op-at
2590
(lambda ()
2591
(when (ignore-errors (looking-at "\\\\\\\\("))
2592
(goto-char (match-end 0))
2593
(end-of-form-base "\\\\\\\\(" "\\\\\\\\)" nil (quote move) 1 nil nil (quote ar-escaped)))))
2594
2595
2596
;; Tabledata-P
2597
(put 'tabledata-p 'beginning-op-at
2598
(lambda ()
2599
(if (ignore-errors (looking-at "<td[^>]*>"))
2600
(list (match-beginning 0) (match-end 0))
2601
(beginning-of-form-base "<td[^>]*>" "</td>" nil (quote move) 1 nil nil nil))))
2602
2603
(put 'tabledata-p 'end-op-at
2604
(lambda ()
2605
(when (ignore-errors (looking-at "<td[^>]*>"))
2606
(goto-char (match-end 0))
2607
(end-of-form-base "<td[^>]*>" "</td>" nil (quote move) 1 nil nil nil))))
2608
2609
2610
;; Slashed-Paren
2611
(put 'slashed-paren 'beginning-op-at
2612
(lambda ()
2613
(if (ignore-errors (looking-at "\\\\("))
2614
(list (match-beginning 0) (match-end 0))
2615
(beginning-of-form-base "\\\\(" "\\\\)" nil (quote move) 1 nil nil (quote ar-escaped)))))
2616
2617
(put 'slashed-paren 'end-op-at
2618
(lambda ()
2619
(when (ignore-errors (looking-at "\\\\("))
2620
(goto-char (match-end 0))
2621
(end-of-form-base "\\\\(" "\\\\)" nil (quote move) 1 nil nil (quote ar-escaped)))))
2622
2623
2624
;; Xsl-Stylesheet-P
2625
(put 'xsl-stylesheet-p 'beginning-op-at
2626
(lambda ()
2627
(if (ignore-errors (looking-at "<xsl:stylesheet[^<]+>.*$"))
2628
(list (match-beginning 0) (match-end 0))
2629
(beginning-of-form-base "<xsl:stylesheet[^<]+>.*$" "</xsl:stylesheet>" nil (quote move) 1 nil nil nil))))
2630
2631
(put 'xsl-stylesheet-p 'end-op-at
2632
(lambda ()
2633
(when (ignore-errors (looking-at "<xsl:stylesheet[^<]+>.*$"))
2634
(goto-char (match-end 0))
2635
(end-of-form-base "<xsl:stylesheet[^<]+>.*$" "</xsl:stylesheet>" nil (quote move) 1 nil nil nil))))
2636
2637
2638
;; Xsl-Template-P
2639
(put 'xsl-template-p 'beginning-op-at
2640
(lambda ()
2641
(if (ignore-errors (looking-at "<xsl:template[^<]+>.*$"))
2642
(list (match-beginning 0) (match-end 0))
2643
(beginning-of-form-base "<xsl:template[^<]+>.*$" "</xsl:template>" nil (quote move) 1 nil nil nil))))
2644
2645
(put 'xsl-template-p 'end-op-at
2646
(lambda ()
2647
(when (ignore-errors (looking-at "<xsl:template[^<]+>.*$"))
2648
(goto-char (match-end 0))
2649
(end-of-form-base "<xsl:template[^<]+>.*$" "</xsl:template>" nil (quote move) 1 nil nil nil))))
2650
2651
2652
;; ML data-forms end
2653
2654
;; ar-insert-thingatpt-th-funktionen start
2655
2656
(defun ar-th (thing &optional arg no-delimiters iact)
2657
"Returns a buffer substring according to THING.
2658
THING may be a well known form as `symbol',
2659
`list', `sexp', `defun' or a newly defined THING.
2660
When mark-thingatpt is `t' - the default - a found THING
2661
is set as current region, enabling further action on them
2662
2663
If ARG is greater 1, the arg-th thing forward is return, with
2664
negative value before
2665
If NO-DELIMITERS, set by user functions
2666
with universal-argument for example, THING returned is
2667
stripped by delimiters resp. markup "
2668
(let ((no-delimiters (or no-delimiters (eq 4 (prefix-numeric-value arg))))
2669
(arg (or arg (setq arg 1))))
2670
(when (symbolp arg) (setq arg '-1))
2671
(if (and (not (eq 1 arg))(not (eq 4 (prefix-numeric-value arg))))
2672
(when (or (< 1 arg) (> 1 arg))
2673
(ar-th-forward thing arg (interactive-p)))
2674
(condition-case nil
2675
(let* ((bounds (ar-th-bounds thing no-delimiters))
2676
(beg (if no-delimiters
2677
(cond ((ignore-errors (numberp (car-safe bounds)))
2678
(car-safe bounds))
2679
((ignore-errors (caar bounds))
2680
(caar bounds))
2681
(t (car-safe bounds)))
2682
(cond ((ignore-errors (caar bounds))
2683
(caar bounds))
2684
(t (car-safe bounds)))))
2685
(end (if no-delimiters (car-safe (cdr-safe bounds)) (or (ignore-errors (cadr (cadr bounds)))(ignore-errors (cdr (cadr bounds)))(cdr bounds))))
2686
erg)
2687
(when (and beg end)
2688
(setq erg
2689
(buffer-substring-no-properties beg end))
2690
(when (or thing-copy-region iact)
2691
(ar-th-mark thing nil beg end))
2692
(when (or thing-copy-region iact) (kill-new erg))
2693
(when iact (message "%s" erg))
2694
erg))
2695
(error nil)))))
2696
2697
(defun ar--th-bounds-char-return (beg end &optional iact no-check orig no-delimiters)
2698
(when (and beg end
2699
(not (eq beg end))
2700
(or (eobp)
2701
(or no-check
2702
(<= orig end))))
2703
(when iact (message "%s %s" beg end))
2704
(if no-delimiters
2705
(cons (1+ beg) (1- beg))
2706
(cons beg end))))
2707
2708
(defun ar--th-bounds-list-return (beg end &optional iact no-check orig no-delimiters)
2709
(message "%s" no-delimiters)
2710
(let (erg)
2711
;; (message "%s" (ignore-errors (car end)))
2712
(when
2713
(and beg end
2714
(not (eq beg end))
2715
(or (eobp)
2716
(or no-check
2717
(<= orig
2718
;; (or
2719
(ignore-errors (car end))
2720
;; (ignore-errors (cdr end))
2721
;; )
2722
))))
2723
(when iact (message "%s %s" beg end))
2724
(if no-delimiters
2725
(progn
2726
(push (car end) erg)
2727
(push (cdr beg) erg))
2728
(push end erg)
2729
(push beg erg))
2730
erg)))
2731
2732
(defun ar-th-bounds (thing &optional no-delimiters iact no-check)
2733
"Determine the start and end buffer locations for the THING at point.
2734
THING is a symbol which specifies the kind entity you want.
2735
2736
A boolean value NO-DELIMITERS says if THING boundaries should extend to markups, delimiters or not.
2737
Call THING by his name, i.e. ar-word-atpt etc. IACT is t, if function has been called interactively
2738
2739
With NO-CHECK, sanity-check `<= orig end' is suppressed - used by backward moves
2740
2741
With NO-DELIMITERS
2742
Returns two lists composed of positions of delimiters "
2743
(ignore-errors
2744
(if (eq thing 'region)
2745
(ignore-errors (cons (region-beginning) (region-end)))
2746
(save-excursion
2747
(let* ((orig (point))
2748
(beg (funcall (get thing 'beginning-op-at)))
2749
(end (and beg (funcall (get thing 'end-op-at)))))
2750
(if (numberp beg)
2751
(ar--th-bounds-char-return beg end iact no-check orig no-delimiters)
2752
(ar--th-bounds-list-return beg end iact no-check orig no-delimiters)))))))
2753
2754
(defun ar-th-beg (thing &optional arg iact)
2755
"Return beginning position of THING. "
2756
(condition-case nil
2757
(let* ((bounds (ar-th-bounds thing arg))
2758
(beg (or (ignore-errors (caar bounds)) (car-safe bounds))))
2759
(when iact
2760
(message " %s " beg)
2761
(kill-new (format "%s" beg)))
2762
beg)
2763
(error nil)))
2764
2765
(defun ar-th-end (thing &optional arg iact)
2766
(condition-case nil
2767
(let* ((bounds (ar-th-bounds thing arg))
2768
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr bounds)))))
2769
(when iact
2770
(message " %s " end))
2771
end)
2772
(error nil)))
2773
2774
(defun ar-th-gotobeg (thing &optional arg iact)
2775
"Goto char beginning, core function "
2776
(condition-case nil
2777
(let* ((bounds (ar-th-bounds thing arg iact t))
2778
(beg (caar bounds)))
2779
(when iact
2780
(message " %s " beg))
2781
(goto-char beg))
2782
(error nil)))
2783
2784
(defun ar-th-gotoend (thing &optional arg iact)
2785
"Goto char end, core function "
2786
(condition-case nil
2787
(let* ((bounds (ar-th-bounds thing arg t))
2788
(end (car (cadr bounds))))
2789
(when iact
2790
(message " %s " end))
2791
(if (eq thing 'paragraph)
2792
(goto-char end)
2793
(goto-char end)))
2794
(error nil)))
2795
2796
(defun ar-th-length (thing &optional arg iact)
2797
(ignore-errors
2798
(let* ((bounds (ar-th-bounds thing arg))
2799
(beg (caar bounds))
2800
(end (or (ignore-errors (cadr (cadr bounds)))(ignore-errors (cdr (cadr bounds)))))
2801
(length (- end beg)))
2802
(when iact
2803
(message " %s " (format "%s" length)))
2804
length)))
2805
2806
(defun ar-th-ratio-base (cla elt &optional beg end ratio iact)
2807
(let ((beg
2808
(cond (beg beg)
2809
((use-region-p)
2810
(region-beginning))
2811
(t
2812
(funcall (intern-soft (concat "ar-" (format "%s" elt) "-beginning-position-atpt"))))))
2813
(end
2814
(cond (end (copy-marker end))
2815
((use-region-p)
2816
(copy-marker (region-end)))
2817
(t
2818
(condition-case nil (copy-marker (funcall (intern-soft (concat "ar-" (format "%s" elt) "-end-position-atpt")))) (error nil))))))
2819
(ar-th-ratio elt cla beg end ratio iact)))
2820
2821
(defun ar-th-ratio (thing cla &optional beg end ratio iact)
2822
(save-excursion
2823
(ignore-errors
2824
(let* (bounds
2825
(beg (or beg (and (setq bounds (ar-th-bounds thing)) (caar bounds))))
2826
(end (or end (cadr (cadr bounds))))
2827
(matchcount 0)
2828
(erg 0)
2829
len)
2830
(goto-char beg)
2831
(setq erg
2832
(cond ((member cla ar-atpt-classes)
2833
(if (featurep 'xemacs)
2834
(string-to-number (string-strip (count-matches (eval cla)) nil "a-z "))
2835
(count-matches (concat "[[:" (format "%s" cla) ":]]") (or beg (point-min)) (or end (point-max)))))
2836
(t (if (functionp (intern-soft (concat "ar-forward-" (format "%s" cla) "-atpt")))
2837
(progn
2838
(while (and (< (point) end)
2839
(funcall (intern-soft (concat "ar-forward-" (format "%s" cla) "-atpt"))))
2840
(setq matchcount (1+ matchcount)))
2841
matchcount)
2842
(while (and (< (point) end)
2843
(search-forward cla end t 1))
2844
(setq matchcount (1+ matchcount)))
2845
matchcount))))
2846
(when ratio
2847
(progn
2848
(setq len (string-to-number (format "%f" (- end beg))))
2849
(setq erg (/ matchcount len))
2850
(when iact (message "erg: %f" erg))
2851
erg))
2852
(when iact (message "%s" erg))
2853
erg))))
2854
2855
(defun ar-th-copy (thing &optional arg iact)
2856
(condition-case nil
2857
(let ((newcopy (ar-th thing)))
2858
(when newcopy
2859
(progn
2860
(unless (string= newcopy (car kill-ring)) (kill-new newcopy))
2861
(when iact
2862
(message " %s" newcopy))
2863
newcopy)))
2864
(error nil)))
2865
2866
(defun ar-th-trim (thing &optional left right)
2867
"Trims given THING at point.
2868
If boundaries of thing are know, use `ar-th-trim-base' directly. "
2869
(let* ((bounds (ar-th-bounds thing))
2870
(beg (or (ignore-errors (caar bounds)) (car-safe bounds)))
2871
(end (or (ignore-errors (cadr (cadr bounds)))(ignore-errors (cdr (cadr bounds)))(ignore-errors (cdr bounds)))))
2872
(ar-th-trim-base beg end left right)))
2873
2874
(defun ar-th-trim-base (beg end left right)
2875
"Trim buffer-substring resp. to args starting-point, end-point, left-trim, right-trim. "
2876
(cond ((and left right)
2877
(goto-char end)
2878
(delete-char -1)
2879
(goto-char beg)
2880
(delete-char 1))
2881
(right
2882
(goto-char end)
2883
(delete-char -1))
2884
(left
2885
(goto-char beg)
2886
(delete-char 1))
2887
(t (goto-char end)
2888
(delete-char -1)
2889
(goto-char beg)
2890
(delete-char 1))))
2891
2892
(defun ar-th-trim-left (thing)
2893
(ar-th-trim thing t))
2894
2895
(defun ar-th-trim-right (thing)
2896
(ar-th-trim thing nil t))
2897
2898
(defun ar-th-peel (thing &optional arg iact)
2899
"Remove the outer element of an hierarchical form.
2900
2901
\(foo (bar baz)) --> (bar baz)
2902
--^-----------
2903
2904
\[foo [bar baz]] --> [bar baz]
2905
--^-----------
2906
2907
Inspired by stuff like `paredit-splice-sexp-killing-backward'; however, instead of working `-backward' or `-forward' deletes expression at point.
2908
2909
"
2910
(let ((outer (ar-th-bounds thing))
2911
inner)
2912
(when (eq (point) (car outer))(forward-char 1))
2913
(skip-syntax-forward "^(")
2914
(setq inner (point))
2915
(goto-char (cdr outer))
2916
(if (< 0 (skip-syntax-backward "^)"))
2917
(progn
2918
(delete-region (point) (cdr outer)))
2919
(delete-char -1)
2920
(goto-char inner)
2921
(delete-region (car outer) (point)))))
2922
2923
(defun ar-th-comment (thing &optional arg iact)
2924
"Comment or uncomment THING "
2925
(condition-case nil
2926
(let* ((bounds (ar-th-bounds thing))
2927
(beg (caar bounds))
2928
(end (or (ignore-errors (cadr (cadr bounds)))(ignore-errors (cdr (cadr bounds))))))
2929
(when (and beg end)
2930
(goto-char beg)
2931
(comment-region beg end)))
2932
(error nil)))
2933
2934
(defun ar-th-mark (thing &optional bounds beg end)
2935
" "
2936
(condition-case nil
2937
(let* ((bounds (unless (and beg end) (or bounds (ar-th-bounds thing))))
2938
(beg (or beg (ignore-errors (caar bounds))))
2939
(end (or end (or (ignore-errors (cadr (cadr bounds))) (ignore-errors (cdr (cadr bounds)))))))
2940
(when (and beg end)
2941
(goto-char beg)
2942
(push-mark (point) t t)
2943
(goto-char end)
2944
(exchange-point-and-mark)))
2945
(error nil)))
2946
2947
;; uses sgml-tag from sgml-mode.el
2948
(defun ar-th-hide (thing &optional beg end)
2949
"Hide visibility of existing things at point. "
2950
(let ((modified (buffer-modified-p))
2951
(inhibit-read-only t) bounds)
2952
(unless (and beg end)
2953
(setq bounds (ar-th-bounds thing))
2954
(setq beg (caar bounds))
2955
(setq end (or (ignore-errors (cadr (cadr bounds)))(ignore-errors (cdr (cadr bounds))))))
2956
(if (and beg end)
2957
(progn
2958
(hs-make-overlay beg end 'code)
2959
(set-buffer-modified-p modified))
2960
(error (concat "No " (format "%s" thing) " at point!")))))
2961
2962
(defun ar-th-show (thing &optional beg end)
2963
"Remove invisibility of existing things at point. "
2964
(let ((modified (buffer-modified-p))
2965
(inhibit-read-only t) bounds)
2966
(unless (and beg end)
2967
(setq bounds (ar-th-bounds thing))
2968
(setq beg (caar bounds))
2969
(setq end (or (ignore-errors (cadr (cadr bounds)))(ignore-errors (cdr (cadr bounds))))))
2970
(if (and beg end)
2971
(progn
2972
(hs-discard-overlays beg end)
2973
(set-buffer-modified-p modified))
2974
(error (concat "No " (format "%s" thing) " at point!")))))
2975
2976
(defun ar-th-hide-show (&optional thing beg end)
2977
"Toggle visibility of existing things at point. "
2978
(interactive)
2979
(let ((modified (buffer-modified-p))
2980
(inhibit-read-only t)
2981
bounds beg end)
2982
(setq beg (or beg (and (use-region-p) (region-beginning))))
2983
(setq end (or end (and (use-region-p) (region-end))))
2984
(unless (and beg end)
2985
(setq bounds (ar-th-bounds thing))
2986
(setq beg (caar bounds))
2987
(setq end (cadr (cadr bounds))))
2988
(if (overlays-in beg end)
2989
(hs-discard-overlays beg end)
2990
(hs-make-overlay beg end 'code))
2991
(set-buffer-modified-p modified)))
2992
2993
(defun ar-th-separate (thing &optional arg iact)
2994
" "
2995
(let* ((bounds (ar-th-bounds thing))
2996
(beg (copy-marker (caar bounds)))
2997
(end (copy-marker (or (ignore-errors (cadr (cadr bounds)))(ignore-errors (cdr (cadr bounds)))))))
2998
(goto-char beg)
2999
(when (not (looking-back "^[ \t\r\f\n]+"))
3000
(newline ar-newlines-separate-before))
3001
(indent-according-to-mode)
3002
(save-excursion
3003
(goto-char end)
3004
(cond ((eobp)
3005
(newline ar-newlines-separate-after))
3006
((looking-at "[ \f\r\t\n]*$")
3007
nil)
3008
(t (newline ar-newlines-separate-after)))
3009
(indent-according-to-mode)
3010
(list beg end))))
3011
3012
(defun ar-thing-in-thing (thing-1th thing-2th th-function &optional iact beg-2th end-2th)
3013
"Addresses things of 1th kind within the borders of the 2th,
3014
If optional positions BEG-2TH END-2TH are given, works on them instead.
3015
With optional arg IACT, the resulting list is sent to the message-buffer too. "
3016
(let* ((bounds (ar-th-bounds thing-2th))
3017
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
3018
(end (or (ignore-errors (cadr (cadr bounds)))(ignore-errors (cdr (cadr bounds)))(cdr-safe bounds)))
3019
(orig beg)
3020
erg-thing-in-thing)
3021
(save-excursion
3022
(save-restriction
3023
(narrow-to-region beg end)
3024
(goto-char beg)
3025
(if (eq th-function 'ar-th-sort)
3026
(ar-th-sort thing-1th nil beg end nil nil nil)
3027
(while (and (not (eobp))
3028
(ar-th-forward thing-1th 1 iact t)
3029
(<= orig (point)))
3030
(setq orig (point))
3031
(forward-char -1)
3032
(add-to-list 'erg-thing-in-thing
3033
(funcall th-function thing-1th))
3034
(when (< (point) orig)(goto-char orig))))))
3035
erg-thing-in-thing))
3036
3037
(defun ar-th-kill (thing &optional arg iact)
3038
" "
3039
(condition-case nil
3040
(let* ((bounds (ar-th-bounds thing))
3041
(beg (caar bounds))
3042
(end (or (ignore-errors (cadr (cadr bounds)))(ignore-errors (cdr (cadr bounds))))))
3043
(kill-region beg end))
3044
(error nil)))
3045
3046
(defun ar-th-kill-backward (thing &optional arg iact)
3047
" "
3048
(ar-th-backward thing arg iact)
3049
(condition-case nil
3050
(let* ((bounds (ar-th-bounds thing))
3051
(beg (caar bounds))
3052
(end (or (ignore-errors (cadr (cadr bounds)))(ignore-errors (cdr (cadr bounds))))))
3053
(kill-region beg end))
3054
(error nil)))
3055
3056
(defun ar-th-delete (thing &optional arg iact)
3057
" "
3058
(condition-case nil
3059
(let* ((bounds (ar-th-bounds thing))
3060
(beg (caar bounds))
3061
(end (or (ignore-errors (cadr (cadr bounds)))(ignore-errors (cdr (cadr bounds))))))
3062
(delete-region beg end))
3063
(error nil)))
3064
3065
(defun ar-th-delete-in-region (thing beg end &optional iact)
3066
"Delete THING in region. Delete line, if empty afterwards. "
3067
(condition-case nil
3068
(save-excursion
3069
(goto-char beg)
3070
(let ((orig (point)))
3071
(while (progn (ar-th-forward thing) (< orig (point)))
3072
(let ((bounds (ar-th-bounds thing)))
3073
(delete-region (caar bounds) (cadr (cadr bounds)))
3074
(when iact (message "%s at pos %d %d %s " thing (caar bounds) (cadr (cadr bounds)) "deleted"))
3075
(when (and (empty-line-p) (not (eobp)))
3076
(delete-region (line-beginning-position) (1+ (line-end-position))))))))))
3077
3078
(defun ar-th-commatize (thing &optional arg iact)
3079
" "
3080
(condition-case nil
3081
(let* ((bounds (ar-th-bounds thing))
3082
(beg (caar bounds))
3083
(end (or (ignore-errors (cadr (cadr bounds)))(ignore-errors (cdr (cadr bounds))))))
3084
(goto-char end)
3085
(insert ","))
3086
(error nil)))
3087
3088
(defun ar-th-quote (thing &optional arg iact)
3089
" "
3090
(condition-case nil
3091
(let* ((bounds (ar-th-bounds thing))
3092
(beg (caar bounds))
3093
(end (or (ignore-errors (cadr (cadr bounds)))(ignore-errors (cdr (cadr bounds))))))
3094
(goto-char beg)
3095
(insert "'"))
3096
(error nil)))
3097
3098
(defun ar-th-interactive-backward-form (ap ep)
3099
(goto-char ep)
3100
(push-mark ap)
3101
(exchange-point-and-mark)
3102
(kill-new (buffer-substring-no-properties ap ep)))
3103
3104
(defun ar-th-set-bounds (thing)
3105
"Sets values of `bounds', `ap' and `ep' -- beg- and endpoint. "
3106
(setq bounds (ar-th-bounds thing))
3107
(setq ap (caar bounds))
3108
(setq ep (cadr (cadr bounds))))
3109
3110
(defun ar-th-backward-fallback (arg thing)
3111
(let (bounds ap ep last)
3112
(while
3113
(> 0 arg)
3114
(setq arg (1+ arg))
3115
(ar-th-set-bounds thing))
3116
(when ap
3117
(if iact
3118
(ar-th-interactive-backward-form ap ep)
3119
(goto-char ap))
3120
(point))))
3121
3122
(defun ar-th-forward-fallback (arg after thing)
3123
(let (bounds ap ep last)
3124
(while (< 0 arg)
3125
(setq arg (1- arg))
3126
(ar-th-set-bounds thing)
3127
(when ep
3128
(if after (goto-char ep)(goto-char (1- ep)))
3129
(setq last (point))))
3130
last))
3131
3132
(defun ar-th-forward-function-call (arg)
3133
(let (erg)
3134
(while (< 0 arg)
3135
(setq erg (funcall (get thing 'forward-op-at)))
3136
(setq arg (1- arg)))
3137
erg))
3138
3139
(defun ar-th-backward-function-call (arg)
3140
(let (erg)
3141
(while
3142
(> 0 arg)
3143
(setq erg (funcall (get thing 'backward-op-at)))
3144
(setq arg (1+ arg)))
3145
erg))
3146
3147
(defun ar-th-forward (thing &optional arg iact after)
3148
"Return end-position, if successful, nil otherwise.
3149
3150
searches backward with negative argument "
3151
(let ((orig (point))
3152
(arg (or arg 1))
3153
erg)
3154
(if (< 0 arg)
3155
(progn
3156
(if (functionp (get thing 'forward-op-at))
3157
(setq erg (ar-th-forward-function-call arg))
3158
(setq erg (ar-th-forward-fallback arg after thing)))
3159
;; (and erg (consp erg) (setq erg (cdr erg)))
3160
(when (ignore-errors (< orig erg)) erg))
3161
(if (functionp (get thing 'backward-op-at))
3162
(setq erg (ar-th-backward-function-call arg))
3163
(setq erg (ar-th-backward-fallback arg thing)))
3164
;; (and erg (consp erg) (setq erg (cdr erg)))
3165
(when (> orig erg) erg))))
3166
3167
(defun ar-th-un-ml (thing &optional beg end)
3168
(save-excursion
3169
(save-restriction
3170
(when (and beg end)
3171
(narrow-to-region beg end))
3172
(let\* ((startstring (eval (intern-soft (concat (format "%s" thing) "-startstring-atpt"))))
3173
(endstring (concat (eval (intern-soft (concat (format "%s" thing) "-endstring-atpt")))))
3174
(begstringpos
3175
(progn
3176
(beginning-of-form-base startstring endstring)
3177
(if (looking-at startstring)
3178
(list (match-beginning 0) (match-end 0))
3179
(error "Can't see startstring"))))
3180
(thisbeg (copy-marker (car begstringpos)))
3181
thisend)
3182
(forward-char 1)
3183
(end-of-form-base startstring endstring)
3184
(when (looking-back endstring)
3185
(replace-match "")
3186
(setq thisend (copy-marker (point)))
3187
(delete-region (car begstringpos) (cadr begstringpos))
3188
(list thisbeg thisend))))
3189
(widen)))
3190
3191
(defun ar-th-backward (thing &optional arg iact)
3192
"Returns beg and end of THING before point as a list. "
3193
(condition-case nil
3194
(ar-th-forward thing (- (or arg 1)) iact)
3195
(error nil)))
3196
3197
(defun ar-th-before (thing &optional arg iact)
3198
" "
3199
(let* ((arg (or arg -1))
3200
(bounds-point-at (ar-th-bounds thing))
3201
(beg (car-safe bounds-point-at))
3202
bounds)
3203
(when beg (goto-char beg))
3204
(setq bounds (ar-th-backward thing (abs arg)))
3205
(ar-th thing arg iact)))
3206
3207
(defun ar-th-bounds-before (thing &optional arg iact)
3208
" "
3209
(save-excursion
3210
(let* ((arg (or arg -1))
3211
(bounds-point-at (ar-th-bounds thing))
3212
(beg (car-safe bounds-point-at))
3213
(bounds
3214
(if beg (progn
3215
(goto-char beg)
3216
(ar-th-bounds thing))
3217
(ar-th-backward thing (abs arg))
3218
(ar-th-bounds thing))))
3219
(when iact (message "%s" bounds))
3220
bounds)))
3221
3222
(defun ar-th-before-beg-pos (thing &optional arg iact)
3223
" "
3224
(save-excursion
3225
(let* ((arg (or arg -1))
3226
(bounds-point-at (ar-th-bounds thing))
3227
(beg (car-safe bounds-point-at))
3228
bounds)
3229
(when beg (goto-char beg))
3230
(ar-th-backward thing (abs arg))
3231
(let ((beg (car (ar-th-bounds thing))))
3232
(when iact (message "%s" beg)) beg))))
3233
3234
(defun ar-th-before-end-pos (thing &optional arg iact)
3235
" "
3236
(save-excursion
3237
(let* ((arg (or arg -1))
3238
(bounds-point-at (ar-th-bounds thing))
3239
(beg (car-safe bounds-point-at))
3240
bounds)
3241
(when beg (goto-char beg))
3242
(ar-th-backward thing (abs arg))
3243
(let ((end (cdr-safe (ar-th-bounds thing))))
3244
(when iact (message "%s" end)) end))))
3245
3246
(defun ar-th-after (thing &optional arg iact)
3247
" "
3248
(let* ((arg (or arg 1))
3249
(bounds-point-at (ar-th-bounds thing))
3250
(end (cdr-safe bounds-point-at))
3251
bounds)
3252
(when end (goto-char end))
3253
(ar-th-forward thing arg)
3254
(ar-th thing arg iact)))
3255
3256
(defun ar-th-bounds-after (thing &optional no-delimiters iact)
3257
" "
3258
(save-excursion
3259
(let ((bounds
3260
(progn
3261
(ar-th-forward thing no-delimiters)
3262
(ar-th-bounds thing no-delimiters))))
3263
(when iact (message "%s" bounds)) bounds)))
3264
3265
(defun ar-th-after-beg-pos (thing &optional arg iact)
3266
" "
3267
(save-excursion
3268
(let* ((arg (or arg 1))
3269
(bounds-point-at (ar-th-bounds thing))
3270
(end (cdr-safe bounds-point-at))
3271
bounds)
3272
(when end (goto-char end))
3273
(let* ((bounds (progn (ar-th-forward thing arg)
3274
(ar-th-bounds thing)))
3275
(beg (car-safe bounds)))
3276
(when iact (message "%s" beg)) beg))))
3277
3278
(defun ar-th-after-end-pos (thing &optional arg iact)
3279
" "
3280
(save-excursion
3281
(let* ((arg (or arg 1))
3282
(bounds-point-at (ar-th-bounds thing))
3283
(end (cdr-safe bounds-point-at))
3284
bounds)
3285
(when end (goto-char end))
3286
(let* ((bounds (progn
3287
(ar-th-forward thing arg)
3288
(ar-th-bounds thing)))
3289
(end (cdr-safe bounds)))
3290
(when iact (message "%s" end)) end))))
3291
3292
(defvar paired-start-pos nil)
3293
3294
(defun ar-th-transpose (thing &optional arg iact)
3295
"Returns position, when called from a program
3296
end of transposed section. "
3297
(let* ((pos (copy-marker (point)))
3298
(first (ar-th-bounds thing))
3299
(pos1 (if (ignore-errors (<= (car first) pos))
3300
first
3301
(ar-th-bounds-before thing)))
3302
(pos2 (progn
3303
(when (ignore-errors (< 1 arg))
3304
(ar-th-forward thing arg))
3305
(ar-th-bounds-after thing)))
3306
(a (car pos1))
3307
(b (copy-marker (cdr pos1)))
3308
(c (car pos2))
3309
(d (copy-marker (cdr pos2))))
3310
(transpose-regions a b c d)
3311
(if iact
3312
(progn
3313
(message "%s" (point))
3314
(point))
3315
(goto-char d)
3316
d)))
3317
3318
;; credits to sort-subr, sort.el
3319
;; (reverse nextrecfun endrecfun &optional startkeyfun endkeyfun predicate)
3320
(defun ar-th-sort (thing reverse beg end startkeyfun endkeyfun predicate)
3321
(save-excursion
3322
(save-restriction
3323
(unless (buffer-narrowed-p)(narrow-to-region beg end))
3324
(goto-char (point-min))
3325
(let ((reverse (or reverse nil))
3326
(startkeyfun (or startkeyfun nil))
3327
(endkeyfun (or endkeyfun nil))
3328
(predicate (or predicate nil))
3329
(this-beg (ar-th-beg thing 0)))
3330
(while (not (or (eobp)(stringp (ar-th thing))))
3331
(forward-char 1))
3332
(if (eq thing 'number)
3333
(ar-sort-numbers-subr reverse
3334
(function (lambda () (if (ar-th-forward thing) (ar-th-gotobeg thing) (goto-char (point-max)))))
3335
(function (lambda () (ar-th-gotoend thing)(forward-char 1))) startkeyfun endkeyfun predicate)
3336
(sort-subr reverse
3337
(function (lambda () (if (ar-th-forward thing) (ar-th-gotobeg thing) (goto-char (point-max)))))
3338
(function (lambda () (ar-th-gotoend thing)(forward-char 1))) startkeyfun endkeyfun predicate))))))
3339
3340
(defun ar-sort-numbers-subr (reverse nextrecfun endrecfun
3341
&optional startkeyfun endkeyfun predicate)
3342
"A patched sort-subr. Divides buffer into records and sort them.
3343
3344
We divide the accessible portion of the buffer into disjoint pieces
3345
called sort records. A portion of each sort record (perhaps all of
3346
it) is designated as the sort key. The records are rearranged in the
3347
buffer in order by their sort keys. The records may or may not be
3348
contiguous.
3349
3350
Usually the records are rearranged in order of ascending sort key.
3351
If REVERSE is non-nil, they are rearranged in order of descending sort key.
3352
The variable `sort-fold-case' determines whether alphabetic case affects
3353
the sort order.
3354
3355
The next four arguments are functions to be called to move point
3356
across a sort record. They will be called many times from within sort-subr.
3357
3358
NEXTRECFUN is called with point at the end of the previous record.
3359
It moves point to the start of the next record.
3360
It should move point to the end of the buffer if there are no more records.
3361
The first record is assumed to start at the position of point when sort-subr
3362
is called.
3363
3364
ENDRECFUN is called with point within the record.
3365
It should move point to the end of the record.
3366
3367
STARTKEYFUN moves from the start of the record to the start of the key.
3368
It may return either a non-nil value to be used as the key, or
3369
else the key is the substring between the values of point after
3370
STARTKEYFUN and ENDKEYFUN are called. If STARTKEYFUN is nil, the key
3371
starts at the beginning of the record.
3372
3373
ENDKEYFUN moves from the start of the sort key to the end of the sort key.
3374
ENDKEYFUN may be nil if STARTKEYFUN returns a value or if it would be the
3375
same as ENDRECFUN.
3376
3377
PREDICATE is the function to use to compare keys. If keys are numbers,
3378
it defaults to `<', otherwise it defaults to `string<'."
3379
;; Heuristically try to avoid messages if sorting a small amt of text.
3380
(let ((messages (> (- (point-max) (point-min)) 50000)))
3381
(save-excursion
3382
(if messages (message "Finding sort keys..."))
3383
(let* ((sort-lists (sort-build-lists nextrecfun endrecfun
3384
startkeyfun endkeyfun))
3385
(old (reverse sort-lists))
3386
(case-fold-search sort-fold-case))
3387
(if (null sort-lists)
3388
()
3389
(or reverse (setq sort-lists (nreverse sort-lists)))
3390
(if messages (message "Sorting records..."))
3391
(setq sort-lists
3392
(sort sort-lists
3393
(lambda (a b)
3394
(< (string-to-number (buffer-substring-no-properties (caar a) (cdar a)))(string-to-number (buffer-substring-no-properties (caar b)(cdar b)))))))
3395
(if reverse (setq sort-lists (nreverse sort-lists)))
3396
(if messages (message "Reordering buffer..."))
3397
(sort-reorder-buffer sort-lists old)))
3398
(if messages (message "Reordering buffer... Done"))))
3399
nil)
3400
3401
(defun ar-th-delim (thing &optional arg beg-char end-char iact beg end)
3402
"Process begin and end of region according to value of
3403
`delim-action'
3404
If no region is active, process borders of THING-at-point
3405
according to value of delim-action-beginning- resp. -end-position
3406
Default is symbol-at.
3407
With \C-u or arg `escaped' to `t': insert escaped doublequotes"
3408
(interactive "*p")
3409
(save-restriction
3410
(let ((orig (point))
3411
(beg (or beg (when (use-region-p) (region-beginning))))
3412
(end (ignore-errors (copy-marker (or (car-safe end) end (when (use-region-p) (region-end))))))
3413
done narrow)
3414
(when (and beg end)
3415
(narrow-to-region beg end)
3416
(ar-th-delim-intern thing beg end beg-char end-char)))))
3417
3418
(defun ar-th-delim-intern (thing &optional beg end beg-char end-char)
3419
(ignore-errors
3420
(let* ((begstr (or beg-char th-beg-delimiter))
3421
(endstr (or end-char th-end-delimiter)))
3422
(when beg
3423
(goto-char beg)
3424
(delim-slash-function arg)
3425
(insert begstr)
3426
(goto-char end)
3427
(delim-slash-function arg)
3428
(insert endstr)
3429
(setq done t))
3430
(when (< (point) end)
3431
(ar-th-forward thing)
3432
(ar-th-delim-intern thing beg end beg-char end-char)))))
3433
3434
(defun delim-slash-function (arg)
3435
" "
3436
(when (eq arg 2)
3437
(insert "\\"))
3438
(when (eq arg 4)
3439
(insert "\\\\")))
3440
3441
(defun ar-th-base-copy-or (kind arg &optional iact)
3442
" "
3443
(let* ((expr (format "%s" kind))
3444
(arg (if arg (prefix-numeric-value arg) 1))
3445
(suffix
3446
(when (or (member kind ar-atpt-delimlist)
3447
;; (loop for e in ar-atpt-delimlist-unpaired if (member kind e) return e))
3448
(member kind ar-atpt-delimlist-unpaired))
3449
(if (string-match "e$" expr)
3450
"d" "ed")))
3451
erg)
3452
(if (< 0 arg)
3453
(if (use-region-p)
3454
(setq erg (funcall (intern-soft (concat "ar-" expr "-region-atpt")) arg))
3455
(or (setq erg (funcall (intern-soft (concat "ar-" expr suffix "-atpt")) arg))
3456
(funcall (intern-soft (concat "ar-" expr "-" copy-or-alternative "-atpt")) arg)))
3457
(setq erg (funcall (intern-soft (concat "ar-kill-" expr suffix "-atpt")) arg)))))
3458
3459
(defvar ar-werkstatt-mode-map nil
3460
"Keymap used in Sh-Werkstatt mode.")
3461
(setq ar-werkstatt-mode-map
3462
(let ((map emacs-lisp-mode-map))
3463
(and (ignore-errors (require 'easymenu) t)
3464
(easy-menu-define
3465
ar-werkstatt-menu map "Werkstatt Mode menu"
3466
`("Werkstatt"
3467
;; ("Move"
3468
3469
;; ar-thing-at-point-utils-nodelim-core-menu: ar-atpt-classes end
3470
("Forms"
3471
("Delimited"
3472
3473
["braced at point" ar-braced-atpt
3474
:help " `ar-braced-atpt'
3475
Return characters of [:braced:] delimited form at point as string if any, nil otherwise. "]
3476
3477
["bracketed at point" ar-bracketed-atpt
3478
:help " `ar-bracketed-atpt'
3479
Return characters of [:bracketed:] delimited form at point as string if any, nil otherwise. "]
3480
3481
["lesser-angled at point" ar-lesser-angled-atpt
3482
:help " `ar-lesser-angled-atpt'
3483
Return characters of [:lesser-angled:] delimited form at point as string if any, nil otherwise. "]
3484
3485
["greater-angled at point" ar-greater-angled-atpt
3486
:help " `ar-greater-angled-atpt'
3487
Return characters of [:greater-angled:] delimited form at point as string if any, nil otherwise. "]
3488
3489
["left-right-singlequoted at point" ar-left-right-singlequoted-atpt
3490
:help " `ar-left-right-singlequoted-atpt'
3491
Return characters of [:left-right-singlequoted:] delimited form at point as string if any, nil otherwise. "]
3492
3493
["parentized at point" ar-parentized-atpt
3494
:help " `ar-parentized-atpt'
3495
Return characters of [:parentized:] delimited form at point as string if any, nil otherwise. "]
3496
3497
"-"
3498
3499
["backslashed at point" ar-backslashed-atpt
3500
:help " `ar-backslashed-atpt'
3501
Return characters of [:backslashed:] delimited form at point as string if any, nil otherwise. "]
3502
3503
["dollared at point" ar-dollared-atpt
3504
:help " `ar-dollared-atpt'
3505
Return characters of [:dollared:] delimited form at point as string if any, nil otherwise. "]
3506
3507
["doublequoted at point" ar-doublequoted-atpt
3508
:help " `ar-doublequoted-atpt'
3509
Return characters of [:doublequoted:] delimited form at point as string if any, nil otherwise. "]
3510
3511
["equalized at point" ar-equalized-atpt
3512
:help " `ar-equalized-atpt'
3513
Return characters of [:equalized:] delimited form at point as string if any, nil otherwise. "]
3514
3515
["hyphened at point" ar-hyphened-atpt
3516
:help " `ar-hyphened-atpt'
3517
Return characters of [:hyphened:] delimited form at point as string if any, nil otherwise. "]
3518
3519
["quoted at point" ar-quoted-atpt
3520
:help " `ar-quoted-atpt'
3521
Return characters of [:quoted:] delimited form at point as string if any, nil otherwise. "]
3522
3523
["singlequoted at point" ar-singlequoted-atpt
3524
:help " `ar-singlequoted-atpt'
3525
Return characters of [:singlequoted:] delimited form at point as string if any, nil otherwise. "]
3526
3527
["slashed at point" ar-slashed-atpt
3528
:help " `ar-slashed-atpt'
3529
Return characters of [:slashed:] delimited form at point as string if any, nil otherwise. "]
3530
3531
["underscored at point" ar-underscored-atpt
3532
:help " `ar-underscored-atpt'
3533
Return characters of [:underscored:] delimited form at point as string if any, nil otherwise. "]
3534
3535
["whitespaced at point" ar-whitespaced-atpt
3536
:help " `ar-whitespaced-atpt'
3537
Return characters of [:whitespaced:] delimited form at point as string if any, nil otherwise. "]
3538
3539
)
3540
3541
("Character Classes"
3542
3543
["[:alnum:] character class at point" ar-alnum-atpt
3544
:help " `ar-alnum-atpt'
3545
Return characters of class [:alnum:] at point as string if any, nil otherwise. "]
3546
3547
["[:alpha:] character class at point" ar-alpha-atpt
3548
:help " `ar-alpha-atpt'
3549
Return characters of class [:alpha:] at point as string if any, nil otherwise. "]
3550
3551
["[:ascii:] character class at point" ar-ascii-atpt
3552
:help " `ar-ascii-atpt'
3553
Return characters of class [:ascii:] at point as string if any, nil otherwise. "]
3554
3555
["[:blank:] character class at point" ar-blank-atpt
3556
:help " `ar-blank-atpt'
3557
Return characters of class [:blank:] at point as string if any, nil otherwise. "]
3558
3559
["[:cntrl:] character class at point" ar-cntrl-atpt
3560
:help " `ar-cntrl-atpt'
3561
Return characters of class [:cntrl:] at point as string if any, nil otherwise. "]
3562
3563
["[:digit:] character class at point" ar-digit-atpt
3564
:help " `ar-digit-atpt'
3565
Return characters of class [:digit:] at point as string if any, nil otherwise. "]
3566
3567
["[:graph:] character class at point" ar-graph-atpt
3568
:help " `ar-graph-atpt'
3569
Return characters of class [:graph:] at point as string if any, nil otherwise. "]
3570
3571
["[:lower:] character class at point" ar-lower-atpt
3572
:help " `ar-lower-atpt'
3573
Return characters of class [:lower:] at point as string if any, nil otherwise. "]
3574
3575
["[:nonascii:] character class at point" ar-nonascii-atpt
3576
:help " `ar-nonascii-atpt'
3577
Return characters of class [:nonascii:] at point as string if any, nil otherwise. "]
3578
3579
["[:print:] character class at point" ar-print-atpt
3580
:help " `ar-print-atpt'
3581
Return characters of class [:print:] at point as string if any, nil otherwise. "]
3582
3583
["[:punct:] character class at point" ar-punct-atpt
3584
:help " `ar-punct-atpt'
3585
Return characters of class [:punct:] at point as string if any, nil otherwise. "]
3586
3587
["[:space:] character class at point" ar-space-atpt
3588
:help " `ar-space-atpt'
3589
Return characters of class [:space:] at point as string if any, nil otherwise. "]
3590
3591
["[:upper:] character class at point" ar-upper-atpt
3592
:help " `ar-upper-atpt'
3593
Return characters of class [:upper:] at point as string if any, nil otherwise. "]
3594
3595
["[:xdigit:] character class at point" ar-xdigit-atpt
3596
:help " `ar-xdigit-atpt'
3597
Return characters of class [:xdigit:] at point as string if any, nil otherwise. "]
3598
3599
)
3600
3601
("Other"
3602
3603
["Angled-No-Nest at point" ar-angled-no-nest-atpt
3604
:help " `ar-angled-no-nest-atpt'
3605
Return characters of ANGLED-NO-NEST at point as string if any, nil otherwise. "]
3606
3607
["Greater-Angled-Nested at point" ar-greater-angled-nested-atpt
3608
:help " `ar-greater-angled-nested-atpt'
3609
Return characters of GREATER-ANGLED-NESTED at point as string if any, nil otherwise. "]
3610
3611
["Lesser-Angled-Nested at point" ar-lesser-angled-nested-atpt
3612
:help " `ar-lesser-angled-nested-atpt'
3613
Return characters of LESSER-ANGLED-NESTED at point as string if any, nil otherwise. "]
3614
3615
["Buffer at point" ar-buffer-atpt
3616
:help " `ar-buffer-atpt'
3617
Return characters of BUFFER at point as string if any, nil otherwise. "]
3618
3619
["Comment at point" ar-comment-atpt
3620
:help " `ar-comment-atpt'
3621
Return characters of COMMENT at point as string if any, nil otherwise. "]
3622
3623
["Csv at point" ar-csv-atpt
3624
:help " `ar-csv-atpt'
3625
Return characters of CSV at point as string if any, nil otherwise. "]
3626
3627
["Date at point" ar-date-atpt
3628
:help " `ar-date-atpt'
3629
Return characters of DATE at point as string if any, nil otherwise. "]
3630
3631
["Defun at point" ar-defun-atpt
3632
:help " `ar-defun-atpt'
3633
Return characters of DEFUN at point as string if any, nil otherwise. "]
3634
3635
["Delimited at point" ar-delimited-atpt
3636
:help " `ar-delimited-atpt'
3637
Return characters of DELIMITED at point as string if any, nil otherwise. "]
3638
3639
["Email at point" ar-email-atpt
3640
:help " `ar-email-atpt'
3641
Return characters of EMAIL at point as string if any, nil otherwise. "]
3642
3643
["Filename at point" ar-filename-atpt
3644
:help " `ar-filename-atpt'
3645
Return characters of FILENAME at point as string if any, nil otherwise. "]
3646
3647
["Filename-nondirectory at point" ar-filename-nondirectory-atpt
3648
:help " `ar-filename-atpt'
3649
Return characters of nondirectory-part of FILENAME at point as string if any, nil otherwise. "]
3650
3651
["Float at point" ar-float-atpt
3652
:help " `ar-float-atpt'
3653
Return characters of FLOAT at point as string if any, nil otherwise. "]
3654
3655
["Function at point" ar-function-atpt
3656
:help " `ar-function-atpt'
3657
Return characters of FUNCTION at point as string if any, nil otherwise. "]
3658
3659
["Ip at point" ar-ip-atpt
3660
:help " `ar-ip-atpt'
3661
Return characters of IP at point as string if any, nil otherwise. "]
3662
3663
["Isbn at point" ar-isbn-atpt
3664
:help " `ar-isbn-atpt'
3665
Return characters of ISBN at point as string if any, nil otherwise. "]
3666
3667
["Line at point" ar-line-atpt
3668
:help " `ar-line-atpt'
3669
Return characters of LINE at point as string if any, nil otherwise. "]
3670
3671
["Name at point" ar-name-atpt
3672
:help " `ar-name-atpt'
3673
Return characters of NAME at point as string if any, nil otherwise. "]
3674
3675
["Number at point" ar-number-atpt
3676
:help " `ar-number-atpt'
3677
Return characters of NUMBER at point as string if any, nil otherwise. "]
3678
3679
["Page at point" ar-page-atpt
3680
:help " `ar-page-atpt'
3681
Return characters of PAGE at point as string if any, nil otherwise. "]
3682
3683
["Paragraph at point" ar-paragraph-atpt
3684
:help " `ar-paragraph-atpt'
3685
Return characters of PARAGRAPH at point as string if any, nil otherwise. "]
3686
3687
["Paren at point" ar-paren-atpt
3688
:help " `ar-paren-atpt'
3689
Return characters of PAREN at point as string if any, nil otherwise. "]
3690
3691
["Phone at point" ar-phone-atpt
3692
:help " `ar-phone-atpt'
3693
Return characters of PHONE at point as string if any, nil otherwise. "]
3694
3695
["Region at point" ar-region-atpt
3696
:help " `ar-region-atpt'
3697
Return characters of REGION at point as string if any, nil otherwise. "]
3698
3699
["Sentence at point" ar-sentence-atpt
3700
:help " `ar-sentence-atpt'
3701
Return characters of SENTENCE at point as string if any, nil otherwise. "]
3702
3703
["Sexp at point" ar-sexp-atpt
3704
:help " `ar-sexp-atpt'
3705
Return characters of SEXP at point as string if any, nil otherwise. "]
3706
3707
["String at point" ar-string-atpt
3708
:help " `ar-string-atpt'
3709
Return characters of STRING at point as string if any, nil otherwise. "]
3710
3711
["Sh-Struct at point" ar-sh-struct-atpt
3712
:help " `ar-sh-struct-atpt'
3713
Return characters of SH-STRUCT at point as string if any, nil otherwise. "]
3714
3715
["Symbol at point" ar-symbol-atpt
3716
:help " `ar-symbol-atpt'
3717
Return characters of SYMBOL at point as string if any, nil otherwise. "]
3718
3719
["Url at point" ar-url-atpt
3720
:help " `ar-url-atpt'
3721
Return characters of URL at point as string if any, nil otherwise. "]
3722
3723
["Word at point" ar-word-atpt
3724
:help " `ar-word-atpt'
3725
Return characters of WORD at point as string if any, nil otherwise. "]
3726
3727
["Word-Alpha-Only at point" ar-word-alpha-only-atpt
3728
:help " `ar-word-alpha-only-atpt'
3729
Return characters of WORD-ALPHA-ONLY at point as string if any, nil otherwise. "]
3730
3731
)
3732
)
3733
("Edit"
3734
("Copy"
3735
("Character classes"
3736
3737
["Copy [:alnum:] char class at point" ar-copy-alnum-atpt
3738
:help " `ar-copy-alnum-atpt'
3739
Copy ALNUM at point if any, nil otherwise. "]
3740
3741
["Copy [:alpha:] char class at point" ar-copy-alpha-atpt
3742
:help " `ar-copy-alpha-atpt'
3743
Copy ALPHA at point if any, nil otherwise. "]
3744
3745
["Copy [:ascii:] char class at point" ar-copy-ascii-atpt
3746
:help " `ar-copy-ascii-atpt'
3747
Copy ASCII at point if any, nil otherwise. "]
3748
3749
["Copy [:blank:] char class at point" ar-copy-blank-atpt
3750
:help " `ar-copy-blank-atpt'
3751
Copy BLANK at point if any, nil otherwise. "]
3752
3753
["Copy [:cntrl:] char class at point" ar-copy-cntrl-atpt
3754
:help " `ar-copy-cntrl-atpt'
3755
Copy CNTRL at point if any, nil otherwise. "]
3756
3757
["Copy [:digit:] char class at point" ar-copy-digit-atpt
3758
:help " `ar-copy-digit-atpt'
3759
Copy DIGIT at point if any, nil otherwise. "]
3760
3761
["Copy [:graph:] char class at point" ar-copy-graph-atpt
3762
:help " `ar-copy-graph-atpt'
3763
Copy GRAPH at point if any, nil otherwise. "]
3764
3765
["Copy [:lower:] char class at point" ar-copy-lower-atpt
3766
:help " `ar-copy-lower-atpt'
3767
Copy LOWER at point if any, nil otherwise. "]
3768
3769
["Copy [:nonascii:] char class at point" ar-copy-nonascii-atpt
3770
:help " `ar-copy-nonascii-atpt'
3771
Copy NONASCII at point if any, nil otherwise. "]
3772
3773
["Copy [:print:] char class at point" ar-copy-print-atpt
3774
:help " `ar-copy-print-atpt'
3775
Copy PRINT at point if any, nil otherwise. "]
3776
3777
["Copy [:punct:] char class at point" ar-copy-punct-atpt
3778
:help " `ar-copy-punct-atpt'
3779
Copy PUNCT at point if any, nil otherwise. "]
3780
3781
["Copy [:space:] char class at point" ar-copy-space-atpt
3782
:help " `ar-copy-space-atpt'
3783
Copy SPACE at point if any, nil otherwise. "]
3784
3785
["Copy [:upper:] char class at point" ar-copy-upper-atpt
3786
:help " `ar-copy-upper-atpt'
3787
Copy UPPER at point if any, nil otherwise. "]
3788
3789
["Copy [:xdigit:] char class at point" ar-copy-xdigit-atpt
3790
:help " `ar-copy-xdigit-atpt'
3791
Copy XDIGIT at point if any, nil otherwise. "]
3792
3793
)
3794
("Delimited"
3795
3796
["Copy BRACED at point" ar-copy-braced-atpt
3797
:help " `ar-copy-braced-atpt'
3798
Copy BRACED at point if any, nil otherwise. "]
3799
3800
["Copy BRACKETED at point" ar-copy-bracketed-atpt
3801
:help " `ar-copy-bracketed-atpt'
3802
Copy BRACKETED at point if any, nil otherwise. "]
3803
3804
["Copy LESSER-ANGLED at point" ar-copy-lesser-angled-atpt
3805
:help " `ar-copy-lesser-angled-atpt'
3806
Copy LESSER-ANGLED at point if any, nil otherwise. "]
3807
3808
["Copy GREATER-ANGLED at point" ar-copy-greater-angled-atpt
3809
:help " `ar-copy-greater-angled-atpt'
3810
Copy GREATER-ANGLED at point if any, nil otherwise. "]
3811
3812
["Copy LEFT-RIGHT-SINGLEQUOTED at point" ar-copy-left-right-singlequoted-atpt
3813
:help " `ar-copy-left-right-singlequoted-atpt'
3814
Copy LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
3815
3816
["Copy PARENTIZED at point" ar-copy-parentized-atpt
3817
:help " `ar-copy-parentized-atpt'
3818
Copy PARENTIZED at point if any, nil otherwise. "]
3819
3820
["Copy BACKSLASHED at point" ar-copy-backslashed-atpt
3821
:help " `ar-copy-backslashed-atpt'
3822
Copy BACKSLASHED at point if any, nil otherwise. "]
3823
3824
["Copy DOLLARED at point" ar-copy-dollared-atpt
3825
:help " `ar-copy-dollared-atpt'
3826
Copy DOLLARED at point if any, nil otherwise. "]
3827
3828
["Copy DOUBLEQUOTED at point" ar-copy-doublequoted-atpt
3829
:help " `ar-copy-doublequoted-atpt'
3830
Copy DOUBLEQUOTED at point if any, nil otherwise. "]
3831
3832
["Copy EQUALIZED at point" ar-copy-equalized-atpt
3833
:help " `ar-copy-equalized-atpt'
3834
Copy EQUALIZED at point if any, nil otherwise. "]
3835
3836
["Copy HYPHENED at point" ar-copy-hyphened-atpt
3837
:help " `ar-copy-hyphened-atpt'
3838
Copy HYPHENED at point if any, nil otherwise. "]
3839
3840
["Copy QUOTED at point" ar-copy-quoted-atpt
3841
:help " `ar-copy-quoted-atpt'
3842
Copy QUOTED at point if any, nil otherwise. "]
3843
3844
["Copy SINGLEQUOTED at point" ar-copy-singlequoted-atpt
3845
:help " `ar-copy-singlequoted-atpt'
3846
Copy SINGLEQUOTED at point if any, nil otherwise. "]
3847
3848
["Copy SLASHED at point" ar-copy-slashed-atpt
3849
:help " `ar-copy-slashed-atpt'
3850
Copy SLASHED at point if any, nil otherwise. "]
3851
3852
["Copy UNDERSCORED at point" ar-copy-underscored-atpt
3853
:help " `ar-copy-underscored-atpt'
3854
Copy UNDERSCORED at point if any, nil otherwise. "]
3855
3856
["Copy WHITESPACED at point" ar-copy-whitespaced-atpt
3857
:help " `ar-copy-whitespaced-atpt'
3858
Copy WHITESPACED at point if any, nil otherwise. "]
3859
3860
)
3861
("Other"
3862
3863
["Copy ANGLED-NO-NEST at point" ar-copy-angled-no-nest-atpt
3864
:help " `ar-copy-angled-no-nest-atpt'
3865
Copy ANGLED-NO-NEST at point if any, nil otherwise. "]
3866
3867
["Copy GREATER-ANGLED-NESTED at point" ar-copy-greater-angled-nested-atpt
3868
:help " `ar-copy-greater-angled-nested-atpt'
3869
Copy GREATER-ANGLED-NESTED at point if any, nil otherwise. "]
3870
3871
["Copy LESSER-ANGLED-NESTED at point" ar-copy-lesser-angled-nested-atpt
3872
:help " `ar-copy-lesser-angled-nested-atpt'
3873
Copy LESSER-ANGLED-NESTED at point if any, nil otherwise. "]
3874
3875
["Copy BUFFER at point" ar-copy-buffer-atpt
3876
:help " `ar-copy-buffer-atpt'
3877
Copy BUFFER at point if any, nil otherwise. "]
3878
3879
["Copy COMMENT at point" ar-copy-comment-atpt
3880
:help " `ar-copy-comment-atpt'
3881
Copy COMMENT at point if any, nil otherwise. "]
3882
3883
["Copy CSV at point" ar-copy-csv-atpt
3884
:help " `ar-copy-csv-atpt'
3885
Copy CSV at point if any, nil otherwise. "]
3886
3887
["Copy DATE at point" ar-copy-date-atpt
3888
:help " `ar-copy-date-atpt'
3889
Copy DATE at point if any, nil otherwise. "]
3890
3891
["Copy DEFUN at point" ar-copy-defun-atpt
3892
:help " `ar-copy-defun-atpt'
3893
Copy DEFUN at point if any, nil otherwise. "]
3894
3895
["Copy DELIMITED at point" ar-copy-delimited-atpt
3896
:help " `ar-copy-delimited-atpt'
3897
Copy DELIMITED at point if any, nil otherwise. "]
3898
3899
["Copy EMAIL at point" ar-copy-email-atpt
3900
:help " `ar-copy-email-atpt'
3901
Copy EMAIL at point if any, nil otherwise. "]
3902
3903
["Copy FILENAME at point" ar-copy-filename-atpt
3904
:help " `ar-copy-filename-atpt'
3905
Copy FILENAME at point if any, nil otherwise. "]
3906
3907
["Copy FILENAME without directory" ar-copy-filename-nondirectory-atpt
3908
:help " `ar-copy-filename-atpt'
3909
Copy FILENAME without directory at point if any, nil otherwise. "]
3910
3911
["Copy FLOAT at point" ar-copy-float-atpt
3912
:help " `ar-copy-float-atpt'
3913
Copy FLOAT at point if any, nil otherwise. "]
3914
3915
["Copy FUNCTION at point" ar-copy-function-atpt
3916
:help " `ar-copy-function-atpt'
3917
Copy FUNCTION at point if any, nil otherwise. "]
3918
3919
["Copy IP at point" ar-copy-ip-atpt
3920
:help " `ar-copy-ip-atpt'
3921
Copy IP at point if any, nil otherwise. "]
3922
3923
["Copy ISBN at point" ar-copy-isbn-atpt
3924
:help " `ar-copy-isbn-atpt'
3925
Copy ISBN at point if any, nil otherwise. "]
3926
3927
["Copy LINE at point" ar-copy-line-atpt
3928
:help " `ar-copy-line-atpt'
3929
Copy LINE at point if any, nil otherwise. "]
3930
3931
["Copy NAME at point" ar-copy-name-atpt
3932
:help " `ar-copy-name-atpt'
3933
Copy NAME at point if any, nil otherwise. "]
3934
3935
["Copy NUMBER at point" ar-copy-number-atpt
3936
:help " `ar-copy-number-atpt'
3937
Copy NUMBER at point if any, nil otherwise. "]
3938
3939
["Copy PAGE at point" ar-copy-page-atpt
3940
:help " `ar-copy-page-atpt'
3941
Copy PAGE at point if any, nil otherwise. "]
3942
3943
["Copy PARAGRAPH at point" ar-copy-paragraph-atpt
3944
:help " `ar-copy-paragraph-atpt'
3945
Copy PARAGRAPH at point if any, nil otherwise. "]
3946
3947
["Copy PAREN at point" ar-copy-paren-atpt
3948
:help " `ar-copy-paren-atpt'
3949
Copy PAREN at point if any, nil otherwise. "]
3950
3951
["Copy PHONE at point" ar-copy-phone-atpt
3952
:help " `ar-copy-phone-atpt'
3953
Copy PHONE at point if any, nil otherwise. "]
3954
3955
["Copy REGION at point" ar-copy-region-atpt
3956
:help " `ar-copy-region-atpt'
3957
Copy REGION at point if any, nil otherwise. "]
3958
3959
["Copy SENTENCE at point" ar-copy-sentence-atpt
3960
:help " `ar-copy-sentence-atpt'
3961
Copy SENTENCE at point if any, nil otherwise. "]
3962
3963
["Copy SEXP at point" ar-copy-sexp-atpt
3964
:help " `ar-copy-sexp-atpt'
3965
Copy SEXP at point if any, nil otherwise. "]
3966
3967
["Copy STRING at point" ar-copy-string-atpt
3968
:help " `ar-copy-string-atpt'
3969
Copy STRING at point if any, nil otherwise. "]
3970
3971
["Copy SH-STRUCT at point" ar-copy-sh-struct-atpt
3972
:help " `ar-copy-sh-struct-atpt'
3973
Copy SH-STRUCT at point if any, nil otherwise. "]
3974
3975
["Copy SYMBOL at point" ar-copy-symbol-atpt
3976
:help " `ar-copy-symbol-atpt'
3977
Copy SYMBOL at point if any, nil otherwise. "]
3978
3979
["Copy URL at point" ar-copy-url-atpt
3980
:help " `ar-copy-url-atpt'
3981
Copy URL at point if any, nil otherwise. "]
3982
3983
["Copy WORD at point" ar-copy-word-atpt
3984
:help " `ar-copy-word-atpt'
3985
Copy WORD at point if any, nil otherwise. "]
3986
3987
["Copy WORD-ALPHA-ONLY at point" ar-copy-word-alpha-only-atpt
3988
:help " `ar-copy-word-alpha-only-atpt'
3989
Copy WORD-ALPHA-ONLY at point if any, nil otherwise. "]
3990
3991
)
3992
3993
)
3994
("Delete"
3995
("Character classes"
3996
3997
["Delete [:alnum:] char class at point" ar-delete-alnum-atpt
3998
:help " `ar-delete-alnum-atpt'
3999
Delete ALNUM at point if any, nil otherwise. "]
4000
4001
["Delete [:alpha:] char class at point" ar-delete-alpha-atpt
4002
:help " `ar-delete-alpha-atpt'
4003
Delete ALPHA at point if any, nil otherwise. "]
4004
4005
["Delete [:ascii:] char class at point" ar-delete-ascii-atpt
4006
:help " `ar-delete-ascii-atpt'
4007
Delete ASCII at point if any, nil otherwise. "]
4008
4009
["Delete [:blank:] char class at point" ar-delete-blank-atpt
4010
:help " `ar-delete-blank-atpt'
4011
Delete BLANK at point if any, nil otherwise. "]
4012
4013
["Delete [:cntrl:] char class at point" ar-delete-cntrl-atpt
4014
:help " `ar-delete-cntrl-atpt'
4015
Delete CNTRL at point if any, nil otherwise. "]
4016
4017
["Delete [:digit:] char class at point" ar-delete-digit-atpt
4018
:help " `ar-delete-digit-atpt'
4019
Delete DIGIT at point if any, nil otherwise. "]
4020
4021
["Delete [:graph:] char class at point" ar-delete-graph-atpt
4022
:help " `ar-delete-graph-atpt'
4023
Delete GRAPH at point if any, nil otherwise. "]
4024
4025
["Delete [:lower:] char class at point" ar-delete-lower-atpt
4026
:help " `ar-delete-lower-atpt'
4027
Delete LOWER at point if any, nil otherwise. "]
4028
4029
["Delete [:nonascii:] char class at point" ar-delete-nonascii-atpt
4030
:help " `ar-delete-nonascii-atpt'
4031
Delete NONASCII at point if any, nil otherwise. "]
4032
4033
["Delete [:print:] char class at point" ar-delete-print-atpt
4034
:help " `ar-delete-print-atpt'
4035
Delete PRINT at point if any, nil otherwise. "]
4036
4037
["Delete [:punct:] char class at point" ar-delete-punct-atpt
4038
:help " `ar-delete-punct-atpt'
4039
Delete PUNCT at point if any, nil otherwise. "]
4040
4041
["Delete [:space:] char class at point" ar-delete-space-atpt
4042
:help " `ar-delete-space-atpt'
4043
Delete SPACE at point if any, nil otherwise. "]
4044
4045
["Delete [:upper:] char class at point" ar-delete-upper-atpt
4046
:help " `ar-delete-upper-atpt'
4047
Delete UPPER at point if any, nil otherwise. "]
4048
4049
["Delete [:xdigit:] char class at point" ar-delete-xdigit-atpt
4050
:help " `ar-delete-xdigit-atpt'
4051
Delete XDIGIT at point if any, nil otherwise. "]
4052
4053
)
4054
("Delimited"
4055
4056
["Delete BRACED at point" ar-delete-braced-atpt
4057
:help " `ar-delete-braced-atpt'
4058
Delete BRACED at point if any, nil otherwise. "]
4059
4060
["Delete BRACKETED at point" ar-delete-bracketed-atpt
4061
:help " `ar-delete-bracketed-atpt'
4062
Delete BRACKETED at point if any, nil otherwise. "]
4063
4064
["Delete LESSER-ANGLED at point" ar-delete-lesser-angled-atpt
4065
:help " `ar-delete-lesser-angled-atpt'
4066
Delete LESSER-ANGLED at point if any, nil otherwise. "]
4067
4068
["Delete GREATER-ANGLED at point" ar-delete-greater-angled-atpt
4069
:help " `ar-delete-greater-angled-atpt'
4070
Delete GREATER-ANGLED at point if any, nil otherwise. "]
4071
4072
["Delete LEFT-RIGHT-SINGLEQUOTED at point" ar-delete-left-right-singlequoted-atpt
4073
:help " `ar-delete-left-right-singlequoted-atpt'
4074
Delete LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
4075
4076
["Delete PARENTIZED at point" ar-delete-parentized-atpt
4077
:help " `ar-delete-parentized-atpt'
4078
Delete PARENTIZED at point if any, nil otherwise. "]
4079
4080
["Delete BACKSLASHED at point" ar-delete-backslashed-atpt
4081
:help " `ar-delete-backslashed-atpt'
4082
Delete BACKSLASHED at point if any, nil otherwise. "]
4083
4084
["Delete DOLLARED at point" ar-delete-dollared-atpt
4085
:help " `ar-delete-dollared-atpt'
4086
Delete DOLLARED at point if any, nil otherwise. "]
4087
4088
["Delete DOUBLEQUOTED at point" ar-delete-doublequoted-atpt
4089
:help " `ar-delete-doublequoted-atpt'
4090
Delete DOUBLEQUOTED at point if any, nil otherwise. "]
4091
4092
["Delete EQUALIZED at point" ar-delete-equalized-atpt
4093
:help " `ar-delete-equalized-atpt'
4094
Delete EQUALIZED at point if any, nil otherwise. "]
4095
4096
["Delete HYPHENED at point" ar-delete-hyphened-atpt
4097
:help " `ar-delete-hyphened-atpt'
4098
Delete HYPHENED at point if any, nil otherwise. "]
4099
4100
["Delete QUOTED at point" ar-delete-quoted-atpt
4101
:help " `ar-delete-quoted-atpt'
4102
Delete QUOTED at point if any, nil otherwise. "]
4103
4104
["Delete SINGLEQUOTED at point" ar-delete-singlequoted-atpt
4105
:help " `ar-delete-singlequoted-atpt'
4106
Delete SINGLEQUOTED at point if any, nil otherwise. "]
4107
4108
["Delete SLASHED at point" ar-delete-slashed-atpt
4109
:help " `ar-delete-slashed-atpt'
4110
Delete SLASHED at point if any, nil otherwise. "]
4111
4112
["Delete UNDERSCORED at point" ar-delete-underscored-atpt
4113
:help " `ar-delete-underscored-atpt'
4114
Delete UNDERSCORED at point if any, nil otherwise. "]
4115
4116
["Delete WHITESPACED at point" ar-delete-whitespaced-atpt
4117
:help " `ar-delete-whitespaced-atpt'
4118
Delete WHITESPACED at point if any, nil otherwise. "]
4119
4120
)
4121
("Other"
4122
4123
["Delete ANGLED-NO-NEST at point" ar-delete-angled-no-nest-atpt
4124
:help " `ar-delete-angled-no-nest-atpt'
4125
Delete ANGLED-NO-NEST at point if any, nil otherwise. "]
4126
4127
["Delete GREATER-ANGLED-NESTED at point" ar-delete-greater-angled-nested-atpt
4128
:help " `ar-delete-greater-angled-nested-atpt'
4129
Delete GREATER-ANGLED-NESTED at point if any, nil otherwise. "]
4130
4131
["Delete LESSER-ANGLED-NESTED at point" ar-delete-lesser-angled-nested-atpt
4132
:help " `ar-delete-lesser-angled-nested-atpt'
4133
Delete LESSER-ANGLED-NESTED at point if any, nil otherwise. "]
4134
4135
["Delete BUFFER at point" ar-delete-buffer-atpt
4136
:help " `ar-delete-buffer-atpt'
4137
Delete BUFFER at point if any, nil otherwise. "]
4138
4139
["Delete COMMENT at point" ar-delete-comment-atpt
4140
:help " `ar-delete-comment-atpt'
4141
Delete COMMENT at point if any, nil otherwise. "]
4142
4143
["Delete CSV at point" ar-delete-csv-atpt
4144
:help " `ar-delete-csv-atpt'
4145
Delete CSV at point if any, nil otherwise. "]
4146
4147
["Delete DATE at point" ar-delete-date-atpt
4148
:help " `ar-delete-date-atpt'
4149
Delete DATE at point if any, nil otherwise. "]
4150
4151
["Delete DEFUN at point" ar-delete-defun-atpt
4152
:help " `ar-delete-defun-atpt'
4153
Delete DEFUN at point if any, nil otherwise. "]
4154
4155
["Delete DELIMITED at point" ar-delete-delimited-atpt
4156
:help " `ar-delete-delimited-atpt'
4157
Delete DELIMITED at point if any, nil otherwise. "]
4158
4159
["Delete EMAIL at point" ar-delete-email-atpt
4160
:help " `ar-delete-email-atpt'
4161
Delete EMAIL at point if any, nil otherwise. "]
4162
4163
["Delete FILENAME at point" ar-delete-filename-atpt
4164
:help " `ar-delete-filename-atpt'
4165
Delete FILENAME at point if any, nil otherwise. "]
4166
4167
["Delete FLOAT at point" ar-delete-float-atpt
4168
:help " `ar-delete-float-atpt'
4169
Delete FLOAT at point if any, nil otherwise. "]
4170
4171
["Delete FUNCTION at point" ar-delete-function-atpt
4172
:help " `ar-delete-function-atpt'
4173
Delete FUNCTION at point if any, nil otherwise. "]
4174
4175
["Delete IP at point" ar-delete-ip-atpt
4176
:help " `ar-delete-ip-atpt'
4177
Delete IP at point if any, nil otherwise. "]
4178
4179
["Delete ISBN at point" ar-delete-isbn-atpt
4180
:help " `ar-delete-isbn-atpt'
4181
Delete ISBN at point if any, nil otherwise. "]
4182
4183
["Delete LINE at point" ar-delete-line-atpt
4184
:help " `ar-delete-line-atpt'
4185
Delete LINE at point if any, nil otherwise. "]
4186
4187
["Delete NAME at point" ar-delete-name-atpt
4188
:help " `ar-delete-name-atpt'
4189
Delete NAME at point if any, nil otherwise. "]
4190
4191
["Delete NUMBER at point" ar-delete-number-atpt
4192
:help " `ar-delete-number-atpt'
4193
Delete NUMBER at point if any, nil otherwise. "]
4194
4195
["Delete PAGE at point" ar-delete-page-atpt
4196
:help " `ar-delete-page-atpt'
4197
Delete PAGE at point if any, nil otherwise. "]
4198
4199
["Delete PARAGRAPH at point" ar-delete-paragraph-atpt
4200
:help " `ar-delete-paragraph-atpt'
4201
Delete PARAGRAPH at point if any, nil otherwise. "]
4202
4203
["Delete PAREN at point" ar-delete-paren-atpt
4204
:help " `ar-delete-paren-atpt'
4205
Delete PAREN at point if any, nil otherwise. "]
4206
4207
["Delete PHONE at point" ar-delete-phone-atpt
4208
:help " `ar-delete-phone-atpt'
4209
Delete PHONE at point if any, nil otherwise. "]
4210
4211
["Delete REGION at point" ar-delete-region-atpt
4212
:help " `ar-delete-region-atpt'
4213
Delete REGION at point if any, nil otherwise. "]
4214
4215
["Delete SENTENCE at point" ar-delete-sentence-atpt
4216
:help " `ar-delete-sentence-atpt'
4217
Delete SENTENCE at point if any, nil otherwise. "]
4218
4219
["Delete SEXP at point" ar-delete-sexp-atpt
4220
:help " `ar-delete-sexp-atpt'
4221
Delete SEXP at point if any, nil otherwise. "]
4222
4223
["Delete STRING at point" ar-delete-string-atpt
4224
:help " `ar-delete-string-atpt'
4225
Delete STRING at point if any, nil otherwise. "]
4226
4227
["Delete SH-STRUCT at point" ar-delete-sh-struct-atpt
4228
:help " `ar-delete-sh-struct-atpt'
4229
Delete SH-STRUCT at point if any, nil otherwise. "]
4230
4231
["Delete SYMBOL at point" ar-delete-symbol-atpt
4232
:help " `ar-delete-symbol-atpt'
4233
Delete SYMBOL at point if any, nil otherwise. "]
4234
4235
["Delete URL at point" ar-delete-url-atpt
4236
:help " `ar-delete-url-atpt'
4237
Delete URL at point if any, nil otherwise. "]
4238
4239
["Delete WORD at point" ar-delete-word-atpt
4240
:help " `ar-delete-word-atpt'
4241
Delete WORD at point if any, nil otherwise. "]
4242
4243
["Delete WORD-ALPHA-ONLY at point" ar-delete-word-alpha-only-atpt
4244
:help " `ar-delete-word-alpha-only-atpt'
4245
Delete WORD-ALPHA-ONLY at point if any, nil otherwise. "]
4246
4247
)
4248
4249
)
4250
("Bracket"
4251
4252
("Character classes"
4253
4254
["Bracket [:alnum:] char class at point" ar-bracket-alnum-atpt
4255
:help " `ar-bracket-alnum-atpt'
4256
Bracket ALNUM at point if any, nil otherwise. "]
4257
4258
["Bracket [:alpha:] char class at point" ar-bracket-alpha-atpt
4259
:help " `ar-bracket-alpha-atpt'
4260
Bracket ALPHA at point if any, nil otherwise. "]
4261
4262
["Bracket [:ascii:] char class at point" ar-bracket-ascii-atpt
4263
:help " `ar-bracket-ascii-atpt'
4264
Bracket ASCII at point if any, nil otherwise. "]
4265
4266
["Bracket [:blank:] char class at point" ar-bracket-blank-atpt
4267
:help " `ar-bracket-blank-atpt'
4268
Bracket BLANK at point if any, nil otherwise. "]
4269
4270
["Bracket [:cntrl:] char class at point" ar-bracket-cntrl-atpt
4271
:help " `ar-bracket-cntrl-atpt'
4272
Bracket CNTRL at point if any, nil otherwise. "]
4273
4274
["Bracket [:digit:] char class at point" ar-bracket-digit-atpt
4275
:help " `ar-bracket-digit-atpt'
4276
Bracket DIGIT at point if any, nil otherwise. "]
4277
4278
["Bracket [:graph:] char class at point" ar-bracket-graph-atpt
4279
:help " `ar-bracket-graph-atpt'
4280
Bracket GRAPH at point if any, nil otherwise. "]
4281
4282
["Bracket [:lower:] char class at point" ar-bracket-lower-atpt
4283
:help " `ar-bracket-lower-atpt'
4284
Bracket LOWER at point if any, nil otherwise. "]
4285
4286
["Bracket [:nonascii:] char class at point" ar-bracket-nonascii-atpt
4287
:help " `ar-bracket-nonascii-atpt'
4288
Bracket NONASCII at point if any, nil otherwise. "]
4289
4290
["Bracket [:print:] char class at point" ar-bracket-print-atpt
4291
:help " `ar-bracket-print-atpt'
4292
Bracket PRINT at point if any, nil otherwise. "]
4293
4294
["Bracket [:punct:] char class at point" ar-bracket-punct-atpt
4295
:help " `ar-bracket-punct-atpt'
4296
Bracket PUNCT at point if any, nil otherwise. "]
4297
4298
["Bracket [:space:] char class at point" ar-bracket-space-atpt
4299
:help " `ar-bracket-space-atpt'
4300
Bracket SPACE at point if any, nil otherwise. "]
4301
4302
["Bracket [:upper:] char class at point" ar-bracket-upper-atpt
4303
:help " `ar-bracket-upper-atpt'
4304
Bracket UPPER at point if any, nil otherwise. "]
4305
4306
["Bracket [:xdigit:] char class at point" ar-bracket-xdigit-atpt
4307
:help " `ar-bracket-xdigit-atpt'
4308
Bracket XDIGIT at point if any, nil otherwise. "]
4309
4310
)
4311
("Delimited"
4312
4313
["Bracket BRACED at point" ar-bracket-braced-atpt
4314
:help " `ar-bracket-braced-atpt'
4315
Bracket BRACED at point if any, nil otherwise. "]
4316
4317
["Bracket BRACKETED at point" ar-bracket-bracketed-atpt
4318
:help " `ar-bracket-bracketed-atpt'
4319
Bracket BRACKETED at point if any, nil otherwise. "]
4320
4321
["Bracket LESSER-ANGLED at point" ar-bracket-lesser-angled-atpt
4322
:help " `ar-bracket-lesser-angled-atpt'
4323
Bracket LESSER-ANGLED at point if any, nil otherwise. "]
4324
4325
["Bracket GREATER-ANGLED at point" ar-bracket-greater-angled-atpt
4326
:help " `ar-bracket-greater-angled-atpt'
4327
Bracket GREATER-ANGLED at point if any, nil otherwise. "]
4328
4329
["Bracket LEFT-RIGHT-SINGLEQUOTED at point" ar-bracket-left-right-singlequoted-atpt
4330
:help " `ar-bracket-left-right-singlequoted-atpt'
4331
Bracket LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
4332
4333
["Bracket PARENTIZED at point" ar-bracket-parentized-atpt
4334
:help " `ar-bracket-parentized-atpt'
4335
Bracket PARENTIZED at point if any, nil otherwise. "]
4336
4337
["Bracket BACKSLASHED at point" ar-bracket-backslashed-atpt
4338
:help " `ar-bracket-backslashed-atpt'
4339
Bracket BACKSLASHED at point if any, nil otherwise. "]
4340
4341
["Bracket DOLLARED at point" ar-bracket-dollared-atpt
4342
:help " `ar-bracket-dollared-atpt'
4343
Bracket DOLLARED at point if any, nil otherwise. "]
4344
4345
["Bracket DOUBLEQUOTED at point" ar-bracket-doublequoted-atpt
4346
:help " `ar-bracket-doublequoted-atpt'
4347
Bracket DOUBLEQUOTED at point if any, nil otherwise. "]
4348
4349
["Bracket EQUALIZED at point" ar-bracket-equalized-atpt
4350
:help " `ar-bracket-equalized-atpt'
4351
Bracket EQUALIZED at point if any, nil otherwise. "]
4352
4353
["Bracket HYPHENED at point" ar-bracket-hyphened-atpt
4354
:help " `ar-bracket-hyphened-atpt'
4355
Bracket HYPHENED at point if any, nil otherwise. "]
4356
4357
["Bracket QUOTED at point" ar-bracket-quoted-atpt
4358
:help " `ar-bracket-quoted-atpt'
4359
Bracket QUOTED at point if any, nil otherwise. "]
4360
4361
["Bracket SINGLEQUOTED at point" ar-bracket-singlequoted-atpt
4362
:help " `ar-bracket-singlequoted-atpt'
4363
Bracket SINGLEQUOTED at point if any, nil otherwise. "]
4364
4365
["Bracket SLASHED at point" ar-bracket-slashed-atpt
4366
:help " `ar-bracket-slashed-atpt'
4367
Bracket SLASHED at point if any, nil otherwise. "]
4368
4369
["Bracket UNDERSCORED at point" ar-bracket-underscored-atpt
4370
:help " `ar-bracket-underscored-atpt'
4371
Bracket UNDERSCORED at point if any, nil otherwise. "]
4372
4373
["Bracket WHITESPACED at point" ar-bracket-whitespaced-atpt
4374
:help " `ar-bracket-whitespaced-atpt'
4375
Bracket WHITESPACED at point if any, nil otherwise. "]
4376
4377
)
4378
("Other"
4379
4380
["Bracket ANGLED-NO-NEST at point" ar-bracket-angled-no-nest-atpt
4381
:help " `ar-bracket-angled-no-nest-atpt'
4382
Bracket ANGLED-NO-NEST at point if any, nil otherwise. "]
4383
4384
["Bracket GREATER-ANGLED-NESTED at point" ar-bracket-greater-angled-nested-atpt
4385
:help " `ar-bracket-greater-angled-nested-atpt'
4386
Bracket GREATER-ANGLED-NESTED at point if any, nil otherwise. "]
4387
4388
["Bracket LESSER-ANGLED-NESTED at point" ar-bracket-lesser-angled-nested-atpt
4389
:help " `ar-bracket-lesser-angled-nested-atpt'
4390
Bracket LESSER-ANGLED-NESTED at point if any, nil otherwise. "]
4391
4392
["Bracket BUFFER at point" ar-bracket-buffer-atpt
4393
:help " `ar-bracket-buffer-atpt'
4394
Bracket BUFFER at point if any, nil otherwise. "]
4395
4396
["Bracket COMMENT at point" ar-bracket-comment-atpt
4397
:help " `ar-bracket-comment-atpt'
4398
Bracket COMMENT at point if any, nil otherwise. "]
4399
4400
["Bracket CSV at point" ar-bracket-csv-atpt
4401
:help " `ar-bracket-csv-atpt'
4402
Bracket CSV at point if any, nil otherwise. "]
4403
4404
["Bracket DATE at point" ar-bracket-date-atpt
4405
:help " `ar-bracket-date-atpt'
4406
Bracket DATE at point if any, nil otherwise. "]
4407
4408
["Bracket DEFUN at point" ar-bracket-defun-atpt
4409
:help " `ar-bracket-defun-atpt'
4410
Bracket DEFUN at point if any, nil otherwise. "]
4411
4412
["Bracket DELIMITED at point" ar-bracket-delimited-atpt
4413
:help " `ar-bracket-delimited-atpt'
4414
Bracket DELIMITED at point if any, nil otherwise. "]
4415
4416
["Bracket EMAIL at point" ar-bracket-email-atpt
4417
:help " `ar-bracket-email-atpt'
4418
Bracket EMAIL at point if any, nil otherwise. "]
4419
4420
["Bracket FILENAME at point" ar-bracket-filename-atpt
4421
:help " `ar-bracket-filename-atpt'
4422
Bracket FILENAME at point if any, nil otherwise. "]
4423
4424
["Bracket FLOAT at point" ar-bracket-float-atpt
4425
:help " `ar-bracket-float-atpt'
4426
Bracket FLOAT at point if any, nil otherwise. "]
4427
4428
["Bracket FUNCTION at point" ar-bracket-function-atpt
4429
:help " `ar-bracket-function-atpt'
4430
Bracket FUNCTION at point if any, nil otherwise. "]
4431
4432
["Bracket IP at point" ar-bracket-ip-atpt
4433
:help " `ar-bracket-ip-atpt'
4434
Bracket IP at point if any, nil otherwise. "]
4435
4436
["Bracket ISBN at point" ar-bracket-isbn-atpt
4437
:help " `ar-bracket-isbn-atpt'
4438
Bracket ISBN at point if any, nil otherwise. "]
4439
4440
["Bracket LINE at point" ar-bracket-line-atpt
4441
:help " `ar-bracket-line-atpt'
4442
Bracket LINE at point if any, nil otherwise. "]
4443
4444
["Bracket NAME at point" ar-bracket-name-atpt
4445
:help " `ar-bracket-name-atpt'
4446
Bracket NAME at point if any, nil otherwise. "]
4447
4448
["Bracket NUMBER at point" ar-bracket-number-atpt
4449
:help " `ar-bracket-number-atpt'
4450
Bracket NUMBER at point if any, nil otherwise. "]
4451
4452
["Bracket PAGE at point" ar-bracket-page-atpt
4453
:help " `ar-bracket-page-atpt'
4454
Bracket PAGE at point if any, nil otherwise. "]
4455
4456
["Bracket PARAGRAPH at point" ar-bracket-paragraph-atpt
4457
:help " `ar-bracket-paragraph-atpt'
4458
Bracket PARAGRAPH at point if any, nil otherwise. "]
4459
4460
["Bracket PAREN at point" ar-bracket-paren-atpt
4461
:help " `ar-bracket-paren-atpt'
4462
Bracket PAREN at point if any, nil otherwise. "]
4463
4464
["Bracket PHONE at point" ar-bracket-phone-atpt
4465
:help " `ar-bracket-phone-atpt'
4466
Bracket PHONE at point if any, nil otherwise. "]
4467
4468
["Bracket REGION at point" ar-bracket-region-atpt
4469
:help " `ar-bracket-region-atpt'
4470
Bracket REGION at point if any, nil otherwise. "]
4471
4472
["Bracket SENTENCE at point" ar-bracket-sentence-atpt
4473
:help " `ar-bracket-sentence-atpt'
4474
Bracket SENTENCE at point if any, nil otherwise. "]
4475
4476
["Bracket SEXP at point" ar-bracket-sexp-atpt
4477
:help " `ar-bracket-sexp-atpt'
4478
Bracket SEXP at point if any, nil otherwise. "]
4479
4480
["Bracket STRING at point" ar-bracket-string-atpt
4481
:help " `ar-bracket-string-atpt'
4482
Bracket STRING at point if any, nil otherwise. "]
4483
4484
["Bracket SH-STRUCT at point" ar-bracket-sh-struct-atpt
4485
:help " `ar-bracket-sh-struct-atpt'
4486
Bracket SH-STRUCT at point if any, nil otherwise. "]
4487
4488
["Bracket SYMBOL at point" ar-bracket-symbol-atpt
4489
:help " `ar-bracket-symbol-atpt'
4490
Bracket SYMBOL at point if any, nil otherwise. "]
4491
4492
["Bracket URL at point" ar-bracket-url-atpt
4493
:help " `ar-bracket-url-atpt'
4494
Bracket URL at point if any, nil otherwise. "]
4495
4496
["Bracket WORD at point" ar-bracket-word-atpt
4497
:help " `ar-bracket-word-atpt'
4498
Bracket WORD at point if any, nil otherwise. "]
4499
4500
["Bracket WORD-ALPHA-ONLY at point" ar-bracket-word-alpha-only-atpt
4501
:help " `ar-bracket-word-alpha-only-atpt'
4502
Bracket WORD-ALPHA-ONLY at point if any, nil otherwise. "]
4503
4504
)
4505
4506
)
4507
("Commatize"
4508
4509
("Character classes"
4510
4511
["Commatize [:alnum:] char class at point" ar-commatize-alnum-atpt
4512
:help " `ar-commatize-alnum-atpt'
4513
Commatize ALNUM at point if any, nil otherwise. "]
4514
4515
["Commatize [:alpha:] char class at point" ar-commatize-alpha-atpt
4516
:help " `ar-commatize-alpha-atpt'
4517
Commatize ALPHA at point if any, nil otherwise. "]
4518
4519
["Commatize [:ascii:] char class at point" ar-commatize-ascii-atpt
4520
:help " `ar-commatize-ascii-atpt'
4521
Commatize ASCII at point if any, nil otherwise. "]
4522
4523
["Commatize [:blank:] char class at point" ar-commatize-blank-atpt
4524
:help " `ar-commatize-blank-atpt'
4525
Commatize BLANK at point if any, nil otherwise. "]
4526
4527
["Commatize [:cntrl:] char class at point" ar-commatize-cntrl-atpt
4528
:help " `ar-commatize-cntrl-atpt'
4529
Commatize CNTRL at point if any, nil otherwise. "]
4530
4531
["Commatize [:digit:] char class at point" ar-commatize-digit-atpt
4532
:help " `ar-commatize-digit-atpt'
4533
Commatize DIGIT at point if any, nil otherwise. "]
4534
4535
["Commatize [:graph:] char class at point" ar-commatize-graph-atpt
4536
:help " `ar-commatize-graph-atpt'
4537
Commatize GRAPH at point if any, nil otherwise. "]
4538
4539
["Commatize [:lower:] char class at point" ar-commatize-lower-atpt
4540
:help " `ar-commatize-lower-atpt'
4541
Commatize LOWER at point if any, nil otherwise. "]
4542
4543
["Commatize [:nonascii:] char class at point" ar-commatize-nonascii-atpt
4544
:help " `ar-commatize-nonascii-atpt'
4545
Commatize NONASCII at point if any, nil otherwise. "]
4546
4547
["Commatize [:print:] char class at point" ar-commatize-print-atpt
4548
:help " `ar-commatize-print-atpt'
4549
Commatize PRINT at point if any, nil otherwise. "]
4550
4551
["Commatize [:punct:] char class at point" ar-commatize-punct-atpt
4552
:help " `ar-commatize-punct-atpt'
4553
Commatize PUNCT at point if any, nil otherwise. "]
4554
4555
["Commatize [:space:] char class at point" ar-commatize-space-atpt
4556
:help " `ar-commatize-space-atpt'
4557
Commatize SPACE at point if any, nil otherwise. "]
4558
4559
["Commatize [:upper:] char class at point" ar-commatize-upper-atpt
4560
:help " `ar-commatize-upper-atpt'
4561
Commatize UPPER at point if any, nil otherwise. "]
4562
4563
["Commatize [:xdigit:] char class at point" ar-commatize-xdigit-atpt
4564
:help " `ar-commatize-xdigit-atpt'
4565
Commatize XDIGIT at point if any, nil otherwise. "]
4566
4567
)
4568
("Delimited"
4569
4570
["Commatize BRACED at point" ar-commatize-braced-atpt
4571
:help " `ar-commatize-braced-atpt'
4572
Commatize BRACED at point if any, nil otherwise. "]
4573
4574
["Commatize BRACKETED at point" ar-commatize-bracketed-atpt
4575
:help " `ar-commatize-bracketed-atpt'
4576
Commatize BRACKETED at point if any, nil otherwise. "]
4577
4578
["Commatize LESSER-ANGLED at point" ar-commatize-lesser-angled-atpt
4579
:help " `ar-commatize-lesser-angled-atpt'
4580
Commatize LESSER-ANGLED at point if any, nil otherwise. "]
4581
4582
["Commatize GREATER-ANGLED at point" ar-commatize-greater-angled-atpt
4583
:help " `ar-commatize-greater-angled-atpt'
4584
Commatize GREATER-ANGLED at point if any, nil otherwise. "]
4585
4586
["Commatize LEFT-RIGHT-SINGLEQUOTED at point" ar-commatize-left-right-singlequoted-atpt
4587
:help " `ar-commatize-left-right-singlequoted-atpt'
4588
Commatize LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
4589
4590
["Commatize PARENTIZED at point" ar-commatize-parentized-atpt
4591
:help " `ar-commatize-parentized-atpt'
4592
Commatize PARENTIZED at point if any, nil otherwise. "]
4593
4594
["Commatize BACKSLASHED at point" ar-commatize-backslashed-atpt
4595
:help " `ar-commatize-backslashed-atpt'
4596
Commatize BACKSLASHED at point if any, nil otherwise. "]
4597
4598
["Commatize DOLLARED at point" ar-commatize-dollared-atpt
4599
:help " `ar-commatize-dollared-atpt'
4600
Commatize DOLLARED at point if any, nil otherwise. "]
4601
4602
["Commatize DOUBLEQUOTED at point" ar-commatize-doublequoted-atpt
4603
:help " `ar-commatize-doublequoted-atpt'
4604
Commatize DOUBLEQUOTED at point if any, nil otherwise. "]
4605
4606
["Commatize EQUALIZED at point" ar-commatize-equalized-atpt
4607
:help " `ar-commatize-equalized-atpt'
4608
Commatize EQUALIZED at point if any, nil otherwise. "]
4609
4610
["Commatize HYPHENED at point" ar-commatize-hyphened-atpt
4611
:help " `ar-commatize-hyphened-atpt'
4612
Commatize HYPHENED at point if any, nil otherwise. "]
4613
4614
["Commatize QUOTED at point" ar-commatize-quoted-atpt
4615
:help " `ar-commatize-quoted-atpt'
4616
Commatize QUOTED at point if any, nil otherwise. "]
4617
4618
["Commatize SINGLEQUOTED at point" ar-commatize-singlequoted-atpt
4619
:help " `ar-commatize-singlequoted-atpt'
4620
Commatize SINGLEQUOTED at point if any, nil otherwise. "]
4621
4622
["Commatize SLASHED at point" ar-commatize-slashed-atpt
4623
:help " `ar-commatize-slashed-atpt'
4624
Commatize SLASHED at point if any, nil otherwise. "]
4625
4626
["Commatize UNDERSCORED at point" ar-commatize-underscored-atpt
4627
:help " `ar-commatize-underscored-atpt'
4628
Commatize UNDERSCORED at point if any, nil otherwise. "]
4629
4630
["Commatize WHITESPACED at point" ar-commatize-whitespaced-atpt
4631
:help " `ar-commatize-whitespaced-atpt'
4632
Commatize WHITESPACED at point if any, nil otherwise. "]
4633
4634
)
4635
("Other"
4636
4637
["Commatize ANGLED-NO-NEST at point" ar-commatize-angled-no-nest-atpt
4638
:help " `ar-commatize-angled-no-nest-atpt'
4639
Commatize ANGLED-NO-NEST at point if any, nil otherwise. "]
4640
4641
["Commatize GREATER-ANGLED-NESTED at point" ar-commatize-greater-angled-nested-atpt
4642
:help " `ar-commatize-greater-angled-nested-atpt'
4643
Commatize GREATER-ANGLED-NESTED at point if any, nil otherwise. "]
4644
4645
["Commatize LESSER-ANGLED-NESTED at point" ar-commatize-lesser-angled-nested-atpt
4646
:help " `ar-commatize-lesser-angled-nested-atpt'
4647
Commatize LESSER-ANGLED-NESTED at point if any, nil otherwise. "]
4648
4649
["Commatize BUFFER at point" ar-commatize-buffer-atpt
4650
:help " `ar-commatize-buffer-atpt'
4651
Commatize BUFFER at point if any, nil otherwise. "]
4652
4653
["Commatize COMMENT at point" ar-commatize-comment-atpt
4654
:help " `ar-commatize-comment-atpt'
4655
Commatize COMMENT at point if any, nil otherwise. "]
4656
4657
["Commatize CSV at point" ar-commatize-csv-atpt
4658
:help " `ar-commatize-csv-atpt'
4659
Commatize CSV at point if any, nil otherwise. "]
4660
4661
["Commatize DATE at point" ar-commatize-date-atpt
4662
:help " `ar-commatize-date-atpt'
4663
Commatize DATE at point if any, nil otherwise. "]
4664
4665
["Commatize DEFUN at point" ar-commatize-defun-atpt
4666
:help " `ar-commatize-defun-atpt'
4667
Commatize DEFUN at point if any, nil otherwise. "]
4668
4669
["Commatize DELIMITED at point" ar-commatize-delimited-atpt
4670
:help " `ar-commatize-delimited-atpt'
4671
Commatize DELIMITED at point if any, nil otherwise. "]
4672
4673
["Commatize EMAIL at point" ar-commatize-email-atpt
4674
:help " `ar-commatize-email-atpt'
4675
Commatize EMAIL at point if any, nil otherwise. "]
4676
4677
["Commatize FILENAME at point" ar-commatize-filename-atpt
4678
:help " `ar-commatize-filename-atpt'
4679
Commatize FILENAME at point if any, nil otherwise. "]
4680
4681
["Commatize FLOAT at point" ar-commatize-float-atpt
4682
:help " `ar-commatize-float-atpt'
4683
Commatize FLOAT at point if any, nil otherwise. "]
4684
4685
["Commatize FUNCTION at point" ar-commatize-function-atpt
4686
:help " `ar-commatize-function-atpt'
4687
Commatize FUNCTION at point if any, nil otherwise. "]
4688
4689
["Commatize IP at point" ar-commatize-ip-atpt
4690
:help " `ar-commatize-ip-atpt'
4691
Commatize IP at point if any, nil otherwise. "]
4692
4693
["Commatize ISBN at point" ar-commatize-isbn-atpt
4694
:help " `ar-commatize-isbn-atpt'
4695
Commatize ISBN at point if any, nil otherwise. "]
4696
4697
["Commatize LINE at point" ar-commatize-line-atpt
4698
:help " `ar-commatize-line-atpt'
4699
Commatize LINE at point if any, nil otherwise. "]
4700
4701
["Commatize NAME at point" ar-commatize-name-atpt
4702
:help " `ar-commatize-name-atpt'
4703
Commatize NAME at point if any, nil otherwise. "]
4704
4705
["Commatize NUMBER at point" ar-commatize-number-atpt
4706
:help " `ar-commatize-number-atpt'
4707
Commatize NUMBER at point if any, nil otherwise. "]
4708
4709
["Commatize PAGE at point" ar-commatize-page-atpt
4710
:help " `ar-commatize-page-atpt'
4711
Commatize PAGE at point if any, nil otherwise. "]
4712
4713
["Commatize PARAGRAPH at point" ar-commatize-paragraph-atpt
4714
:help " `ar-commatize-paragraph-atpt'
4715
Commatize PARAGRAPH at point if any, nil otherwise. "]
4716
4717
["Commatize PAREN at point" ar-commatize-paren-atpt
4718
:help " `ar-commatize-paren-atpt'
4719
Commatize PAREN at point if any, nil otherwise. "]
4720
4721
["Commatize PHONE at point" ar-commatize-phone-atpt
4722
:help " `ar-commatize-phone-atpt'
4723
Commatize PHONE at point if any, nil otherwise. "]
4724
4725
["Commatize REGION at point" ar-commatize-region-atpt
4726
:help " `ar-commatize-region-atpt'
4727
Commatize REGION at point if any, nil otherwise. "]
4728
4729
["Commatize SENTENCE at point" ar-commatize-sentence-atpt
4730
:help " `ar-commatize-sentence-atpt'
4731
Commatize SENTENCE at point if any, nil otherwise. "]
4732
4733
["Commatize SEXP at point" ar-commatize-sexp-atpt
4734
:help " `ar-commatize-sexp-atpt'
4735
Commatize SEXP at point if any, nil otherwise. "]
4736
4737
["Commatize STRING at point" ar-commatize-string-atpt
4738
:help " `ar-commatize-string-atpt'
4739
Commatize STRING at point if any, nil otherwise. "]
4740
4741
["Commatize SH-STRUCT at point" ar-commatize-sh-struct-atpt
4742
:help " `ar-commatize-sh-struct-atpt'
4743
Commatize SH-STRUCT at point if any, nil otherwise. "]
4744
4745
["Commatize SYMBOL at point" ar-commatize-symbol-atpt
4746
:help " `ar-commatize-symbol-atpt'
4747
Commatize SYMBOL at point if any, nil otherwise. "]
4748
4749
["Commatize URL at point" ar-commatize-url-atpt
4750
:help " `ar-commatize-url-atpt'
4751
Commatize URL at point if any, nil otherwise. "]
4752
4753
["Commatize WORD at point" ar-commatize-word-atpt
4754
:help " `ar-commatize-word-atpt'
4755
Commatize WORD at point if any, nil otherwise. "]
4756
4757
["Commatize WORD-ALPHA-ONLY at point" ar-commatize-word-alpha-only-atpt
4758
:help " `ar-commatize-word-alpha-only-atpt'
4759
Commatize WORD-ALPHA-ONLY at point if any, nil otherwise. "]
4760
4761
)
4762
4763
)
4764
("Hide"
4765
4766
("Character classes"
4767
4768
["Hide [:alnum:] char class at point" ar-hide-alnum-atpt
4769
:help " `ar-hide-alnum-atpt'
4770
Hide ALNUM at point if any, nil otherwise. "]
4771
4772
["Hide [:alpha:] char class at point" ar-hide-alpha-atpt
4773
:help " `ar-hide-alpha-atpt'
4774
Hide ALPHA at point if any, nil otherwise. "]
4775
4776
["Hide [:ascii:] char class at point" ar-hide-ascii-atpt
4777
:help " `ar-hide-ascii-atpt'
4778
Hide ASCII at point if any, nil otherwise. "]
4779
4780
["Hide [:blank:] char class at point" ar-hide-blank-atpt
4781
:help " `ar-hide-blank-atpt'
4782
Hide BLANK at point if any, nil otherwise. "]
4783
4784
["Hide [:cntrl:] char class at point" ar-hide-cntrl-atpt
4785
:help " `ar-hide-cntrl-atpt'
4786
Hide CNTRL at point if any, nil otherwise. "]
4787
4788
["Hide [:digit:] char class at point" ar-hide-digit-atpt
4789
:help " `ar-hide-digit-atpt'
4790
Hide DIGIT at point if any, nil otherwise. "]
4791
4792
["Hide [:graph:] char class at point" ar-hide-graph-atpt
4793
:help " `ar-hide-graph-atpt'
4794
Hide GRAPH at point if any, nil otherwise. "]
4795
4796
["Hide [:lower:] char class at point" ar-hide-lower-atpt
4797
:help " `ar-hide-lower-atpt'
4798
Hide LOWER at point if any, nil otherwise. "]
4799
4800
["Hide [:nonascii:] char class at point" ar-hide-nonascii-atpt
4801
:help " `ar-hide-nonascii-atpt'
4802
Hide NONASCII at point if any, nil otherwise. "]
4803
4804
["Hide [:print:] char class at point" ar-hide-print-atpt
4805
:help " `ar-hide-print-atpt'
4806
Hide PRINT at point if any, nil otherwise. "]
4807
4808
["Hide [:punct:] char class at point" ar-hide-punct-atpt
4809
:help " `ar-hide-punct-atpt'
4810
Hide PUNCT at point if any, nil otherwise. "]
4811
4812
["Hide [:space:] char class at point" ar-hide-space-atpt
4813
:help " `ar-hide-space-atpt'
4814
Hide SPACE at point if any, nil otherwise. "]
4815
4816
["Hide [:upper:] char class at point" ar-hide-upper-atpt
4817
:help " `ar-hide-upper-atpt'
4818
Hide UPPER at point if any, nil otherwise. "]
4819
4820
["Hide [:xdigit:] char class at point" ar-hide-xdigit-atpt
4821
:help " `ar-hide-xdigit-atpt'
4822
Hide XDIGIT at point if any, nil otherwise. "]
4823
4824
)
4825
("Delimited"
4826
4827
["Hide BRACED at point" ar-hide-braced-atpt
4828
:help " `ar-hide-braced-atpt'
4829
Hide BRACED at point if any, nil otherwise. "]
4830
4831
["Hide BRACKETED at point" ar-hide-bracketed-atpt
4832
:help " `ar-hide-bracketed-atpt'
4833
Hide BRACKETED at point if any, nil otherwise. "]
4834
4835
["Hide LESSER-ANGLED at point" ar-hide-lesser-angled-atpt
4836
:help " `ar-hide-lesser-angled-atpt'
4837
Hide LESSER-ANGLED at point if any, nil otherwise. "]
4838
4839
["Hide GREATER-ANGLED at point" ar-hide-greater-angled-atpt
4840
:help " `ar-hide-greater-angled-atpt'
4841
Hide GREATER-ANGLED at point if any, nil otherwise. "]
4842
4843
["Hide LEFT-RIGHT-SINGLEQUOTED at point" ar-hide-left-right-singlequoted-atpt
4844
:help " `ar-hide-left-right-singlequoted-atpt'
4845
Hide LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
4846
4847
["Hide PARENTIZED at point" ar-hide-parentized-atpt
4848
:help " `ar-hide-parentized-atpt'
4849
Hide PARENTIZED at point if any, nil otherwise. "]
4850
4851
["Hide BACKSLASHED at point" ar-hide-backslashed-atpt
4852
:help " `ar-hide-backslashed-atpt'
4853
Hide BACKSLASHED at point if any, nil otherwise. "]
4854
4855
["Hide DOLLARED at point" ar-hide-dollared-atpt
4856
:help " `ar-hide-dollared-atpt'
4857
Hide DOLLARED at point if any, nil otherwise. "]
4858
4859
["Hide DOUBLEQUOTED at point" ar-hide-doublequoted-atpt
4860
:help " `ar-hide-doublequoted-atpt'
4861
Hide DOUBLEQUOTED at point if any, nil otherwise. "]
4862
4863
["Hide EQUALIZED at point" ar-hide-equalized-atpt
4864
:help " `ar-hide-equalized-atpt'
4865
Hide EQUALIZED at point if any, nil otherwise. "]
4866
4867
["Hide HYPHENED at point" ar-hide-hyphened-atpt
4868
:help " `ar-hide-hyphened-atpt'
4869
Hide HYPHENED at point if any, nil otherwise. "]
4870
4871
["Hide QUOTED at point" ar-hide-quoted-atpt
4872
:help " `ar-hide-quoted-atpt'
4873
Hide QUOTED at point if any, nil otherwise. "]
4874
4875
["Hide SINGLEQUOTED at point" ar-hide-singlequoted-atpt
4876
:help " `ar-hide-singlequoted-atpt'
4877
Hide SINGLEQUOTED at point if any, nil otherwise. "]
4878
4879
["Hide SLASHED at point" ar-hide-slashed-atpt
4880
:help " `ar-hide-slashed-atpt'
4881
Hide SLASHED at point if any, nil otherwise. "]
4882
4883
["Hide UNDERSCORED at point" ar-hide-underscored-atpt
4884
:help " `ar-hide-underscored-atpt'
4885
Hide UNDERSCORED at point if any, nil otherwise. "]
4886
4887
["Hide WHITESPACED at point" ar-hide-whitespaced-atpt
4888
:help " `ar-hide-whitespaced-atpt'
4889
Hide WHITESPACED at point if any, nil otherwise. "]
4890
4891
)
4892
("Other"
4893
4894
["Hide ANGLED-NO-NEST at point" ar-hide-angled-no-nest-atpt
4895
:help " `ar-hide-angled-no-nest-atpt'
4896
Hide ANGLED-NO-NEST at point if any, nil otherwise. "]
4897
4898
["Hide GREATER-ANGLED-NESTED at point" ar-hide-greater-angled-nested-atpt
4899
:help " `ar-hide-greater-angled-nested-atpt'
4900
Hide GREATER-ANGLED-NESTED at point if any, nil otherwise. "]
4901
4902
["Hide LESSER-ANGLED-NESTED at point" ar-hide-lesser-angled-nested-atpt
4903
:help " `ar-hide-lesser-angled-nested-atpt'
4904
Hide LESSER-ANGLED-NESTED at point if any, nil otherwise. "]
4905
4906
["Hide BUFFER at point" ar-hide-buffer-atpt
4907
:help " `ar-hide-buffer-atpt'
4908
Hide BUFFER at point if any, nil otherwise. "]
4909
4910
["Hide COMMENT at point" ar-hide-comment-atpt
4911
:help " `ar-hide-comment-atpt'
4912
Hide COMMENT at point if any, nil otherwise. "]
4913
4914
["Hide CSV at point" ar-hide-csv-atpt
4915
:help " `ar-hide-csv-atpt'
4916
Hide CSV at point if any, nil otherwise. "]
4917
4918
["Hide DATE at point" ar-hide-date-atpt
4919
:help " `ar-hide-date-atpt'
4920
Hide DATE at point if any, nil otherwise. "]
4921
4922
["Hide DEFUN at point" ar-hide-defun-atpt
4923
:help " `ar-hide-defun-atpt'
4924
Hide DEFUN at point if any, nil otherwise. "]
4925
4926
["Hide DELIMITED at point" ar-hide-delimited-atpt
4927
:help " `ar-hide-delimited-atpt'
4928
Hide DELIMITED at point if any, nil otherwise. "]
4929
4930
["Hide EMAIL at point" ar-hide-email-atpt
4931
:help " `ar-hide-email-atpt'
4932
Hide EMAIL at point if any, nil otherwise. "]
4933
4934
["Hide FILENAME at point" ar-hide-filename-atpt
4935
:help " `ar-hide-filename-atpt'
4936
Hide FILENAME at point if any, nil otherwise. "]
4937
4938
["Hide FLOAT at point" ar-hide-float-atpt
4939
:help " `ar-hide-float-atpt'
4940
Hide FLOAT at point if any, nil otherwise. "]
4941
4942
["Hide FUNCTION at point" ar-hide-function-atpt
4943
:help " `ar-hide-function-atpt'
4944
Hide FUNCTION at point if any, nil otherwise. "]
4945
4946
["Hide IP at point" ar-hide-ip-atpt
4947
:help " `ar-hide-ip-atpt'
4948
Hide IP at point if any, nil otherwise. "]
4949
4950
["Hide ISBN at point" ar-hide-isbn-atpt
4951
:help " `ar-hide-isbn-atpt'
4952
Hide ISBN at point if any, nil otherwise. "]
4953
4954
["Hide LINE at point" ar-hide-line-atpt
4955
:help " `ar-hide-line-atpt'
4956
Hide LINE at point if any, nil otherwise. "]
4957
4958
["Hide NAME at point" ar-hide-name-atpt
4959
:help " `ar-hide-name-atpt'
4960
Hide NAME at point if any, nil otherwise. "]
4961
4962
["Hide NUMBER at point" ar-hide-number-atpt
4963
:help " `ar-hide-number-atpt'
4964
Hide NUMBER at point if any, nil otherwise. "]
4965
4966
["Hide PAGE at point" ar-hide-page-atpt
4967
:help " `ar-hide-page-atpt'
4968
Hide PAGE at point if any, nil otherwise. "]
4969
4970
["Hide PARAGRAPH at point" ar-hide-paragraph-atpt
4971
:help " `ar-hide-paragraph-atpt'
4972
Hide PARAGRAPH at point if any, nil otherwise. "]
4973
4974
["Hide PAREN at point" ar-hide-paren-atpt
4975
:help " `ar-hide-paren-atpt'
4976
Hide PAREN at point if any, nil otherwise. "]
4977
4978
["Hide PHONE at point" ar-hide-phone-atpt
4979
:help " `ar-hide-phone-atpt'
4980
Hide PHONE at point if any, nil otherwise. "]
4981
4982
["Hide REGION at point" ar-hide-region-atpt
4983
:help " `ar-hide-region-atpt'
4984
Hide REGION at point if any, nil otherwise. "]
4985
4986
["Hide SENTENCE at point" ar-hide-sentence-atpt
4987
:help " `ar-hide-sentence-atpt'
4988
Hide SENTENCE at point if any, nil otherwise. "]
4989
4990
["Hide SEXP at point" ar-hide-sexp-atpt
4991
:help " `ar-hide-sexp-atpt'
4992
Hide SEXP at point if any, nil otherwise. "]
4993
4994
["Hide STRING at point" ar-hide-string-atpt
4995
:help " `ar-hide-string-atpt'
4996
Hide STRING at point if any, nil otherwise. "]
4997
4998
["Hide SH-STRUCT at point" ar-hide-sh-struct-atpt
4999
:help " `ar-hide-sh-struct-atpt'
5000
Hide SH-STRUCT at point if any, nil otherwise. "]
5001
5002
["Hide SYMBOL at point" ar-hide-symbol-atpt
5003
:help " `ar-hide-symbol-atpt'
5004
Hide SYMBOL at point if any, nil otherwise. "]
5005
5006
["Hide URL at point" ar-hide-url-atpt
5007
:help " `ar-hide-url-atpt'
5008
Hide URL at point if any, nil otherwise. "]
5009
5010
["Hide WORD at point" ar-hide-word-atpt
5011
:help " `ar-hide-word-atpt'
5012
Hide WORD at point if any, nil otherwise. "]
5013
5014
["Hide WORD-ALPHA-ONLY at point" ar-hide-word-alpha-only-atpt
5015
:help " `ar-hide-word-alpha-only-atpt'
5016
Hide WORD-ALPHA-ONLY at point if any, nil otherwise. "]
5017
5018
)
5019
5020
)
5021
("Hide-Show"
5022
5023
("Character classes"
5024
5025
["Hide-Show [:alnum:] char class at point" ar-hide-show-alnum-atpt
5026
:help " `ar-hide-show-alnum-atpt'
5027
Hide-Show ALNUM at point if any, nil otherwise. "]
5028
5029
["Hide-Show [:alpha:] char class at point" ar-hide-show-alpha-atpt
5030
:help " `ar-hide-show-alpha-atpt'
5031
Hide-Show ALPHA at point if any, nil otherwise. "]
5032
5033
["Hide-Show [:ascii:] char class at point" ar-hide-show-ascii-atpt
5034
:help " `ar-hide-show-ascii-atpt'
5035
Hide-Show ASCII at point if any, nil otherwise. "]
5036
5037
["Hide-Show [:blank:] char class at point" ar-hide-show-blank-atpt
5038
:help " `ar-hide-show-blank-atpt'
5039
Hide-Show BLANK at point if any, nil otherwise. "]
5040
5041
["Hide-Show [:cntrl:] char class at point" ar-hide-show-cntrl-atpt
5042
:help " `ar-hide-show-cntrl-atpt'
5043
Hide-Show CNTRL at point if any, nil otherwise. "]
5044
5045
["Hide-Show [:digit:] char class at point" ar-hide-show-digit-atpt
5046
:help " `ar-hide-show-digit-atpt'
5047
Hide-Show DIGIT at point if any, nil otherwise. "]
5048
5049
["Hide-Show [:graph:] char class at point" ar-hide-show-graph-atpt
5050
:help " `ar-hide-show-graph-atpt'
5051
Hide-Show GRAPH at point if any, nil otherwise. "]
5052
5053
["Hide-Show [:lower:] char class at point" ar-hide-show-lower-atpt
5054
:help " `ar-hide-show-lower-atpt'
5055
Hide-Show LOWER at point if any, nil otherwise. "]
5056
5057
["Hide-Show [:nonascii:] char class at point" ar-hide-show-nonascii-atpt
5058
:help " `ar-hide-show-nonascii-atpt'
5059
Hide-Show NONASCII at point if any, nil otherwise. "]
5060
5061
["Hide-Show [:print:] char class at point" ar-hide-show-print-atpt
5062
:help " `ar-hide-show-print-atpt'
5063
Hide-Show PRINT at point if any, nil otherwise. "]
5064
5065
["Hide-Show [:punct:] char class at point" ar-hide-show-punct-atpt
5066
:help " `ar-hide-show-punct-atpt'
5067
Hide-Show PUNCT at point if any, nil otherwise. "]
5068
5069
["Hide-Show [:space:] char class at point" ar-hide-show-space-atpt
5070
:help " `ar-hide-show-space-atpt'
5071
Hide-Show SPACE at point if any, nil otherwise. "]
5072
5073
["Hide-Show [:upper:] char class at point" ar-hide-show-upper-atpt
5074
:help " `ar-hide-show-upper-atpt'
5075
Hide-Show UPPER at point if any, nil otherwise. "]
5076
5077
["Hide-Show [:xdigit:] char class at point" ar-hide-show-xdigit-atpt
5078
:help " `ar-hide-show-xdigit-atpt'
5079
Hide-Show XDIGIT at point if any, nil otherwise. "]
5080
5081
)
5082
("Delimited"
5083
5084
["Hide-Show BRACED at point" ar-hide-show-braced-atpt
5085
:help " `ar-hide-show-braced-atpt'
5086
Hide-Show BRACED at point if any, nil otherwise. "]
5087
5088
["Hide-Show BRACKETED at point" ar-hide-show-bracketed-atpt
5089
:help " `ar-hide-show-bracketed-atpt'
5090
Hide-Show BRACKETED at point if any, nil otherwise. "]
5091
5092
["Hide-Show LESSER-ANGLED at point" ar-hide-show-lesser-angled-atpt
5093
:help " `ar-hide-show-lesser-angled-atpt'
5094
Hide-Show LESSER-ANGLED at point if any, nil otherwise. "]
5095
5096
["Hide-Show GREATER-ANGLED at point" ar-hide-show-greater-angled-atpt
5097
:help " `ar-hide-show-greater-angled-atpt'
5098
Hide-Show GREATER-ANGLED at point if any, nil otherwise. "]
5099
5100
["Hide-Show LEFT-RIGHT-SINGLEQUOTED at point" ar-hide-show-left-right-singlequoted-atpt
5101
:help " `ar-hide-show-left-right-singlequoted-atpt'
5102
Hide-Show LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
5103
5104
["Hide-Show PARENTIZED at point" ar-hide-show-parentized-atpt
5105
:help " `ar-hide-show-parentized-atpt'
5106
Hide-Show PARENTIZED at point if any, nil otherwise. "]
5107
5108
["Hide-Show BACKSLASHED at point" ar-hide-show-backslashed-atpt
5109
:help " `ar-hide-show-backslashed-atpt'
5110
Hide-Show BACKSLASHED at point if any, nil otherwise. "]
5111
5112
["Hide-Show DOLLARED at point" ar-hide-show-dollared-atpt
5113
:help " `ar-hide-show-dollared-atpt'
5114
Hide-Show DOLLARED at point if any, nil otherwise. "]
5115
5116
["Hide-Show DOUBLEQUOTED at point" ar-hide-show-doublequoted-atpt
5117
:help " `ar-hide-show-doublequoted-atpt'
5118
Hide-Show DOUBLEQUOTED at point if any, nil otherwise. "]
5119
5120
["Hide-Show EQUALIZED at point" ar-hide-show-equalized-atpt
5121
:help " `ar-hide-show-equalized-atpt'
5122
Hide-Show EQUALIZED at point if any, nil otherwise. "]
5123
5124
["Hide-Show HYPHENED at point" ar-hide-show-hyphened-atpt
5125
:help " `ar-hide-show-hyphened-atpt'
5126
Hide-Show HYPHENED at point if any, nil otherwise. "]
5127
5128
["Hide-Show QUOTED at point" ar-hide-show-quoted-atpt
5129
:help " `ar-hide-show-quoted-atpt'
5130
Hide-Show QUOTED at point if any, nil otherwise. "]
5131
5132
["Hide-Show SINGLEQUOTED at point" ar-hide-show-singlequoted-atpt
5133
:help " `ar-hide-show-singlequoted-atpt'
5134
Hide-Show SINGLEQUOTED at point if any, nil otherwise. "]
5135
5136
["Hide-Show SLASHED at point" ar-hide-show-slashed-atpt
5137
:help " `ar-hide-show-slashed-atpt'
5138
Hide-Show SLASHED at point if any, nil otherwise. "]
5139
5140
["Hide-Show UNDERSCORED at point" ar-hide-show-underscored-atpt
5141
:help " `ar-hide-show-underscored-atpt'
5142
Hide-Show UNDERSCORED at point if any, nil otherwise. "]
5143
5144
["Hide-Show WHITESPACED at point" ar-hide-show-whitespaced-atpt
5145
:help " `ar-hide-show-whitespaced-atpt'
5146
Hide-Show WHITESPACED at point if any, nil otherwise. "]
5147
5148
)
5149
("Other"
5150
5151
["Hide-Show ANGLED-NO-NEST at point" ar-hide-show-angled-no-nest-atpt
5152
:help " `ar-hide-show-angled-no-nest-atpt'
5153
Hide-Show ANGLED-NO-NEST at point if any, nil otherwise. "]
5154
5155
["Hide-Show GREATER-ANGLED-NESTED at point" ar-hide-show-greater-angled-nested-atpt
5156
:help " `ar-hide-show-greater-angled-nested-atpt'
5157
Hide-Show GREATER-ANGLED-NESTED at point if any, nil otherwise. "]
5158
5159
["Hide-Show LESSER-ANGLED-NESTED at point" ar-hide-show-lesser-angled-nested-atpt
5160
:help " `ar-hide-show-lesser-angled-nested-atpt'
5161
Hide-Show LESSER-ANGLED-NESTED at point if any, nil otherwise. "]
5162
5163
["Hide-Show BUFFER at point" ar-hide-show-buffer-atpt
5164
:help " `ar-hide-show-buffer-atpt'
5165
Hide-Show BUFFER at point if any, nil otherwise. "]
5166
5167
["Hide-Show COMMENT at point" ar-hide-show-comment-atpt
5168
:help " `ar-hide-show-comment-atpt'
5169
Hide-Show COMMENT at point if any, nil otherwise. "]
5170
5171
["Hide-Show CSV at point" ar-hide-show-csv-atpt
5172
:help " `ar-hide-show-csv-atpt'
5173
Hide-Show CSV at point if any, nil otherwise. "]
5174
5175
["Hide-Show DATE at point" ar-hide-show-date-atpt
5176
:help " `ar-hide-show-date-atpt'
5177
Hide-Show DATE at point if any, nil otherwise. "]
5178
5179
["Hide-Show DEFUN at point" ar-hide-show-defun-atpt
5180
:help " `ar-hide-show-defun-atpt'
5181
Hide-Show DEFUN at point if any, nil otherwise. "]
5182
5183
["Hide-Show DELIMITED at point" ar-hide-show-delimited-atpt
5184
:help " `ar-hide-show-delimited-atpt'
5185
Hide-Show DELIMITED at point if any, nil otherwise. "]
5186
5187
["Hide-Show EMAIL at point" ar-hide-show-email-atpt
5188
:help " `ar-hide-show-email-atpt'
5189
Hide-Show EMAIL at point if any, nil otherwise. "]
5190
5191
["Hide-Show FILENAME at point" ar-hide-show-filename-atpt
5192
:help " `ar-hide-show-filename-atpt'
5193
Hide-Show FILENAME at point if any, nil otherwise. "]
5194
5195
["Hide-Show FLOAT at point" ar-hide-show-float-atpt
5196
:help " `ar-hide-show-float-atpt'
5197
Hide-Show FLOAT at point if any, nil otherwise. "]
5198
5199
["Hide-Show FUNCTION at point" ar-hide-show-function-atpt
5200
:help " `ar-hide-show-function-atpt'
5201
Hide-Show FUNCTION at point if any, nil otherwise. "]
5202
5203
["Hide-Show IP at point" ar-hide-show-ip-atpt
5204
:help " `ar-hide-show-ip-atpt'
5205
Hide-Show IP at point if any, nil otherwise. "]
5206
5207
["Hide-Show ISBN at point" ar-hide-show-isbn-atpt
5208
:help " `ar-hide-show-isbn-atpt'
5209
Hide-Show ISBN at point if any, nil otherwise. "]
5210
5211
["Hide-Show LINE at point" ar-hide-show-line-atpt
5212
:help " `ar-hide-show-line-atpt'
5213
Hide-Show LINE at point if any, nil otherwise. "]
5214
5215
["Hide-Show NAME at point" ar-hide-show-name-atpt
5216
:help " `ar-hide-show-name-atpt'
5217
Hide-Show NAME at point if any, nil otherwise. "]
5218
5219
["Hide-Show NUMBER at point" ar-hide-show-number-atpt
5220
:help " `ar-hide-show-number-atpt'
5221
Hide-Show NUMBER at point if any, nil otherwise. "]
5222
5223
["Hide-Show PAGE at point" ar-hide-show-page-atpt
5224
:help " `ar-hide-show-page-atpt'
5225
Hide-Show PAGE at point if any, nil otherwise. "]
5226
5227
["Hide-Show PARAGRAPH at point" ar-hide-show-paragraph-atpt
5228
:help " `ar-hide-show-paragraph-atpt'
5229
Hide-Show PARAGRAPH at point if any, nil otherwise. "]
5230
5231
["Hide-Show PAREN at point" ar-hide-show-paren-atpt
5232
:help " `ar-hide-show-paren-atpt'
5233
Hide-Show PAREN at point if any, nil otherwise. "]
5234
5235
["Hide-Show PHONE at point" ar-hide-show-phone-atpt
5236
:help " `ar-hide-show-phone-atpt'
5237
Hide-Show PHONE at point if any, nil otherwise. "]
5238
5239
["Hide-Show REGION at point" ar-hide-show-region-atpt
5240
:help " `ar-hide-show-region-atpt'
5241
Hide-Show REGION at point if any, nil otherwise. "]
5242
5243
["Hide-Show SENTENCE at point" ar-hide-show-sentence-atpt
5244
:help " `ar-hide-show-sentence-atpt'
5245
Hide-Show SENTENCE at point if any, nil otherwise. "]
5246
5247
["Hide-Show SEXP at point" ar-hide-show-sexp-atpt
5248
:help " `ar-hide-show-sexp-atpt'
5249
Hide-Show SEXP at point if any, nil otherwise. "]
5250
5251
["Hide-Show STRING at point" ar-hide-show-string-atpt
5252
:help " `ar-hide-show-string-atpt'
5253
Hide-Show STRING at point if any, nil otherwise. "]
5254
5255
["Hide-Show SH-STRUCT at point" ar-hide-show-sh-struct-atpt
5256
:help " `ar-hide-show-sh-struct-atpt'
5257
Hide-Show SH-STRUCT at point if any, nil otherwise. "]
5258
5259
["Hide-Show SYMBOL at point" ar-hide-show-symbol-atpt
5260
:help " `ar-hide-show-symbol-atpt'
5261
Hide-Show SYMBOL at point if any, nil otherwise. "]
5262
5263
["Hide-Show URL at point" ar-hide-show-url-atpt
5264
:help " `ar-hide-show-url-atpt'
5265
Hide-Show URL at point if any, nil otherwise. "]
5266
5267
["Hide-Show WORD at point" ar-hide-show-word-atpt
5268
:help " `ar-hide-show-word-atpt'
5269
Hide-Show WORD at point if any, nil otherwise. "]
5270
5271
["Hide-Show WORD-ALPHA-ONLY at point" ar-hide-show-word-alpha-only-atpt
5272
:help " `ar-hide-show-word-alpha-only-atpt'
5273
Hide-Show WORD-ALPHA-ONLY at point if any, nil otherwise. "]
5274
5275
)
5276
5277
)
5278
("Highlight"
5279
5280
("Character classes"
5281
5282
["Highlight [:alnum:] char class at point" ar-highlight-alnum-atpt
5283
:help " `ar-highlight-alnum-atpt'
5284
Highlight ALNUM at point if any, nil otherwise. "]
5285
5286
["Highlight [:alpha:] char class at point" ar-highlight-alpha-atpt
5287
:help " `ar-highlight-alpha-atpt'
5288
Highlight ALPHA at point if any, nil otherwise. "]
5289
5290
["Highlight [:ascii:] char class at point" ar-highlight-ascii-atpt
5291
:help " `ar-highlight-ascii-atpt'
5292
Highlight ASCII at point if any, nil otherwise. "]
5293
5294
["Highlight [:blank:] char class at point" ar-highlight-blank-atpt
5295
:help " `ar-highlight-blank-atpt'
5296
Highlight BLANK at point if any, nil otherwise. "]
5297
5298
["Highlight [:cntrl:] char class at point" ar-highlight-cntrl-atpt
5299
:help " `ar-highlight-cntrl-atpt'
5300
Highlight CNTRL at point if any, nil otherwise. "]
5301
5302
["Highlight [:digit:] char class at point" ar-highlight-digit-atpt
5303
:help " `ar-highlight-digit-atpt'
5304
Highlight DIGIT at point if any, nil otherwise. "]
5305
5306
["Highlight [:graph:] char class at point" ar-highlight-graph-atpt
5307
:help " `ar-highlight-graph-atpt'
5308
Highlight GRAPH at point if any, nil otherwise. "]
5309
5310
["Highlight [:lower:] char class at point" ar-highlight-lower-atpt
5311
:help " `ar-highlight-lower-atpt'
5312
Highlight LOWER at point if any, nil otherwise. "]
5313
5314
["Highlight [:nonascii:] char class at point" ar-highlight-nonascii-atpt
5315
:help " `ar-highlight-nonascii-atpt'
5316
Highlight NONASCII at point if any, nil otherwise. "]
5317
5318
["Highlight [:print:] char class at point" ar-highlight-print-atpt
5319
:help " `ar-highlight-print-atpt'
5320
Highlight PRINT at point if any, nil otherwise. "]
5321
5322
["Highlight [:punct:] char class at point" ar-highlight-punct-atpt
5323
:help " `ar-highlight-punct-atpt'
5324
Highlight PUNCT at point if any, nil otherwise. "]
5325
5326
["Highlight [:space:] char class at point" ar-highlight-space-atpt
5327
:help " `ar-highlight-space-atpt'
5328
Highlight SPACE at point if any, nil otherwise. "]
5329
5330
["Highlight [:upper:] char class at point" ar-highlight-upper-atpt
5331
:help " `ar-highlight-upper-atpt'
5332
Highlight UPPER at point if any, nil otherwise. "]
5333
5334
["Highlight [:xdigit:] char class at point" ar-highlight-xdigit-atpt
5335
:help " `ar-highlight-xdigit-atpt'
5336
Highlight XDIGIT at point if any, nil otherwise. "]
5337
5338
)
5339
("Delimited"
5340
5341
["Highlight BRACED at point" ar-highlight-braced-atpt
5342
:help " `ar-highlight-braced-atpt'
5343
Highlight BRACED at point if any, nil otherwise. "]
5344
5345
["Highlight BRACKETED at point" ar-highlight-bracketed-atpt
5346
:help " `ar-highlight-bracketed-atpt'
5347
Highlight BRACKETED at point if any, nil otherwise. "]
5348
5349
["Highlight LESSER-ANGLED at point" ar-highlight-lesser-angled-atpt
5350
:help " `ar-highlight-lesser-angled-atpt'
5351
Highlight LESSER-ANGLED at point if any, nil otherwise. "]
5352
5353
["Highlight GREATER-ANGLED at point" ar-highlight-greater-angled-atpt
5354
:help " `ar-highlight-greater-angled-atpt'
5355
Highlight GREATER-ANGLED at point if any, nil otherwise. "]
5356
5357
["Highlight LEFT-RIGHT-SINGLEQUOTED at point" ar-highlight-left-right-singlequoted-atpt
5358
:help " `ar-highlight-left-right-singlequoted-atpt'
5359
Highlight LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
5360
5361
["Highlight PARENTIZED at point" ar-highlight-parentized-atpt
5362
:help " `ar-highlight-parentized-atpt'
5363
Highlight PARENTIZED at point if any, nil otherwise. "]
5364
5365
["Highlight BACKSLASHED at point" ar-highlight-backslashed-atpt
5366
:help " `ar-highlight-backslashed-atpt'
5367
Highlight BACKSLASHED at point if any, nil otherwise. "]
5368
5369
["Highlight DOLLARED at point" ar-highlight-dollared-atpt
5370
:help " `ar-highlight-dollared-atpt'
5371
Highlight DOLLARED at point if any, nil otherwise. "]
5372
5373
["Highlight DOUBLEQUOTED at point" ar-highlight-doublequoted-atpt
5374
:help " `ar-highlight-doublequoted-atpt'
5375
Highlight DOUBLEQUOTED at point if any, nil otherwise. "]
5376
5377
["Highlight EQUALIZED at point" ar-highlight-equalized-atpt
5378
:help " `ar-highlight-equalized-atpt'
5379
Highlight EQUALIZED at point if any, nil otherwise. "]
5380
5381
["Highlight HYPHENED at point" ar-highlight-hyphened-atpt
5382
:help " `ar-highlight-hyphened-atpt'
5383
Highlight HYPHENED at point if any, nil otherwise. "]
5384
5385
["Highlight QUOTED at point" ar-highlight-quoted-atpt
5386
:help " `ar-highlight-quoted-atpt'
5387
Highlight QUOTED at point if any, nil otherwise. "]
5388
5389
["Highlight SINGLEQUOTED at point" ar-highlight-singlequoted-atpt
5390
:help " `ar-highlight-singlequoted-atpt'
5391
Highlight SINGLEQUOTED at point if any, nil otherwise. "]
5392
5393
["Highlight SLASHED at point" ar-highlight-slashed-atpt
5394
:help " `ar-highlight-slashed-atpt'
5395
Highlight SLASHED at point if any, nil otherwise. "]
5396
5397
["Highlight UNDERSCORED at point" ar-highlight-underscored-atpt
5398
:help " `ar-highlight-underscored-atpt'
5399
Highlight UNDERSCORED at point if any, nil otherwise. "]
5400
5401
["Highlight WHITESPACED at point" ar-highlight-whitespaced-atpt
5402
:help " `ar-highlight-whitespaced-atpt'
5403
Highlight WHITESPACED at point if any, nil otherwise. "]
5404
5405
)
5406
("Other"
5407
5408
["Highlight ANGLED-NO-NEST at point" ar-highlight-angled-no-nest-atpt
5409
:help " `ar-highlight-angled-no-nest-atpt'
5410
Highlight ANGLED-NO-NEST at point if any, nil otherwise. "]
5411
5412
["Highlight GREATER-ANGLED-NESTED at point" ar-highlight-greater-angled-nested-atpt
5413
:help " `ar-highlight-greater-angled-nested-atpt'
5414
Highlight GREATER-ANGLED-NESTED at point if any, nil otherwise. "]
5415
5416
["Highlight LESSER-ANGLED-NESTED at point" ar-highlight-lesser-angled-nested-atpt
5417
:help " `ar-highlight-lesser-angled-nested-atpt'
5418
Highlight LESSER-ANGLED-NESTED at point if any, nil otherwise. "]
5419
5420
["Highlight BUFFER at point" ar-highlight-buffer-atpt
5421
:help " `ar-highlight-buffer-atpt'
5422
Highlight BUFFER at point if any, nil otherwise. "]
5423
5424
["Highlight COMMENT at point" ar-highlight-comment-atpt
5425
:help " `ar-highlight-comment-atpt'
5426
Highlight COMMENT at point if any, nil otherwise. "]
5427
5428
["Highlight CSV at point" ar-highlight-csv-atpt
5429
:help " `ar-highlight-csv-atpt'
5430
Highlight CSV at point if any, nil otherwise. "]
5431
5432
["Highlight DATE at point" ar-highlight-date-atpt
5433
:help " `ar-highlight-date-atpt'
5434
Highlight DATE at point if any, nil otherwise. "]
5435
5436
["Highlight DEFUN at point" ar-highlight-defun-atpt
5437
:help " `ar-highlight-defun-atpt'
5438
Highlight DEFUN at point if any, nil otherwise. "]
5439
5440
["Highlight DELIMITED at point" ar-highlight-delimited-atpt
5441
:help " `ar-highlight-delimited-atpt'
5442
Highlight DELIMITED at point if any, nil otherwise. "]
5443
5444
["Highlight EMAIL at point" ar-highlight-email-atpt
5445
:help " `ar-highlight-email-atpt'
5446
Highlight EMAIL at point if any, nil otherwise. "]
5447
5448
["Highlight FILENAME at point" ar-highlight-filename-atpt
5449
:help " `ar-highlight-filename-atpt'
5450
Highlight FILENAME at point if any, nil otherwise. "]
5451
5452
["Highlight FLOAT at point" ar-highlight-float-atpt
5453
:help " `ar-highlight-float-atpt'
5454
Highlight FLOAT at point if any, nil otherwise. "]
5455
5456
["Highlight FUNCTION at point" ar-highlight-function-atpt
5457
:help " `ar-highlight-function-atpt'
5458
Highlight FUNCTION at point if any, nil otherwise. "]
5459
5460
["Highlight IP at point" ar-highlight-ip-atpt
5461
:help " `ar-highlight-ip-atpt'
5462
Highlight IP at point if any, nil otherwise. "]
5463
5464
["Highlight ISBN at point" ar-highlight-isbn-atpt
5465
:help " `ar-highlight-isbn-atpt'
5466
Highlight ISBN at point if any, nil otherwise. "]
5467
5468
["Highlight LINE at point" ar-highlight-line-atpt
5469
:help " `ar-highlight-line-atpt'
5470
Highlight LINE at point if any, nil otherwise. "]
5471
5472
["Highlight NAME at point" ar-highlight-name-atpt
5473
:help " `ar-highlight-name-atpt'
5474
Highlight NAME at point if any, nil otherwise. "]
5475
5476
["Highlight NUMBER at point" ar-highlight-number-atpt
5477
:help " `ar-highlight-number-atpt'
5478
Highlight NUMBER at point if any, nil otherwise. "]
5479
5480
["Highlight PAGE at point" ar-highlight-page-atpt
5481
:help " `ar-highlight-page-atpt'
5482
Highlight PAGE at point if any, nil otherwise. "]
5483
5484
["Highlight PARAGRAPH at point" ar-highlight-paragraph-atpt
5485
:help " `ar-highlight-paragraph-atpt'
5486
Highlight PARAGRAPH at point if any, nil otherwise. "]
5487
5488
["Highlight PAREN at point" ar-highlight-paren-atpt
5489
:help " `ar-highlight-paren-atpt'
5490
Highlight PAREN at point if any, nil otherwise. "]
5491
5492
["Highlight PHONE at point" ar-highlight-phone-atpt
5493
:help " `ar-highlight-phone-atpt'
5494
Highlight PHONE at point if any, nil otherwise. "]
5495
5496
["Highlight REGION at point" ar-highlight-region-atpt
5497
:help " `ar-highlight-region-atpt'
5498
Highlight REGION at point if any, nil otherwise. "]
5499
5500
["Highlight SENTENCE at point" ar-highlight-sentence-atpt
5501
:help " `ar-highlight-sentence-atpt'
5502
Highlight SENTENCE at point if any, nil otherwise. "]
5503
5504
["Highlight SEXP at point" ar-highlight-sexp-atpt
5505
:help " `ar-highlight-sexp-atpt'
5506
Highlight SEXP at point if any, nil otherwise. "]
5507
5508
["Highlight STRING at point" ar-highlight-string-atpt
5509
:help " `ar-highlight-string-atpt'
5510
Highlight STRING at point if any, nil otherwise. "]
5511
5512
["Highlight SH-STRUCT at point" ar-highlight-sh-struct-atpt
5513
:help " `ar-highlight-sh-struct-atpt'
5514
Highlight SH-STRUCT at point if any, nil otherwise. "]
5515
5516
["Highlight SYMBOL at point" ar-highlight-symbol-atpt
5517
:help " `ar-highlight-symbol-atpt'
5518
Highlight SYMBOL at point if any, nil otherwise. "]
5519
5520
["Highlight URL at point" ar-highlight-url-atpt
5521
:help " `ar-highlight-url-atpt'
5522
Highlight URL at point if any, nil otherwise. "]
5523
5524
["Highlight WORD at point" ar-highlight-word-atpt
5525
:help " `ar-highlight-word-atpt'
5526
Highlight WORD at point if any, nil otherwise. "]
5527
5528
["Highlight WORD-ALPHA-ONLY at point" ar-highlight-word-alpha-only-atpt
5529
:help " `ar-highlight-word-alpha-only-atpt'
5530
Highlight WORD-ALPHA-ONLY at point if any, nil otherwise. "]
5531
5532
)
5533
5534
)
5535
("Hyphen"
5536
5537
("Character classes"
5538
5539
["Hyphen [:alnum:] char class at point" ar-hyphen-alnum-atpt
5540
:help " `ar-hyphen-alnum-atpt'
5541
Hyphen ALNUM at point if any, nil otherwise. "]
5542
5543
["Hyphen [:alpha:] char class at point" ar-hyphen-alpha-atpt
5544
:help " `ar-hyphen-alpha-atpt'
5545
Hyphen ALPHA at point if any, nil otherwise. "]
5546
5547
["Hyphen [:ascii:] char class at point" ar-hyphen-ascii-atpt
5548
:help " `ar-hyphen-ascii-atpt'
5549
Hyphen ASCII at point if any, nil otherwise. "]
5550
5551
["Hyphen [:blank:] char class at point" ar-hyphen-blank-atpt
5552
:help " `ar-hyphen-blank-atpt'
5553
Hyphen BLANK at point if any, nil otherwise. "]
5554
5555
["Hyphen [:cntrl:] char class at point" ar-hyphen-cntrl-atpt
5556
:help " `ar-hyphen-cntrl-atpt'
5557
Hyphen CNTRL at point if any, nil otherwise. "]
5558
5559
["Hyphen [:digit:] char class at point" ar-hyphen-digit-atpt
5560
:help " `ar-hyphen-digit-atpt'
5561
Hyphen DIGIT at point if any, nil otherwise. "]
5562
5563
["Hyphen [:graph:] char class at point" ar-hyphen-graph-atpt
5564
:help " `ar-hyphen-graph-atpt'
5565
Hyphen GRAPH at point if any, nil otherwise. "]
5566
5567
["Hyphen [:lower:] char class at point" ar-hyphen-lower-atpt
5568
:help " `ar-hyphen-lower-atpt'
5569
Hyphen LOWER at point if any, nil otherwise. "]
5570
5571
["Hyphen [:nonascii:] char class at point" ar-hyphen-nonascii-atpt
5572
:help " `ar-hyphen-nonascii-atpt'
5573
Hyphen NONASCII at point if any, nil otherwise. "]
5574
5575
["Hyphen [:print:] char class at point" ar-hyphen-print-atpt
5576
:help " `ar-hyphen-print-atpt'
5577
Hyphen PRINT at point if any, nil otherwise. "]
5578
5579
["Hyphen [:punct:] char class at point" ar-hyphen-punct-atpt
5580
:help " `ar-hyphen-punct-atpt'
5581
Hyphen PUNCT at point if any, nil otherwise. "]
5582
5583
["Hyphen [:space:] char class at point" ar-hyphen-space-atpt
5584
:help " `ar-hyphen-space-atpt'
5585
Hyphen SPACE at point if any, nil otherwise. "]
5586
5587
["Hyphen [:upper:] char class at point" ar-hyphen-upper-atpt
5588
:help " `ar-hyphen-upper-atpt'
5589
Hyphen UPPER at point if any, nil otherwise. "]
5590
5591
["Hyphen [:xdigit:] char class at point" ar-hyphen-xdigit-atpt
5592
:help " `ar-hyphen-xdigit-atpt'
5593
Hyphen XDIGIT at point if any, nil otherwise. "]
5594
5595
)
5596
("Delimited"
5597
5598
["Hyphen BRACED at point" ar-hyphen-braced-atpt
5599
:help " `ar-hyphen-braced-atpt'
5600
Hyphen BRACED at point if any, nil otherwise. "]
5601
5602
["Hyphen BRACKETED at point" ar-hyphen-bracketed-atpt
5603
:help " `ar-hyphen-bracketed-atpt'
5604
Hyphen BRACKETED at point if any, nil otherwise. "]
5605
5606
["Hyphen LESSER-ANGLED at point" ar-hyphen-lesser-angled-atpt
5607
:help " `ar-hyphen-lesser-angled-atpt'
5608
Hyphen LESSER-ANGLED at point if any, nil otherwise. "]
5609
5610
["Hyphen GREATER-ANGLED at point" ar-hyphen-greater-angled-atpt
5611
:help " `ar-hyphen-greater-angled-atpt'
5612
Hyphen GREATER-ANGLED at point if any, nil otherwise. "]
5613
5614
["Hyphen LEFT-RIGHT-SINGLEQUOTED at point" ar-hyphen-left-right-singlequoted-atpt
5615
:help " `ar-hyphen-left-right-singlequoted-atpt'
5616
Hyphen LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
5617
5618
["Hyphen PARENTIZED at point" ar-hyphen-parentized-atpt
5619
:help " `ar-hyphen-parentized-atpt'
5620
Hyphen PARENTIZED at point if any, nil otherwise. "]
5621
5622
["Hyphen BACKSLASHED at point" ar-hyphen-backslashed-atpt
5623
:help " `ar-hyphen-backslashed-atpt'
5624
Hyphen BACKSLASHED at point if any, nil otherwise. "]
5625
5626
["Hyphen DOLLARED at point" ar-hyphen-dollared-atpt
5627
:help " `ar-hyphen-dollared-atpt'
5628
Hyphen DOLLARED at point if any, nil otherwise. "]
5629
5630
["Hyphen DOUBLEQUOTED at point" ar-hyphen-doublequoted-atpt
5631
:help " `ar-hyphen-doublequoted-atpt'
5632
Hyphen DOUBLEQUOTED at point if any, nil otherwise. "]
5633
5634
["Hyphen EQUALIZED at point" ar-hyphen-equalized-atpt
5635
:help " `ar-hyphen-equalized-atpt'
5636
Hyphen EQUALIZED at point if any, nil otherwise. "]
5637
5638
["Hyphen HYPHENED at point" ar-hyphen-hyphened-atpt
5639
:help " `ar-hyphen-hyphened-atpt'
5640
Hyphen HYPHENED at point if any, nil otherwise. "]
5641
5642
["Hyphen QUOTED at point" ar-hyphen-quoted-atpt
5643
:help " `ar-hyphen-quoted-atpt'
5644
Hyphen QUOTED at point if any, nil otherwise. "]
5645
5646
["Hyphen SINGLEQUOTED at point" ar-hyphen-singlequoted-atpt
5647
:help " `ar-hyphen-singlequoted-atpt'
5648
Hyphen SINGLEQUOTED at point if any, nil otherwise. "]
5649
5650
["Hyphen SLASHED at point" ar-hyphen-slashed-atpt
5651
:help " `ar-hyphen-slashed-atpt'
5652
Hyphen SLASHED at point if any, nil otherwise. "]
5653
5654
["Hyphen UNDERSCORED at point" ar-hyphen-underscored-atpt
5655
:help " `ar-hyphen-underscored-atpt'
5656
Hyphen UNDERSCORED at point if any, nil otherwise. "]
5657
5658
["Hyphen WHITESPACED at point" ar-hyphen-whitespaced-atpt
5659
:help " `ar-hyphen-whitespaced-atpt'
5660
Hyphen WHITESPACED at point if any, nil otherwise. "]
5661
5662
)
5663
("Other"
5664
5665
["Hyphen ANGLED-NO-NEST at point" ar-hyphen-angled-no-nest-atpt
5666
:help " `ar-hyphen-angled-no-nest-atpt'
5667
Hyphen ANGLED-NO-NEST at point if any, nil otherwise. "]
5668
5669
["Hyphen GREATER-ANGLED-NESTED at point" ar-hyphen-greater-angled-nested-atpt
5670
:help " `ar-hyphen-greater-angled-nested-atpt'
5671
Hyphen GREATER-ANGLED-NESTED at point if any, nil otherwise. "]
5672
5673
["Hyphen LESSER-ANGLED-NESTED at point" ar-hyphen-lesser-angled-nested-atpt
5674
:help " `ar-hyphen-lesser-angled-nested-atpt'
5675
Hyphen LESSER-ANGLED-NESTED at point if any, nil otherwise. "]
5676
5677
["Hyphen BUFFER at point" ar-hyphen-buffer-atpt
5678
:help " `ar-hyphen-buffer-atpt'
5679
Hyphen BUFFER at point if any, nil otherwise. "]
5680
5681
["Hyphen COMMENT at point" ar-hyphen-comment-atpt
5682
:help " `ar-hyphen-comment-atpt'
5683
Hyphen COMMENT at point if any, nil otherwise. "]
5684
5685
["Hyphen CSV at point" ar-hyphen-csv-atpt
5686
:help " `ar-hyphen-csv-atpt'
5687
Hyphen CSV at point if any, nil otherwise. "]
5688
5689
["Hyphen DATE at point" ar-hyphen-date-atpt
5690
:help " `ar-hyphen-date-atpt'
5691
Hyphen DATE at point if any, nil otherwise. "]
5692
5693
["Hyphen DEFUN at point" ar-hyphen-defun-atpt
5694
:help " `ar-hyphen-defun-atpt'
5695
Hyphen DEFUN at point if any, nil otherwise. "]
5696
5697
["Hyphen DELIMITED at point" ar-hyphen-delimited-atpt
5698
:help " `ar-hyphen-delimited-atpt'
5699
Hyphen DELIMITED at point if any, nil otherwise. "]
5700
5701
["Hyphen EMAIL at point" ar-hyphen-email-atpt
5702
:help " `ar-hyphen-email-atpt'
5703
Hyphen EMAIL at point if any, nil otherwise. "]
5704
5705
["Hyphen FILENAME at point" ar-hyphen-filename-atpt
5706
:help " `ar-hyphen-filename-atpt'
5707
Hyphen FILENAME at point if any, nil otherwise. "]
5708
5709
["Hyphen FLOAT at point" ar-hyphen-float-atpt
5710
:help " `ar-hyphen-float-atpt'
5711
Hyphen FLOAT at point if any, nil otherwise. "]
5712
5713
["Hyphen FUNCTION at point" ar-hyphen-function-atpt
5714
:help " `ar-hyphen-function-atpt'
5715
Hyphen FUNCTION at point if any, nil otherwise. "]
5716
5717
["Hyphen IP at point" ar-hyphen-ip-atpt
5718
:help " `ar-hyphen-ip-atpt'
5719
Hyphen IP at point if any, nil otherwise. "]
5720
5721
["Hyphen ISBN at point" ar-hyphen-isbn-atpt
5722
:help " `ar-hyphen-isbn-atpt'
5723
Hyphen ISBN at point if any, nil otherwise. "]
5724
5725
["Hyphen LINE at point" ar-hyphen-line-atpt
5726
:help " `ar-hyphen-line-atpt'
5727
Hyphen LINE at point if any, nil otherwise. "]
5728
5729
["Hyphen NAME at point" ar-hyphen-name-atpt
5730
:help " `ar-hyphen-name-atpt'
5731
Hyphen NAME at point if any, nil otherwise. "]
5732
5733
["Hyphen NUMBER at point" ar-hyphen-number-atpt
5734
:help " `ar-hyphen-number-atpt'
5735
Hyphen NUMBER at point if any, nil otherwise. "]
5736
5737
["Hyphen PAGE at point" ar-hyphen-page-atpt
5738
:help " `ar-hyphen-page-atpt'
5739
Hyphen PAGE at point if any, nil otherwise. "]
5740
5741
["Hyphen PARAGRAPH at point" ar-hyphen-paragraph-atpt
5742
:help " `ar-hyphen-paragraph-atpt'
5743
Hyphen PARAGRAPH at point if any, nil otherwise. "]
5744
5745
["Hyphen PAREN at point" ar-hyphen-paren-atpt
5746
:help " `ar-hyphen-paren-atpt'
5747
Hyphen PAREN at point if any, nil otherwise. "]
5748
5749
["Hyphen PHONE at point" ar-hyphen-phone-atpt
5750
:help " `ar-hyphen-phone-atpt'
5751
Hyphen PHONE at point if any, nil otherwise. "]
5752
5753
["Hyphen REGION at point" ar-hyphen-region-atpt
5754
:help " `ar-hyphen-region-atpt'
5755
Hyphen REGION at point if any, nil otherwise. "]
5756
5757
["Hyphen SENTENCE at point" ar-hyphen-sentence-atpt
5758
:help " `ar-hyphen-sentence-atpt'
5759
Hyphen SENTENCE at point if any, nil otherwise. "]
5760
5761
["Hyphen SEXP at point" ar-hyphen-sexp-atpt
5762
:help " `ar-hyphen-sexp-atpt'
5763
Hyphen SEXP at point if any, nil otherwise. "]
5764
5765
["Hyphen STRING at point" ar-hyphen-string-atpt
5766
:help " `ar-hyphen-string-atpt'
5767
Hyphen STRING at point if any, nil otherwise. "]
5768
5769
["Hyphen SH-STRUCT at point" ar-hyphen-sh-struct-atpt
5770
:help " `ar-hyphen-sh-struct-atpt'
5771
Hyphen SH-STRUCT at point if any, nil otherwise. "]
5772
5773
["Hyphen SYMBOL at point" ar-hyphen-symbol-atpt
5774
:help " `ar-hyphen-symbol-atpt'
5775
Hyphen SYMBOL at point if any, nil otherwise. "]
5776
5777
["Hyphen URL at point" ar-hyphen-url-atpt
5778
:help " `ar-hyphen-url-atpt'
5779
Hyphen URL at point if any, nil otherwise. "]
5780
5781
["Hyphen WORD at point" ar-hyphen-word-atpt
5782
:help " `ar-hyphen-word-atpt'
5783
Hyphen WORD at point if any, nil otherwise. "]
5784
5785
["Hyphen WORD-ALPHA-ONLY at point" ar-hyphen-word-alpha-only-atpt
5786
:help " `ar-hyphen-word-alpha-only-atpt'
5787
Hyphen WORD-ALPHA-ONLY at point if any, nil otherwise. "]
5788
5789
)
5790
5791
)
5792
("Kill"
5793
5794
("Character classes"
5795
5796
["Kill [:alnum:] char class at point" ar-kill-alnum-atpt
5797
:help " `ar-kill-alnum-atpt'
5798
Kill ALNUM at point if any, nil otherwise. "]
5799
5800
["Kill [:alpha:] char class at point" ar-kill-alpha-atpt
5801
:help " `ar-kill-alpha-atpt'
5802
Kill ALPHA at point if any, nil otherwise. "]
5803
5804
["Kill [:ascii:] char class at point" ar-kill-ascii-atpt
5805
:help " `ar-kill-ascii-atpt'
5806
Kill ASCII at point if any, nil otherwise. "]
5807
5808
["Kill [:blank:] char class at point" ar-kill-blank-atpt
5809
:help " `ar-kill-blank-atpt'
5810
Kill BLANK at point if any, nil otherwise. "]
5811
5812
["Kill [:cntrl:] char class at point" ar-kill-cntrl-atpt
5813
:help " `ar-kill-cntrl-atpt'
5814
Kill CNTRL at point if any, nil otherwise. "]
5815
5816
["Kill [:digit:] char class at point" ar-kill-digit-atpt
5817
:help " `ar-kill-digit-atpt'
5818
Kill DIGIT at point if any, nil otherwise. "]
5819
5820
["Kill [:graph:] char class at point" ar-kill-graph-atpt
5821
:help " `ar-kill-graph-atpt'
5822
Kill GRAPH at point if any, nil otherwise. "]
5823
5824
["Kill [:lower:] char class at point" ar-kill-lower-atpt
5825
:help " `ar-kill-lower-atpt'
5826
Kill LOWER at point if any, nil otherwise. "]
5827
5828
["Kill [:nonascii:] char class at point" ar-kill-nonascii-atpt
5829
:help " `ar-kill-nonascii-atpt'
5830
Kill NONASCII at point if any, nil otherwise. "]
5831
5832
["Kill [:print:] char class at point" ar-kill-print-atpt
5833
:help " `ar-kill-print-atpt'
5834
Kill PRINT at point if any, nil otherwise. "]
5835
5836
["Kill [:punct:] char class at point" ar-kill-punct-atpt
5837
:help " `ar-kill-punct-atpt'
5838
Kill PUNCT at point if any, nil otherwise. "]
5839
5840
["Kill [:space:] char class at point" ar-kill-space-atpt
5841
:help " `ar-kill-space-atpt'
5842
Kill SPACE at point if any, nil otherwise. "]
5843
5844
["Kill [:upper:] char class at point" ar-kill-upper-atpt
5845
:help " `ar-kill-upper-atpt'
5846
Kill UPPER at point if any, nil otherwise. "]
5847
5848
["Kill [:xdigit:] char class at point" ar-kill-xdigit-atpt
5849
:help " `ar-kill-xdigit-atpt'
5850
Kill XDIGIT at point if any, nil otherwise. "]
5851
5852
)
5853
("Delimited"
5854
5855
["Kill BRACED at point" ar-kill-braced-atpt
5856
:help " `ar-kill-braced-atpt'
5857
Kill BRACED at point if any, nil otherwise. "]
5858
5859
["Kill BRACKETED at point" ar-kill-bracketed-atpt
5860
:help " `ar-kill-bracketed-atpt'
5861
Kill BRACKETED at point if any, nil otherwise. "]
5862
5863
["Kill LESSER-ANGLED at point" ar-kill-lesser-angled-atpt
5864
:help " `ar-kill-lesser-angled-atpt'
5865
Kill LESSER-ANGLED at point if any, nil otherwise. "]
5866
5867
["Kill GREATER-ANGLED at point" ar-kill-greater-angled-atpt
5868
:help " `ar-kill-greater-angled-atpt'
5869
Kill GREATER-ANGLED at point if any, nil otherwise. "]
5870
5871
["Kill LEFT-RIGHT-SINGLEQUOTED at point" ar-kill-left-right-singlequoted-atpt
5872
:help " `ar-kill-left-right-singlequoted-atpt'
5873
Kill LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
5874
5875
["Kill PARENTIZED at point" ar-kill-parentized-atpt
5876
:help " `ar-kill-parentized-atpt'
5877
Kill PARENTIZED at point if any, nil otherwise. "]
5878
5879
["Kill BACKSLASHED at point" ar-kill-backslashed-atpt
5880
:help " `ar-kill-backslashed-atpt'
5881
Kill BACKSLASHED at point if any, nil otherwise. "]
5882
5883
["Kill DOLLARED at point" ar-kill-dollared-atpt
5884
:help " `ar-kill-dollared-atpt'
5885
Kill DOLLARED at point if any, nil otherwise. "]
5886
5887
["Kill DOUBLEQUOTED at point" ar-kill-doublequoted-atpt
5888
:help " `ar-kill-doublequoted-atpt'
5889
Kill DOUBLEQUOTED at point if any, nil otherwise. "]
5890
5891
["Kill EQUALIZED at point" ar-kill-equalized-atpt
5892
:help " `ar-kill-equalized-atpt'
5893
Kill EQUALIZED at point if any, nil otherwise. "]
5894
5895
["Kill HYPHENED at point" ar-kill-hyphened-atpt
5896
:help " `ar-kill-hyphened-atpt'
5897
Kill HYPHENED at point if any, nil otherwise. "]
5898
5899
["Kill QUOTED at point" ar-kill-quoted-atpt
5900
:help " `ar-kill-quoted-atpt'
5901
Kill QUOTED at point if any, nil otherwise. "]
5902
5903
["Kill SINGLEQUOTED at point" ar-kill-singlequoted-atpt
5904
:help " `ar-kill-singlequoted-atpt'
5905
Kill SINGLEQUOTED at point if any, nil otherwise. "]
5906
5907
["Kill SLASHED at point" ar-kill-slashed-atpt
5908
:help " `ar-kill-slashed-atpt'
5909
Kill SLASHED at point if any, nil otherwise. "]
5910
5911
["Kill UNDERSCORED at point" ar-kill-underscored-atpt
5912
:help " `ar-kill-underscored-atpt'
5913
Kill UNDERSCORED at point if any, nil otherwise. "]
5914
5915
["Kill WHITESPACED at point" ar-kill-whitespaced-atpt
5916
:help " `ar-kill-whitespaced-atpt'
5917
Kill WHITESPACED at point if any, nil otherwise. "]
5918
5919
)
5920
("Other"
5921
5922
["Kill ANGLED-NO-NEST at point" ar-kill-angled-no-nest-atpt
5923
:help " `ar-kill-angled-no-nest-atpt'
5924
Kill ANGLED-NO-NEST at point if any, nil otherwise. "]
5925
5926
["Kill GREATER-ANGLED-NESTED at point" ar-kill-greater-angled-nested-atpt
5927
:help " `ar-kill-greater-angled-nested-atpt'
5928
Kill GREATER-ANGLED-NESTED at point if any, nil otherwise. "]
5929
5930
["Kill LESSER-ANGLED-NESTED at point" ar-kill-lesser-angled-nested-atpt
5931
:help " `ar-kill-lesser-angled-nested-atpt'
5932
Kill LESSER-ANGLED-NESTED at point if any, nil otherwise. "]
5933
5934
["Kill BUFFER at point" ar-kill-buffer-atpt
5935
:help " `ar-kill-buffer-atpt'
5936
Kill BUFFER at point if any, nil otherwise. "]
5937
5938
["Kill COMMENT at point" ar-kill-comment-atpt
5939
:help " `ar-kill-comment-atpt'
5940
Kill COMMENT at point if any, nil otherwise. "]
5941
5942
["Kill CSV at point" ar-kill-csv-atpt
5943
:help " `ar-kill-csv-atpt'
5944
Kill CSV at point if any, nil otherwise. "]
5945
5946
["Kill DATE at point" ar-kill-date-atpt
5947
:help " `ar-kill-date-atpt'
5948
Kill DATE at point if any, nil otherwise. "]
5949
5950
["Kill DEFUN at point" ar-kill-defun-atpt
5951
:help " `ar-kill-defun-atpt'
5952
Kill DEFUN at point if any, nil otherwise. "]
5953
5954
["Kill DELIMITED at point" ar-kill-delimited-atpt
5955
:help " `ar-kill-delimited-atpt'
5956
Kill DELIMITED at point if any, nil otherwise. "]
5957
5958
["Kill EMAIL at point" ar-kill-email-atpt
5959
:help " `ar-kill-email-atpt'
5960
Kill EMAIL at point if any, nil otherwise. "]
5961
5962
["Kill FILENAME at point" ar-kill-filename-atpt
5963
:help " `ar-kill-filename-atpt'
5964
Kill FILENAME at point if any, nil otherwise. "]
5965
5966
["Kill FLOAT at point" ar-kill-float-atpt
5967
:help " `ar-kill-float-atpt'
5968
Kill FLOAT at point if any, nil otherwise. "]
5969
5970
["Kill FUNCTION at point" ar-kill-function-atpt
5971
:help " `ar-kill-function-atpt'
5972
Kill FUNCTION at point if any, nil otherwise. "]
5973
5974
["Kill IP at point" ar-kill-ip-atpt
5975
:help " `ar-kill-ip-atpt'
5976
Kill IP at point if any, nil otherwise. "]
5977
5978
["Kill ISBN at point" ar-kill-isbn-atpt
5979
:help " `ar-kill-isbn-atpt'
5980
Kill ISBN at point if any, nil otherwise. "]
5981
5982
["Kill LINE at point" ar-kill-line-atpt
5983
:help " `ar-kill-line-atpt'
5984
Kill LINE at point if any, nil otherwise. "]
5985
5986
["Kill NAME at point" ar-kill-name-atpt
5987
:help " `ar-kill-name-atpt'
5988
Kill NAME at point if any, nil otherwise. "]
5989
5990
["Kill NUMBER at point" ar-kill-number-atpt
5991
:help " `ar-kill-number-atpt'
5992
Kill NUMBER at point if any, nil otherwise. "]
5993
5994
["Kill PAGE at point" ar-kill-page-atpt
5995
:help " `ar-kill-page-atpt'
5996
Kill PAGE at point if any, nil otherwise. "]
5997
5998
["Kill PARAGRAPH at point" ar-kill-paragraph-atpt
5999
:help " `ar-kill-paragraph-atpt'
6000
Kill PARAGRAPH at point if any, nil otherwise. "]
6001
6002
["Kill PAREN at point" ar-kill-paren-atpt
6003
:help " `ar-kill-paren-atpt'
6004
Kill PAREN at point if any, nil otherwise. "]
6005
6006
["Kill PHONE at point" ar-kill-phone-atpt
6007
:help " `ar-kill-phone-atpt'
6008
Kill PHONE at point if any, nil otherwise. "]
6009
6010
["Kill REGION at point" ar-kill-region-atpt
6011
:help " `ar-kill-region-atpt'
6012
Kill REGION at point if any, nil otherwise. "]
6013
6014
["Kill SENTENCE at point" ar-kill-sentence-atpt
6015
:help " `ar-kill-sentence-atpt'
6016
Kill SENTENCE at point if any, nil otherwise. "]
6017
6018
["Kill SEXP at point" ar-kill-sexp-atpt
6019
:help " `ar-kill-sexp-atpt'
6020
Kill SEXP at point if any, nil otherwise. "]
6021
6022
["Kill STRING at point" ar-kill-string-atpt
6023
:help " `ar-kill-string-atpt'
6024
Kill STRING at point if any, nil otherwise. "]
6025
6026
["Kill SH-STRUCT at point" ar-kill-sh-struct-atpt
6027
:help " `ar-kill-sh-struct-atpt'
6028
Kill SH-STRUCT at point if any, nil otherwise. "]
6029
6030
["Kill SYMBOL at point" ar-kill-symbol-atpt
6031
:help " `ar-kill-symbol-atpt'
6032
Kill SYMBOL at point if any, nil otherwise. "]
6033
6034
["Kill URL at point" ar-kill-url-atpt
6035
:help " `ar-kill-url-atpt'
6036
Kill URL at point if any, nil otherwise. "]
6037
6038
["Kill WORD at point" ar-kill-word-atpt
6039
:help " `ar-kill-word-atpt'
6040
Kill WORD at point if any, nil otherwise. "]
6041
6042
["Kill WORD-ALPHA-ONLY at point" ar-kill-word-alpha-only-atpt
6043
:help " `ar-kill-word-alpha-only-atpt'
6044
Kill WORD-ALPHA-ONLY at point if any, nil otherwise. "]
6045
6046
)
6047
6048
)
6049
("Kill-Backward"
6050
6051
("Character classes"
6052
6053
["Kill-Backward [:alnum:] char class at point" ar-kill-backward-alnum-atpt
6054
:help " `ar-kill-backward-alnum-atpt'
6055
Kill-Backward ALNUM at point if any, nil otherwise. "]
6056
6057
["Kill-Backward [:alpha:] char class at point" ar-kill-backward-alpha-atpt
6058
:help " `ar-kill-backward-alpha-atpt'
6059
Kill-Backward ALPHA at point if any, nil otherwise. "]
6060
6061
["Kill-Backward [:ascii:] char class at point" ar-kill-backward-ascii-atpt
6062
:help " `ar-kill-backward-ascii-atpt'
6063
Kill-Backward ASCII at point if any, nil otherwise. "]
6064
6065
["Kill-Backward [:blank:] char class at point" ar-kill-backward-blank-atpt
6066
:help " `ar-kill-backward-blank-atpt'
6067
Kill-Backward BLANK at point if any, nil otherwise. "]
6068
6069
["Kill-Backward [:cntrl:] char class at point" ar-kill-backward-cntrl-atpt
6070
:help " `ar-kill-backward-cntrl-atpt'
6071
Kill-Backward CNTRL at point if any, nil otherwise. "]
6072
6073
["Kill-Backward [:digit:] char class at point" ar-kill-backward-digit-atpt
6074
:help " `ar-kill-backward-digit-atpt'
6075
Kill-Backward DIGIT at point if any, nil otherwise. "]
6076
6077
["Kill-Backward [:graph:] char class at point" ar-kill-backward-graph-atpt
6078
:help " `ar-kill-backward-graph-atpt'
6079
Kill-Backward GRAPH at point if any, nil otherwise. "]
6080
6081
["Kill-Backward [:lower:] char class at point" ar-kill-backward-lower-atpt
6082
:help " `ar-kill-backward-lower-atpt'
6083
Kill-Backward LOWER at point if any, nil otherwise. "]
6084
6085
["Kill-Backward [:nonascii:] char class at point" ar-kill-backward-nonascii-atpt
6086
:help " `ar-kill-backward-nonascii-atpt'
6087
Kill-Backward NONASCII at point if any, nil otherwise. "]
6088
6089
["Kill-Backward [:print:] char class at point" ar-kill-backward-print-atpt
6090
:help " `ar-kill-backward-print-atpt'
6091
Kill-Backward PRINT at point if any, nil otherwise. "]
6092
6093
["Kill-Backward [:punct:] char class at point" ar-kill-backward-punct-atpt
6094
:help " `ar-kill-backward-punct-atpt'
6095
Kill-Backward PUNCT at point if any, nil otherwise. "]
6096
6097
["Kill-Backward [:space:] char class at point" ar-kill-backward-space-atpt
6098
:help " `ar-kill-backward-space-atpt'
6099
Kill-Backward SPACE at point if any, nil otherwise. "]
6100
6101
["Kill-Backward [:upper:] char class at point" ar-kill-backward-upper-atpt
6102
:help " `ar-kill-backward-upper-atpt'
6103
Kill-Backward UPPER at point if any, nil otherwise. "]
6104
6105
["Kill-Backward [:xdigit:] char class at point" ar-kill-backward-xdigit-atpt
6106
:help " `ar-kill-backward-xdigit-atpt'
6107
Kill-Backward XDIGIT at point if any, nil otherwise. "]
6108
6109
)
6110
("Delimited"
6111
6112
["Kill-Backward BRACED at point" ar-kill-backward-braced-atpt
6113
:help " `ar-kill-backward-braced-atpt'
6114
Kill-Backward BRACED at point if any, nil otherwise. "]
6115
6116
["Kill-Backward BRACKETED at point" ar-kill-backward-bracketed-atpt
6117
:help " `ar-kill-backward-bracketed-atpt'
6118
Kill-Backward BRACKETED at point if any, nil otherwise. "]
6119
6120
["Kill-Backward LESSER-ANGLED at point" ar-kill-backward-lesser-angled-atpt
6121
:help " `ar-kill-backward-lesser-angled-atpt'
6122
Kill-Backward LESSER-ANGLED at point if any, nil otherwise. "]
6123
6124
["Kill-Backward GREATER-ANGLED at point" ar-kill-backward-greater-angled-atpt
6125
:help " `ar-kill-backward-greater-angled-atpt'
6126
Kill-Backward GREATER-ANGLED at point if any, nil otherwise. "]
6127
6128
["Kill-Backward LEFT-RIGHT-SINGLEQUOTED at point" ar-kill-backward-left-right-singlequoted-atpt
6129
:help " `ar-kill-backward-left-right-singlequoted-atpt'
6130
Kill-Backward LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
6131
6132
["Kill-Backward PARENTIZED at point" ar-kill-backward-parentized-atpt
6133
:help " `ar-kill-backward-parentized-atpt'
6134
Kill-Backward PARENTIZED at point if any, nil otherwise. "]
6135
6136
["Kill-Backward BACKSLASHED at point" ar-kill-backward-backslashed-atpt
6137
:help " `ar-kill-backward-backslashed-atpt'
6138
Kill-Backward BACKSLASHED at point if any, nil otherwise. "]
6139
6140
["Kill-Backward DOLLARED at point" ar-kill-backward-dollared-atpt
6141
:help " `ar-kill-backward-dollared-atpt'
6142
Kill-Backward DOLLARED at point if any, nil otherwise. "]
6143
6144
["Kill-Backward DOUBLEQUOTED at point" ar-kill-backward-doublequoted-atpt
6145
:help " `ar-kill-backward-doublequoted-atpt'
6146
Kill-Backward DOUBLEQUOTED at point if any, nil otherwise. "]
6147
6148
["Kill-Backward EQUALIZED at point" ar-kill-backward-equalized-atpt
6149
:help " `ar-kill-backward-equalized-atpt'
6150
Kill-Backward EQUALIZED at point if any, nil otherwise. "]
6151
6152
["Kill-Backward HYPHENED at point" ar-kill-backward-hyphened-atpt
6153
:help " `ar-kill-backward-hyphened-atpt'
6154
Kill-Backward HYPHENED at point if any, nil otherwise. "]
6155
6156
["Kill-Backward QUOTED at point" ar-kill-backward-quoted-atpt
6157
:help " `ar-kill-backward-quoted-atpt'
6158
Kill-Backward QUOTED at point if any, nil otherwise. "]
6159
6160
["Kill-Backward SINGLEQUOTED at point" ar-kill-backward-singlequoted-atpt
6161
:help " `ar-kill-backward-singlequoted-atpt'
6162
Kill-Backward SINGLEQUOTED at point if any, nil otherwise. "]
6163
6164
["Kill-Backward SLASHED at point" ar-kill-backward-slashed-atpt
6165
:help " `ar-kill-backward-slashed-atpt'
6166
Kill-Backward SLASHED at point if any, nil otherwise. "]
6167
6168
["Kill-Backward UNDERSCORED at point" ar-kill-backward-underscored-atpt
6169
:help " `ar-kill-backward-underscored-atpt'
6170
Kill-Backward UNDERSCORED at point if any, nil otherwise. "]
6171
6172
["Kill-Backward WHITESPACED at point" ar-kill-backward-whitespaced-atpt
6173
:help " `ar-kill-backward-whitespaced-atpt'
6174
Kill-Backward WHITESPACED at point if any, nil otherwise. "]
6175
6176
)
6177
("Other"
6178
6179
["Kill-Backward ANGLED-NO-NEST at point" ar-kill-backward-angled-no-nest-atpt
6180
:help " `ar-kill-backward-angled-no-nest-atpt'
6181
Kill-Backward ANGLED-NO-NEST at point if any, nil otherwise. "]
6182
6183
["Kill-Backward GREATER-ANGLED-NESTED at point" ar-kill-backward-greater-angled-nested-atpt
6184
:help " `ar-kill-backward-greater-angled-nested-atpt'
6185
Kill-Backward GREATER-ANGLED-NESTED at point if any, nil otherwise. "]
6186
6187
["Kill-Backward LESSER-ANGLED-NESTED at point" ar-kill-backward-lesser-angled-nested-atpt
6188
:help " `ar-kill-backward-lesser-angled-nested-atpt'
6189
Kill-Backward LESSER-ANGLED-NESTED at point if any, nil otherwise. "]
6190
6191
["Kill-Backward BUFFER at point" ar-kill-backward-buffer-atpt
6192
:help " `ar-kill-backward-buffer-atpt'
6193
Kill-Backward BUFFER at point if any, nil otherwise. "]
6194
6195
["Kill-Backward COMMENT at point" ar-kill-backward-comment-atpt
6196
:help " `ar-kill-backward-comment-atpt'
6197
Kill-Backward COMMENT at point if any, nil otherwise. "]
6198
6199
["Kill-Backward CSV at point" ar-kill-backward-csv-atpt
6200
:help " `ar-kill-backward-csv-atpt'
6201
Kill-Backward CSV at point if any, nil otherwise. "]
6202
6203
["Kill-Backward DATE at point" ar-kill-backward-date-atpt
6204
:help " `ar-kill-backward-date-atpt'
6205
Kill-Backward DATE at point if any, nil otherwise. "]
6206
6207
["Kill-Backward DEFUN at point" ar-kill-backward-defun-atpt
6208
:help " `ar-kill-backward-defun-atpt'
6209
Kill-Backward DEFUN at point if any, nil otherwise. "]
6210
6211
["Kill-Backward DELIMITED at point" ar-kill-backward-delimited-atpt
6212
:help " `ar-kill-backward-delimited-atpt'
6213
Kill-Backward DELIMITED at point if any, nil otherwise. "]
6214
6215
["Kill-Backward EMAIL at point" ar-kill-backward-email-atpt
6216
:help " `ar-kill-backward-email-atpt'
6217
Kill-Backward EMAIL at point if any, nil otherwise. "]
6218
6219
["Kill-Backward FILENAME at point" ar-kill-backward-filename-atpt
6220
:help " `ar-kill-backward-filename-atpt'
6221
Kill-Backward FILENAME at point if any, nil otherwise. "]
6222
6223
["Kill-Backward FLOAT at point" ar-kill-backward-float-atpt
6224
:help " `ar-kill-backward-float-atpt'
6225
Kill-Backward FLOAT at point if any, nil otherwise. "]
6226
6227
["Kill-Backward FUNCTION at point" ar-kill-backward-function-atpt
6228
:help " `ar-kill-backward-function-atpt'
6229
Kill-Backward FUNCTION at point if any, nil otherwise. "]
6230
6231
["Kill-Backward IP at point" ar-kill-backward-ip-atpt
6232
:help " `ar-kill-backward-ip-atpt'
6233
Kill-Backward IP at point if any, nil otherwise. "]
6234
6235
["Kill-Backward ISBN at point" ar-kill-backward-isbn-atpt
6236
:help " `ar-kill-backward-isbn-atpt'
6237
Kill-Backward ISBN at point if any, nil otherwise. "]
6238
6239
["Kill-Backward LINE at point" ar-kill-backward-line-atpt
6240
:help " `ar-kill-backward-line-atpt'
6241
Kill-Backward LINE at point if any, nil otherwise. "]
6242
6243
["Kill-Backward NAME at point" ar-kill-backward-name-atpt
6244
:help " `ar-kill-backward-name-atpt'
6245
Kill-Backward NAME at point if any, nil otherwise. "]
6246
6247
["Kill-Backward NUMBER at point" ar-kill-backward-number-atpt
6248
:help " `ar-kill-backward-number-atpt'
6249
Kill-Backward NUMBER at point if any, nil otherwise. "]
6250
6251
["Kill-Backward PAGE at point" ar-kill-backward-page-atpt
6252
:help " `ar-kill-backward-page-atpt'
6253
Kill-Backward PAGE at point if any, nil otherwise. "]
6254
6255
["Kill-Backward PARAGRAPH at point" ar-kill-backward-paragraph-atpt
6256
:help " `ar-kill-backward-paragraph-atpt'
6257
Kill-Backward PARAGRAPH at point if any, nil otherwise. "]
6258
6259
["Kill-Backward PAREN at point" ar-kill-backward-paren-atpt
6260
:help " `ar-kill-backward-paren-atpt'
6261
Kill-Backward PAREN at point if any, nil otherwise. "]
6262
6263
["Kill-Backward PHONE at point" ar-kill-backward-phone-atpt
6264
:help " `ar-kill-backward-phone-atpt'
6265
Kill-Backward PHONE at point if any, nil otherwise. "]
6266
6267
["Kill-Backward REGION at point" ar-kill-backward-region-atpt
6268
:help " `ar-kill-backward-region-atpt'
6269
Kill-Backward REGION at point if any, nil otherwise. "]
6270
6271
["Kill-Backward SENTENCE at point" ar-kill-backward-sentence-atpt
6272
:help " `ar-kill-backward-sentence-atpt'
6273
Kill-Backward SENTENCE at point if any, nil otherwise. "]
6274
6275
["Kill-Backward SEXP at point" ar-kill-backward-sexp-atpt
6276
:help " `ar-kill-backward-sexp-atpt'
6277
Kill-Backward SEXP at point if any, nil otherwise. "]
6278
6279
["Kill-Backward STRING at point" ar-kill-backward-string-atpt
6280
:help " `ar-kill-backward-string-atpt'
6281
Kill-Backward STRING at point if any, nil otherwise. "]
6282
6283
["Kill-Backward SH-STRUCT at point" ar-kill-backward-sh-struct-atpt
6284
:help " `ar-kill-backward-sh-struct-atpt'
6285
Kill-Backward SH-STRUCT at point if any, nil otherwise. "]
6286
6287
["Kill-Backward SYMBOL at point" ar-kill-backward-symbol-atpt
6288
:help " `ar-kill-backward-symbol-atpt'
6289
Kill-Backward SYMBOL at point if any, nil otherwise. "]
6290
6291
["Kill-Backward URL at point" ar-kill-backward-url-atpt
6292
:help " `ar-kill-backward-url-atpt'
6293
Kill-Backward URL at point if any, nil otherwise. "]
6294
6295
["Kill-Backward WORD at point" ar-kill-backward-word-atpt
6296
:help " `ar-kill-backward-word-atpt'
6297
Kill-Backward WORD at point if any, nil otherwise. "]
6298
6299
["Kill-Backward WORD-ALPHA-ONLY at point" ar-kill-backward-word-alpha-only-atpt
6300
:help " `ar-kill-backward-word-alpha-only-atpt'
6301
Kill-Backward WORD-ALPHA-ONLY at point if any, nil otherwise. "]
6302
6303
)
6304
6305
)
6306
("Mark"
6307
6308
("Character classes"
6309
6310
["Mark [:alnum:] char class at point" ar-mark-alnum-atpt
6311
:help " `ar-mark-alnum-atpt'
6312
Mark ALNUM at point if any, nil otherwise. "]
6313
6314
["Mark [:alpha:] char class at point" ar-mark-alpha-atpt
6315
:help " `ar-mark-alpha-atpt'
6316
Mark ALPHA at point if any, nil otherwise. "]
6317
6318
["Mark [:ascii:] char class at point" ar-mark-ascii-atpt
6319
:help " `ar-mark-ascii-atpt'
6320
Mark ASCII at point if any, nil otherwise. "]
6321
6322
["Mark [:blank:] char class at point" ar-mark-blank-atpt
6323
:help " `ar-mark-blank-atpt'
6324
Mark BLANK at point if any, nil otherwise. "]
6325
6326
["Mark [:cntrl:] char class at point" ar-mark-cntrl-atpt
6327
:help " `ar-mark-cntrl-atpt'
6328
Mark CNTRL at point if any, nil otherwise. "]
6329
6330
["Mark [:digit:] char class at point" ar-mark-digit-atpt
6331
:help " `ar-mark-digit-atpt'
6332
Mark DIGIT at point if any, nil otherwise. "]
6333
6334
["Mark [:graph:] char class at point" ar-mark-graph-atpt
6335
:help " `ar-mark-graph-atpt'
6336
Mark GRAPH at point if any, nil otherwise. "]
6337
6338
["Mark [:lower:] char class at point" ar-mark-lower-atpt
6339
:help " `ar-mark-lower-atpt'
6340
Mark LOWER at point if any, nil otherwise. "]
6341
6342
["Mark [:nonascii:] char class at point" ar-mark-nonascii-atpt
6343
:help " `ar-mark-nonascii-atpt'
6344
Mark NONASCII at point if any, nil otherwise. "]
6345
6346
["Mark [:print:] char class at point" ar-mark-print-atpt
6347
:help " `ar-mark-print-atpt'
6348
Mark PRINT at point if any, nil otherwise. "]
6349
6350
["Mark [:punct:] char class at point" ar-mark-punct-atpt
6351
:help " `ar-mark-punct-atpt'
6352
Mark PUNCT at point if any, nil otherwise. "]
6353
6354
["Mark [:space:] char class at point" ar-mark-space-atpt
6355
:help " `ar-mark-space-atpt'
6356
Mark SPACE at point if any, nil otherwise. "]
6357
6358
["Mark [:upper:] char class at point" ar-mark-upper-atpt
6359
:help " `ar-mark-upper-atpt'
6360
Mark UPPER at point if any, nil otherwise. "]
6361
6362
["Mark [:xdigit:] char class at point" ar-mark-xdigit-atpt
6363
:help " `ar-mark-xdigit-atpt'
6364
Mark XDIGIT at point if any, nil otherwise. "]
6365
6366
)
6367
("Delimited"
6368
6369
["Mark BRACED at point" ar-mark-braced-atpt
6370
:help " `ar-mark-braced-atpt'
6371
Mark BRACED at point if any, nil otherwise. "]
6372
6373
["Mark BRACKETED at point" ar-mark-bracketed-atpt
6374
:help " `ar-mark-bracketed-atpt'
6375
Mark BRACKETED at point if any, nil otherwise. "]
6376
6377
["Mark LESSER-ANGLED at point" ar-mark-lesser-angled-atpt
6378
:help " `ar-mark-lesser-angled-atpt'
6379
Mark LESSER-ANGLED at point if any, nil otherwise. "]
6380
6381
["Mark GREATER-ANGLED at point" ar-mark-greater-angled-atpt
6382
:help " `ar-mark-greater-angled-atpt'
6383
Mark GREATER-ANGLED at point if any, nil otherwise. "]
6384
6385
["Mark LEFT-RIGHT-SINGLEQUOTED at point" ar-mark-left-right-singlequoted-atpt
6386
:help " `ar-mark-left-right-singlequoted-atpt'
6387
Mark LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
6388
6389
["Mark PARENTIZED at point" ar-mark-parentized-atpt
6390
:help " `ar-mark-parentized-atpt'
6391
Mark PARENTIZED at point if any, nil otherwise. "]
6392
6393
["Mark BACKSLASHED at point" ar-mark-backslashed-atpt
6394
:help " `ar-mark-backslashed-atpt'
6395
Mark BACKSLASHED at point if any, nil otherwise. "]
6396
6397
["Mark DOLLARED at point" ar-mark-dollared-atpt
6398
:help " `ar-mark-dollared-atpt'
6399
Mark DOLLARED at point if any, nil otherwise. "]
6400
6401
["Mark DOUBLEQUOTED at point" ar-mark-doublequoted-atpt
6402
:help " `ar-mark-doublequoted-atpt'
6403
Mark DOUBLEQUOTED at point if any, nil otherwise. "]
6404
6405
["Mark EQUALIZED at point" ar-mark-equalized-atpt
6406
:help " `ar-mark-equalized-atpt'
6407
Mark EQUALIZED at point if any, nil otherwise. "]
6408
6409
["Mark HYPHENED at point" ar-mark-hyphened-atpt
6410
:help " `ar-mark-hyphened-atpt'
6411
Mark HYPHENED at point if any, nil otherwise. "]
6412
6413
["Mark QUOTED at point" ar-mark-quoted-atpt
6414
:help " `ar-mark-quoted-atpt'
6415
Mark QUOTED at point if any, nil otherwise. "]
6416
6417
["Mark SINGLEQUOTED at point" ar-mark-singlequoted-atpt
6418
:help " `ar-mark-singlequoted-atpt'
6419
Mark SINGLEQUOTED at point if any, nil otherwise. "]
6420
6421
["Mark SLASHED at point" ar-mark-slashed-atpt
6422
:help " `ar-mark-slashed-atpt'
6423
Mark SLASHED at point if any, nil otherwise. "]
6424
6425
["Mark UNDERSCORED at point" ar-mark-underscored-atpt
6426
:help " `ar-mark-underscored-atpt'
6427
Mark UNDERSCORED at point if any, nil otherwise. "]
6428
6429
["Mark WHITESPACED at point" ar-mark-whitespaced-atpt
6430
:help " `ar-mark-whitespaced-atpt'
6431
Mark WHITESPACED at point if any, nil otherwise. "]
6432
6433
)
6434
("Other"
6435
6436
["Mark ANGLED-NO-NEST at point" ar-mark-angled-no-nest-atpt
6437
:help " `ar-mark-angled-no-nest-atpt'
6438
Mark ANGLED-NO-NEST at point if any, nil otherwise. "]
6439
6440
["Mark GREATER-ANGLED-NESTED at point" ar-mark-greater-angled-nested-atpt
6441
:help " `ar-mark-greater-angled-nested-atpt'
6442
Mark GREATER-ANGLED-NESTED at point if any, nil otherwise. "]
6443
6444
["Mark LESSER-ANGLED-NESTED at point" ar-mark-lesser-angled-nested-atpt
6445
:help " `ar-mark-lesser-angled-nested-atpt'
6446
Mark LESSER-ANGLED-NESTED at point if any, nil otherwise. "]
6447
6448
["Mark BUFFER at point" ar-mark-buffer-atpt
6449
:help " `ar-mark-buffer-atpt'
6450
Mark BUFFER at point if any, nil otherwise. "]
6451
6452
["Mark COMMENT at point" ar-mark-comment-atpt
6453
:help " `ar-mark-comment-atpt'
6454
Mark COMMENT at point if any, nil otherwise. "]
6455
6456
["Mark CSV at point" ar-mark-csv-atpt
6457
:help " `ar-mark-csv-atpt'
6458
Mark CSV at point if any, nil otherwise. "]
6459
6460
["Mark DATE at point" ar-mark-date-atpt
6461
:help " `ar-mark-date-atpt'
6462
Mark DATE at point if any, nil otherwise. "]
6463
6464
["Mark DEFUN at point" ar-mark-defun-atpt
6465
:help " `ar-mark-defun-atpt'
6466
Mark DEFUN at point if any, nil otherwise. "]
6467
6468
["Mark DELIMITED at point" ar-mark-delimited-atpt
6469
:help " `ar-mark-delimited-atpt'
6470
Mark DELIMITED at point if any, nil otherwise. "]
6471
6472
["Mark EMAIL at point" ar-mark-email-atpt
6473
:help " `ar-mark-email-atpt'
6474
Mark EMAIL at point if any, nil otherwise. "]
6475
6476
["Mark FILENAME at point" ar-mark-filename-atpt
6477
:help " `ar-mark-filename-atpt'
6478
Mark FILENAME at point if any, nil otherwise. "]
6479
6480
["Mark FLOAT at point" ar-mark-float-atpt
6481
:help " `ar-mark-float-atpt'
6482
Mark FLOAT at point if any, nil otherwise. "]
6483
6484
["Mark FUNCTION at point" ar-mark-function-atpt
6485
:help " `ar-mark-function-atpt'
6486
Mark FUNCTION at point if any, nil otherwise. "]
6487
6488
["Mark IP at point" ar-mark-ip-atpt
6489
:help " `ar-mark-ip-atpt'
6490
Mark IP at point if any, nil otherwise. "]
6491
6492
["Mark ISBN at point" ar-mark-isbn-atpt
6493
:help " `ar-mark-isbn-atpt'
6494
Mark ISBN at point if any, nil otherwise. "]
6495
6496
["Mark LINE at point" ar-mark-line-atpt
6497
:help " `ar-mark-line-atpt'
6498
Mark LINE at point if any, nil otherwise. "]
6499
6500
["Mark NAME at point" ar-mark-name-atpt
6501
:help " `ar-mark-name-atpt'
6502
Mark NAME at point if any, nil otherwise. "]
6503
6504
["Mark NUMBER at point" ar-mark-number-atpt
6505
:help " `ar-mark-number-atpt'
6506
Mark NUMBER at point if any, nil otherwise. "]
6507
6508
["Mark PAGE at point" ar-mark-page-atpt
6509
:help " `ar-mark-page-atpt'
6510
Mark PAGE at point if any, nil otherwise. "]
6511
6512
["Mark PARAGRAPH at point" ar-mark-paragraph-atpt
6513
:help " `ar-mark-paragraph-atpt'
6514
Mark PARAGRAPH at point if any, nil otherwise. "]
6515
6516
["Mark PAREN at point" ar-mark-paren-atpt
6517
:help " `ar-mark-paren-atpt'
6518
Mark PAREN at point if any, nil otherwise. "]
6519
6520
["Mark PHONE at point" ar-mark-phone-atpt
6521
:help " `ar-mark-phone-atpt'
6522
Mark PHONE at point if any, nil otherwise. "]
6523
6524
["Mark REGION at point" ar-mark-region-atpt
6525
:help " `ar-mark-region-atpt'
6526
Mark REGION at point if any, nil otherwise. "]
6527
6528
["Mark SENTENCE at point" ar-mark-sentence-atpt
6529
:help " `ar-mark-sentence-atpt'
6530
Mark SENTENCE at point if any, nil otherwise. "]
6531
6532
["Mark SEXP at point" ar-mark-sexp-atpt
6533
:help " `ar-mark-sexp-atpt'
6534
Mark SEXP at point if any, nil otherwise. "]
6535
6536
["Mark STRING at point" ar-mark-string-atpt
6537
:help " `ar-mark-string-atpt'
6538
Mark STRING at point if any, nil otherwise. "]
6539
6540
["Mark SH-STRUCT at point" ar-mark-sh-struct-atpt
6541
:help " `ar-mark-sh-struct-atpt'
6542
Mark SH-STRUCT at point if any, nil otherwise. "]
6543
6544
["Mark SYMBOL at point" ar-mark-symbol-atpt
6545
:help " `ar-mark-symbol-atpt'
6546
Mark SYMBOL at point if any, nil otherwise. "]
6547
6548
["Mark URL at point" ar-mark-url-atpt
6549
:help " `ar-mark-url-atpt'
6550
Mark URL at point if any, nil otherwise. "]
6551
6552
["Mark WORD at point" ar-mark-word-atpt
6553
:help " `ar-mark-word-atpt'
6554
Mark WORD at point if any, nil otherwise. "]
6555
6556
["Mark WORD-ALPHA-ONLY at point" ar-mark-word-alpha-only-atpt
6557
:help " `ar-mark-word-alpha-only-atpt'
6558
Mark WORD-ALPHA-ONLY at point if any, nil otherwise. "]
6559
6560
)
6561
6562
)
6563
("Parentize"
6564
6565
("Character classes"
6566
6567
["Parentize [:alnum:] char class at point" ar-parentize-alnum-atpt
6568
:help " `ar-parentize-alnum-atpt'
6569
Parentize ALNUM at point if any, nil otherwise. "]
6570
6571
["Parentize [:alpha:] char class at point" ar-parentize-alpha-atpt
6572
:help " `ar-parentize-alpha-atpt'
6573
Parentize ALPHA at point if any, nil otherwise. "]
6574
6575
["Parentize [:ascii:] char class at point" ar-parentize-ascii-atpt
6576
:help " `ar-parentize-ascii-atpt'
6577
Parentize ASCII at point if any, nil otherwise. "]
6578
6579
["Parentize [:blank:] char class at point" ar-parentize-blank-atpt
6580
:help " `ar-parentize-blank-atpt'
6581
Parentize BLANK at point if any, nil otherwise. "]
6582
6583
["Parentize [:cntrl:] char class at point" ar-parentize-cntrl-atpt
6584
:help " `ar-parentize-cntrl-atpt'
6585
Parentize CNTRL at point if any, nil otherwise. "]
6586
6587
["Parentize [:digit:] char class at point" ar-parentize-digit-atpt
6588
:help " `ar-parentize-digit-atpt'
6589
Parentize DIGIT at point if any, nil otherwise. "]
6590
6591
["Parentize [:graph:] char class at point" ar-parentize-graph-atpt
6592
:help " `ar-parentize-graph-atpt'
6593
Parentize GRAPH at point if any, nil otherwise. "]
6594
6595
["Parentize [:lower:] char class at point" ar-parentize-lower-atpt
6596
:help " `ar-parentize-lower-atpt'
6597
Parentize LOWER at point if any, nil otherwise. "]
6598
6599
["Parentize [:nonascii:] char class at point" ar-parentize-nonascii-atpt
6600
:help " `ar-parentize-nonascii-atpt'
6601
Parentize NONASCII at point if any, nil otherwise. "]
6602
6603
["Parentize [:print:] char class at point" ar-parentize-print-atpt
6604
:help " `ar-parentize-print-atpt'
6605
Parentize PRINT at point if any, nil otherwise. "]
6606
6607
["Parentize [:punct:] char class at point" ar-parentize-punct-atpt
6608
:help " `ar-parentize-punct-atpt'
6609
Parentize PUNCT at point if any, nil otherwise. "]
6610
6611
["Parentize [:space:] char class at point" ar-parentize-space-atpt
6612
:help " `ar-parentize-space-atpt'
6613
Parentize SPACE at point if any, nil otherwise. "]
6614
6615
["Parentize [:upper:] char class at point" ar-parentize-upper-atpt
6616
:help " `ar-parentize-upper-atpt'
6617
Parentize UPPER at point if any, nil otherwise. "]
6618
6619
["Parentize [:xdigit:] char class at point" ar-parentize-xdigit-atpt
6620
:help " `ar-parentize-xdigit-atpt'
6621
Parentize XDIGIT at point if any, nil otherwise. "]
6622
6623
)
6624
("Delimited"
6625
6626
["Parentize BRACED at point" ar-parentize-braced-atpt
6627
:help " `ar-parentize-braced-atpt'
6628
Parentize BRACED at point if any, nil otherwise. "]
6629
6630
["Parentize BRACKETED at point" ar-parentize-bracketed-atpt
6631
:help " `ar-parentize-bracketed-atpt'
6632
Parentize BRACKETED at point if any, nil otherwise. "]
6633
6634
["Parentize LESSER-ANGLED at point" ar-parentize-lesser-angled-atpt
6635
:help " `ar-parentize-lesser-angled-atpt'
6636
Parentize LESSER-ANGLED at point if any, nil otherwise. "]
6637
6638
["Parentize GREATER-ANGLED at point" ar-parentize-greater-angled-atpt
6639
:help " `ar-parentize-greater-angled-atpt'
6640
Parentize GREATER-ANGLED at point if any, nil otherwise. "]
6641
6642
["Parentize LEFT-RIGHT-SINGLEQUOTED at point" ar-parentize-left-right-singlequoted-atpt
6643
:help " `ar-parentize-left-right-singlequoted-atpt'
6644
Parentize LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
6645
6646
["Parentize PARENTIZED at point" ar-parentize-parentized-atpt
6647
:help " `ar-parentize-parentized-atpt'
6648
Parentize PARENTIZED at point if any, nil otherwise. "]
6649
6650
["Parentize BACKSLASHED at point" ar-parentize-backslashed-atpt
6651
:help " `ar-parentize-backslashed-atpt'
6652
Parentize BACKSLASHED at point if any, nil otherwise. "]
6653
6654
["Parentize DOLLARED at point" ar-parentize-dollared-atpt
6655
:help " `ar-parentize-dollared-atpt'
6656
Parentize DOLLARED at point if any, nil otherwise. "]
6657
6658
["Parentize DOUBLEQUOTED at point" ar-parentize-doublequoted-atpt
6659
:help " `ar-parentize-doublequoted-atpt'
6660
Parentize DOUBLEQUOTED at point if any, nil otherwise. "]
6661
6662
["Parentize EQUALIZED at point" ar-parentize-equalized-atpt
6663
:help " `ar-parentize-equalized-atpt'
6664
Parentize EQUALIZED at point if any, nil otherwise. "]
6665
6666
["Parentize HYPHENED at point" ar-parentize-hyphened-atpt
6667
:help " `ar-parentize-hyphened-atpt'
6668
Parentize HYPHENED at point if any, nil otherwise. "]
6669
6670
["Parentize QUOTED at point" ar-parentize-quoted-atpt
6671
:help " `ar-parentize-quoted-atpt'
6672
Parentize QUOTED at point if any, nil otherwise. "]
6673
6674
["Parentize SINGLEQUOTED at point" ar-parentize-singlequoted-atpt
6675
:help " `ar-parentize-singlequoted-atpt'
6676
Parentize SINGLEQUOTED at point if any, nil otherwise. "]
6677
6678
["Parentize SLASHED at point" ar-parentize-slashed-atpt
6679
:help " `ar-parentize-slashed-atpt'
6680
Parentize SLASHED at point if any, nil otherwise. "]
6681
6682
["Parentize UNDERSCORED at point" ar-parentize-underscored-atpt
6683
:help " `ar-parentize-underscored-atpt'
6684
Parentize UNDERSCORED at point if any, nil otherwise. "]
6685
6686
["Parentize WHITESPACED at point" ar-parentize-whitespaced-atpt
6687
:help " `ar-parentize-whitespaced-atpt'
6688
Parentize WHITESPACED at point if any, nil otherwise. "]
6689
6690
)
6691
("Other"
6692
6693
["Parentize ANGLED-NO-NEST at point" ar-parentize-angled-no-nest-atpt
6694
:help " `ar-parentize-angled-no-nest-atpt'
6695
Parentize ANGLED-NO-NEST at point if any, nil otherwise. "]
6696
6697
["Parentize GREATER-ANGLED-NESTED at point" ar-parentize-greater-angled-nested-atpt
6698
:help " `ar-parentize-greater-angled-nested-atpt'
6699
Parentize GREATER-ANGLED-NESTED at point if any, nil otherwise. "]
6700
6701
["Parentize LESSER-ANGLED-NESTED at point" ar-parentize-lesser-angled-nested-atpt
6702
:help " `ar-parentize-lesser-angled-nested-atpt'
6703
Parentize LESSER-ANGLED-NESTED at point if any, nil otherwise. "]
6704
6705
["Parentize BUFFER at point" ar-parentize-buffer-atpt
6706
:help " `ar-parentize-buffer-atpt'
6707
Parentize BUFFER at point if any, nil otherwise. "]
6708
6709
["Parentize COMMENT at point" ar-parentize-comment-atpt
6710
:help " `ar-parentize-comment-atpt'
6711
Parentize COMMENT at point if any, nil otherwise. "]
6712
6713
["Parentize CSV at point" ar-parentize-csv-atpt
6714
:help " `ar-parentize-csv-atpt'
6715
Parentize CSV at point if any, nil otherwise. "]
6716
6717
["Parentize DATE at point" ar-parentize-date-atpt
6718
:help " `ar-parentize-date-atpt'
6719
Parentize DATE at point if any, nil otherwise. "]
6720
6721
["Parentize DEFUN at point" ar-parentize-defun-atpt
6722
:help " `ar-parentize-defun-atpt'
6723
Parentize DEFUN at point if any, nil otherwise. "]
6724
6725
["Parentize DELIMITED at point" ar-parentize-delimited-atpt
6726
:help " `ar-parentize-delimited-atpt'
6727
Parentize DELIMITED at point if any, nil otherwise. "]
6728
6729
["Parentize EMAIL at point" ar-parentize-email-atpt
6730
:help " `ar-parentize-email-atpt'
6731
Parentize EMAIL at point if any, nil otherwise. "]
6732
6733
["Parentize FILENAME at point" ar-parentize-filename-atpt
6734
:help " `ar-parentize-filename-atpt'
6735
Parentize FILENAME at point if any, nil otherwise. "]
6736
6737
["Parentize FLOAT at point" ar-parentize-float-atpt
6738
:help " `ar-parentize-float-atpt'
6739
Parentize FLOAT at point if any, nil otherwise. "]
6740
6741
["Parentize FUNCTION at point" ar-parentize-function-atpt
6742
:help " `ar-parentize-function-atpt'
6743
Parentize FUNCTION at point if any, nil otherwise. "]
6744
6745
["Parentize IP at point" ar-parentize-ip-atpt
6746
:help " `ar-parentize-ip-atpt'
6747
Parentize IP at point if any, nil otherwise. "]
6748
6749
["Parentize ISBN at point" ar-parentize-isbn-atpt
6750
:help " `ar-parentize-isbn-atpt'
6751
Parentize ISBN at point if any, nil otherwise. "]
6752
6753
["Parentize LINE at point" ar-parentize-line-atpt
6754
:help " `ar-parentize-line-atpt'
6755
Parentize LINE at point if any, nil otherwise. "]
6756
6757
["Parentize NAME at point" ar-parentize-name-atpt
6758
:help " `ar-parentize-name-atpt'
6759
Parentize NAME at point if any, nil otherwise. "]
6760
6761
["Parentize NUMBER at point" ar-parentize-number-atpt
6762
:help " `ar-parentize-number-atpt'
6763
Parentize NUMBER at point if any, nil otherwise. "]
6764
6765
["Parentize PAGE at point" ar-parentize-page-atpt
6766
:help " `ar-parentize-page-atpt'
6767
Parentize PAGE at point if any, nil otherwise. "]
6768
6769
["Parentize PARAGRAPH at point" ar-parentize-paragraph-atpt
6770
:help " `ar-parentize-paragraph-atpt'
6771
Parentize PARAGRAPH at point if any, nil otherwise. "]
6772
6773
["Parentize PAREN at point" ar-parentize-paren-atpt
6774
:help " `ar-parentize-paren-atpt'
6775
Parentize PAREN at point if any, nil otherwise. "]
6776
6777
["Parentize PHONE at point" ar-parentize-phone-atpt
6778
:help " `ar-parentize-phone-atpt'
6779
Parentize PHONE at point if any, nil otherwise. "]
6780
6781
["Parentize REGION at point" ar-parentize-region-atpt
6782
:help " `ar-parentize-region-atpt'
6783
Parentize REGION at point if any, nil otherwise. "]
6784
6785
["Parentize SENTENCE at point" ar-parentize-sentence-atpt
6786
:help " `ar-parentize-sentence-atpt'
6787
Parentize SENTENCE at point if any, nil otherwise. "]
6788
6789
["Parentize SEXP at point" ar-parentize-sexp-atpt
6790
:help " `ar-parentize-sexp-atpt'
6791
Parentize SEXP at point if any, nil otherwise. "]
6792
6793
["Parentize STRING at point" ar-parentize-string-atpt
6794
:help " `ar-parentize-string-atpt'
6795
Parentize STRING at point if any, nil otherwise. "]
6796
6797
["Parentize SH-STRUCT at point" ar-parentize-sh-struct-atpt
6798
:help " `ar-parentize-sh-struct-atpt'
6799
Parentize SH-STRUCT at point if any, nil otherwise. "]
6800
6801
["Parentize SYMBOL at point" ar-parentize-symbol-atpt
6802
:help " `ar-parentize-symbol-atpt'
6803
Parentize SYMBOL at point if any, nil otherwise. "]
6804
6805
["Parentize URL at point" ar-parentize-url-atpt
6806
:help " `ar-parentize-url-atpt'
6807
Parentize URL at point if any, nil otherwise. "]
6808
6809
["Parentize WORD at point" ar-parentize-word-atpt
6810
:help " `ar-parentize-word-atpt'
6811
Parentize WORD at point if any, nil otherwise. "]
6812
6813
["Parentize WORD-ALPHA-ONLY at point" ar-parentize-word-alpha-only-atpt
6814
:help " `ar-parentize-word-alpha-only-atpt'
6815
Parentize WORD-ALPHA-ONLY at point if any, nil otherwise. "]
6816
6817
)
6818
6819
)
6820
("Quote"
6821
6822
("Character classes"
6823
6824
["Quote [:alnum:] char class at point" ar-quote-alnum-atpt
6825
:help " `ar-quote-alnum-atpt'
6826
Quote ALNUM at point if any, nil otherwise. "]
6827
6828
["Quote [:alpha:] char class at point" ar-quote-alpha-atpt
6829
:help " `ar-quote-alpha-atpt'
6830
Quote ALPHA at point if any, nil otherwise. "]
6831
6832
["Quote [:ascii:] char class at point" ar-quote-ascii-atpt
6833
:help " `ar-quote-ascii-atpt'
6834
Quote ASCII at point if any, nil otherwise. "]
6835
6836
["Quote [:blank:] char class at point" ar-quote-blank-atpt
6837
:help " `ar-quote-blank-atpt'
6838
Quote BLANK at point if any, nil otherwise. "]
6839
6840
["Quote [:cntrl:] char class at point" ar-quote-cntrl-atpt
6841
:help " `ar-quote-cntrl-atpt'
6842
Quote CNTRL at point if any, nil otherwise. "]
6843
6844
["Quote [:digit:] char class at point" ar-quote-digit-atpt
6845
:help " `ar-quote-digit-atpt'
6846
Quote DIGIT at point if any, nil otherwise. "]
6847
6848
["Quote [:graph:] char class at point" ar-quote-graph-atpt
6849
:help " `ar-quote-graph-atpt'
6850
Quote GRAPH at point if any, nil otherwise. "]
6851
6852
["Quote [:lower:] char class at point" ar-quote-lower-atpt
6853
:help " `ar-quote-lower-atpt'
6854
Quote LOWER at point if any, nil otherwise. "]
6855
6856
["Quote [:nonascii:] char class at point" ar-quote-nonascii-atpt
6857
:help " `ar-quote-nonascii-atpt'
6858
Quote NONASCII at point if any, nil otherwise. "]
6859
6860
["Quote [:print:] char class at point" ar-quote-print-atpt
6861
:help " `ar-quote-print-atpt'
6862
Quote PRINT at point if any, nil otherwise. "]
6863
6864
["Quote [:punct:] char class at point" ar-quote-punct-atpt
6865
:help " `ar-quote-punct-atpt'
6866
Quote PUNCT at point if any, nil otherwise. "]
6867
6868
["Quote [:space:] char class at point" ar-quote-space-atpt
6869
:help " `ar-quote-space-atpt'
6870
Quote SPACE at point if any, nil otherwise. "]
6871
6872
["Quote [:upper:] char class at point" ar-quote-upper-atpt
6873
:help " `ar-quote-upper-atpt'
6874
Quote UPPER at point if any, nil otherwise. "]
6875
6876
["Quote [:xdigit:] char class at point" ar-quote-xdigit-atpt
6877
:help " `ar-quote-xdigit-atpt'
6878
Quote XDIGIT at point if any, nil otherwise. "]
6879
6880
)
6881
("Delimited"
6882
6883
["Quote BRACED at point" ar-quote-braced-atpt
6884
:help " `ar-quote-braced-atpt'
6885
Quote BRACED at point if any, nil otherwise. "]
6886
6887
["Quote BRACKETED at point" ar-quote-bracketed-atpt
6888
:help " `ar-quote-bracketed-atpt'
6889
Quote BRACKETED at point if any, nil otherwise. "]
6890
6891
["Quote LESSER-ANGLED at point" ar-quote-lesser-angled-atpt
6892
:help " `ar-quote-lesser-angled-atpt'
6893
Quote LESSER-ANGLED at point if any, nil otherwise. "]
6894
6895
["Quote GREATER-ANGLED at point" ar-quote-greater-angled-atpt
6896
:help " `ar-quote-greater-angled-atpt'
6897
Quote GREATER-ANGLED at point if any, nil otherwise. "]
6898
6899
["Quote LEFT-RIGHT-SINGLEQUOTED at point" ar-quote-left-right-singlequoted-atpt
6900
:help " `ar-quote-left-right-singlequoted-atpt'
6901
Quote LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
6902
6903
["Quote PARENTIZED at point" ar-quote-parentized-atpt
6904
:help " `ar-quote-parentized-atpt'
6905
Quote PARENTIZED at point if any, nil otherwise. "]
6906
6907
["Quote BACKSLASHED at point" ar-quote-backslashed-atpt
6908
:help " `ar-quote-backslashed-atpt'
6909
Quote BACKSLASHED at point if any, nil otherwise. "]
6910
6911
["Quote DOLLARED at point" ar-quote-dollared-atpt
6912
:help " `ar-quote-dollared-atpt'
6913
Quote DOLLARED at point if any, nil otherwise. "]
6914
6915
["Quote DOUBLEQUOTED at point" ar-quote-doublequoted-atpt
6916
:help " `ar-quote-doublequoted-atpt'
6917
Quote DOUBLEQUOTED at point if any, nil otherwise. "]
6918
6919
["Quote EQUALIZED at point" ar-quote-equalized-atpt
6920
:help " `ar-quote-equalized-atpt'
6921
Quote EQUALIZED at point if any, nil otherwise. "]
6922
6923
["Quote HYPHENED at point" ar-quote-hyphened-atpt
6924
:help " `ar-quote-hyphened-atpt'
6925
Quote HYPHENED at point if any, nil otherwise. "]
6926
6927
["Quote QUOTED at point" ar-quote-quoted-atpt
6928
:help " `ar-quote-quoted-atpt'
6929
Quote QUOTED at point if any, nil otherwise. "]
6930
6931
["Quote SINGLEQUOTED at point" ar-quote-singlequoted-atpt
6932
:help " `ar-quote-singlequoted-atpt'
6933
Quote SINGLEQUOTED at point if any, nil otherwise. "]
6934
6935
["Quote SLASHED at point" ar-quote-slashed-atpt
6936
:help " `ar-quote-slashed-atpt'
6937
Quote SLASHED at point if any, nil otherwise. "]
6938
6939
["Quote UNDERSCORED at point" ar-quote-underscored-atpt
6940
:help " `ar-quote-underscored-atpt'
6941
Quote UNDERSCORED at point if any, nil otherwise. "]
6942
6943
["Quote WHITESPACED at point" ar-quote-whitespaced-atpt
6944
:help " `ar-quote-whitespaced-atpt'
6945
Quote WHITESPACED at point if any, nil otherwise. "]
6946
6947
)
6948
("Other"
6949
6950
["Quote ANGLED-NO-NEST at point" ar-quote-angled-no-nest-atpt
6951
:help " `ar-quote-angled-no-nest-atpt'
6952
Quote ANGLED-NO-NEST at point if any, nil otherwise. "]
6953
6954
["Quote GREATER-ANGLED-NESTED at point" ar-quote-greater-angled-nested-atpt
6955
:help " `ar-quote-greater-angled-nested-atpt'
6956
Quote GREATER-ANGLED-NESTED at point if any, nil otherwise. "]
6957
6958
["Quote LESSER-ANGLED-NESTED at point" ar-quote-lesser-angled-nested-atpt
6959
:help " `ar-quote-lesser-angled-nested-atpt'
6960
Quote LESSER-ANGLED-NESTED at point if any, nil otherwise. "]
6961
6962
["Quote BUFFER at point" ar-quote-buffer-atpt
6963
:help " `ar-quote-buffer-atpt'
6964
Quote BUFFER at point if any, nil otherwise. "]
6965
6966
["Quote COMMENT at point" ar-quote-comment-atpt
6967
:help " `ar-quote-comment-atpt'
6968
Quote COMMENT at point if any, nil otherwise. "]
6969
6970
["Quote CSV at point" ar-quote-csv-atpt
6971
:help " `ar-quote-csv-atpt'
6972
Quote CSV at point if any, nil otherwise. "]
6973
6974
["Quote DATE at point" ar-quote-date-atpt
6975
:help " `ar-quote-date-atpt'
6976
Quote DATE at point if any, nil otherwise. "]
6977
6978
["Quote DEFUN at point" ar-quote-defun-atpt
6979
:help " `ar-quote-defun-atpt'
6980
Quote DEFUN at point if any, nil otherwise. "]
6981
6982
["Quote DELIMITED at point" ar-quote-delimited-atpt
6983
:help " `ar-quote-delimited-atpt'
6984
Quote DELIMITED at point if any, nil otherwise. "]
6985
6986
["Quote EMAIL at point" ar-quote-email-atpt
6987
:help " `ar-quote-email-atpt'
6988
Quote EMAIL at point if any, nil otherwise. "]
6989
6990
["Quote FILENAME at point" ar-quote-filename-atpt
6991
:help " `ar-quote-filename-atpt'
6992
Quote FILENAME at point if any, nil otherwise. "]
6993
6994
["Quote FLOAT at point" ar-quote-float-atpt
6995
:help " `ar-quote-float-atpt'
6996
Quote FLOAT at point if any, nil otherwise. "]
6997
6998
["Quote FUNCTION at point" ar-quote-function-atpt
6999
:help " `ar-quote-function-atpt'
7000
Quote FUNCTION at point if any, nil otherwise. "]
7001
7002
["Quote IP at point" ar-quote-ip-atpt
7003
:help " `ar-quote-ip-atpt'
7004
Quote IP at point if any, nil otherwise. "]
7005
7006
["Quote ISBN at point" ar-quote-isbn-atpt
7007
:help " `ar-quote-isbn-atpt'
7008
Quote ISBN at point if any, nil otherwise. "]
7009
7010
["Quote LINE at point" ar-quote-line-atpt
7011
:help " `ar-quote-line-atpt'
7012
Quote LINE at point if any, nil otherwise. "]
7013
7014
["Quote NAME at point" ar-quote-name-atpt
7015
:help " `ar-quote-name-atpt'
7016
Quote NAME at point if any, nil otherwise. "]
7017
7018
["Quote NUMBER at point" ar-quote-number-atpt
7019
:help " `ar-quote-number-atpt'
7020
Quote NUMBER at point if any, nil otherwise. "]
7021
7022
["Quote PAGE at point" ar-quote-page-atpt
7023
:help " `ar-quote-page-atpt'
7024
Quote PAGE at point if any, nil otherwise. "]
7025
7026
["Quote PARAGRAPH at point" ar-quote-paragraph-atpt
7027
:help " `ar-quote-paragraph-atpt'
7028
Quote PARAGRAPH at point if any, nil otherwise. "]
7029
7030
["Quote PAREN at point" ar-quote-paren-atpt
7031
:help " `ar-quote-paren-atpt'
7032
Quote PAREN at point if any, nil otherwise. "]
7033
7034
["Quote PHONE at point" ar-quote-phone-atpt
7035
:help " `ar-quote-phone-atpt'
7036
Quote PHONE at point if any, nil otherwise. "]
7037
7038
["Quote REGION at point" ar-quote-region-atpt
7039
:help " `ar-quote-region-atpt'
7040
Quote REGION at point if any, nil otherwise. "]
7041
7042
["Quote SENTENCE at point" ar-quote-sentence-atpt
7043
:help " `ar-quote-sentence-atpt'
7044
Quote SENTENCE at point if any, nil otherwise. "]
7045
7046
["Quote SEXP at point" ar-quote-sexp-atpt
7047
:help " `ar-quote-sexp-atpt'
7048
Quote SEXP at point if any, nil otherwise. "]
7049
7050
["Quote STRING at point" ar-quote-string-atpt
7051
:help " `ar-quote-string-atpt'
7052
Quote STRING at point if any, nil otherwise. "]
7053
7054
["Quote SH-STRUCT at point" ar-quote-sh-struct-atpt
7055
:help " `ar-quote-sh-struct-atpt'
7056
Quote SH-STRUCT at point if any, nil otherwise. "]
7057
7058
["Quote SYMBOL at point" ar-quote-symbol-atpt
7059
:help " `ar-quote-symbol-atpt'
7060
Quote SYMBOL at point if any, nil otherwise. "]
7061
7062
["Quote URL at point" ar-quote-url-atpt
7063
:help " `ar-quote-url-atpt'
7064
Quote URL at point if any, nil otherwise. "]
7065
7066
["Quote WORD at point" ar-quote-word-atpt
7067
:help " `ar-quote-word-atpt'
7068
Quote WORD at point if any, nil otherwise. "]
7069
7070
["Quote WORD-ALPHA-ONLY at point" ar-quote-word-alpha-only-atpt
7071
:help " `ar-quote-word-alpha-only-atpt'
7072
Quote WORD-ALPHA-ONLY at point if any, nil otherwise. "]
7073
7074
)
7075
7076
)
7077
("Right-Singlequote"
7078
7079
("Character classes"
7080
7081
["Right-Singlequote [:alnum:] char class at point" ar-right-singlequote-alnum-atpt
7082
:help " `ar-right-singlequote-alnum-atpt'
7083
Right-Singlequote ALNUM at point if any, nil otherwise. "]
7084
7085
["Right-Singlequote [:alpha:] char class at point" ar-right-singlequote-alpha-atpt
7086
:help " `ar-right-singlequote-alpha-atpt'
7087
Right-Singlequote ALPHA at point if any, nil otherwise. "]
7088
7089
["Right-Singlequote [:ascii:] char class at point" ar-right-singlequote-ascii-atpt
7090
:help " `ar-right-singlequote-ascii-atpt'
7091
Right-Singlequote ASCII at point if any, nil otherwise. "]
7092
7093
["Right-Singlequote [:blank:] char class at point" ar-right-singlequote-blank-atpt
7094
:help " `ar-right-singlequote-blank-atpt'
7095
Right-Singlequote BLANK at point if any, nil otherwise. "]
7096
7097
["Right-Singlequote [:cntrl:] char class at point" ar-right-singlequote-cntrl-atpt
7098
:help " `ar-right-singlequote-cntrl-atpt'
7099
Right-Singlequote CNTRL at point if any, nil otherwise. "]
7100
7101
["Right-Singlequote [:digit:] char class at point" ar-right-singlequote-digit-atpt
7102
:help " `ar-right-singlequote-digit-atpt'
7103
Right-Singlequote DIGIT at point if any, nil otherwise. "]
7104
7105
["Right-Singlequote [:graph:] char class at point" ar-right-singlequote-graph-atpt
7106
:help " `ar-right-singlequote-graph-atpt'
7107
Right-Singlequote GRAPH at point if any, nil otherwise. "]
7108
7109
["Right-Singlequote [:lower:] char class at point" ar-right-singlequote-lower-atpt
7110
:help " `ar-right-singlequote-lower-atpt'
7111
Right-Singlequote LOWER at point if any, nil otherwise. "]
7112
7113
["Right-Singlequote [:nonascii:] char class at point" ar-right-singlequote-nonascii-atpt
7114
:help " `ar-right-singlequote-nonascii-atpt'
7115
Right-Singlequote NONASCII at point if any, nil otherwise. "]
7116
7117
["Right-Singlequote [:print:] char class at point" ar-right-singlequote-print-atpt
7118
:help " `ar-right-singlequote-print-atpt'
7119
Right-Singlequote PRINT at point if any, nil otherwise. "]
7120
7121
["Right-Singlequote [:punct:] char class at point" ar-right-singlequote-punct-atpt
7122
:help " `ar-right-singlequote-punct-atpt'
7123
Right-Singlequote PUNCT at point if any, nil otherwise. "]
7124
7125
["Right-Singlequote [:space:] char class at point" ar-right-singlequote-space-atpt
7126
:help " `ar-right-singlequote-space-atpt'
7127
Right-Singlequote SPACE at point if any, nil otherwise. "]
7128
7129
["Right-Singlequote [:upper:] char class at point" ar-right-singlequote-upper-atpt
7130
:help " `ar-right-singlequote-upper-atpt'
7131
Right-Singlequote UPPER at point if any, nil otherwise. "]
7132
7133
["Right-Singlequote [:xdigit:] char class at point" ar-right-singlequote-xdigit-atpt
7134
:help " `ar-right-singlequote-xdigit-atpt'
7135
Right-Singlequote XDIGIT at point if any, nil otherwise. "]
7136
7137
)
7138
("Delimited"
7139
7140
["Right-Singlequote BRACED at point" ar-right-singlequote-braced-atpt
7141
:help " `ar-right-singlequote-braced-atpt'
7142
Right-Singlequote BRACED at point if any, nil otherwise. "]
7143
7144
["Right-Singlequote BRACKETED at point" ar-right-singlequote-bracketed-atpt
7145
:help " `ar-right-singlequote-bracketed-atpt'
7146
Right-Singlequote BRACKETED at point if any, nil otherwise. "]
7147
7148
["Right-Singlequote LESSER-ANGLED at point" ar-right-singlequote-lesser-angled-atpt
7149
:help " `ar-right-singlequote-lesser-angled-atpt'
7150
Right-Singlequote LESSER-ANGLED at point if any, nil otherwise. "]
7151
7152
["Right-Singlequote GREATER-ANGLED at point" ar-right-singlequote-greater-angled-atpt
7153
:help " `ar-right-singlequote-greater-angled-atpt'
7154
Right-Singlequote GREATER-ANGLED at point if any, nil otherwise. "]
7155
7156
["Right-Singlequote LEFT-RIGHT-SINGLEQUOTED at point" ar-right-singlequote-left-right-singlequoted-atpt
7157
:help " `ar-right-singlequote-left-right-singlequoted-atpt'
7158
Right-Singlequote LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
7159
7160
["Right-Singlequote PARENTIZED at point" ar-right-singlequote-parentized-atpt
7161
:help " `ar-right-singlequote-parentized-atpt'
7162
Right-Singlequote PARENTIZED at point if any, nil otherwise. "]
7163
7164
["Right-Singlequote BACKSLASHED at point" ar-right-singlequote-backslashed-atpt
7165
:help " `ar-right-singlequote-backslashed-atpt'
7166
Right-Singlequote BACKSLASHED at point if any, nil otherwise. "]
7167
7168
["Right-Singlequote DOLLARED at point" ar-right-singlequote-dollared-atpt
7169
:help " `ar-right-singlequote-dollared-atpt'
7170
Right-Singlequote DOLLARED at point if any, nil otherwise. "]
7171
7172
["Right-Singlequote DOUBLEQUOTED at point" ar-right-singlequote-doublequoted-atpt
7173
:help " `ar-right-singlequote-doublequoted-atpt'
7174
Right-Singlequote DOUBLEQUOTED at point if any, nil otherwise. "]
7175
7176
["Right-Singlequote EQUALIZED at point" ar-right-singlequote-equalized-atpt
7177
:help " `ar-right-singlequote-equalized-atpt'
7178
Right-Singlequote EQUALIZED at point if any, nil otherwise. "]
7179
7180
["Right-Singlequote HYPHENED at point" ar-right-singlequote-hyphened-atpt
7181
:help " `ar-right-singlequote-hyphened-atpt'
7182
Right-Singlequote HYPHENED at point if any, nil otherwise. "]
7183
7184
["Right-Singlequote QUOTED at point" ar-right-singlequote-quoted-atpt
7185
:help " `ar-right-singlequote-quoted-atpt'
7186
Right-Singlequote QUOTED at point if any, nil otherwise. "]
7187
7188
["Right-Singlequote SINGLEQUOTED at point" ar-right-singlequote-singlequoted-atpt
7189
:help " `ar-right-singlequote-singlequoted-atpt'
7190
Right-Singlequote SINGLEQUOTED at point if any, nil otherwise. "]
7191
7192
["Right-Singlequote SLASHED at point" ar-right-singlequote-slashed-atpt
7193
:help " `ar-right-singlequote-slashed-atpt'
7194
Right-Singlequote SLASHED at point if any, nil otherwise. "]
7195
7196
["Right-Singlequote UNDERSCORED at point" ar-right-singlequote-underscored-atpt
7197
:help " `ar-right-singlequote-underscored-atpt'
7198
Right-Singlequote UNDERSCORED at point if any, nil otherwise. "]
7199
7200
["Right-Singlequote WHITESPACED at point" ar-right-singlequote-whitespaced-atpt
7201
:help " `ar-right-singlequote-whitespaced-atpt'
7202
Right-Singlequote WHITESPACED at point if any, nil otherwise. "]
7203
7204
)
7205
("Other"
7206
7207
["Right-Singlequote ANGLED-NO-NEST at point" ar-right-singlequote-angled-no-nest-atpt
7208
:help " `ar-right-singlequote-angled-no-nest-atpt'
7209
Right-Singlequote ANGLED-NO-NEST at point if any, nil otherwise. "]
7210
7211
["Right-Singlequote GREATER-ANGLED-NESTED at point" ar-right-singlequote-greater-angled-nested-atpt
7212
:help " `ar-right-singlequote-greater-angled-nested-atpt'
7213
Right-Singlequote GREATER-ANGLED-NESTED at point if any, nil otherwise. "]
7214
7215
["Right-Singlequote LESSER-ANGLED-NESTED at point" ar-right-singlequote-lesser-angled-nested-atpt
7216
:help " `ar-right-singlequote-lesser-angled-nested-atpt'
7217
Right-Singlequote LESSER-ANGLED-NESTED at point if any, nil otherwise. "]
7218
7219
["Right-Singlequote BUFFER at point" ar-right-singlequote-buffer-atpt
7220
:help " `ar-right-singlequote-buffer-atpt'
7221
Right-Singlequote BUFFER at point if any, nil otherwise. "]
7222
7223
["Right-Singlequote COMMENT at point" ar-right-singlequote-comment-atpt
7224
:help " `ar-right-singlequote-comment-atpt'
7225
Right-Singlequote COMMENT at point if any, nil otherwise. "]
7226
7227
["Right-Singlequote CSV at point" ar-right-singlequote-csv-atpt
7228
:help " `ar-right-singlequote-csv-atpt'
7229
Right-Singlequote CSV at point if any, nil otherwise. "]
7230
7231
["Right-Singlequote DATE at point" ar-right-singlequote-date-atpt
7232
:help " `ar-right-singlequote-date-atpt'
7233
Right-Singlequote DATE at point if any, nil otherwise. "]
7234
7235
["Right-Singlequote DEFUN at point" ar-right-singlequote-defun-atpt
7236
:help " `ar-right-singlequote-defun-atpt'
7237
Right-Singlequote DEFUN at point if any, nil otherwise. "]
7238
7239
["Right-Singlequote DELIMITED at point" ar-right-singlequote-delimited-atpt
7240
:help " `ar-right-singlequote-delimited-atpt'
7241
Right-Singlequote DELIMITED at point if any, nil otherwise. "]
7242
7243
["Right-Singlequote EMAIL at point" ar-right-singlequote-email-atpt
7244
:help " `ar-right-singlequote-email-atpt'
7245
Right-Singlequote EMAIL at point if any, nil otherwise. "]
7246
7247
["Right-Singlequote FILENAME at point" ar-right-singlequote-filename-atpt
7248
:help " `ar-right-singlequote-filename-atpt'
7249
Right-Singlequote FILENAME at point if any, nil otherwise. "]
7250
7251
["Right-Singlequote FLOAT at point" ar-right-singlequote-float-atpt
7252
:help " `ar-right-singlequote-float-atpt'
7253
Right-Singlequote FLOAT at point if any, nil otherwise. "]
7254
7255
["Right-Singlequote FUNCTION at point" ar-right-singlequote-function-atpt
7256
:help " `ar-right-singlequote-function-atpt'
7257
Right-Singlequote FUNCTION at point if any, nil otherwise. "]
7258
7259
["Right-Singlequote IP at point" ar-right-singlequote-ip-atpt
7260
:help " `ar-right-singlequote-ip-atpt'
7261
Right-Singlequote IP at point if any, nil otherwise. "]
7262
7263
["Right-Singlequote ISBN at point" ar-right-singlequote-isbn-atpt
7264
:help " `ar-right-singlequote-isbn-atpt'
7265
Right-Singlequote ISBN at point if any, nil otherwise. "]
7266
7267
["Right-Singlequote LINE at point" ar-right-singlequote-line-atpt
7268
:help " `ar-right-singlequote-line-atpt'
7269
Right-Singlequote LINE at point if any, nil otherwise. "]
7270
7271
["Right-Singlequote NAME at point" ar-right-singlequote-name-atpt
7272
:help " `ar-right-singlequote-name-atpt'
7273
Right-Singlequote NAME at point if any, nil otherwise. "]
7274
7275
["Right-Singlequote NUMBER at point" ar-right-singlequote-number-atpt
7276
:help " `ar-right-singlequote-number-atpt'
7277
Right-Singlequote NUMBER at point if any, nil otherwise. "]
7278
7279
["Right-Singlequote PAGE at point" ar-right-singlequote-page-atpt
7280
:help " `ar-right-singlequote-page-atpt'
7281
Right-Singlequote PAGE at point if any, nil otherwise. "]
7282
7283
["Right-Singlequote PARAGRAPH at point" ar-right-singlequote-paragraph-atpt
7284
:help " `ar-right-singlequote-paragraph-atpt'
7285
Right-Singlequote PARAGRAPH at point if any, nil otherwise. "]
7286
7287
["Right-Singlequote PAREN at point" ar-right-singlequote-paren-atpt
7288
:help " `ar-right-singlequote-paren-atpt'
7289
Right-Singlequote PAREN at point if any, nil otherwise. "]
7290
7291
["Right-Singlequote PHONE at point" ar-right-singlequote-phone-atpt
7292
:help " `ar-right-singlequote-phone-atpt'
7293
Right-Singlequote PHONE at point if any, nil otherwise. "]
7294
7295
["Right-Singlequote REGION at point" ar-right-singlequote-region-atpt
7296
:help " `ar-right-singlequote-region-atpt'
7297
Right-Singlequote REGION at point if any, nil otherwise. "]
7298
7299
["Right-Singlequote SENTENCE at point" ar-right-singlequote-sentence-atpt
7300
:help " `ar-right-singlequote-sentence-atpt'
7301
Right-Singlequote SENTENCE at point if any, nil otherwise. "]
7302
7303
["Right-Singlequote SEXP at point" ar-right-singlequote-sexp-atpt
7304
:help " `ar-right-singlequote-sexp-atpt'
7305
Right-Singlequote SEXP at point if any, nil otherwise. "]
7306
7307
["Right-Singlequote STRING at point" ar-right-singlequote-string-atpt
7308
:help " `ar-right-singlequote-string-atpt'
7309
Right-Singlequote STRING at point if any, nil otherwise. "]
7310
7311
["Right-Singlequote SH-STRUCT at point" ar-right-singlequote-sh-struct-atpt
7312
:help " `ar-right-singlequote-sh-struct-atpt'
7313
Right-Singlequote SH-STRUCT at point if any, nil otherwise. "]
7314
7315
["Right-Singlequote SYMBOL at point" ar-right-singlequote-symbol-atpt
7316
:help " `ar-right-singlequote-symbol-atpt'
7317
Right-Singlequote SYMBOL at point if any, nil otherwise. "]
7318
7319
["Right-Singlequote URL at point" ar-right-singlequote-url-atpt
7320
:help " `ar-right-singlequote-url-atpt'
7321
Right-Singlequote URL at point if any, nil otherwise. "]
7322
7323
["Right-Singlequote WORD at point" ar-right-singlequote-word-atpt
7324
:help " `ar-right-singlequote-word-atpt'
7325
Right-Singlequote WORD at point if any, nil otherwise. "]
7326
7327
["Right-Singlequote WORD-ALPHA-ONLY at point" ar-right-singlequote-word-alpha-only-atpt
7328
:help " `ar-right-singlequote-word-alpha-only-atpt'
7329
Right-Singlequote WORD-ALPHA-ONLY at point if any, nil otherwise. "]
7330
7331
)
7332
7333
)
7334
("Separate"
7335
7336
("Character classes"
7337
7338
["Separate [:alnum:] char class at point" ar-separate-alnum-atpt
7339
:help " `ar-separate-alnum-atpt'
7340
Separate ALNUM at point if any, nil otherwise. "]
7341
7342
["Separate [:alpha:] char class at point" ar-separate-alpha-atpt
7343
:help " `ar-separate-alpha-atpt'
7344
Separate ALPHA at point if any, nil otherwise. "]
7345
7346
["Separate [:ascii:] char class at point" ar-separate-ascii-atpt
7347
:help " `ar-separate-ascii-atpt'
7348
Separate ASCII at point if any, nil otherwise. "]
7349
7350
["Separate [:blank:] char class at point" ar-separate-blank-atpt
7351
:help " `ar-separate-blank-atpt'
7352
Separate BLANK at point if any, nil otherwise. "]
7353
7354
["Separate [:cntrl:] char class at point" ar-separate-cntrl-atpt
7355
:help " `ar-separate-cntrl-atpt'
7356
Separate CNTRL at point if any, nil otherwise. "]
7357
7358
["Separate [:digit:] char class at point" ar-separate-digit-atpt
7359
:help " `ar-separate-digit-atpt'
7360
Separate DIGIT at point if any, nil otherwise. "]
7361
7362
["Separate [:graph:] char class at point" ar-separate-graph-atpt
7363
:help " `ar-separate-graph-atpt'
7364
Separate GRAPH at point if any, nil otherwise. "]
7365
7366
["Separate [:lower:] char class at point" ar-separate-lower-atpt
7367
:help " `ar-separate-lower-atpt'
7368
Separate LOWER at point if any, nil otherwise. "]
7369
7370
["Separate [:nonascii:] char class at point" ar-separate-nonascii-atpt
7371
:help " `ar-separate-nonascii-atpt'
7372
Separate NONASCII at point if any, nil otherwise. "]
7373
7374
["Separate [:print:] char class at point" ar-separate-print-atpt
7375
:help " `ar-separate-print-atpt'
7376
Separate PRINT at point if any, nil otherwise. "]
7377
7378
["Separate [:punct:] char class at point" ar-separate-punct-atpt
7379
:help " `ar-separate-punct-atpt'
7380
Separate PUNCT at point if any, nil otherwise. "]
7381
7382
["Separate [:space:] char class at point" ar-separate-space-atpt
7383
:help " `ar-separate-space-atpt'
7384
Separate SPACE at point if any, nil otherwise. "]
7385
7386
["Separate [:upper:] char class at point" ar-separate-upper-atpt
7387
:help " `ar-separate-upper-atpt'
7388
Separate UPPER at point if any, nil otherwise. "]
7389
7390
["Separate [:xdigit:] char class at point" ar-separate-xdigit-atpt
7391
:help " `ar-separate-xdigit-atpt'
7392
Separate XDIGIT at point if any, nil otherwise. "]
7393
7394
)
7395
("Delimited"
7396
7397
["Separate BRACED at point" ar-separate-braced-atpt
7398
:help " `ar-separate-braced-atpt'
7399
Separate BRACED at point if any, nil otherwise. "]
7400
7401
["Separate BRACKETED at point" ar-separate-bracketed-atpt
7402
:help " `ar-separate-bracketed-atpt'
7403
Separate BRACKETED at point if any, nil otherwise. "]
7404
7405
["Separate LESSER-ANGLED at point" ar-separate-lesser-angled-atpt
7406
:help " `ar-separate-lesser-angled-atpt'
7407
Separate LESSER-ANGLED at point if any, nil otherwise. "]
7408
7409
["Separate GREATER-ANGLED at point" ar-separate-greater-angled-atpt
7410
:help " `ar-separate-greater-angled-atpt'
7411
Separate GREATER-ANGLED at point if any, nil otherwise. "]
7412
7413
["Separate LEFT-RIGHT-SINGLEQUOTED at point" ar-separate-left-right-singlequoted-atpt
7414
:help " `ar-separate-left-right-singlequoted-atpt'
7415
Separate LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
7416
7417
["Separate PARENTIZED at point" ar-separate-parentized-atpt
7418
:help " `ar-separate-parentized-atpt'
7419
Separate PARENTIZED at point if any, nil otherwise. "]
7420
7421
["Separate BACKSLASHED at point" ar-separate-backslashed-atpt
7422
:help " `ar-separate-backslashed-atpt'
7423
Separate BACKSLASHED at point if any, nil otherwise. "]
7424
7425
["Separate DOLLARED at point" ar-separate-dollared-atpt
7426
:help " `ar-separate-dollared-atpt'
7427
Separate DOLLARED at point if any, nil otherwise. "]
7428
7429
["Separate DOUBLEQUOTED at point" ar-separate-doublequoted-atpt
7430
:help " `ar-separate-doublequoted-atpt'
7431
Separate DOUBLEQUOTED at point if any, nil otherwise. "]
7432
7433
["Separate EQUALIZED at point" ar-separate-equalized-atpt
7434
:help " `ar-separate-equalized-atpt'
7435
Separate EQUALIZED at point if any, nil otherwise. "]
7436
7437
["Separate HYPHENED at point" ar-separate-hyphened-atpt
7438
:help " `ar-separate-hyphened-atpt'
7439
Separate HYPHENED at point if any, nil otherwise. "]
7440
7441
["Separate QUOTED at point" ar-separate-quoted-atpt
7442
:help " `ar-separate-quoted-atpt'
7443
Separate QUOTED at point if any, nil otherwise. "]
7444
7445
["Separate SINGLEQUOTED at point" ar-separate-singlequoted-atpt
7446
:help " `ar-separate-singlequoted-atpt'
7447
Separate SINGLEQUOTED at point if any, nil otherwise. "]
7448
7449
["Separate SLASHED at point" ar-separate-slashed-atpt
7450
:help " `ar-separate-slashed-atpt'
7451
Separate SLASHED at point if any, nil otherwise. "]
7452
7453
["Separate UNDERSCORED at point" ar-separate-underscored-atpt
7454
:help " `ar-separate-underscored-atpt'
7455
Separate UNDERSCORED at point if any, nil otherwise. "]
7456
7457
["Separate WHITESPACED at point" ar-separate-whitespaced-atpt
7458
:help " `ar-separate-whitespaced-atpt'
7459
Separate WHITESPACED at point if any, nil otherwise. "]
7460
7461
)
7462
("Other"
7463
7464
["Separate ANGLED-NO-NEST at point" ar-separate-angled-no-nest-atpt
7465
:help " `ar-separate-angled-no-nest-atpt'
7466
Separate ANGLED-NO-NEST at point if any, nil otherwise. "]
7467
7468
["Separate GREATER-ANGLED-NESTED at point" ar-separate-greater-angled-nested-atpt
7469
:help " `ar-separate-greater-angled-nested-atpt'
7470
Separate GREATER-ANGLED-NESTED at point if any, nil otherwise. "]
7471
7472
["Separate LESSER-ANGLED-NESTED at point" ar-separate-lesser-angled-nested-atpt
7473
:help " `ar-separate-lesser-angled-nested-atpt'
7474
Separate LESSER-ANGLED-NESTED at point if any, nil otherwise. "]
7475
7476
["Separate BUFFER at point" ar-separate-buffer-atpt
7477
:help " `ar-separate-buffer-atpt'
7478
Separate BUFFER at point if any, nil otherwise. "]
7479
7480
["Separate COMMENT at point" ar-separate-comment-atpt
7481
:help " `ar-separate-comment-atpt'
7482
Separate COMMENT at point if any, nil otherwise. "]
7483
7484
["Separate CSV at point" ar-separate-csv-atpt
7485
:help " `ar-separate-csv-atpt'
7486
Separate CSV at point if any, nil otherwise. "]
7487
7488
["Separate DATE at point" ar-separate-date-atpt
7489
:help " `ar-separate-date-atpt'
7490
Separate DATE at point if any, nil otherwise. "]
7491
7492
["Separate DEFUN at point" ar-separate-defun-atpt
7493
:help " `ar-separate-defun-atpt'
7494
Separate DEFUN at point if any, nil otherwise. "]
7495
7496
["Separate DELIMITED at point" ar-separate-delimited-atpt
7497
:help " `ar-separate-delimited-atpt'
7498
Separate DELIMITED at point if any, nil otherwise. "]
7499
7500
["Separate EMAIL at point" ar-separate-email-atpt
7501
:help " `ar-separate-email-atpt'
7502
Separate EMAIL at point if any, nil otherwise. "]
7503
7504
["Separate FILENAME at point" ar-separate-filename-atpt
7505
:help " `ar-separate-filename-atpt'
7506
Separate FILENAME at point if any, nil otherwise. "]
7507
7508
["Separate FLOAT at point" ar-separate-float-atpt
7509
:help " `ar-separate-float-atpt'
7510
Separate FLOAT at point if any, nil otherwise. "]
7511
7512
["Separate FUNCTION at point" ar-separate-function-atpt
7513
:help " `ar-separate-function-atpt'
7514
Separate FUNCTION at point if any, nil otherwise. "]
7515
7516
["Separate IP at point" ar-separate-ip-atpt
7517
:help " `ar-separate-ip-atpt'
7518
Separate IP at point if any, nil otherwise. "]
7519
7520
["Separate ISBN at point" ar-separate-isbn-atpt
7521
:help " `ar-separate-isbn-atpt'
7522
Separate ISBN at point if any, nil otherwise. "]
7523
7524
["Separate LINE at point" ar-separate-line-atpt
7525
:help " `ar-separate-line-atpt'
7526
Separate LINE at point if any, nil otherwise. "]
7527
7528
["Separate NAME at point" ar-separate-name-atpt
7529
:help " `ar-separate-name-atpt'
7530
Separate NAME at point if any, nil otherwise. "]
7531
7532
["Separate NUMBER at point" ar-separate-number-atpt
7533
:help " `ar-separate-number-atpt'
7534
Separate NUMBER at point if any, nil otherwise. "]
7535
7536
["Separate PAGE at point" ar-separate-page-atpt
7537
:help " `ar-separate-page-atpt'
7538
Separate PAGE at point if any, nil otherwise. "]
7539
7540
["Separate PARAGRAPH at point" ar-separate-paragraph-atpt
7541
:help " `ar-separate-paragraph-atpt'
7542
Separate PARAGRAPH at point if any, nil otherwise. "]
7543
7544
["Separate PAREN at point" ar-separate-paren-atpt
7545
:help " `ar-separate-paren-atpt'
7546
Separate PAREN at point if any, nil otherwise. "]
7547
7548
["Separate PHONE at point" ar-separate-phone-atpt
7549
:help " `ar-separate-phone-atpt'
7550
Separate PHONE at point if any, nil otherwise. "]
7551
7552
["Separate REGION at point" ar-separate-region-atpt
7553
:help " `ar-separate-region-atpt'
7554
Separate REGION at point if any, nil otherwise. "]
7555
7556
["Separate SENTENCE at point" ar-separate-sentence-atpt
7557
:help " `ar-separate-sentence-atpt'
7558
Separate SENTENCE at point if any, nil otherwise. "]
7559
7560
["Separate SEXP at point" ar-separate-sexp-atpt
7561
:help " `ar-separate-sexp-atpt'
7562
Separate SEXP at point if any, nil otherwise. "]
7563
7564
["Separate STRING at point" ar-separate-string-atpt
7565
:help " `ar-separate-string-atpt'
7566
Separate STRING at point if any, nil otherwise. "]
7567
7568
["Separate SH-STRUCT at point" ar-separate-sh-struct-atpt
7569
:help " `ar-separate-sh-struct-atpt'
7570
Separate SH-STRUCT at point if any, nil otherwise. "]
7571
7572
["Separate SYMBOL at point" ar-separate-symbol-atpt
7573
:help " `ar-separate-symbol-atpt'
7574
Separate SYMBOL at point if any, nil otherwise. "]
7575
7576
["Separate URL at point" ar-separate-url-atpt
7577
:help " `ar-separate-url-atpt'
7578
Separate URL at point if any, nil otherwise. "]
7579
7580
["Separate WORD at point" ar-separate-word-atpt
7581
:help " `ar-separate-word-atpt'
7582
Separate WORD at point if any, nil otherwise. "]
7583
7584
["Separate WORD-ALPHA-ONLY at point" ar-separate-word-alpha-only-atpt
7585
:help " `ar-separate-word-alpha-only-atpt'
7586
Separate WORD-ALPHA-ONLY at point if any, nil otherwise. "]
7587
7588
)
7589
7590
)
7591
("Show"
7592
7593
("Character classes"
7594
7595
["Show [:alnum:] char class at point" ar-show-alnum-atpt
7596
:help " `ar-show-alnum-atpt'
7597
Show ALNUM at point if any, nil otherwise. "]
7598
7599
["Show [:alpha:] char class at point" ar-show-alpha-atpt
7600
:help " `ar-show-alpha-atpt'
7601
Show ALPHA at point if any, nil otherwise. "]
7602
7603
["Show [:ascii:] char class at point" ar-show-ascii-atpt
7604
:help " `ar-show-ascii-atpt'
7605
Show ASCII at point if any, nil otherwise. "]
7606
7607
["Show [:blank:] char class at point" ar-show-blank-atpt
7608
:help " `ar-show-blank-atpt'
7609
Show BLANK at point if any, nil otherwise. "]
7610
7611
["Show [:cntrl:] char class at point" ar-show-cntrl-atpt
7612
:help " `ar-show-cntrl-atpt'
7613
Show CNTRL at point if any, nil otherwise. "]
7614
7615
["Show [:digit:] char class at point" ar-show-digit-atpt
7616
:help " `ar-show-digit-atpt'
7617
Show DIGIT at point if any, nil otherwise. "]
7618
7619
["Show [:graph:] char class at point" ar-show-graph-atpt
7620
:help " `ar-show-graph-atpt'
7621
Show GRAPH at point if any, nil otherwise. "]
7622
7623
["Show [:lower:] char class at point" ar-show-lower-atpt
7624
:help " `ar-show-lower-atpt'
7625
Show LOWER at point if any, nil otherwise. "]
7626
7627
["Show [:nonascii:] char class at point" ar-show-nonascii-atpt
7628
:help " `ar-show-nonascii-atpt'
7629
Show NONASCII at point if any, nil otherwise. "]
7630
7631
["Show [:print:] char class at point" ar-show-print-atpt
7632
:help " `ar-show-print-atpt'
7633
Show PRINT at point if any, nil otherwise. "]
7634
7635
["Show [:punct:] char class at point" ar-show-punct-atpt
7636
:help " `ar-show-punct-atpt'
7637
Show PUNCT at point if any, nil otherwise. "]
7638
7639
["Show [:space:] char class at point" ar-show-space-atpt
7640
:help " `ar-show-space-atpt'
7641
Show SPACE at point if any, nil otherwise. "]
7642
7643
["Show [:upper:] char class at point" ar-show-upper-atpt
7644
:help " `ar-show-upper-atpt'
7645
Show UPPER at point if any, nil otherwise. "]
7646
7647
["Show [:xdigit:] char class at point" ar-show-xdigit-atpt
7648
:help " `ar-show-xdigit-atpt'
7649
Show XDIGIT at point if any, nil otherwise. "]
7650
7651
)
7652
("Delimited"
7653
7654
["Show BRACED at point" ar-show-braced-atpt
7655
:help " `ar-show-braced-atpt'
7656
Show BRACED at point if any, nil otherwise. "]
7657
7658
["Show BRACKETED at point" ar-show-bracketed-atpt
7659
:help " `ar-show-bracketed-atpt'
7660
Show BRACKETED at point if any, nil otherwise. "]
7661
7662
["Show LESSER-ANGLED at point" ar-show-lesser-angled-atpt
7663
:help " `ar-show-lesser-angled-atpt'
7664
Show LESSER-ANGLED at point if any, nil otherwise. "]
7665
7666
["Show GREATER-ANGLED at point" ar-show-greater-angled-atpt
7667
:help " `ar-show-greater-angled-atpt'
7668
Show GREATER-ANGLED at point if any, nil otherwise. "]
7669
7670
["Show LEFT-RIGHT-SINGLEQUOTED at point" ar-show-left-right-singlequoted-atpt
7671
:help " `ar-show-left-right-singlequoted-atpt'
7672
Show LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
7673
7674
["Show PARENTIZED at point" ar-show-parentized-atpt
7675
:help " `ar-show-parentized-atpt'
7676
Show PARENTIZED at point if any, nil otherwise. "]
7677
7678
["Show BACKSLASHED at point" ar-show-backslashed-atpt
7679
:help " `ar-show-backslashed-atpt'
7680
Show BACKSLASHED at point if any, nil otherwise. "]
7681
7682
["Show DOLLARED at point" ar-show-dollared-atpt
7683
:help " `ar-show-dollared-atpt'
7684
Show DOLLARED at point if any, nil otherwise. "]
7685
7686
["Show DOUBLEQUOTED at point" ar-show-doublequoted-atpt
7687
:help " `ar-show-doublequoted-atpt'
7688
Show DOUBLEQUOTED at point if any, nil otherwise. "]
7689
7690
["Show EQUALIZED at point" ar-show-equalized-atpt
7691
:help " `ar-show-equalized-atpt'
7692
Show EQUALIZED at point if any, nil otherwise. "]
7693
7694
["Show HYPHENED at point" ar-show-hyphened-atpt
7695
:help " `ar-show-hyphened-atpt'
7696
Show HYPHENED at point if any, nil otherwise. "]
7697
7698
["Show QUOTED at point" ar-show-quoted-atpt
7699
:help " `ar-show-quoted-atpt'
7700
Show QUOTED at point if any, nil otherwise. "]
7701
7702
["Show SINGLEQUOTED at point" ar-show-singlequoted-atpt
7703
:help " `ar-show-singlequoted-atpt'
7704
Show SINGLEQUOTED at point if any, nil otherwise. "]
7705
7706
["Show SLASHED at point" ar-show-slashed-atpt
7707
:help " `ar-show-slashed-atpt'
7708
Show SLASHED at point if any, nil otherwise. "]
7709
7710
["Show UNDERSCORED at point" ar-show-underscored-atpt
7711
:help " `ar-show-underscored-atpt'
7712
Show UNDERSCORED at point if any, nil otherwise. "]
7713
7714
["Show WHITESPACED at point" ar-show-whitespaced-atpt
7715
:help " `ar-show-whitespaced-atpt'
7716
Show WHITESPACED at point if any, nil otherwise. "]
7717
7718
)
7719
("Other"
7720
7721
["Show ANGLED-NO-NEST at point" ar-show-angled-no-nest-atpt
7722
:help " `ar-show-angled-no-nest-atpt'
7723
Show ANGLED-NO-NEST at point if any, nil otherwise. "]
7724
7725
["Show GREATER-ANGLED-NESTED at point" ar-show-greater-angled-nested-atpt
7726
:help " `ar-show-greater-angled-nested-atpt'
7727
Show GREATER-ANGLED-NESTED at point if any, nil otherwise. "]
7728
7729
["Show LESSER-ANGLED-NESTED at point" ar-show-lesser-angled-nested-atpt
7730
:help " `ar-show-lesser-angled-nested-atpt'
7731
Show LESSER-ANGLED-NESTED at point if any, nil otherwise. "]
7732
7733
["Show BUFFER at point" ar-show-buffer-atpt
7734
:help " `ar-show-buffer-atpt'
7735
Show BUFFER at point if any, nil otherwise. "]
7736
7737
["Show COMMENT at point" ar-show-comment-atpt
7738
:help " `ar-show-comment-atpt'
7739
Show COMMENT at point if any, nil otherwise. "]
7740
7741
["Show CSV at point" ar-show-csv-atpt
7742
:help " `ar-show-csv-atpt'
7743
Show CSV at point if any, nil otherwise. "]
7744
7745
["Show DATE at point" ar-show-date-atpt
7746
:help " `ar-show-date-atpt'
7747
Show DATE at point if any, nil otherwise. "]
7748
7749
["Show DEFUN at point" ar-show-defun-atpt
7750
:help " `ar-show-defun-atpt'
7751
Show DEFUN at point if any, nil otherwise. "]
7752
7753
["Show DELIMITED at point" ar-show-delimited-atpt
7754
:help " `ar-show-delimited-atpt'
7755
Show DELIMITED at point if any, nil otherwise. "]
7756
7757
["Show EMAIL at point" ar-show-email-atpt
7758
:help " `ar-show-email-atpt'
7759
Show EMAIL at point if any, nil otherwise. "]
7760
7761
["Show FILENAME at point" ar-show-filename-atpt
7762
:help " `ar-show-filename-atpt'
7763
Show FILENAME at point if any, nil otherwise. "]
7764
7765
["Show FLOAT at point" ar-show-float-atpt
7766
:help " `ar-show-float-atpt'
7767
Show FLOAT at point if any, nil otherwise. "]
7768
7769
["Show FUNCTION at point" ar-show-function-atpt
7770
:help " `ar-show-function-atpt'
7771
Show FUNCTION at point if any, nil otherwise. "]
7772
7773
["Show IP at point" ar-show-ip-atpt
7774
:help " `ar-show-ip-atpt'
7775
Show IP at point if any, nil otherwise. "]
7776
7777
["Show ISBN at point" ar-show-isbn-atpt
7778
:help " `ar-show-isbn-atpt'
7779
Show ISBN at point if any, nil otherwise. "]
7780
7781
["Show LINE at point" ar-show-line-atpt
7782
:help " `ar-show-line-atpt'
7783
Show LINE at point if any, nil otherwise. "]
7784
7785
["Show NAME at point" ar-show-name-atpt
7786
:help " `ar-show-name-atpt'
7787
Show NAME at point if any, nil otherwise. "]
7788
7789
["Show NUMBER at point" ar-show-number-atpt
7790
:help " `ar-show-number-atpt'
7791
Show NUMBER at point if any, nil otherwise. "]
7792
7793
["Show PAGE at point" ar-show-page-atpt
7794
:help " `ar-show-page-atpt'
7795
Show PAGE at point if any, nil otherwise. "]
7796
7797
["Show PARAGRAPH at point" ar-show-paragraph-atpt
7798
:help " `ar-show-paragraph-atpt'
7799
Show PARAGRAPH at point if any, nil otherwise. "]
7800
7801
["Show PAREN at point" ar-show-paren-atpt
7802
:help " `ar-show-paren-atpt'
7803
Show PAREN at point if any, nil otherwise. "]
7804
7805
["Show PHONE at point" ar-show-phone-atpt
7806
:help " `ar-show-phone-atpt'
7807
Show PHONE at point if any, nil otherwise. "]
7808
7809
["Show REGION at point" ar-show-region-atpt
7810
:help " `ar-show-region-atpt'
7811
Show REGION at point if any, nil otherwise. "]
7812
7813
["Show SENTENCE at point" ar-show-sentence-atpt
7814
:help " `ar-show-sentence-atpt'
7815
Show SENTENCE at point if any, nil otherwise. "]
7816
7817
["Show SEXP at point" ar-show-sexp-atpt
7818
:help " `ar-show-sexp-atpt'
7819
Show SEXP at point if any, nil otherwise. "]
7820
7821
["Show STRING at point" ar-show-string-atpt
7822
:help " `ar-show-string-atpt'
7823
Show STRING at point if any, nil otherwise. "]
7824
7825
["Show SH-STRUCT at point" ar-show-sh-struct-atpt
7826
:help " `ar-show-sh-struct-atpt'
7827
Show SH-STRUCT at point if any, nil otherwise. "]
7828
7829
["Show SYMBOL at point" ar-show-symbol-atpt
7830
:help " `ar-show-symbol-atpt'
7831
Show SYMBOL at point if any, nil otherwise. "]
7832
7833
["Show URL at point" ar-show-url-atpt
7834
:help " `ar-show-url-atpt'
7835
Show URL at point if any, nil otherwise. "]
7836
7837
["Show WORD at point" ar-show-word-atpt
7838
:help " `ar-show-word-atpt'
7839
Show WORD at point if any, nil otherwise. "]
7840
7841
["Show WORD-ALPHA-ONLY at point" ar-show-word-alpha-only-atpt
7842
:help " `ar-show-word-alpha-only-atpt'
7843
Show WORD-ALPHA-ONLY at point if any, nil otherwise. "]
7844
7845
)
7846
7847
)
7848
("Triplequote-Dq"
7849
7850
("Character classes"
7851
7852
["Triplequote-Dq [:alnum:] char class at point" ar-triplequote-dq-alnum-atpt
7853
:help " `ar-triplequote-dq-alnum-atpt'
7854
Triplequote-Dq ALNUM at point if any, nil otherwise. "]
7855
7856
["Triplequote-Dq [:alpha:] char class at point" ar-triplequote-dq-alpha-atpt
7857
:help " `ar-triplequote-dq-alpha-atpt'
7858
Triplequote-Dq ALPHA at point if any, nil otherwise. "]
7859
7860
["Triplequote-Dq [:ascii:] char class at point" ar-triplequote-dq-ascii-atpt
7861
:help " `ar-triplequote-dq-ascii-atpt'
7862
Triplequote-Dq ASCII at point if any, nil otherwise. "]
7863
7864
["Triplequote-Dq [:blank:] char class at point" ar-triplequote-dq-blank-atpt
7865
:help " `ar-triplequote-dq-blank-atpt'
7866
Triplequote-Dq BLANK at point if any, nil otherwise. "]
7867
7868
["Triplequote-Dq [:cntrl:] char class at point" ar-triplequote-dq-cntrl-atpt
7869
:help " `ar-triplequote-dq-cntrl-atpt'
7870
Triplequote-Dq CNTRL at point if any, nil otherwise. "]
7871
7872
["Triplequote-Dq [:digit:] char class at point" ar-triplequote-dq-digit-atpt
7873
:help " `ar-triplequote-dq-digit-atpt'
7874
Triplequote-Dq DIGIT at point if any, nil otherwise. "]
7875
7876
["Triplequote-Dq [:graph:] char class at point" ar-triplequote-dq-graph-atpt
7877
:help " `ar-triplequote-dq-graph-atpt'
7878
Triplequote-Dq GRAPH at point if any, nil otherwise. "]
7879
7880
["Triplequote-Dq [:lower:] char class at point" ar-triplequote-dq-lower-atpt
7881
:help " `ar-triplequote-dq-lower-atpt'
7882
Triplequote-Dq LOWER at point if any, nil otherwise. "]
7883
7884
["Triplequote-Dq [:nonascii:] char class at point" ar-triplequote-dq-nonascii-atpt
7885
:help " `ar-triplequote-dq-nonascii-atpt'
7886
Triplequote-Dq NONASCII at point if any, nil otherwise. "]
7887
7888
["Triplequote-Dq [:print:] char class at point" ar-triplequote-dq-print-atpt
7889
:help " `ar-triplequote-dq-print-atpt'
7890
Triplequote-Dq PRINT at point if any, nil otherwise. "]
7891
7892
["Triplequote-Dq [:punct:] char class at point" ar-triplequote-dq-punct-atpt
7893
:help " `ar-triplequote-dq-punct-atpt'
7894
Triplequote-Dq PUNCT at point if any, nil otherwise. "]
7895
7896
["Triplequote-Dq [:space:] char class at point" ar-triplequote-dq-space-atpt
7897
:help " `ar-triplequote-dq-space-atpt'
7898
Triplequote-Dq SPACE at point if any, nil otherwise. "]
7899
7900
["Triplequote-Dq [:upper:] char class at point" ar-triplequote-dq-upper-atpt
7901
:help " `ar-triplequote-dq-upper-atpt'
7902
Triplequote-Dq UPPER at point if any, nil otherwise. "]
7903
7904
["Triplequote-Dq [:xdigit:] char class at point" ar-triplequote-dq-xdigit-atpt
7905
:help " `ar-triplequote-dq-xdigit-atpt'
7906
Triplequote-Dq XDIGIT at point if any, nil otherwise. "]
7907
7908
)
7909
("Delimited"
7910
7911
["Triplequote-Dq BRACED at point" ar-triplequote-dq-braced-atpt
7912
:help " `ar-triplequote-dq-braced-atpt'
7913
Triplequote-Dq BRACED at point if any, nil otherwise. "]
7914
7915
["Triplequote-Dq BRACKETED at point" ar-triplequote-dq-bracketed-atpt
7916
:help " `ar-triplequote-dq-bracketed-atpt'
7917
Triplequote-Dq BRACKETED at point if any, nil otherwise. "]
7918
7919
["Triplequote-Dq LESSER-ANGLED at point" ar-triplequote-dq-lesser-angled-atpt
7920
:help " `ar-triplequote-dq-lesser-angled-atpt'
7921
Triplequote-Dq LESSER-ANGLED at point if any, nil otherwise. "]
7922
7923
["Triplequote-Dq GREATER-ANGLED at point" ar-triplequote-dq-greater-angled-atpt
7924
:help " `ar-triplequote-dq-greater-angled-atpt'
7925
Triplequote-Dq GREATER-ANGLED at point if any, nil otherwise. "]
7926
7927
["Triplequote-Dq LEFT-RIGHT-SINGLEQUOTED at point" ar-triplequote-dq-left-right-singlequoted-atpt
7928
:help " `ar-triplequote-dq-left-right-singlequoted-atpt'
7929
Triplequote-Dq LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
7930
7931
["Triplequote-Dq PARENTIZED at point" ar-triplequote-dq-parentized-atpt
7932
:help " `ar-triplequote-dq-parentized-atpt'
7933
Triplequote-Dq PARENTIZED at point if any, nil otherwise. "]
7934
7935
["Triplequote-Dq BACKSLASHED at point" ar-triplequote-dq-backslashed-atpt
7936
:help " `ar-triplequote-dq-backslashed-atpt'
7937
Triplequote-Dq BACKSLASHED at point if any, nil otherwise. "]
7938
7939
["Triplequote-Dq DOLLARED at point" ar-triplequote-dq-dollared-atpt
7940
:help " `ar-triplequote-dq-dollared-atpt'
7941
Triplequote-Dq DOLLARED at point if any, nil otherwise. "]
7942
7943
["Triplequote-Dq DOUBLEQUOTED at point" ar-triplequote-dq-doublequoted-atpt
7944
:help " `ar-triplequote-dq-doublequoted-atpt'
7945
Triplequote-Dq DOUBLEQUOTED at point if any, nil otherwise. "]
7946
7947
["Triplequote-Dq EQUALIZED at point" ar-triplequote-dq-equalized-atpt
7948
:help " `ar-triplequote-dq-equalized-atpt'
7949
Triplequote-Dq EQUALIZED at point if any, nil otherwise. "]
7950
7951
["Triplequote-Dq HYPHENED at point" ar-triplequote-dq-hyphened-atpt
7952
:help " `ar-triplequote-dq-hyphened-atpt'
7953
Triplequote-Dq HYPHENED at point if any, nil otherwise. "]
7954
7955
["Triplequote-Dq QUOTED at point" ar-triplequote-dq-quoted-atpt
7956
:help " `ar-triplequote-dq-quoted-atpt'
7957
Triplequote-Dq QUOTED at point if any, nil otherwise. "]
7958
7959
["Triplequote-Dq SINGLEQUOTED at point" ar-triplequote-dq-singlequoted-atpt
7960
:help " `ar-triplequote-dq-singlequoted-atpt'
7961
Triplequote-Dq SINGLEQUOTED at point if any, nil otherwise. "]
7962
7963
["Triplequote-Dq SLASHED at point" ar-triplequote-dq-slashed-atpt
7964
:help " `ar-triplequote-dq-slashed-atpt'
7965
Triplequote-Dq SLASHED at point if any, nil otherwise. "]
7966
7967
["Triplequote-Dq UNDERSCORED at point" ar-triplequote-dq-underscored-atpt
7968
:help " `ar-triplequote-dq-underscored-atpt'
7969
Triplequote-Dq UNDERSCORED at point if any, nil otherwise. "]
7970
7971
["Triplequote-Dq WHITESPACED at point" ar-triplequote-dq-whitespaced-atpt
7972
:help " `ar-triplequote-dq-whitespaced-atpt'
7973
Triplequote-Dq WHITESPACED at point if any, nil otherwise. "]
7974
7975
)
7976
("Other"
7977
7978
["Triplequote-Dq ANGLED-NO-NEST at point" ar-triplequote-dq-angled-no-nest-atpt
7979
:help " `ar-triplequote-dq-angled-no-nest-atpt'
7980
Triplequote-Dq ANGLED-NO-NEST at point if any, nil otherwise. "]
7981
7982
["Triplequote-Dq GREATER-ANGLED-NESTED at point" ar-triplequote-dq-greater-angled-nested-atpt
7983
:help " `ar-triplequote-dq-greater-angled-nested-atpt'
7984
Triplequote-Dq GREATER-ANGLED-NESTED at point if any, nil otherwise. "]
7985
7986
["Triplequote-Dq LESSER-ANGLED-NESTED at point" ar-triplequote-dq-lesser-angled-nested-atpt
7987
:help " `ar-triplequote-dq-lesser-angled-nested-atpt'
7988
Triplequote-Dq LESSER-ANGLED-NESTED at point if any, nil otherwise. "]
7989
7990
["Triplequote-Dq BUFFER at point" ar-triplequote-dq-buffer-atpt
7991
:help " `ar-triplequote-dq-buffer-atpt'
7992
Triplequote-Dq BUFFER at point if any, nil otherwise. "]
7993
7994
["Triplequote-Dq COMMENT at point" ar-triplequote-dq-comment-atpt
7995
:help " `ar-triplequote-dq-comment-atpt'
7996
Triplequote-Dq COMMENT at point if any, nil otherwise. "]
7997
7998
["Triplequote-Dq CSV at point" ar-triplequote-dq-csv-atpt
7999
:help " `ar-triplequote-dq-csv-atpt'
8000
Triplequote-Dq CSV at point if any, nil otherwise. "]
8001
8002
["Triplequote-Dq DATE at point" ar-triplequote-dq-date-atpt
8003
:help " `ar-triplequote-dq-date-atpt'
8004
Triplequote-Dq DATE at point if any, nil otherwise. "]
8005
8006
["Triplequote-Dq DEFUN at point" ar-triplequote-dq-defun-atpt
8007
:help " `ar-triplequote-dq-defun-atpt'
8008
Triplequote-Dq DEFUN at point if any, nil otherwise. "]
8009
8010
["Triplequote-Dq DELIMITED at point" ar-triplequote-dq-delimited-atpt
8011
:help " `ar-triplequote-dq-delimited-atpt'
8012
Triplequote-Dq DELIMITED at point if any, nil otherwise. "]
8013
8014
["Triplequote-Dq EMAIL at point" ar-triplequote-dq-email-atpt
8015
:help " `ar-triplequote-dq-email-atpt'
8016
Triplequote-Dq EMAIL at point if any, nil otherwise. "]
8017
8018
["Triplequote-Dq FILENAME at point" ar-triplequote-dq-filename-atpt
8019
:help " `ar-triplequote-dq-filename-atpt'
8020
Triplequote-Dq FILENAME at point if any, nil otherwise. "]
8021
8022
["Triplequote-Dq FLOAT at point" ar-triplequote-dq-float-atpt
8023
:help " `ar-triplequote-dq-float-atpt'
8024
Triplequote-Dq FLOAT at point if any, nil otherwise. "]
8025
8026
["Triplequote-Dq FUNCTION at point" ar-triplequote-dq-function-atpt
8027
:help " `ar-triplequote-dq-function-atpt'
8028
Triplequote-Dq FUNCTION at point if any, nil otherwise. "]
8029
8030
["Triplequote-Dq IP at point" ar-triplequote-dq-ip-atpt
8031
:help " `ar-triplequote-dq-ip-atpt'
8032
Triplequote-Dq IP at point if any, nil otherwise. "]
8033
8034
["Triplequote-Dq ISBN at point" ar-triplequote-dq-isbn-atpt
8035
:help " `ar-triplequote-dq-isbn-atpt'
8036
Triplequote-Dq ISBN at point if any, nil otherwise. "]
8037
8038
["Triplequote-Dq LINE at point" ar-triplequote-dq-line-atpt
8039
:help " `ar-triplequote-dq-line-atpt'
8040
Triplequote-Dq LINE at point if any, nil otherwise. "]
8041
8042
["Triplequote-Dq NAME at point" ar-triplequote-dq-name-atpt
8043
:help " `ar-triplequote-dq-name-atpt'
8044
Triplequote-Dq NAME at point if any, nil otherwise. "]
8045
8046
["Triplequote-Dq NUMBER at point" ar-triplequote-dq-number-atpt
8047
:help " `ar-triplequote-dq-number-atpt'
8048
Triplequote-Dq NUMBER at point if any, nil otherwise. "]
8049
8050
["Triplequote-Dq PAGE at point" ar-triplequote-dq-page-atpt
8051
:help " `ar-triplequote-dq-page-atpt'
8052
Triplequote-Dq PAGE at point if any, nil otherwise. "]
8053
8054
["Triplequote-Dq PARAGRAPH at point" ar-triplequote-dq-paragraph-atpt
8055
:help " `ar-triplequote-dq-paragraph-atpt'
8056
Triplequote-Dq PARAGRAPH at point if any, nil otherwise. "]
8057
8058
["Triplequote-Dq PAREN at point" ar-triplequote-dq-paren-atpt
8059
:help " `ar-triplequote-dq-paren-atpt'
8060
Triplequote-Dq PAREN at point if any, nil otherwise. "]
8061
8062
["Triplequote-Dq PHONE at point" ar-triplequote-dq-phone-atpt
8063
:help " `ar-triplequote-dq-phone-atpt'
8064
Triplequote-Dq PHONE at point if any, nil otherwise. "]
8065
8066
["Triplequote-Dq REGION at point" ar-triplequote-dq-region-atpt
8067
:help " `ar-triplequote-dq-region-atpt'
8068
Triplequote-Dq REGION at point if any, nil otherwise. "]
8069
8070
["Triplequote-Dq SENTENCE at point" ar-triplequote-dq-sentence-atpt
8071
:help " `ar-triplequote-dq-sentence-atpt'
8072
Triplequote-Dq SENTENCE at point if any, nil otherwise. "]
8073
8074
["Triplequote-Dq SEXP at point" ar-triplequote-dq-sexp-atpt
8075
:help " `ar-triplequote-dq-sexp-atpt'
8076
Triplequote-Dq SEXP at point if any, nil otherwise. "]
8077
8078
["Triplequote-Dq STRING at point" ar-triplequote-dq-string-atpt
8079
:help " `ar-triplequote-dq-string-atpt'
8080
Triplequote-Dq STRING at point if any, nil otherwise. "]
8081
8082
["Triplequote-Dq SH-STRUCT at point" ar-triplequote-dq-sh-struct-atpt
8083
:help " `ar-triplequote-dq-sh-struct-atpt'
8084
Triplequote-Dq SH-STRUCT at point if any, nil otherwise. "]
8085
8086
["Triplequote-Dq SYMBOL at point" ar-triplequote-dq-symbol-atpt
8087
:help " `ar-triplequote-dq-symbol-atpt'
8088
Triplequote-Dq SYMBOL at point if any, nil otherwise. "]
8089
8090
["Triplequote-Dq URL at point" ar-triplequote-dq-url-atpt
8091
:help " `ar-triplequote-dq-url-atpt'
8092
Triplequote-Dq URL at point if any, nil otherwise. "]
8093
8094
["Triplequote-Dq WORD at point" ar-triplequote-dq-word-atpt
8095
:help " `ar-triplequote-dq-word-atpt'
8096
Triplequote-Dq WORD at point if any, nil otherwise. "]
8097
8098
["Triplequote-Dq WORD-ALPHA-ONLY at point" ar-triplequote-dq-word-alpha-only-atpt
8099
:help " `ar-triplequote-dq-word-alpha-only-atpt'
8100
Triplequote-Dq WORD-ALPHA-ONLY at point if any, nil otherwise. "]
8101
8102
)
8103
8104
)
8105
("Triplequote-Sq"
8106
8107
("Character classes"
8108
8109
["Triplequote-Sq [:alnum:] char class at point" ar-triplequote-sq-alnum-atpt
8110
:help " `ar-triplequote-sq-alnum-atpt'
8111
Triplequote-Sq ALNUM at point if any, nil otherwise. "]
8112
8113
["Triplequote-Sq [:alpha:] char class at point" ar-triplequote-sq-alpha-atpt
8114
:help " `ar-triplequote-sq-alpha-atpt'
8115
Triplequote-Sq ALPHA at point if any, nil otherwise. "]
8116
8117
["Triplequote-Sq [:ascii:] char class at point" ar-triplequote-sq-ascii-atpt
8118
:help " `ar-triplequote-sq-ascii-atpt'
8119
Triplequote-Sq ASCII at point if any, nil otherwise. "]
8120
8121
["Triplequote-Sq [:blank:] char class at point" ar-triplequote-sq-blank-atpt
8122
:help " `ar-triplequote-sq-blank-atpt'
8123
Triplequote-Sq BLANK at point if any, nil otherwise. "]
8124
8125
["Triplequote-Sq [:cntrl:] char class at point" ar-triplequote-sq-cntrl-atpt
8126
:help " `ar-triplequote-sq-cntrl-atpt'
8127
Triplequote-Sq CNTRL at point if any, nil otherwise. "]
8128
8129
["Triplequote-Sq [:digit:] char class at point" ar-triplequote-sq-digit-atpt
8130
:help " `ar-triplequote-sq-digit-atpt'
8131
Triplequote-Sq DIGIT at point if any, nil otherwise. "]
8132
8133
["Triplequote-Sq [:graph:] char class at point" ar-triplequote-sq-graph-atpt
8134
:help " `ar-triplequote-sq-graph-atpt'
8135
Triplequote-Sq GRAPH at point if any, nil otherwise. "]
8136
8137
["Triplequote-Sq [:lower:] char class at point" ar-triplequote-sq-lower-atpt
8138
:help " `ar-triplequote-sq-lower-atpt'
8139
Triplequote-Sq LOWER at point if any, nil otherwise. "]
8140
8141
["Triplequote-Sq [:nonascii:] char class at point" ar-triplequote-sq-nonascii-atpt
8142
:help " `ar-triplequote-sq-nonascii-atpt'
8143
Triplequote-Sq NONASCII at point if any, nil otherwise. "]
8144
8145
["Triplequote-Sq [:print:] char class at point" ar-triplequote-sq-print-atpt
8146
:help " `ar-triplequote-sq-print-atpt'
8147
Triplequote-Sq PRINT at point if any, nil otherwise. "]
8148
8149
["Triplequote-Sq [:punct:] char class at point" ar-triplequote-sq-punct-atpt
8150
:help " `ar-triplequote-sq-punct-atpt'
8151
Triplequote-Sq PUNCT at point if any, nil otherwise. "]
8152
8153
["Triplequote-Sq [:space:] char class at point" ar-triplequote-sq-space-atpt
8154
:help " `ar-triplequote-sq-space-atpt'
8155
Triplequote-Sq SPACE at point if any, nil otherwise. "]
8156
8157
["Triplequote-Sq [:upper:] char class at point" ar-triplequote-sq-upper-atpt
8158
:help " `ar-triplequote-sq-upper-atpt'
8159
Triplequote-Sq UPPER at point if any, nil otherwise. "]
8160
8161
["Triplequote-Sq [:xdigit:] char class at point" ar-triplequote-sq-xdigit-atpt
8162
:help " `ar-triplequote-sq-xdigit-atpt'
8163
Triplequote-Sq XDIGIT at point if any, nil otherwise. "]
8164
8165
)
8166
("Delimited"
8167
8168
["Triplequote-Sq BRACED at point" ar-triplequote-sq-braced-atpt
8169
:help " `ar-triplequote-sq-braced-atpt'
8170
Triplequote-Sq BRACED at point if any, nil otherwise. "]
8171
8172
["Triplequote-Sq BRACKETED at point" ar-triplequote-sq-bracketed-atpt
8173
:help " `ar-triplequote-sq-bracketed-atpt'
8174
Triplequote-Sq BRACKETED at point if any, nil otherwise. "]
8175
8176
["Triplequote-Sq LESSER-ANGLED at point" ar-triplequote-sq-lesser-angled-atpt
8177
:help " `ar-triplequote-sq-lesser-angled-atpt'
8178
Triplequote-Sq LESSER-ANGLED at point if any, nil otherwise. "]
8179
8180
["Triplequote-Sq GREATER-ANGLED at point" ar-triplequote-sq-greater-angled-atpt
8181
:help " `ar-triplequote-sq-greater-angled-atpt'
8182
Triplequote-Sq GREATER-ANGLED at point if any, nil otherwise. "]
8183
8184
["Triplequote-Sq LEFT-RIGHT-SINGLEQUOTED at point" ar-triplequote-sq-left-right-singlequoted-atpt
8185
:help " `ar-triplequote-sq-left-right-singlequoted-atpt'
8186
Triplequote-Sq LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
8187
8188
["Triplequote-Sq PARENTIZED at point" ar-triplequote-sq-parentized-atpt
8189
:help " `ar-triplequote-sq-parentized-atpt'
8190
Triplequote-Sq PARENTIZED at point if any, nil otherwise. "]
8191
8192
["Triplequote-Sq BACKSLASHED at point" ar-triplequote-sq-backslashed-atpt
8193
:help " `ar-triplequote-sq-backslashed-atpt'
8194
Triplequote-Sq BACKSLASHED at point if any, nil otherwise. "]
8195
8196
["Triplequote-Sq DOLLARED at point" ar-triplequote-sq-dollared-atpt
8197
:help " `ar-triplequote-sq-dollared-atpt'
8198
Triplequote-Sq DOLLARED at point if any, nil otherwise. "]
8199
8200
["Triplequote-Sq DOUBLEQUOTED at point" ar-triplequote-sq-doublequoted-atpt
8201
:help " `ar-triplequote-sq-doublequoted-atpt'
8202
Triplequote-Sq DOUBLEQUOTED at point if any, nil otherwise. "]
8203
8204
["Triplequote-Sq EQUALIZED at point" ar-triplequote-sq-equalized-atpt
8205
:help " `ar-triplequote-sq-equalized-atpt'
8206
Triplequote-Sq EQUALIZED at point if any, nil otherwise. "]
8207
8208
["Triplequote-Sq HYPHENED at point" ar-triplequote-sq-hyphened-atpt
8209
:help " `ar-triplequote-sq-hyphened-atpt'
8210
Triplequote-Sq HYPHENED at point if any, nil otherwise. "]
8211
8212
["Triplequote-Sq QUOTED at point" ar-triplequote-sq-quoted-atpt
8213
:help " `ar-triplequote-sq-quoted-atpt'
8214
Triplequote-Sq QUOTED at point if any, nil otherwise. "]
8215
8216
["Triplequote-Sq SINGLEQUOTED at point" ar-triplequote-sq-singlequoted-atpt
8217
:help " `ar-triplequote-sq-singlequoted-atpt'
8218
Triplequote-Sq SINGLEQUOTED at point if any, nil otherwise. "]
8219
8220
["Triplequote-Sq SLASHED at point" ar-triplequote-sq-slashed-atpt
8221
:help " `ar-triplequote-sq-slashed-atpt'
8222
Triplequote-Sq SLASHED at point if any, nil otherwise. "]
8223
8224
["Triplequote-Sq UNDERSCORED at point" ar-triplequote-sq-underscored-atpt
8225
:help " `ar-triplequote-sq-underscored-atpt'
8226
Triplequote-Sq UNDERSCORED at point if any, nil otherwise. "]
8227
8228
["Triplequote-Sq WHITESPACED at point" ar-triplequote-sq-whitespaced-atpt
8229
:help " `ar-triplequote-sq-whitespaced-atpt'
8230
Triplequote-Sq WHITESPACED at point if any, nil otherwise. "]
8231
8232
)
8233
("Other"
8234
8235
["Triplequote-Sq ANGLED-NO-NEST at point" ar-triplequote-sq-angled-no-nest-atpt
8236
:help " `ar-triplequote-sq-angled-no-nest-atpt'
8237
Triplequote-Sq ANGLED-NO-NEST at point if any, nil otherwise. "]
8238
8239
["Triplequote-Sq GREATER-ANGLED-NESTED at point" ar-triplequote-sq-greater-angled-nested-atpt
8240
:help " `ar-triplequote-sq-greater-angled-nested-atpt'
8241
Triplequote-Sq GREATER-ANGLED-NESTED at point if any, nil otherwise. "]
8242
8243
["Triplequote-Sq LESSER-ANGLED-NESTED at point" ar-triplequote-sq-lesser-angled-nested-atpt
8244
:help " `ar-triplequote-sq-lesser-angled-nested-atpt'
8245
Triplequote-Sq LESSER-ANGLED-NESTED at point if any, nil otherwise. "]
8246
8247
["Triplequote-Sq BUFFER at point" ar-triplequote-sq-buffer-atpt
8248
:help " `ar-triplequote-sq-buffer-atpt'
8249
Triplequote-Sq BUFFER at point if any, nil otherwise. "]
8250
8251
["Triplequote-Sq COMMENT at point" ar-triplequote-sq-comment-atpt
8252
:help " `ar-triplequote-sq-comment-atpt'
8253
Triplequote-Sq COMMENT at point if any, nil otherwise. "]
8254
8255
["Triplequote-Sq CSV at point" ar-triplequote-sq-csv-atpt
8256
:help " `ar-triplequote-sq-csv-atpt'
8257
Triplequote-Sq CSV at point if any, nil otherwise. "]
8258
8259
["Triplequote-Sq DATE at point" ar-triplequote-sq-date-atpt
8260
:help " `ar-triplequote-sq-date-atpt'
8261
Triplequote-Sq DATE at point if any, nil otherwise. "]
8262
8263
["Triplequote-Sq DEFUN at point" ar-triplequote-sq-defun-atpt
8264
:help " `ar-triplequote-sq-defun-atpt'
8265
Triplequote-Sq DEFUN at point if any, nil otherwise. "]
8266
8267
["Triplequote-Sq DELIMITED at point" ar-triplequote-sq-delimited-atpt
8268
:help " `ar-triplequote-sq-delimited-atpt'
8269
Triplequote-Sq DELIMITED at point if any, nil otherwise. "]
8270
8271
["Triplequote-Sq EMAIL at point" ar-triplequote-sq-email-atpt
8272
:help " `ar-triplequote-sq-email-atpt'
8273
Triplequote-Sq EMAIL at point if any, nil otherwise. "]
8274
8275
["Triplequote-Sq FILENAME at point" ar-triplequote-sq-filename-atpt
8276
:help " `ar-triplequote-sq-filename-atpt'
8277
Triplequote-Sq FILENAME at point if any, nil otherwise. "]
8278
8279
["Triplequote-Sq FLOAT at point" ar-triplequote-sq-float-atpt
8280
:help " `ar-triplequote-sq-float-atpt'
8281
Triplequote-Sq FLOAT at point if any, nil otherwise. "]
8282
8283
["Triplequote-Sq FUNCTION at point" ar-triplequote-sq-function-atpt
8284
:help " `ar-triplequote-sq-function-atpt'
8285
Triplequote-Sq FUNCTION at point if any, nil otherwise. "]
8286
8287
["Triplequote-Sq IP at point" ar-triplequote-sq-ip-atpt
8288
:help " `ar-triplequote-sq-ip-atpt'
8289
Triplequote-Sq IP at point if any, nil otherwise. "]
8290
8291
["Triplequote-Sq ISBN at point" ar-triplequote-sq-isbn-atpt
8292
:help " `ar-triplequote-sq-isbn-atpt'
8293
Triplequote-Sq ISBN at point if any, nil otherwise. "]
8294
8295
["Triplequote-Sq LINE at point" ar-triplequote-sq-line-atpt
8296
:help " `ar-triplequote-sq-line-atpt'
8297
Triplequote-Sq LINE at point if any, nil otherwise. "]
8298
8299
["Triplequote-Sq NAME at point" ar-triplequote-sq-name-atpt
8300
:help " `ar-triplequote-sq-name-atpt'
8301
Triplequote-Sq NAME at point if any, nil otherwise. "]
8302
8303
["Triplequote-Sq NUMBER at point" ar-triplequote-sq-number-atpt
8304
:help " `ar-triplequote-sq-number-atpt'
8305
Triplequote-Sq NUMBER at point if any, nil otherwise. "]
8306
8307
["Triplequote-Sq PAGE at point" ar-triplequote-sq-page-atpt
8308
:help " `ar-triplequote-sq-page-atpt'
8309
Triplequote-Sq PAGE at point if any, nil otherwise. "]
8310
8311
["Triplequote-Sq PARAGRAPH at point" ar-triplequote-sq-paragraph-atpt
8312
:help " `ar-triplequote-sq-paragraph-atpt'
8313
Triplequote-Sq PARAGRAPH at point if any, nil otherwise. "]
8314
8315
["Triplequote-Sq PAREN at point" ar-triplequote-sq-paren-atpt
8316
:help " `ar-triplequote-sq-paren-atpt'
8317
Triplequote-Sq PAREN at point if any, nil otherwise. "]
8318
8319
["Triplequote-Sq PHONE at point" ar-triplequote-sq-phone-atpt
8320
:help " `ar-triplequote-sq-phone-atpt'
8321
Triplequote-Sq PHONE at point if any, nil otherwise. "]
8322
8323
["Triplequote-Sq REGION at point" ar-triplequote-sq-region-atpt
8324
:help " `ar-triplequote-sq-region-atpt'
8325
Triplequote-Sq REGION at point if any, nil otherwise. "]
8326
8327
["Triplequote-Sq SENTENCE at point" ar-triplequote-sq-sentence-atpt
8328
:help " `ar-triplequote-sq-sentence-atpt'
8329
Triplequote-Sq SENTENCE at point if any, nil otherwise. "]
8330
8331
["Triplequote-Sq SEXP at point" ar-triplequote-sq-sexp-atpt
8332
:help " `ar-triplequote-sq-sexp-atpt'
8333
Triplequote-Sq SEXP at point if any, nil otherwise. "]
8334
8335
["Triplequote-Sq STRING at point" ar-triplequote-sq-string-atpt
8336
:help " `ar-triplequote-sq-string-atpt'
8337
Triplequote-Sq STRING at point if any, nil otherwise. "]
8338
8339
["Triplequote-Sq SH-STRUCT at point" ar-triplequote-sq-sh-struct-atpt
8340
:help " `ar-triplequote-sq-sh-struct-atpt'
8341
Triplequote-Sq SH-STRUCT at point if any, nil otherwise. "]
8342
8343
["Triplequote-Sq SYMBOL at point" ar-triplequote-sq-symbol-atpt
8344
:help " `ar-triplequote-sq-symbol-atpt'
8345
Triplequote-Sq SYMBOL at point if any, nil otherwise. "]
8346
8347
["Triplequote-Sq URL at point" ar-triplequote-sq-url-atpt
8348
:help " `ar-triplequote-sq-url-atpt'
8349
Triplequote-Sq URL at point if any, nil otherwise. "]
8350
8351
["Triplequote-Sq WORD at point" ar-triplequote-sq-word-atpt
8352
:help " `ar-triplequote-sq-word-atpt'
8353
Triplequote-Sq WORD at point if any, nil otherwise. "]
8354
8355
["Triplequote-Sq WORD-ALPHA-ONLY at point" ar-triplequote-sq-word-alpha-only-atpt
8356
:help " `ar-triplequote-sq-word-alpha-only-atpt'
8357
Triplequote-Sq WORD-ALPHA-ONLY at point if any, nil otherwise. "]
8358
8359
)
8360
8361
)
8362
("Underscore"
8363
8364
("Character classes"
8365
8366
["Underscore [:alnum:] char class at point" ar-underscore-alnum-atpt
8367
:help " `ar-underscore-alnum-atpt'
8368
Underscore ALNUM at point if any, nil otherwise. "]
8369
8370
["Underscore [:alpha:] char class at point" ar-underscore-alpha-atpt
8371
:help " `ar-underscore-alpha-atpt'
8372
Underscore ALPHA at point if any, nil otherwise. "]
8373
8374
["Underscore [:ascii:] char class at point" ar-underscore-ascii-atpt
8375
:help " `ar-underscore-ascii-atpt'
8376
Underscore ASCII at point if any, nil otherwise. "]
8377
8378
["Underscore [:blank:] char class at point" ar-underscore-blank-atpt
8379
:help " `ar-underscore-blank-atpt'
8380
Underscore BLANK at point if any, nil otherwise. "]
8381
8382
["Underscore [:cntrl:] char class at point" ar-underscore-cntrl-atpt
8383
:help " `ar-underscore-cntrl-atpt'
8384
Underscore CNTRL at point if any, nil otherwise. "]
8385
8386
["Underscore [:digit:] char class at point" ar-underscore-digit-atpt
8387
:help " `ar-underscore-digit-atpt'
8388
Underscore DIGIT at point if any, nil otherwise. "]
8389
8390
["Underscore [:graph:] char class at point" ar-underscore-graph-atpt
8391
:help " `ar-underscore-graph-atpt'
8392
Underscore GRAPH at point if any, nil otherwise. "]
8393
8394
["Underscore [:lower:] char class at point" ar-underscore-lower-atpt
8395
:help " `ar-underscore-lower-atpt'
8396
Underscore LOWER at point if any, nil otherwise. "]
8397
8398
["Underscore [:nonascii:] char class at point" ar-underscore-nonascii-atpt
8399
:help " `ar-underscore-nonascii-atpt'
8400
Underscore NONASCII at point if any, nil otherwise. "]
8401
8402
["Underscore [:print:] char class at point" ar-underscore-print-atpt
8403
:help " `ar-underscore-print-atpt'
8404
Underscore PRINT at point if any, nil otherwise. "]
8405
8406
["Underscore [:punct:] char class at point" ar-underscore-punct-atpt
8407
:help " `ar-underscore-punct-atpt'
8408
Underscore PUNCT at point if any, nil otherwise. "]
8409
8410
["Underscore [:space:] char class at point" ar-underscore-space-atpt
8411
:help " `ar-underscore-space-atpt'
8412
Underscore SPACE at point if any, nil otherwise. "]
8413
8414
["Underscore [:upper:] char class at point" ar-underscore-upper-atpt
8415
:help " `ar-underscore-upper-atpt'
8416
Underscore UPPER at point if any, nil otherwise. "]
8417
8418
["Underscore [:xdigit:] char class at point" ar-underscore-xdigit-atpt
8419
:help " `ar-underscore-xdigit-atpt'
8420
Underscore XDIGIT at point if any, nil otherwise. "]
8421
8422
)
8423
("Delimited"
8424
8425
["Underscore BRACED at point" ar-underscore-braced-atpt
8426
:help " `ar-underscore-braced-atpt'
8427
Underscore BRACED at point if any, nil otherwise. "]
8428
8429
["Underscore BRACKETED at point" ar-underscore-bracketed-atpt
8430
:help " `ar-underscore-bracketed-atpt'
8431
Underscore BRACKETED at point if any, nil otherwise. "]
8432
8433
["Underscore LESSER-ANGLED at point" ar-underscore-lesser-angled-atpt
8434
:help " `ar-underscore-lesser-angled-atpt'
8435
Underscore LESSER-ANGLED at point if any, nil otherwise. "]
8436
8437
["Underscore GREATER-ANGLED at point" ar-underscore-greater-angled-atpt
8438
:help " `ar-underscore-greater-angled-atpt'
8439
Underscore GREATER-ANGLED at point if any, nil otherwise. "]
8440
8441
["Underscore LEFT-RIGHT-SINGLEQUOTED at point" ar-underscore-left-right-singlequoted-atpt
8442
:help " `ar-underscore-left-right-singlequoted-atpt'
8443
Underscore LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
8444
8445
["Underscore PARENTIZED at point" ar-underscore-parentized-atpt
8446
:help " `ar-underscore-parentized-atpt'
8447
Underscore PARENTIZED at point if any, nil otherwise. "]
8448
8449
["Underscore BACKSLASHED at point" ar-underscore-backslashed-atpt
8450
:help " `ar-underscore-backslashed-atpt'
8451
Underscore BACKSLASHED at point if any, nil otherwise. "]
8452
8453
["Underscore DOLLARED at point" ar-underscore-dollared-atpt
8454
:help " `ar-underscore-dollared-atpt'
8455
Underscore DOLLARED at point if any, nil otherwise. "]
8456
8457
["Underscore DOUBLEQUOTED at point" ar-underscore-doublequoted-atpt
8458
:help " `ar-underscore-doublequoted-atpt'
8459
Underscore DOUBLEQUOTED at point if any, nil otherwise. "]
8460
8461
["Underscore EQUALIZED at point" ar-underscore-equalized-atpt
8462
:help " `ar-underscore-equalized-atpt'
8463
Underscore EQUALIZED at point if any, nil otherwise. "]
8464
8465
["Underscore HYPHENED at point" ar-underscore-hyphened-atpt
8466
:help " `ar-underscore-hyphened-atpt'
8467
Underscore HYPHENED at point if any, nil otherwise. "]
8468
8469
["Underscore QUOTED at point" ar-underscore-quoted-atpt
8470
:help " `ar-underscore-quoted-atpt'
8471
Underscore QUOTED at point if any, nil otherwise. "]
8472
8473
["Underscore SINGLEQUOTED at point" ar-underscore-singlequoted-atpt
8474
:help " `ar-underscore-singlequoted-atpt'
8475
Underscore SINGLEQUOTED at point if any, nil otherwise. "]
8476
8477
["Underscore SLASHED at point" ar-underscore-slashed-atpt
8478
:help " `ar-underscore-slashed-atpt'
8479
Underscore SLASHED at point if any, nil otherwise. "]
8480
8481
["Underscore UNDERSCORED at point" ar-underscore-underscored-atpt
8482
:help " `ar-underscore-underscored-atpt'
8483
Underscore UNDERSCORED at point if any, nil otherwise. "]
8484
8485
["Underscore WHITESPACED at point" ar-underscore-whitespaced-atpt
8486
:help " `ar-underscore-whitespaced-atpt'
8487
Underscore WHITESPACED at point if any, nil otherwise. "]
8488
8489
)
8490
("Other"
8491
8492
["Underscore ANGLED-NO-NEST at point" ar-underscore-angled-no-nest-atpt
8493
:help " `ar-underscore-angled-no-nest-atpt'
8494
Underscore ANGLED-NO-NEST at point if any, nil otherwise. "]
8495
8496
["Underscore GREATER-ANGLED-NESTED at point" ar-underscore-greater-angled-nested-atpt
8497
:help " `ar-underscore-greater-angled-nested-atpt'
8498
Underscore GREATER-ANGLED-NESTED at point if any, nil otherwise. "]
8499
8500
["Underscore LESSER-ANGLED-NESTED at point" ar-underscore-lesser-angled-nested-atpt
8501
:help " `ar-underscore-lesser-angled-nested-atpt'
8502
Underscore LESSER-ANGLED-NESTED at point if any, nil otherwise. "]
8503
8504
["Underscore BUFFER at point" ar-underscore-buffer-atpt
8505
:help " `ar-underscore-buffer-atpt'
8506
Underscore BUFFER at point if any, nil otherwise. "]
8507
8508
["Underscore COMMENT at point" ar-underscore-comment-atpt
8509
:help " `ar-underscore-comment-atpt'
8510
Underscore COMMENT at point if any, nil otherwise. "]
8511
8512
["Underscore CSV at point" ar-underscore-csv-atpt
8513
:help " `ar-underscore-csv-atpt'
8514
Underscore CSV at point if any, nil otherwise. "]
8515
8516
["Underscore DATE at point" ar-underscore-date-atpt
8517
:help " `ar-underscore-date-atpt'
8518
Underscore DATE at point if any, nil otherwise. "]
8519
8520
["Underscore DEFUN at point" ar-underscore-defun-atpt
8521
:help " `ar-underscore-defun-atpt'
8522
Underscore DEFUN at point if any, nil otherwise. "]
8523
8524
["Underscore DELIMITED at point" ar-underscore-delimited-atpt
8525
:help " `ar-underscore-delimited-atpt'
8526
Underscore DELIMITED at point if any, nil otherwise. "]
8527
8528
["Underscore EMAIL at point" ar-underscore-email-atpt
8529
:help " `ar-underscore-email-atpt'
8530
Underscore EMAIL at point if any, nil otherwise. "]
8531
8532
["Underscore FILENAME at point" ar-underscore-filename-atpt
8533
:help " `ar-underscore-filename-atpt'
8534
Underscore FILENAME at point if any, nil otherwise. "]
8535
8536
["Underscore FLOAT at point" ar-underscore-float-atpt
8537
:help " `ar-underscore-float-atpt'
8538
Underscore FLOAT at point if any, nil otherwise. "]
8539
8540
["Underscore FUNCTION at point" ar-underscore-function-atpt
8541
:help " `ar-underscore-function-atpt'
8542
Underscore FUNCTION at point if any, nil otherwise. "]
8543
8544
["Underscore IP at point" ar-underscore-ip-atpt
8545
:help " `ar-underscore-ip-atpt'
8546
Underscore IP at point if any, nil otherwise. "]
8547
8548
["Underscore ISBN at point" ar-underscore-isbn-atpt
8549
:help " `ar-underscore-isbn-atpt'
8550
Underscore ISBN at point if any, nil otherwise. "]
8551
8552
["Underscore LINE at point" ar-underscore-line-atpt
8553
:help " `ar-underscore-line-atpt'
8554
Underscore LINE at point if any, nil otherwise. "]
8555
8556
["Underscore NAME at point" ar-underscore-name-atpt
8557
:help " `ar-underscore-name-atpt'
8558
Underscore NAME at point if any, nil otherwise. "]
8559
8560
["Underscore NUMBER at point" ar-underscore-number-atpt
8561
:help " `ar-underscore-number-atpt'
8562
Underscore NUMBER at point if any, nil otherwise. "]
8563
8564
["Underscore PAGE at point" ar-underscore-page-atpt
8565
:help " `ar-underscore-page-atpt'
8566
Underscore PAGE at point if any, nil otherwise. "]
8567
8568
["Underscore PARAGRAPH at point" ar-underscore-paragraph-atpt
8569
:help " `ar-underscore-paragraph-atpt'
8570
Underscore PARAGRAPH at point if any, nil otherwise. "]
8571
8572
["Underscore PAREN at point" ar-underscore-paren-atpt
8573
:help " `ar-underscore-paren-atpt'
8574
Underscore PAREN at point if any, nil otherwise. "]
8575
8576
["Underscore PHONE at point" ar-underscore-phone-atpt
8577
:help " `ar-underscore-phone-atpt'
8578
Underscore PHONE at point if any, nil otherwise. "]
8579
8580
["Underscore REGION at point" ar-underscore-region-atpt
8581
:help " `ar-underscore-region-atpt'
8582
Underscore REGION at point if any, nil otherwise. "]
8583
8584
["Underscore SENTENCE at point" ar-underscore-sentence-atpt
8585
:help " `ar-underscore-sentence-atpt'
8586
Underscore SENTENCE at point if any, nil otherwise. "]
8587
8588
["Underscore SEXP at point" ar-underscore-sexp-atpt
8589
:help " `ar-underscore-sexp-atpt'
8590
Underscore SEXP at point if any, nil otherwise. "]
8591
8592
["Underscore STRING at point" ar-underscore-string-atpt
8593
:help " `ar-underscore-string-atpt'
8594
Underscore STRING at point if any, nil otherwise. "]
8595
8596
["Underscore SH-STRUCT at point" ar-underscore-sh-struct-atpt
8597
:help " `ar-underscore-sh-struct-atpt'
8598
Underscore SH-STRUCT at point if any, nil otherwise. "]
8599
8600
["Underscore SYMBOL at point" ar-underscore-symbol-atpt
8601
:help " `ar-underscore-symbol-atpt'
8602
Underscore SYMBOL at point if any, nil otherwise. "]
8603
8604
["Underscore URL at point" ar-underscore-url-atpt
8605
:help " `ar-underscore-url-atpt'
8606
Underscore URL at point if any, nil otherwise. "]
8607
8608
["Underscore WORD at point" ar-underscore-word-atpt
8609
:help " `ar-underscore-word-atpt'
8610
Underscore WORD at point if any, nil otherwise. "]
8611
8612
["Underscore WORD-ALPHA-ONLY at point" ar-underscore-word-alpha-only-atpt
8613
:help " `ar-underscore-word-alpha-only-atpt'
8614
Underscore WORD-ALPHA-ONLY at point if any, nil otherwise. "]
8615
8616
)
8617
8618
)
8619
("Whitespace"
8620
8621
("Character classes"
8622
8623
["Whitespace [:alnum:] char class at point" ar-whitespace-alnum-atpt
8624
:help " `ar-whitespace-alnum-atpt'
8625
Whitespace ALNUM at point if any, nil otherwise. "]
8626
8627
["Whitespace [:alpha:] char class at point" ar-whitespace-alpha-atpt
8628
:help " `ar-whitespace-alpha-atpt'
8629
Whitespace ALPHA at point if any, nil otherwise. "]
8630
8631
["Whitespace [:ascii:] char class at point" ar-whitespace-ascii-atpt
8632
:help " `ar-whitespace-ascii-atpt'
8633
Whitespace ASCII at point if any, nil otherwise. "]
8634
8635
["Whitespace [:blank:] char class at point" ar-whitespace-blank-atpt
8636
:help " `ar-whitespace-blank-atpt'
8637
Whitespace BLANK at point if any, nil otherwise. "]
8638
8639
["Whitespace [:cntrl:] char class at point" ar-whitespace-cntrl-atpt
8640
:help " `ar-whitespace-cntrl-atpt'
8641
Whitespace CNTRL at point if any, nil otherwise. "]
8642
8643
["Whitespace [:digit:] char class at point" ar-whitespace-digit-atpt
8644
:help " `ar-whitespace-digit-atpt'
8645
Whitespace DIGIT at point if any, nil otherwise. "]
8646
8647
["Whitespace [:graph:] char class at point" ar-whitespace-graph-atpt
8648
:help " `ar-whitespace-graph-atpt'
8649
Whitespace GRAPH at point if any, nil otherwise. "]
8650
8651
["Whitespace [:lower:] char class at point" ar-whitespace-lower-atpt
8652
:help " `ar-whitespace-lower-atpt'
8653
Whitespace LOWER at point if any, nil otherwise. "]
8654
8655
["Whitespace [:nonascii:] char class at point" ar-whitespace-nonascii-atpt
8656
:help " `ar-whitespace-nonascii-atpt'
8657
Whitespace NONASCII at point if any, nil otherwise. "]
8658
8659
["Whitespace [:print:] char class at point" ar-whitespace-print-atpt
8660
:help " `ar-whitespace-print-atpt'
8661
Whitespace PRINT at point if any, nil otherwise. "]
8662
8663
["Whitespace [:punct:] char class at point" ar-whitespace-punct-atpt
8664
:help " `ar-whitespace-punct-atpt'
8665
Whitespace PUNCT at point if any, nil otherwise. "]
8666
8667
["Whitespace [:space:] char class at point" ar-whitespace-space-atpt
8668
:help " `ar-whitespace-space-atpt'
8669
Whitespace SPACE at point if any, nil otherwise. "]
8670
8671
["Whitespace [:upper:] char class at point" ar-whitespace-upper-atpt
8672
:help " `ar-whitespace-upper-atpt'
8673
Whitespace UPPER at point if any, nil otherwise. "]
8674
8675
["Whitespace [:xdigit:] char class at point" ar-whitespace-xdigit-atpt
8676
:help " `ar-whitespace-xdigit-atpt'
8677
Whitespace XDIGIT at point if any, nil otherwise. "]
8678
8679
)
8680
("Delimited"
8681
8682
["Whitespace BRACED at point" ar-whitespace-braced-atpt
8683
:help " `ar-whitespace-braced-atpt'
8684
Whitespace BRACED at point if any, nil otherwise. "]
8685
8686
["Whitespace BRACKETED at point" ar-whitespace-bracketed-atpt
8687
:help " `ar-whitespace-bracketed-atpt'
8688
Whitespace BRACKETED at point if any, nil otherwise. "]
8689
8690
["Whitespace LESSER-ANGLED at point" ar-whitespace-lesser-angled-atpt
8691
:help " `ar-whitespace-lesser-angled-atpt'
8692
Whitespace LESSER-ANGLED at point if any, nil otherwise. "]
8693
8694
["Whitespace GREATER-ANGLED at point" ar-whitespace-greater-angled-atpt
8695
:help " `ar-whitespace-greater-angled-atpt'
8696
Whitespace GREATER-ANGLED at point if any, nil otherwise. "]
8697
8698
["Whitespace LEFT-RIGHT-SINGLEQUOTED at point" ar-whitespace-left-right-singlequoted-atpt
8699
:help " `ar-whitespace-left-right-singlequoted-atpt'
8700
Whitespace LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
8701
8702
["Whitespace PARENTIZED at point" ar-whitespace-parentized-atpt
8703
:help " `ar-whitespace-parentized-atpt'
8704
Whitespace PARENTIZED at point if any, nil otherwise. "]
8705
8706
["Whitespace BACKSLASHED at point" ar-whitespace-backslashed-atpt
8707
:help " `ar-whitespace-backslashed-atpt'
8708
Whitespace BACKSLASHED at point if any, nil otherwise. "]
8709
8710
["Whitespace DOLLARED at point" ar-whitespace-dollared-atpt
8711
:help " `ar-whitespace-dollared-atpt'
8712
Whitespace DOLLARED at point if any, nil otherwise. "]
8713
8714
["Whitespace DOUBLEQUOTED at point" ar-whitespace-doublequoted-atpt
8715
:help " `ar-whitespace-doublequoted-atpt'
8716
Whitespace DOUBLEQUOTED at point if any, nil otherwise. "]
8717
8718
["Whitespace EQUALIZED at point" ar-whitespace-equalized-atpt
8719
:help " `ar-whitespace-equalized-atpt'
8720
Whitespace EQUALIZED at point if any, nil otherwise. "]
8721
8722
["Whitespace HYPHENED at point" ar-whitespace-hyphened-atpt
8723
:help " `ar-whitespace-hyphened-atpt'
8724
Whitespace HYPHENED at point if any, nil otherwise. "]
8725
8726
["Whitespace QUOTED at point" ar-whitespace-quoted-atpt
8727
:help " `ar-whitespace-quoted-atpt'
8728
Whitespace QUOTED at point if any, nil otherwise. "]
8729
8730
["Whitespace SINGLEQUOTED at point" ar-whitespace-singlequoted-atpt
8731
:help " `ar-whitespace-singlequoted-atpt'
8732
Whitespace SINGLEQUOTED at point if any, nil otherwise. "]
8733
8734
["Whitespace SLASHED at point" ar-whitespace-slashed-atpt
8735
:help " `ar-whitespace-slashed-atpt'
8736
Whitespace SLASHED at point if any, nil otherwise. "]
8737
8738
["Whitespace UNDERSCORED at point" ar-whitespace-underscored-atpt
8739
:help " `ar-whitespace-underscored-atpt'
8740
Whitespace UNDERSCORED at point if any, nil otherwise. "]
8741
8742
["Whitespace WHITESPACED at point" ar-whitespace-whitespaced-atpt
8743
:help " `ar-whitespace-whitespaced-atpt'
8744
Whitespace WHITESPACED at point if any, nil otherwise. "]
8745
8746
)
8747
("Other"
8748
8749
["Whitespace ANGLED-NO-NEST at point" ar-whitespace-angled-no-nest-atpt
8750
:help " `ar-whitespace-angled-no-nest-atpt'
8751
Whitespace ANGLED-NO-NEST at point if any, nil otherwise. "]
8752
8753
["Whitespace GREATER-ANGLED-NESTED at point" ar-whitespace-greater-angled-nested-atpt
8754
:help " `ar-whitespace-greater-angled-nested-atpt'
8755
Whitespace GREATER-ANGLED-NESTED at point if any, nil otherwise. "]
8756
8757
["Whitespace LESSER-ANGLED-NESTED at point" ar-whitespace-lesser-angled-nested-atpt
8758
:help " `ar-whitespace-lesser-angled-nested-atpt'
8759
Whitespace LESSER-ANGLED-NESTED at point if any, nil otherwise. "]
8760
8761
["Whitespace BUFFER at point" ar-whitespace-buffer-atpt
8762
:help " `ar-whitespace-buffer-atpt'
8763
Whitespace BUFFER at point if any, nil otherwise. "]
8764
8765
["Whitespace COMMENT at point" ar-whitespace-comment-atpt
8766
:help " `ar-whitespace-comment-atpt'
8767
Whitespace COMMENT at point if any, nil otherwise. "]
8768
8769
["Whitespace CSV at point" ar-whitespace-csv-atpt
8770
:help " `ar-whitespace-csv-atpt'
8771
Whitespace CSV at point if any, nil otherwise. "]
8772
8773
["Whitespace DATE at point" ar-whitespace-date-atpt
8774
:help " `ar-whitespace-date-atpt'
8775
Whitespace DATE at point if any, nil otherwise. "]
8776
8777
["Whitespace DEFUN at point" ar-whitespace-defun-atpt
8778
:help " `ar-whitespace-defun-atpt'
8779
Whitespace DEFUN at point if any, nil otherwise. "]
8780
8781
["Whitespace DELIMITED at point" ar-whitespace-delimited-atpt
8782
:help " `ar-whitespace-delimited-atpt'
8783
Whitespace DELIMITED at point if any, nil otherwise. "]
8784
8785
["Whitespace EMAIL at point" ar-whitespace-email-atpt
8786
:help " `ar-whitespace-email-atpt'
8787
Whitespace EMAIL at point if any, nil otherwise. "]
8788
8789
["Whitespace FILENAME at point" ar-whitespace-filename-atpt
8790
:help " `ar-whitespace-filename-atpt'
8791
Whitespace FILENAME at point if any, nil otherwise. "]
8792
8793
["Whitespace FLOAT at point" ar-whitespace-float-atpt
8794
:help " `ar-whitespace-float-atpt'
8795
Whitespace FLOAT at point if any, nil otherwise. "]
8796
8797
["Whitespace FUNCTION at point" ar-whitespace-function-atpt
8798
:help " `ar-whitespace-function-atpt'
8799
Whitespace FUNCTION at point if any, nil otherwise. "]
8800
8801
["Whitespace IP at point" ar-whitespace-ip-atpt
8802
:help " `ar-whitespace-ip-atpt'
8803
Whitespace IP at point if any, nil otherwise. "]
8804
8805
["Whitespace ISBN at point" ar-whitespace-isbn-atpt
8806
:help " `ar-whitespace-isbn-atpt'
8807
Whitespace ISBN at point if any, nil otherwise. "]
8808
8809
["Whitespace LINE at point" ar-whitespace-line-atpt
8810
:help " `ar-whitespace-line-atpt'
8811
Whitespace LINE at point if any, nil otherwise. "]
8812
8813
["Whitespace NAME at point" ar-whitespace-name-atpt
8814
:help " `ar-whitespace-name-atpt'
8815
Whitespace NAME at point if any, nil otherwise. "]
8816
8817
["Whitespace NUMBER at point" ar-whitespace-number-atpt
8818
:help " `ar-whitespace-number-atpt'
8819
Whitespace NUMBER at point if any, nil otherwise. "]
8820
8821
["Whitespace PAGE at point" ar-whitespace-page-atpt
8822
:help " `ar-whitespace-page-atpt'
8823
Whitespace PAGE at point if any, nil otherwise. "]
8824
8825
["Whitespace PARAGRAPH at point" ar-whitespace-paragraph-atpt
8826
:help " `ar-whitespace-paragraph-atpt'
8827
Whitespace PARAGRAPH at point if any, nil otherwise. "]
8828
8829
["Whitespace PAREN at point" ar-whitespace-paren-atpt
8830
:help " `ar-whitespace-paren-atpt'
8831
Whitespace PAREN at point if any, nil otherwise. "]
8832
8833
["Whitespace PHONE at point" ar-whitespace-phone-atpt
8834
:help " `ar-whitespace-phone-atpt'
8835
Whitespace PHONE at point if any, nil otherwise. "]
8836
8837
["Whitespace REGION at point" ar-whitespace-region-atpt
8838
:help " `ar-whitespace-region-atpt'
8839
Whitespace REGION at point if any, nil otherwise. "]
8840
8841
["Whitespace SENTENCE at point" ar-whitespace-sentence-atpt
8842
:help " `ar-whitespace-sentence-atpt'
8843
Whitespace SENTENCE at point if any, nil otherwise. "]
8844
8845
["Whitespace SEXP at point" ar-whitespace-sexp-atpt
8846
:help " `ar-whitespace-sexp-atpt'
8847
Whitespace SEXP at point if any, nil otherwise. "]
8848
8849
["Whitespace STRING at point" ar-whitespace-string-atpt
8850
:help " `ar-whitespace-string-atpt'
8851
Whitespace STRING at point if any, nil otherwise. "]
8852
8853
["Whitespace SH-STRUCT at point" ar-whitespace-sh-struct-atpt
8854
:help " `ar-whitespace-sh-struct-atpt'
8855
Whitespace SH-STRUCT at point if any, nil otherwise. "]
8856
8857
["Whitespace SYMBOL at point" ar-whitespace-symbol-atpt
8858
:help " `ar-whitespace-symbol-atpt'
8859
Whitespace SYMBOL at point if any, nil otherwise. "]
8860
8861
["Whitespace URL at point" ar-whitespace-url-atpt
8862
:help " `ar-whitespace-url-atpt'
8863
Whitespace URL at point if any, nil otherwise. "]
8864
8865
["Whitespace WORD at point" ar-whitespace-word-atpt
8866
:help " `ar-whitespace-word-atpt'
8867
Whitespace WORD at point if any, nil otherwise. "]
8868
8869
["Whitespace WORD-ALPHA-ONLY at point" ar-whitespace-word-alpha-only-atpt
8870
:help " `ar-whitespace-word-alpha-only-atpt'
8871
Whitespace WORD-ALPHA-ONLY at point if any, nil otherwise. "]
8872
8873
)
8874
8875
)
8876
8877
)
8878
("Move"
8879
("Forward"
8880
("Delimited"
8881
8882
["Forward BRACED at point" ar-forward-braced-atpt
8883
:help " `ar-forward-braced-atpt'
8884
Forward BRACED at point if any, nil otherwise. "]
8885
8886
["Forward BRACKETED at point" ar-forward-bracketed-atpt
8887
:help " `ar-forward-bracketed-atpt'
8888
Forward BRACKETED at point if any, nil otherwise. "]
8889
8890
["Forward PARENTIZED at point" ar-forward-parentized-atpt
8891
:help " `ar-forward-parentized-atpt'
8892
Forward PARENTIZED at point if any, nil otherwise. "]
8893
8894
["Forward DOUBLEQUOTED at point" ar-forward-doublequoted-atpt
8895
:help " `ar-forward-doublequoted-atpt'
8896
Forward DOUBLEQUOTED at point if any, nil otherwise. "]
8897
8898
["Forward SINGLEQUOTED at point" ar-forward-singlequoted-atpt
8899
:help " `ar-forward-singlequoted-atpt'
8900
Forward SINGLEQUOTED at point if any, nil otherwise. "]
8901
8902
["Forward TRIPLEQUOTED at point" ar-forward-triplequoted-atpt
8903
:help " `ar-forward-triplequoted-atpt'
8904
Forward TRIPLEQUOTED at point if any, nil otherwise. "]
8905
8906
["Forward LESSER-ANGLED at point" ar-forward-lesser-angled-atpt
8907
:help " `ar-forward-lesser-angled-atpt'
8908
Forward LESSER-ANGLED at point if any, nil otherwise. "]
8909
8910
"-"
8911
8912
["Forward TRIPLEQUOTED-DQ at point" ar-forward-triplequoted-dq-atpt
8913
:help " `ar-forward-triplequoted-dq-atpt'
8914
Forward TRIPLEQUOTED-DQ at point if any, nil otherwise. "]
8915
8916
["Forward TRIPLEQUOTE-SQ at point" ar-forward-triplequote-sq-atpt
8917
:help " `ar-forward-triplequote-sq-atpt'
8918
Forward TRIPLEQUOTE-SQ at point if any, nil otherwise. "]
8919
8920
["Forward GREATER-ANGLED at point" ar-forward-greater-angled-atpt
8921
:help " `ar-forward-greater-angled-atpt'
8922
Forward GREATER-ANGLED at point if any, nil otherwise. "]
8923
8924
["Forward LEFT-RIGHT-SINGLEQUOTED at point" ar-forward-left-right-singlequoted-atpt
8925
:help " `ar-forward-left-right-singlequoted-atpt'
8926
Forward LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
8927
8928
["Forward BACKSLASHED at point" ar-forward-backslashed-atpt
8929
:help " `ar-forward-backslashed-atpt'
8930
Forward BACKSLASHED at point if any, nil otherwise. "]
8931
8932
["Forward DOLLARED at point" ar-forward-dollared-atpt
8933
:help " `ar-forward-dollared-atpt'
8934
Forward DOLLARED at point if any, nil otherwise. "]
8935
8936
["Forward DOUBLEQUOTED at point" ar-forward-doublequoted-atpt
8937
:help " `ar-forward-doublequoted-atpt'
8938
Forward DOUBLEQUOTED at point if any, nil otherwise. "]
8939
8940
["Forward EQUALIZED at point" ar-forward-equalized-atpt
8941
:help " `ar-forward-equalized-atpt'
8942
Forward EQUALIZED at point if any, nil otherwise. "]
8943
8944
["Forward HYPHENED at point" ar-forward-hyphened-atpt
8945
:help " `ar-forward-hyphened-atpt'
8946
Forward HYPHENED at point if any, nil otherwise. "]
8947
8948
["Forward SINGLEQUOTED at point" ar-forward-singlequoted-atpt
8949
:help " `ar-forward-singlequoted-atpt'
8950
Forward SINGLEQUOTED at point if any, nil otherwise. "]
8951
8952
["Forward SLASHED at point" ar-forward-slashed-atpt
8953
:help " `ar-forward-slashed-atpt'
8954
Forward SLASHED at point if any, nil otherwise. "]
8955
8956
["Forward UNDERSCORED at point" ar-forward-underscored-atpt
8957
:help " `ar-forward-underscored-atpt'
8958
Forward UNDERSCORED at point if any, nil otherwise. "]
8959
8960
["Forward WHITESPACED at point" ar-forward-whitespaced-atpt
8961
:help " `ar-forward-whitespaced-atpt'
8962
Forward WHITESPACED at point if any, nil otherwise. "]
8963
8964
)
8965
("Character classes"
8966
8967
["Forward [:alnum:] char class at point" ar-forward-alnum-atpt
8968
:help " `ar-forward-alnum-atpt'
8969
Return end position of ALNUM at point if succesful, nil otherwise. "]
8970
8971
["Forward [:alpha:] char class at point" ar-forward-alpha-atpt
8972
:help " `ar-forward-alpha-atpt'
8973
Return end position of ALPHA at point if succesful, nil otherwise. "]
8974
8975
["Forward [:ascii:] char class at point" ar-forward-ascii-atpt
8976
:help " `ar-forward-ascii-atpt'
8977
Return end position of ASCII at point if succesful, nil otherwise. "]
8978
8979
["Forward [:blank:] char class at point" ar-forward-blank-atpt
8980
:help " `ar-forward-blank-atpt'
8981
Return end position of BLANK at point if succesful, nil otherwise. "]
8982
8983
["Forward [:cntrl:] char class at point" ar-forward-cntrl-atpt
8984
:help " `ar-forward-cntrl-atpt'
8985
Return end position of CNTRL at point if succesful, nil otherwise. "]
8986
8987
["Forward [:digit:] char class at point" ar-forward-digit-atpt
8988
:help " `ar-forward-digit-atpt'
8989
Return end position of DIGIT at point if succesful, nil otherwise. "]
8990
8991
["Forward [:graph:] char class at point" ar-forward-graph-atpt
8992
:help " `ar-forward-graph-atpt'
8993
Return end position of GRAPH at point if succesful, nil otherwise. "]
8994
8995
["Forward [:lower:] char class at point" ar-forward-lower-atpt
8996
:help " `ar-forward-lower-atpt'
8997
Return end position of LOWER at point if succesful, nil otherwise. "]
8998
8999
["Forward [:nonascii:] char class at point" ar-forward-nonascii-atpt
9000
:help " `ar-forward-nonascii-atpt'
9001
Return end position of NONASCII at point if succesful, nil otherwise. "]
9002
9003
["Forward [:print:] char class at point" ar-forward-print-atpt
9004
:help " `ar-forward-print-atpt'
9005
Return end position of PRINT at point if succesful, nil otherwise. "]
9006
9007
["Forward [:punct:] char class at point" ar-forward-punct-atpt
9008
:help " `ar-forward-punct-atpt'
9009
Return end position of PUNCT at point if succesful, nil otherwise. "]
9010
9011
["Forward [:space:] char class at point" ar-forward-space-atpt
9012
:help " `ar-forward-space-atpt'
9013
Return end position of SPACE at point if succesful, nil otherwise. "]
9014
9015
["Forward [:upper:] char class at point" ar-forward-upper-atpt
9016
:help " `ar-forward-upper-atpt'
9017
Return end position of UPPER at point if succesful, nil otherwise. "]
9018
9019
["Forward [:xdigit:] char class at point" ar-forward-xdigit-atpt
9020
:help " `ar-forward-xdigit-atpt'
9021
Return end position of XDIGIT at point if succesful, nil otherwise. "]
9022
9023
)
9024
("Other"
9025
9026
["Forward ANGLED-NO-NEST at point" ar-forward-angled-no-nest-atpt
9027
:help " `ar-forward-angled-no-nest-atpt'
9028
Return end position of ANGLED-NO-NEST at point if succesful, nil otherwise. "]
9029
9030
["Forward GREATER-ANGLED-NESTED at point" ar-forward-greater-angled-nested-atpt
9031
:help " `ar-forward-greater-angled-nested-atpt'
9032
Return end position of GREATER-ANGLED-NESTED at point if succesful, nil otherwise. "]
9033
9034
["Forward LESSER-ANGLED-NESTED at point" ar-forward-lesser-angled-nested-atpt
9035
:help " `ar-forward-lesser-angled-nested-atpt'
9036
Return end position of LESSER-ANGLED-NESTED at point if succesful, nil otherwise. "]
9037
9038
["Forward BUFFER at point" ar-forward-buffer-atpt
9039
:help " `ar-forward-buffer-atpt'
9040
Return end position of BUFFER at point if succesful, nil otherwise. "]
9041
9042
["Forward COMMENT at point" ar-forward-comment-atpt
9043
:help " `ar-forward-comment-atpt'
9044
Return end position of COMMENT at point if succesful, nil otherwise. "]
9045
9046
["Forward CSV at point" ar-forward-csv-atpt
9047
:help " `ar-forward-csv-atpt'
9048
Return end position of CSV at point if succesful, nil otherwise. "]
9049
9050
["Forward DATE at point" ar-forward-date-atpt
9051
:help " `ar-forward-date-atpt'
9052
Return end position of DATE at point if succesful, nil otherwise. "]
9053
9054
["Forward DEFUN at point" ar-forward-defun-atpt
9055
:help " `ar-forward-defun-atpt'
9056
Return end position of DEFUN at point if succesful, nil otherwise. "]
9057
9058
["Forward DELIMITED at point" ar-forward-delimited-atpt
9059
:help " `ar-forward-delimited-atpt'
9060
Return end position of DELIMITED at point if succesful, nil otherwise. "]
9061
9062
["Forward EMAIL at point" ar-forward-email-atpt
9063
:help " `ar-forward-email-atpt'
9064
Return end position of EMAIL at point if succesful, nil otherwise. "]
9065
9066
["Forward FILENAME at point" ar-forward-filename-atpt
9067
:help " `ar-forward-filename-atpt'
9068
Return end position of FILENAME at point if succesful, nil otherwise. "]
9069
9070
["Forward FLOAT at point" ar-forward-float-atpt
9071
:help " `ar-forward-float-atpt'
9072
Return end position of FLOAT at point if succesful, nil otherwise. "]
9073
9074
["Forward FUNCTION at point" ar-forward-function-atpt
9075
:help " `ar-forward-function-atpt'
9076
Return end position of FUNCTION at point if succesful, nil otherwise. "]
9077
9078
["Forward IP at point" ar-forward-ip-atpt
9079
:help " `ar-forward-ip-atpt'
9080
Return end position of IP at point if succesful, nil otherwise. "]
9081
9082
["Forward ISBN at point" ar-forward-isbn-atpt
9083
:help " `ar-forward-isbn-atpt'
9084
Return end position of ISBN at point if succesful, nil otherwise. "]
9085
9086
["Forward LINE at point" ar-forward-line-atpt
9087
:help " `ar-forward-line-atpt'
9088
Return end position of LINE at point if succesful, nil otherwise. "]
9089
9090
["Forward NAME at point" ar-forward-name-atpt
9091
:help " `ar-forward-name-atpt'
9092
Return end position of NAME at point if succesful, nil otherwise. "]
9093
9094
["Forward NUMBER at point" ar-forward-number-atpt
9095
:help " `ar-forward-number-atpt'
9096
Return end position of NUMBER at point if succesful, nil otherwise. "]
9097
9098
["Forward PAGE at point" ar-forward-page-atpt
9099
:help " `ar-forward-page-atpt'
9100
Return end position of PAGE at point if succesful, nil otherwise. "]
9101
9102
["Forward PARAGRAPH at point" ar-forward-paragraph-atpt
9103
:help " `ar-forward-paragraph-atpt'
9104
Return end position of PARAGRAPH at point if succesful, nil otherwise. "]
9105
9106
["Forward PAREN at point" ar-forward-paren-atpt
9107
:help " `ar-forward-paren-atpt'
9108
Return end position of PAREN at point if succesful, nil otherwise. "]
9109
9110
["Forward PHONE at point" ar-forward-phone-atpt
9111
:help " `ar-forward-phone-atpt'
9112
Return end position of PHONE at point if succesful, nil otherwise. "]
9113
9114
["Forward REGION at point" ar-forward-region-atpt
9115
:help " `ar-forward-region-atpt'
9116
Return end position of REGION at point if succesful, nil otherwise. "]
9117
9118
["Forward SENTENCE at point" ar-forward-sentence-atpt
9119
:help " `ar-forward-sentence-atpt'
9120
Return end position of SENTENCE at point if succesful, nil otherwise. "]
9121
9122
["Forward SEXP at point" ar-forward-sexp-atpt
9123
:help " `ar-forward-sexp-atpt'
9124
Return end position of SEXP at point if succesful, nil otherwise. "]
9125
9126
["Forward STRING at point" ar-forward-string-atpt
9127
:help " `ar-forward-string-atpt'
9128
Return end position of STRING at point if succesful, nil otherwise. "]
9129
9130
["Forward SH-STRUCT at point" ar-forward-sh-struct-atpt
9131
:help " `ar-forward-sh-struct-atpt'
9132
Return end position of SH-STRUCT at point if succesful, nil otherwise. "]
9133
9134
["Forward SYMBOL at point" ar-forward-symbol-atpt
9135
:help " `ar-forward-symbol-atpt'
9136
Return end position of SYMBOL at point if succesful, nil otherwise. "]
9137
9138
["Forward URL at point" ar-forward-url-atpt
9139
:help " `ar-forward-url-atpt'
9140
Return end position of URL at point if succesful, nil otherwise. "]
9141
9142
["Forward WORD at point" ar-forward-word-atpt
9143
:help " `ar-forward-word-atpt'
9144
Return end position of WORD at point if succesful, nil otherwise. "]
9145
9146
["Forward WORD-ALPHA-ONLY at point" ar-forward-word-alpha-only-atpt
9147
:help " `ar-forward-word-alpha-only-atpt'
9148
Return end position of WORD-ALPHA-ONLY at point if succesful, nil otherwise. "]
9149
9150
)
9151
9152
)
9153
("Backward"
9154
("Delimited-1"
9155
9156
["Backward BRACED at point" ar-backward-braced-atpt
9157
:help " `ar-backward-braced-atpt'
9158
Backward BRACED at point if any, nil otherwise. "]
9159
9160
["Backward BRACKETED at point" ar-backward-bracketed-atpt
9161
:help " `ar-backward-bracketed-atpt'
9162
Backward BRACKETED at point if any, nil otherwise. "]
9163
9164
["Backward PARENTIZED at point" ar-backward-parentized-atpt
9165
:help " `ar-backward-parentized-atpt'
9166
Backward PARENTIZED at point if any, nil otherwise. "]
9167
9168
["Backward DOUBLEQUOTED at point" ar-backward-doublequoted-atpt
9169
:help " `ar-backward-doublequoted-atpt'
9170
Backward DOUBLEQUOTED at point if any, nil otherwise. "]
9171
9172
["Backward SINGLEQUOTED at point" ar-backward-singlequoted-atpt
9173
:help " `ar-backward-singlequoted-atpt'
9174
Backward SINGLEQUOTED at point if any, nil otherwise. "]
9175
9176
["Backward TRIPLEQUOTED at point" ar-backward-triplequoted-atpt
9177
:help " `ar-backward-triplequoted-atpt'
9178
Backward TRIPLEQUOTED at point if any, nil otherwise. "]
9179
9180
["Backward LESSER-ANGLED at point" ar-backward-lesser-angled-atpt
9181
:help " `ar-backward-lesser-angled-atpt'
9182
Backward LESSER-ANGLED at point if any, nil otherwise. "]
9183
9184
)
9185
("Delimited-2"
9186
9187
["Backward TRIPLEQUOTED-DQ at point" ar-backward-triplequoted-dq-atpt
9188
:help " `ar-backward-triplequoted-dq-atpt'
9189
Backward TRIPLEQUOTED-DQ at point if any, nil otherwise. "]
9190
9191
["Backward TRIPLEQUOTE-SQ at point" ar-backward-triplequote-sq-atpt
9192
:help " `ar-backward-triplequote-sq-atpt'
9193
Backward TRIPLEQUOTE-SQ at point if any, nil otherwise. "]
9194
9195
["Backward GREATER-ANGLED at point" ar-backward-greater-angled-atpt
9196
:help " `ar-backward-greater-angled-atpt'
9197
Backward GREATER-ANGLED at point if any, nil otherwise. "]
9198
9199
["Backward LEFT-RIGHT-SINGLEQUOTED at point" ar-backward-left-right-singlequoted-atpt
9200
:help " `ar-backward-left-right-singlequoted-atpt'
9201
Backward LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
9202
9203
["Backward BACKSLASHED at point" ar-backward-backslashed-atpt
9204
:help " `ar-backward-backslashed-atpt'
9205
Backward BACKSLASHED at point if any, nil otherwise. "]
9206
9207
["Backward DOLLARED at point" ar-backward-dollared-atpt
9208
:help " `ar-backward-dollared-atpt'
9209
Backward DOLLARED at point if any, nil otherwise. "]
9210
9211
["Backward DOUBLEQUOTED at point" ar-backward-doublequoted-atpt
9212
:help " `ar-backward-doublequoted-atpt'
9213
Backward DOUBLEQUOTED at point if any, nil otherwise. "]
9214
9215
["Backward EQUALIZED at point" ar-backward-equalized-atpt
9216
:help " `ar-backward-equalized-atpt'
9217
Backward EQUALIZED at point if any, nil otherwise. "]
9218
9219
["Backward HYPHENED at point" ar-backward-hyphened-atpt
9220
:help " `ar-backward-hyphened-atpt'
9221
Backward HYPHENED at point if any, nil otherwise. "]
9222
9223
["Backward SINGLEQUOTED at point" ar-backward-singlequoted-atpt
9224
:help " `ar-backward-singlequoted-atpt'
9225
Backward SINGLEQUOTED at point if any, nil otherwise. "]
9226
9227
["Backward SLASHED at point" ar-backward-slashed-atpt
9228
:help " `ar-backward-slashed-atpt'
9229
Backward SLASHED at point if any, nil otherwise. "]
9230
9231
["Backward UNDERSCORED at point" ar-backward-underscored-atpt
9232
:help " `ar-backward-underscored-atpt'
9233
Backward UNDERSCORED at point if any, nil otherwise. "]
9234
9235
["Backward WHITESPACED at point" ar-backward-whitespaced-atpt
9236
:help " `ar-backward-whitespaced-atpt'
9237
Backward WHITESPACED at point if any, nil otherwise. "]
9238
9239
)
9240
("Character classes"
9241
9242
["Backward [:alnum:] char class at point" ar-backward-alnum-atpt
9243
:help " `ar-backward-alnum-atpt'
9244
Return beginning position of ALNUM at point if succesful, nil otherwise. "]
9245
9246
["Backward [:alpha:] char class at point" ar-backward-alpha-atpt
9247
:help " `ar-backward-alpha-atpt'
9248
Return beginning position of ALPHA at point if succesful, nil otherwise. "]
9249
9250
["Backward [:ascii:] char class at point" ar-backward-ascii-atpt
9251
:help " `ar-backward-ascii-atpt'
9252
Return beginning position of ASCII at point if succesful, nil otherwise. "]
9253
9254
["Backward [:blank:] char class at point" ar-backward-blank-atpt
9255
:help " `ar-backward-blank-atpt'
9256
Return beginning position of BLANK at point if succesful, nil otherwise. "]
9257
9258
["Backward [:cntrl:] char class at point" ar-backward-cntrl-atpt
9259
:help " `ar-backward-cntrl-atpt'
9260
Return beginning position of CNTRL at point if succesful, nil otherwise. "]
9261
9262
["Backward [:digit:] char class at point" ar-backward-digit-atpt
9263
:help " `ar-backward-digit-atpt'
9264
Return beginning position of DIGIT at point if succesful, nil otherwise. "]
9265
9266
["Backward [:graph:] char class at point" ar-backward-graph-atpt
9267
:help " `ar-backward-graph-atpt'
9268
Return beginning position of GRAPH at point if succesful, nil otherwise. "]
9269
9270
["Backward [:lower:] char class at point" ar-backward-lower-atpt
9271
:help " `ar-backward-lower-atpt'
9272
Return beginning position of LOWER at point if succesful, nil otherwise. "]
9273
9274
["Backward [:nonascii:] char class at point" ar-backward-nonascii-atpt
9275
:help " `ar-backward-nonascii-atpt'
9276
Return beginning position of NONASCII at point if succesful, nil otherwise. "]
9277
9278
["Backward [:print:] char class at point" ar-backward-print-atpt
9279
:help " `ar-backward-print-atpt'
9280
Return beginning position of PRINT at point if succesful, nil otherwise. "]
9281
9282
["Backward [:punct:] char class at point" ar-backward-punct-atpt
9283
:help " `ar-backward-punct-atpt'
9284
Return beginning position of PUNCT at point if succesful, nil otherwise. "]
9285
9286
["Backward [:space:] char class at point" ar-backward-space-atpt
9287
:help " `ar-backward-space-atpt'
9288
Return beginning position of SPACE at point if succesful, nil otherwise. "]
9289
9290
["Backward [:upper:] char class at point" ar-backward-upper-atpt
9291
:help " `ar-backward-upper-atpt'
9292
Return beginning position of UPPER at point if succesful, nil otherwise. "]
9293
9294
["Backward [:xdigit:] char class at point" ar-backward-xdigit-atpt
9295
:help " `ar-backward-xdigit-atpt'
9296
Return beginning position of XDIGIT at point if succesful, nil otherwise. "]
9297
9298
)
9299
("Other"
9300
9301
["Backward ANGLED-NO-NEST at point" ar-backward-angled-no-nest-atpt
9302
:help " `ar-backward-angled-no-nest-atpt'
9303
Return beginning position of ANGLED-NO-NEST at point if succesful, nil otherwise. "]
9304
9305
["Backward GREATER-ANGLED-NESTED at point" ar-backward-greater-angled-nested-atpt
9306
:help " `ar-backward-greater-angled-nested-atpt'
9307
Return beginning position of GREATER-ANGLED-NESTED at point if succesful, nil otherwise. "]
9308
9309
["Backward LESSER-ANGLED-NESTED at point" ar-backward-lesser-angled-nested-atpt
9310
:help " `ar-backward-lesser-angled-nested-atpt'
9311
Return beginning position of LESSER-ANGLED-NESTED at point if succesful, nil otherwise. "]
9312
9313
["Backward BUFFER at point" ar-backward-buffer-atpt
9314
:help " `ar-backward-buffer-atpt'
9315
Return beginning position of BUFFER at point if succesful, nil otherwise. "]
9316
9317
["Backward COMMENT at point" ar-backward-comment-atpt
9318
:help " `ar-backward-comment-atpt'
9319
Return beginning position of COMMENT at point if succesful, nil otherwise. "]
9320
9321
["Backward CSV at point" ar-backward-csv-atpt
9322
:help " `ar-backward-csv-atpt'
9323
Return beginning position of CSV at point if succesful, nil otherwise. "]
9324
9325
["Backward DATE at point" ar-backward-date-atpt
9326
:help " `ar-backward-date-atpt'
9327
Return beginning position of DATE at point if succesful, nil otherwise. "]
9328
9329
["Backward DEFUN at point" ar-backward-defun-atpt
9330
:help " `ar-backward-defun-atpt'
9331
Return beginning position of DEFUN at point if succesful, nil otherwise. "]
9332
9333
["Backward DELIMITED at point" ar-backward-delimited-atpt
9334
:help " `ar-backward-delimited-atpt'
9335
Return beginning position of DELIMITED at point if succesful, nil otherwise. "]
9336
9337
["Backward EMAIL at point" ar-backward-email-atpt
9338
:help " `ar-backward-email-atpt'
9339
Return beginning position of EMAIL at point if succesful, nil otherwise. "]
9340
9341
["Backward FILENAME at point" ar-backward-filename-atpt
9342
:help " `ar-backward-filename-atpt'
9343
Return beginning position of FILENAME at point if succesful, nil otherwise. "]
9344
9345
["Backward FLOAT at point" ar-backward-float-atpt
9346
:help " `ar-backward-float-atpt'
9347
Return beginning position of FLOAT at point if succesful, nil otherwise. "]
9348
9349
["Backward FUNCTION at point" ar-backward-function-atpt
9350
:help " `ar-backward-function-atpt'
9351
Return beginning position of FUNCTION at point if succesful, nil otherwise. "]
9352
9353
["Backward IP at point" ar-backward-ip-atpt
9354
:help " `ar-backward-ip-atpt'
9355
Return beginning position of IP at point if succesful, nil otherwise. "]
9356
9357
["Backward ISBN at point" ar-backward-isbn-atpt
9358
:help " `ar-backward-isbn-atpt'
9359
Return beginning position of ISBN at point if succesful, nil otherwise. "]
9360
9361
["Backward LINE at point" ar-backward-line-atpt
9362
:help " `ar-backward-line-atpt'
9363
Return beginning position of LINE at point if succesful, nil otherwise. "]
9364
9365
["Backward NAME at point" ar-backward-name-atpt
9366
:help " `ar-backward-name-atpt'
9367
Return beginning position of NAME at point if succesful, nil otherwise. "]
9368
9369
["Backward NUMBER at point" ar-backward-number-atpt
9370
:help " `ar-backward-number-atpt'
9371
Return beginning position of NUMBER at point if succesful, nil otherwise. "]
9372
9373
["Backward PAGE at point" ar-backward-page-atpt
9374
:help " `ar-backward-page-atpt'
9375
Return beginning position of PAGE at point if succesful, nil otherwise. "]
9376
9377
["Backward PARAGRAPH at point" ar-backward-paragraph-atpt
9378
:help " `ar-backward-paragraph-atpt'
9379
Return beginning position of PARAGRAPH at point if succesful, nil otherwise. "]
9380
9381
["Backward PAREN at point" ar-backward-paren-atpt
9382
:help " `ar-backward-paren-atpt'
9383
Return beginning position of PAREN at point if succesful, nil otherwise. "]
9384
9385
["Backward PHONE at point" ar-backward-phone-atpt
9386
:help " `ar-backward-phone-atpt'
9387
Return beginning position of PHONE at point if succesful, nil otherwise. "]
9388
9389
["Backward REGION at point" ar-backward-region-atpt
9390
:help " `ar-backward-region-atpt'
9391
Return beginning position of REGION at point if succesful, nil otherwise. "]
9392
9393
["Backward SENTENCE at point" ar-backward-sentence-atpt
9394
:help " `ar-backward-sentence-atpt'
9395
Return beginning position of SENTENCE at point if succesful, nil otherwise. "]
9396
9397
["Backward SEXP at point" ar-backward-sexp-atpt
9398
:help " `ar-backward-sexp-atpt'
9399
Return beginning position of SEXP at point if succesful, nil otherwise. "]
9400
9401
["Backward STRING at point" ar-backward-string-atpt
9402
:help " `ar-backward-string-atpt'
9403
Return beginning position of STRING at point if succesful, nil otherwise. "]
9404
9405
["Backward SH-STRUCT at point" ar-backward-sh-struct-atpt
9406
:help " `ar-backward-sh-struct-atpt'
9407
Return beginning position of SH-STRUCT at point if succesful, nil otherwise. "]
9408
9409
["Backward SYMBOL at point" ar-backward-symbol-atpt
9410
:help " `ar-backward-symbol-atpt'
9411
Return beginning position of SYMBOL at point if succesful, nil otherwise. "]
9412
9413
["Backward URL at point" ar-backward-url-atpt
9414
:help " `ar-backward-url-atpt'
9415
Return beginning position of URL at point if succesful, nil otherwise. "]
9416
9417
["Backward WORD at point" ar-backward-word-atpt
9418
:help " `ar-backward-word-atpt'
9419
Return beginning position of WORD at point if succesful, nil otherwise. "]
9420
9421
["Backward WORD-ALPHA-ONLY at point" ar-backward-word-alpha-only-atpt
9422
:help " `ar-backward-word-alpha-only-atpt'
9423
Return beginning position of WORD-ALPHA-ONLY at point if succesful, nil otherwise. "]
9424
9425
)
9426
9427
)
9428
("End"
9429
("Delimited-1"
9430
9431
["End of BRACED at point" ar-end-of-braced-atpt
9432
:help " `ar-end-of-braced-atpt'
9433
End of BRACED at point if any, nil otherwise. "]
9434
9435
["End of BRACKETED at point" ar-end-of-bracketed-atpt
9436
:help " `ar-end-of-bracketed-atpt'
9437
End of BRACKETED at point if any, nil otherwise. "]
9438
9439
["End of PARENTIZED at point" ar-end-of-parentized-atpt
9440
:help " `ar-end-of-parentized-atpt'
9441
End of PARENTIZED at point if any, nil otherwise. "]
9442
9443
["End of DOUBLEQUOTED at point" ar-end-of-doublequoted-atpt
9444
:help " `ar-end-of-doublequoted-atpt'
9445
End of DOUBLEQUOTED at point if any, nil otherwise. "]
9446
9447
["End of SINGLEQUOTED at point" ar-end-of-singlequoted-atpt
9448
:help " `ar-end-of-singlequoted-atpt'
9449
End of SINGLEQUOTED at point if any, nil otherwise. "]
9450
9451
["End of TRIPLEQUOTED at point" ar-end-of-triplequoted-atpt
9452
:help " `ar-end-of-triplequoted-atpt'
9453
End of TRIPLEQUOTED at point if any, nil otherwise. "]
9454
9455
["End of LESSER-ANGLED at point" ar-end-of-lesser-angled-atpt
9456
:help " `ar-end-of-lesser-angled-atpt'
9457
End of LESSER-ANGLED at point if any, nil otherwise. "]
9458
9459
)
9460
("Delimited-2"
9461
9462
["End of TRIPLEQUOTED-DQ at point" ar-end-of-triplequoted-dq-atpt
9463
:help " `ar-end-of-triplequoted-dq-atpt'
9464
End of TRIPLEQUOTED-DQ at point if any, nil otherwise. "]
9465
9466
["End of TRIPLEQUOTE-SQ at point" ar-end-of-triplequote-sq-atpt
9467
:help " `ar-end-of-triplequote-sq-atpt'
9468
End of TRIPLEQUOTE-SQ at point if any, nil otherwise. "]
9469
9470
["End of GREATER-ANGLED at point" ar-end-of-greater-angled-atpt
9471
:help " `ar-end-of-greater-angled-atpt'
9472
End of GREATER-ANGLED at point if any, nil otherwise. "]
9473
9474
["End of LEFT-RIGHT-SINGLEQUOTED at point" ar-end-of-left-right-singlequoted-atpt
9475
:help " `ar-end-of-left-right-singlequoted-atpt'
9476
End of LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
9477
9478
["End of BACKSLASHED at point" ar-end-of-backslashed-atpt
9479
:help " `ar-end-of-backslashed-atpt'
9480
End of BACKSLASHED at point if any, nil otherwise. "]
9481
9482
["End of DOLLARED at point" ar-end-of-dollared-atpt
9483
:help " `ar-end-of-dollared-atpt'
9484
End of DOLLARED at point if any, nil otherwise. "]
9485
9486
["End of DOUBLEQUOTED at point" ar-end-of-doublequoted-atpt
9487
:help " `ar-end-of-doublequoted-atpt'
9488
End of DOUBLEQUOTED at point if any, nil otherwise. "]
9489
9490
["End of EQUALIZED at point" ar-end-of-equalized-atpt
9491
:help " `ar-end-of-equalized-atpt'
9492
End of EQUALIZED at point if any, nil otherwise. "]
9493
9494
["End of HYPHENED at point" ar-end-of-hyphened-atpt
9495
:help " `ar-end-of-hyphened-atpt'
9496
End of HYPHENED at point if any, nil otherwise. "]
9497
9498
["End of SINGLEQUOTED at point" ar-end-of-singlequoted-atpt
9499
:help " `ar-end-of-singlequoted-atpt'
9500
End of SINGLEQUOTED at point if any, nil otherwise. "]
9501
9502
["End of SLASHED at point" ar-end-of-slashed-atpt
9503
:help " `ar-end-of-slashed-atpt'
9504
End of SLASHED at point if any, nil otherwise. "]
9505
9506
["End of UNDERSCORED at point" ar-end-of-underscored-atpt
9507
:help " `ar-end-of-underscored-atpt'
9508
End of UNDERSCORED at point if any, nil otherwise. "]
9509
9510
["End of WHITESPACED at point" ar-end-of-whitespaced-atpt
9511
:help " `ar-end-of-whitespaced-atpt'
9512
End of WHITESPACED at point if any, nil otherwise. "]
9513
9514
)
9515
("Character classes"
9516
9517
["End of [:alnum:] char class at point" ar-end-of-alnum-atpt
9518
:help " `ar-end-of-alnum-atpt'
9519
Return end position of ALNUM at point if succesful, nil otherwise. "]
9520
9521
["End of [:alpha:] char class at point" ar-end-of-alpha-atpt
9522
:help " `ar-end-of-alpha-atpt'
9523
Return end position of ALPHA at point if succesful, nil otherwise. "]
9524
9525
["End of [:ascii:] char class at point" ar-end-of-ascii-atpt
9526
:help " `ar-end-of-ascii-atpt'
9527
Return end position of ASCII at point if succesful, nil otherwise. "]
9528
9529
["End of [:blank:] char class at point" ar-end-of-blank-atpt
9530
:help " `ar-end-of-blank-atpt'
9531
Return end position of BLANK at point if succesful, nil otherwise. "]
9532
9533
["End of [:cntrl:] char class at point" ar-end-of-cntrl-atpt
9534
:help " `ar-end-of-cntrl-atpt'
9535
Return end position of CNTRL at point if succesful, nil otherwise. "]
9536
9537
["End of [:digit:] char class at point" ar-end-of-digit-atpt
9538
:help " `ar-end-of-digit-atpt'
9539
Return end position of DIGIT at point if succesful, nil otherwise. "]
9540
9541
["End of [:graph:] char class at point" ar-end-of-graph-atpt
9542
:help " `ar-end-of-graph-atpt'
9543
Return end position of GRAPH at point if succesful, nil otherwise. "]
9544
9545
["End of [:lower:] char class at point" ar-end-of-lower-atpt
9546
:help " `ar-end-of-lower-atpt'
9547
Return end position of LOWER at point if succesful, nil otherwise. "]
9548
9549
["End of [:nonascii:] char class at point" ar-end-of-nonascii-atpt
9550
:help " `ar-end-of-nonascii-atpt'
9551
Return end position of NONASCII at point if succesful, nil otherwise. "]
9552
9553
["End of [:print:] char class at point" ar-end-of-print-atpt
9554
:help " `ar-end-of-print-atpt'
9555
Return end position of PRINT at point if succesful, nil otherwise. "]
9556
9557
["End of [:punct:] char class at point" ar-end-of-punct-atpt
9558
:help " `ar-end-of-punct-atpt'
9559
Return end position of PUNCT at point if succesful, nil otherwise. "]
9560
9561
["End of [:space:] char class at point" ar-end-of-space-atpt
9562
:help " `ar-end-of-space-atpt'
9563
Return end position of SPACE at point if succesful, nil otherwise. "]
9564
9565
["End of [:upper:] char class at point" ar-end-of-upper-atpt
9566
:help " `ar-end-of-upper-atpt'
9567
Return end position of UPPER at point if succesful, nil otherwise. "]
9568
9569
["End of [:xdigit:] char class at point" ar-end-of-xdigit-atpt
9570
:help " `ar-end-of-xdigit-atpt'
9571
Return end position of XDIGIT at point if succesful, nil otherwise. "]
9572
9573
)
9574
("Other"
9575
9576
["Forward ANGLED-NO-NEST at point" ar-end-of-angled-no-nest-atpt
9577
:help " `ar-end-of-angled-no-nest-atpt'
9578
Return end position of ANGLED-NO-NEST at point if succesful, nil otherwise. "]
9579
9580
["Forward GREATER-ANGLED-NESTED at point" ar-end-of-greater-angled-nested-atpt
9581
:help " `ar-end-of-greater-angled-nested-atpt'
9582
Return end position of GREATER-ANGLED-NESTED at point if succesful, nil otherwise. "]
9583
9584
["Forward LESSER-ANGLED-NESTED at point" ar-end-of-lesser-angled-nested-atpt
9585
:help " `ar-end-of-lesser-angled-nested-atpt'
9586
Return end position of LESSER-ANGLED-NESTED at point if succesful, nil otherwise. "]
9587
9588
["Forward BUFFER at point" ar-end-of-buffer-atpt
9589
:help " `ar-end-of-buffer-atpt'
9590
Return end position of BUFFER at point if succesful, nil otherwise. "]
9591
9592
["Forward COMMENT at point" ar-end-of-comment-atpt
9593
:help " `ar-end-of-comment-atpt'
9594
Return end position of COMMENT at point if succesful, nil otherwise. "]
9595
9596
["Forward CSV at point" ar-end-of-csv-atpt
9597
:help " `ar-end-of-csv-atpt'
9598
Return end position of CSV at point if succesful, nil otherwise. "]
9599
9600
["Forward DATE at point" ar-end-of-date-atpt
9601
:help " `ar-end-of-date-atpt'
9602
Return end position of DATE at point if succesful, nil otherwise. "]
9603
9604
["Forward DEFUN at point" ar-end-of-defun-atpt
9605
:help " `ar-end-of-defun-atpt'
9606
Return end position of DEFUN at point if succesful, nil otherwise. "]
9607
9608
["Forward DELIMITED at point" ar-end-of-delimited-atpt
9609
:help " `ar-end-of-delimited-atpt'
9610
Return end position of DELIMITED at point if succesful, nil otherwise. "]
9611
9612
["Forward EMAIL at point" ar-end-of-email-atpt
9613
:help " `ar-end-of-email-atpt'
9614
Return end position of EMAIL at point if succesful, nil otherwise. "]
9615
9616
["Forward FILENAME at point" ar-end-of-filename-atpt
9617
:help " `ar-end-of-filename-atpt'
9618
Return end position of FILENAME at point if succesful, nil otherwise. "]
9619
9620
["Forward FLOAT at point" ar-end-of-float-atpt
9621
:help " `ar-end-of-float-atpt'
9622
Return end position of FLOAT at point if succesful, nil otherwise. "]
9623
9624
["Forward FUNCTION at point" ar-end-of-function-atpt
9625
:help " `ar-end-of-function-atpt'
9626
Return end position of FUNCTION at point if succesful, nil otherwise. "]
9627
9628
["Forward IP at point" ar-end-of-ip-atpt
9629
:help " `ar-end-of-ip-atpt'
9630
Return end position of IP at point if succesful, nil otherwise. "]
9631
9632
["Forward ISBN at point" ar-end-of-isbn-atpt
9633
:help " `ar-end-of-isbn-atpt'
9634
Return end position of ISBN at point if succesful, nil otherwise. "]
9635
9636
["Forward LINE at point" ar-end-of-line-atpt
9637
:help " `ar-end-of-line-atpt'
9638
Return end position of LINE at point if succesful, nil otherwise. "]
9639
9640
["Forward NAME at point" ar-end-of-name-atpt
9641
:help " `ar-end-of-name-atpt'
9642
Return end position of NAME at point if succesful, nil otherwise. "]
9643
9644
["Forward NUMBER at point" ar-end-of-number-atpt
9645
:help " `ar-end-of-number-atpt'
9646
Return end position of NUMBER at point if succesful, nil otherwise. "]
9647
9648
["Forward PAGE at point" ar-end-of-page-atpt
9649
:help " `ar-end-of-page-atpt'
9650
Return end position of PAGE at point if succesful, nil otherwise. "]
9651
9652
["Forward PARAGRAPH at point" ar-end-of-paragraph-atpt
9653
:help " `ar-end-of-paragraph-atpt'
9654
Return end position of PARAGRAPH at point if succesful, nil otherwise. "]
9655
9656
["Forward PAREN at point" ar-end-of-paren-atpt
9657
:help " `ar-end-of-paren-atpt'
9658
Return end position of PAREN at point if succesful, nil otherwise. "]
9659
9660
["Forward PHONE at point" ar-end-of-phone-atpt
9661
:help " `ar-end-of-phone-atpt'
9662
Return end position of PHONE at point if succesful, nil otherwise. "]
9663
9664
["Forward REGION at point" ar-end-of-region-atpt
9665
:help " `ar-end-of-region-atpt'
9666
Return end position of REGION at point if succesful, nil otherwise. "]
9667
9668
["Forward SENTENCE at point" ar-end-of-sentence-atpt
9669
:help " `ar-end-of-sentence-atpt'
9670
Return end position of SENTENCE at point if succesful, nil otherwise. "]
9671
9672
["Forward SEXP at point" ar-end-of-sexp-atpt
9673
:help " `ar-end-of-sexp-atpt'
9674
Return end position of SEXP at point if succesful, nil otherwise. "]
9675
9676
["Forward STRING at point" ar-end-of-string-atpt
9677
:help " `ar-end-of-string-atpt'
9678
Return end position of STRING at point if succesful, nil otherwise. "]
9679
9680
["Forward SH-STRUCT at point" ar-end-of-sh-struct-atpt
9681
:help " `ar-end-of-sh-struct-atpt'
9682
Return end position of SH-STRUCT at point if succesful, nil otherwise. "]
9683
9684
["Forward SYMBOL at point" ar-end-of-symbol-atpt
9685
:help " `ar-end-of-symbol-atpt'
9686
Return end position of SYMBOL at point if succesful, nil otherwise. "]
9687
9688
["Forward URL at point" ar-end-of-url-atpt
9689
:help " `ar-end-of-url-atpt'
9690
Return end position of URL at point if succesful, nil otherwise. "]
9691
9692
["Forward WORD at point" ar-end-of-word-atpt
9693
:help " `ar-end-of-word-atpt'
9694
Return end position of WORD at point if succesful, nil otherwise. "]
9695
9696
["Forward WORD-ALPHA-ONLY at point" ar-end-of-word-alpha-only-atpt
9697
:help " `ar-end-of-word-alpha-only-atpt'
9698
Return end position of WORD-ALPHA-ONLY at point if succesful, nil otherwise. "]
9699
9700
)
9701
9702
)
9703
("Beginning"
9704
("Delimited-1"
9705
9706
["Beginning of BRACED at point" ar-beginning-of-braced-atpt
9707
:help " `ar-beginning-of-braced-atpt'
9708
Beginning of BRACED at point if any, nil otherwise. "]
9709
9710
["Beginning of BRACKETED at point" ar-beginning-of-bracketed-atpt
9711
:help " `ar-beginning-of-bracketed-atpt'
9712
Beginning of BRACKETED at point if any, nil otherwise. "]
9713
9714
["Beginning of PARENTIZED at point" ar-beginning-of-parentized-atpt
9715
:help " `ar-beginning-of-parentized-atpt'
9716
Beginning of PARENTIZED at point if any, nil otherwise. "]
9717
9718
["Beginning of DOUBLEQUOTED at point" ar-beginning-of-doublequoted-atpt
9719
:help " `ar-beginning-of-doublequoted-atpt'
9720
Beginning of DOUBLEQUOTED at point if any, nil otherwise. "]
9721
9722
["Beginning of SINGLEQUOTED at point" ar-beginning-of-singlequoted-atpt
9723
:help " `ar-beginning-of-singlequoted-atpt'
9724
Beginning of SINGLEQUOTED at point if any, nil otherwise. "]
9725
9726
["Beginning of TRIPLEQUOTED at point" ar-beginning-of-triplequoted-atpt
9727
:help " `ar-beginning-of-triplequoted-atpt'
9728
Beginning of TRIPLEQUOTED at point if any, nil otherwise. "]
9729
9730
["Beginning of LESSER-ANGLED at point" ar-beginning-of-lesser-angled-atpt
9731
:help " `ar-beginning-of-lesser-angled-atpt'
9732
Beginning of LESSER-ANGLED at point if any, nil otherwise. "]
9733
9734
)
9735
("Delimited-2"
9736
9737
["Beginning of TRIPLEQUOTED-DQ at point" ar-beginning-of-triplequoted-dq-atpt
9738
:help " `ar-beginning-of-triplequoted-dq-atpt'
9739
Beginning of TRIPLEQUOTED-DQ at point if any, nil otherwise. "]
9740
9741
["Beginning of TRIPLEQUOTE-SQ at point" ar-beginning-of-triplequote-sq-atpt
9742
:help " `ar-beginning-of-triplequote-sq-atpt'
9743
Beginning of TRIPLEQUOTE-SQ at point if any, nil otherwise. "]
9744
9745
["Beginning of GREATER-ANGLED at point" ar-beginning-of-greater-angled-atpt
9746
:help " `ar-beginning-of-greater-angled-atpt'
9747
Beginning of GREATER-ANGLED at point if any, nil otherwise. "]
9748
9749
["Beginning of LEFT-RIGHT-SINGLEQUOTED at point" ar-beginning-of-left-right-singlequoted-atpt
9750
:help " `ar-beginning-of-left-right-singlequoted-atpt'
9751
Beginning of LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
9752
9753
["Beginning of BACKSLASHED at point" ar-beginning-of-backslashed-atpt
9754
:help " `ar-beginning-of-backslashed-atpt'
9755
Beginning of BACKSLASHED at point if any, nil otherwise. "]
9756
9757
["Beginning of DOLLARED at point" ar-beginning-of-dollared-atpt
9758
:help " `ar-beginning-of-dollared-atpt'
9759
Beginning of DOLLARED at point if any, nil otherwise. "]
9760
9761
["Beginning of DOUBLEQUOTED at point" ar-beginning-of-doublequoted-atpt
9762
:help " `ar-beginning-of-doublequoted-atpt'
9763
Beginning of DOUBLEQUOTED at point if any, nil otherwise. "]
9764
9765
["Beginning of EQUALIZED at point" ar-beginning-of-equalized-atpt
9766
:help " `ar-beginning-of-equalized-atpt'
9767
Beginning of EQUALIZED at point if any, nil otherwise. "]
9768
9769
["Beginning of HYPHENED at point" ar-beginning-of-hyphened-atpt
9770
:help " `ar-beginning-of-hyphened-atpt'
9771
Beginning of HYPHENED at point if any, nil otherwise. "]
9772
9773
["Beginning of SINGLEQUOTED at point" ar-beginning-of-singlequoted-atpt
9774
:help " `ar-beginning-of-singlequoted-atpt'
9775
Beginning of SINGLEQUOTED at point if any, nil otherwise. "]
9776
9777
["Beginning of SLASHED at point" ar-beginning-of-slashed-atpt
9778
:help " `ar-beginning-of-slashed-atpt'
9779
Beginning of SLASHED at point if any, nil otherwise. "]
9780
9781
["Beginning of UNDERSCORED at point" ar-beginning-of-underscored-atpt
9782
:help " `ar-beginning-of-underscored-atpt'
9783
Beginning of UNDERSCORED at point if any, nil otherwise. "]
9784
9785
["Beginning of WHITESPACED at point" ar-beginning-of-whitespaced-atpt
9786
:help " `ar-beginning-of-whitespaced-atpt'
9787
Beginning of WHITESPACED at point if any, nil otherwise. "]
9788
9789
)
9790
("Character classes"
9791
9792
["Beginning of [:alnum:] char class at point" ar-beginning-of-alnum-atpt
9793
:help " `ar-beginning-of-alnum-atpt'
9794
Return beginning position of ALNUM at point if succesful, nil otherwise. "]
9795
9796
["Beginning of [:alpha:] char class at point" ar-beginning-of-alpha-atpt
9797
:help " `ar-beginning-of-alpha-atpt'
9798
Return beginning position of ALPHA at point if succesful, nil otherwise. "]
9799
9800
["Beginning of [:ascii:] char class at point" ar-beginning-of-ascii-atpt
9801
:help " `ar-beginning-of-ascii-atpt'
9802
Return beginning position of ASCII at point if succesful, nil otherwise. "]
9803
9804
["Beginning of [:blank:] char class at point" ar-beginning-of-blank-atpt
9805
:help " `ar-beginning-of-blank-atpt'
9806
Return beginning position of BLANK at point if succesful, nil otherwise. "]
9807
9808
["Beginning of [:cntrl:] char class at point" ar-beginning-of-cntrl-atpt
9809
:help " `ar-beginning-of-cntrl-atpt'
9810
Return beginning position of CNTRL at point if succesful, nil otherwise. "]
9811
9812
["Beginning of [:digit:] char class at point" ar-beginning-of-digit-atpt
9813
:help " `ar-beginning-of-digit-atpt'
9814
Return beginning position of DIGIT at point if succesful, nil otherwise. "]
9815
9816
["Beginning of [:graph:] char class at point" ar-beginning-of-graph-atpt
9817
:help " `ar-beginning-of-graph-atpt'
9818
Return beginning position of GRAPH at point if succesful, nil otherwise. "]
9819
9820
["Beginning of [:lower:] char class at point" ar-beginning-of-lower-atpt
9821
:help " `ar-beginning-of-lower-atpt'
9822
Return beginning position of LOWER at point if succesful, nil otherwise. "]
9823
9824
["Beginning of [:nonascii:] char class at point" ar-beginning-of-nonascii-atpt
9825
:help " `ar-beginning-of-nonascii-atpt'
9826
Return beginning position of NONASCII at point if succesful, nil otherwise. "]
9827
9828
["Beginning of [:print:] char class at point" ar-beginning-of-print-atpt
9829
:help " `ar-beginning-of-print-atpt'
9830
Return beginning position of PRINT at point if succesful, nil otherwise. "]
9831
9832
["Beginning of [:punct:] char class at point" ar-beginning-of-punct-atpt
9833
:help " `ar-beginning-of-punct-atpt'
9834
Return beginning position of PUNCT at point if succesful, nil otherwise. "]
9835
9836
["Beginning of [:space:] char class at point" ar-beginning-of-space-atpt
9837
:help " `ar-beginning-of-space-atpt'
9838
Return beginning position of SPACE at point if succesful, nil otherwise. "]
9839
9840
["Beginning of [:upper:] char class at point" ar-beginning-of-upper-atpt
9841
:help " `ar-beginning-of-upper-atpt'
9842
Return beginning position of UPPER at point if succesful, nil otherwise. "]
9843
9844
["Beginning of [:xdigit:] char class at point" ar-beginning-of-xdigit-atpt
9845
:help " `ar-beginning-of-xdigit-atpt'
9846
Return beginning position of XDIGIT at point if succesful, nil otherwise. "]
9847
9848
)
9849
("Other"
9850
9851
["Backward ANGLED-NO-NEST at point" ar-beginning-of-angled-no-nest-atpt
9852
:help " `ar-beginning-of-angled-no-nest-atpt'
9853
Return beginning position of ANGLED-NO-NEST at point if succesful, nil otherwise. "]
9854
9855
["Backward GREATER-ANGLED-NESTED at point" ar-beginning-of-greater-angled-nested-atpt
9856
:help " `ar-beginning-of-greater-angled-nested-atpt'
9857
Return beginning position of GREATER-ANGLED-NESTED at point if succesful, nil otherwise. "]
9858
9859
["Backward LESSER-ANGLED-NESTED at point" ar-beginning-of-lesser-angled-nested-atpt
9860
:help " `ar-beginning-of-lesser-angled-nested-atpt'
9861
Return beginning position of LESSER-ANGLED-NESTED at point if succesful, nil otherwise. "]
9862
9863
["Backward BUFFER at point" ar-beginning-of-buffer-atpt
9864
:help " `ar-beginning-of-buffer-atpt'
9865
Return beginning position of BUFFER at point if succesful, nil otherwise. "]
9866
9867
["Backward COMMENT at point" ar-beginning-of-comment-atpt
9868
:help " `ar-beginning-of-comment-atpt'
9869
Return beginning position of COMMENT at point if succesful, nil otherwise. "]
9870
9871
["Backward CSV at point" ar-beginning-of-csv-atpt
9872
:help " `ar-beginning-of-csv-atpt'
9873
Return beginning position of CSV at point if succesful, nil otherwise. "]
9874
9875
["Backward DATE at point" ar-beginning-of-date-atpt
9876
:help " `ar-beginning-of-date-atpt'
9877
Return beginning position of DATE at point if succesful, nil otherwise. "]
9878
9879
["Backward DEFUN at point" ar-beginning-of-defun-atpt
9880
:help " `ar-beginning-of-defun-atpt'
9881
Return beginning position of DEFUN at point if succesful, nil otherwise. "]
9882
9883
["Backward DELIMITED at point" ar-beginning-of-delimited-atpt
9884
:help " `ar-beginning-of-delimited-atpt'
9885
Return beginning position of DELIMITED at point if succesful, nil otherwise. "]
9886
9887
["Backward EMAIL at point" ar-beginning-of-email-atpt
9888
:help " `ar-beginning-of-email-atpt'
9889
Return beginning position of EMAIL at point if succesful, nil otherwise. "]
9890
9891
["Backward FILENAME at point" ar-beginning-of-filename-atpt
9892
:help " `ar-beginning-of-filename-atpt'
9893
Return beginning position of FILENAME at point if succesful, nil otherwise. "]
9894
9895
["Backward FLOAT at point" ar-beginning-of-float-atpt
9896
:help " `ar-beginning-of-float-atpt'
9897
Return beginning position of FLOAT at point if succesful, nil otherwise. "]
9898
9899
["Backward FUNCTION at point" ar-beginning-of-function-atpt
9900
:help " `ar-beginning-of-function-atpt'
9901
Return beginning position of FUNCTION at point if succesful, nil otherwise. "]
9902
9903
["Backward IP at point" ar-beginning-of-ip-atpt
9904
:help " `ar-beginning-of-ip-atpt'
9905
Return beginning position of IP at point if succesful, nil otherwise. "]
9906
9907
["Backward ISBN at point" ar-beginning-of-isbn-atpt
9908
:help " `ar-beginning-of-isbn-atpt'
9909
Return beginning position of ISBN at point if succesful, nil otherwise. "]
9910
9911
["Backward LINE at point" ar-beginning-of-line-atpt
9912
:help " `ar-beginning-of-line-atpt'
9913
Return beginning position of LINE at point if succesful, nil otherwise. "]
9914
9915
["Backward NAME at point" ar-beginning-of-name-atpt
9916
:help " `ar-beginning-of-name-atpt'
9917
Return beginning position of NAME at point if succesful, nil otherwise. "]
9918
9919
["Backward NUMBER at point" ar-beginning-of-number-atpt
9920
:help " `ar-beginning-of-number-atpt'
9921
Return beginning position of NUMBER at point if succesful, nil otherwise. "]
9922
9923
["Backward PAGE at point" ar-beginning-of-page-atpt
9924
:help " `ar-beginning-of-page-atpt'
9925
Return beginning position of PAGE at point if succesful, nil otherwise. "]
9926
9927
["Backward PARAGRAPH at point" ar-beginning-of-paragraph-atpt
9928
:help " `ar-beginning-of-paragraph-atpt'
9929
Return beginning position of PARAGRAPH at point if succesful, nil otherwise. "]
9930
9931
["Backward PAREN at point" ar-beginning-of-paren-atpt
9932
:help " `ar-beginning-of-paren-atpt'
9933
Return beginning position of PAREN at point if succesful, nil otherwise. "]
9934
9935
["Backward PHONE at point" ar-beginning-of-phone-atpt
9936
:help " `ar-beginning-of-phone-atpt'
9937
Return beginning position of PHONE at point if succesful, nil otherwise. "]
9938
9939
["Backward REGION at point" ar-beginning-of-region-atpt
9940
:help " `ar-beginning-of-region-atpt'
9941
Return beginning position of REGION at point if succesful, nil otherwise. "]
9942
9943
["Backward SENTENCE at point" ar-beginning-of-sentence-atpt
9944
:help " `ar-beginning-of-sentence-atpt'
9945
Return beginning position of SENTENCE at point if succesful, nil otherwise. "]
9946
9947
["Backward SEXP at point" ar-beginning-of-sexp-atpt
9948
:help " `ar-beginning-of-sexp-atpt'
9949
Return beginning position of SEXP at point if succesful, nil otherwise. "]
9950
9951
["Backward STRING at point" ar-beginning-of-string-atpt
9952
:help " `ar-beginning-of-string-atpt'
9953
Return beginning position of STRING at point if succesful, nil otherwise. "]
9954
9955
["Backward SH-STRUCT at point" ar-beginning-of-sh-struct-atpt
9956
:help " `ar-beginning-of-sh-struct-atpt'
9957
Return beginning position of SH-STRUCT at point if succesful, nil otherwise. "]
9958
9959
["Backward SYMBOL at point" ar-beginning-of-symbol-atpt
9960
:help " `ar-beginning-of-symbol-atpt'
9961
Return beginning position of SYMBOL at point if succesful, nil otherwise. "]
9962
9963
["Backward URL at point" ar-beginning-of-url-atpt
9964
:help " `ar-beginning-of-url-atpt'
9965
Return beginning position of URL at point if succesful, nil otherwise. "]
9966
9967
["Backward WORD at point" ar-beginning-of-word-atpt
9968
:help " `ar-beginning-of-word-atpt'
9969
Return beginning position of WORD at point if succesful, nil otherwise. "]
9970
9971
["Backward WORD-ALPHA-ONLY at point" ar-beginning-of-word-alpha-only-atpt
9972
:help " `ar-beginning-of-word-alpha-only-atpt'
9973
Return beginning position of WORD-ALPHA-ONLY at point if succesful, nil otherwise. "]
9974
9975
)
9976
9977
)
9978
9979
)
9980
("Positions"
9981
("Bounds"
9982
("Delimited"
9983
9984
["Bounds of BRACED at point" ar-bounds-of-braced-atpt
9985
:help " `ar-bounds-of-braced-atpt'
9986
Bounds of BRACED at point if any, nil otherwise. "]
9987
9988
["Bounds of BRACKETED at point" ar-bounds-of-bracketed-atpt
9989
:help " `ar-bounds-of-bracketed-atpt'
9990
Bounds of BRACKETED at point if any, nil otherwise. "]
9991
9992
["Bounds of PARENTIZED at point" ar-bounds-of-parentized-atpt
9993
:help " `ar-bounds-of-parentized-atpt'
9994
Bounds of PARENTIZED at point if any, nil otherwise. "]
9995
9996
["Bounds of DOUBLEQUOTED at point" ar-bounds-of-doublequoted-atpt
9997
:help " `ar-bounds-of-doublequoted-atpt'
9998
Bounds of DOUBLEQUOTED at point if any, nil otherwise. "]
9999
10000
["Bounds of SINGLEQUOTED at point" ar-bounds-of-singlequoted-atpt
10001
:help " `ar-bounds-of-singlequoted-atpt'
10002
Bounds of SINGLEQUOTED at point if any, nil otherwise. "]
10003
10004
["Bounds of TRIPLEQUOTED at point" ar-bounds-of-triplequoted-atpt
10005
:help " `ar-bounds-of-triplequoted-atpt'
10006
Bounds of TRIPLEQUOTED at point if any, nil otherwise. "]
10007
10008
["Bounds of LESSER-ANGLED at point" ar-bounds-of-lesser-angled-atpt
10009
:help " `ar-bounds-of-lesser-angled-atpt'
10010
Bounds of LESSER-ANGLED at point if any, nil otherwise. "]
10011
10012
"-"
10013
10014
["Bounds of TRIPLEQUOTED-DQ at point" ar-bounds-of-triplequoted-dq-atpt
10015
:help " `ar-bounds-of-triplequoted-dq-atpt'
10016
Bounds of TRIPLEQUOTED-DQ at point if any, nil otherwise. "]
10017
10018
["Bounds of TRIPLEQUOTE-SQ at point" ar-bounds-of-triplequote-sq-atpt
10019
:help " `ar-bounds-of-triplequote-sq-atpt'
10020
Bounds of TRIPLEQUOTE-SQ at point if any, nil otherwise. "]
10021
10022
["Bounds of GREATER-ANGLED at point" ar-bounds-of-greater-angled-atpt
10023
:help " `ar-bounds-of-greater-angled-atpt'
10024
Bounds of GREATER-ANGLED at point if any, nil otherwise. "]
10025
10026
["Bounds of LEFT-RIGHT-SINGLEQUOTED at point" ar-bounds-of-left-right-singlequoted-atpt
10027
:help " `ar-bounds-of-left-right-singlequoted-atpt'
10028
Bounds of LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
10029
10030
["Bounds of BACKSLASHED at point" ar-bounds-of-backslashed-atpt
10031
:help " `ar-bounds-of-backslashed-atpt'
10032
Bounds of BACKSLASHED at point if any, nil otherwise. "]
10033
10034
["Bounds of DOLLARED at point" ar-bounds-of-dollared-atpt
10035
:help " `ar-bounds-of-dollared-atpt'
10036
Bounds of DOLLARED at point if any, nil otherwise. "]
10037
10038
["Bounds of DOUBLEQUOTED at point" ar-bounds-of-doublequoted-atpt
10039
:help " `ar-bounds-of-doublequoted-atpt'
10040
Bounds of DOUBLEQUOTED at point if any, nil otherwise. "]
10041
10042
["Bounds of EQUALIZED at point" ar-bounds-of-equalized-atpt
10043
:help " `ar-bounds-of-equalized-atpt'
10044
Bounds of EQUALIZED at point if any, nil otherwise. "]
10045
10046
["Bounds of HYPHENED at point" ar-bounds-of-hyphened-atpt
10047
:help " `ar-bounds-of-hyphened-atpt'
10048
Bounds of HYPHENED at point if any, nil otherwise. "]
10049
10050
["Bounds of SINGLEQUOTED at point" ar-bounds-of-singlequoted-atpt
10051
:help " `ar-bounds-of-singlequoted-atpt'
10052
Bounds of SINGLEQUOTED at point if any, nil otherwise. "]
10053
10054
["Bounds of SLASHED at point" ar-bounds-of-slashed-atpt
10055
:help " `ar-bounds-of-slashed-atpt'
10056
Bounds of SLASHED at point if any, nil otherwise. "]
10057
10058
["Bounds of UNDERSCORED at point" ar-bounds-of-underscored-atpt
10059
:help " `ar-bounds-of-underscored-atpt'
10060
Bounds of UNDERSCORED at point if any, nil otherwise. "]
10061
10062
["Bounds of WHITESPACED at point" ar-bounds-of-whitespaced-atpt
10063
:help " `ar-bounds-of-whitespaced-atpt'
10064
Bounds of WHITESPACED at point if any, nil otherwise. "]
10065
10066
)
10067
("Character classes"
10068
10069
["Bounds of [:alnum:] char class at point" ar-bounds-of-alnum-atpt
10070
:help " `ar-bounds-of-alnum-atpt'
10071
Return bounds of ALNUM at point if succesful, nil otherwise. "]
10072
10073
["Bounds of [:alpha:] char class at point" ar-bounds-of-alpha-atpt
10074
:help " `ar-bounds-of-alpha-atpt'
10075
Return bounds of ALPHA at point if succesful, nil otherwise. "]
10076
10077
["Bounds of [:ascii:] char class at point" ar-bounds-of-ascii-atpt
10078
:help " `ar-bounds-of-ascii-atpt'
10079
Return bounds of ASCII at point if succesful, nil otherwise. "]
10080
10081
["Bounds of [:blank:] char class at point" ar-bounds-of-blank-atpt
10082
:help " `ar-bounds-of-blank-atpt'
10083
Return bounds of BLANK at point if succesful, nil otherwise. "]
10084
10085
["Bounds of [:cntrl:] char class at point" ar-bounds-of-cntrl-atpt
10086
:help " `ar-bounds-of-cntrl-atpt'
10087
Return bounds of CNTRL at point if succesful, nil otherwise. "]
10088
10089
["Bounds of [:digit:] char class at point" ar-bounds-of-digit-atpt
10090
:help " `ar-bounds-of-digit-atpt'
10091
Return bounds of DIGIT at point if succesful, nil otherwise. "]
10092
10093
["Bounds of [:graph:] char class at point" ar-bounds-of-graph-atpt
10094
:help " `ar-bounds-of-graph-atpt'
10095
Return bounds of GRAPH at point if succesful, nil otherwise. "]
10096
10097
["Bounds of [:lower:] char class at point" ar-bounds-of-lower-atpt
10098
:help " `ar-bounds-of-lower-atpt'
10099
Return bounds of LOWER at point if succesful, nil otherwise. "]
10100
10101
["Bounds of [:nonascii:] char class at point" ar-bounds-of-nonascii-atpt
10102
:help " `ar-bounds-of-nonascii-atpt'
10103
Return bounds of NONASCII at point if succesful, nil otherwise. "]
10104
10105
["Bounds of [:print:] char class at point" ar-bounds-of-print-atpt
10106
:help " `ar-bounds-of-print-atpt'
10107
Return bounds of PRINT at point if succesful, nil otherwise. "]
10108
10109
["Bounds of [:punct:] char class at point" ar-bounds-of-punct-atpt
10110
:help " `ar-bounds-of-punct-atpt'
10111
Return bounds of PUNCT at point if succesful, nil otherwise. "]
10112
10113
["Bounds of [:space:] char class at point" ar-bounds-of-space-atpt
10114
:help " `ar-bounds-of-space-atpt'
10115
Return bounds of SPACE at point if succesful, nil otherwise. "]
10116
10117
["Bounds of [:upper:] char class at point" ar-bounds-of-upper-atpt
10118
:help " `ar-bounds-of-upper-atpt'
10119
Return bounds of UPPER at point if succesful, nil otherwise. "]
10120
10121
["Bounds of [:xdigit:] char class at point" ar-bounds-of-xdigit-atpt
10122
:help " `ar-bounds-of-xdigit-atpt'
10123
Return bounds of XDIGIT at point if succesful, nil otherwise. "]
10124
10125
)
10126
("Other"
10127
10128
["Bounds of ANGLED-NO-NEST at point" ar-bounds-of-angled-no-nest-atpt
10129
:help " `ar-bounds-of-angled-no-nest-atpt'
10130
Return bounds of ANGLED-NO-NEST at point if succesful, nil otherwise. "]
10131
10132
["Bounds of GREATER-ANGLED-NESTED at point" ar-bounds-of-greater-angled-nested-atpt
10133
:help " `ar-bounds-of-greater-angled-nested-atpt'
10134
Return bounds of GREATER-ANGLED-NESTED at point if succesful, nil otherwise. "]
10135
10136
["Bounds of LESSER-ANGLED-NESTED at point" ar-bounds-of-lesser-angled-nested-atpt
10137
:help " `ar-bounds-of-lesser-angled-nested-atpt'
10138
Return bounds of LESSER-ANGLED-NESTED at point if succesful, nil otherwise. "]
10139
10140
["Bounds of BUFFER at point" ar-bounds-of-buffer-atpt
10141
:help " `ar-bounds-of-buffer-atpt'
10142
Return bounds of BUFFER at point if succesful, nil otherwise. "]
10143
10144
["Bounds of COMMENT at point" ar-bounds-of-comment-atpt
10145
:help " `ar-bounds-of-comment-atpt'
10146
Return bounds of COMMENT at point if succesful, nil otherwise. "]
10147
10148
["Bounds of CSV at point" ar-bounds-of-csv-atpt
10149
:help " `ar-bounds-of-csv-atpt'
10150
Return bounds of CSV at point if succesful, nil otherwise. "]
10151
10152
["Bounds of DATE at point" ar-bounds-of-date-atpt
10153
:help " `ar-bounds-of-date-atpt'
10154
Return bounds of DATE at point if succesful, nil otherwise. "]
10155
10156
["Bounds of DEFUN at point" ar-bounds-of-defun-atpt
10157
:help " `ar-bounds-of-defun-atpt'
10158
Return bounds of DEFUN at point if succesful, nil otherwise. "]
10159
10160
["Bounds of DELIMITED at point" ar-bounds-of-delimited-atpt
10161
:help " `ar-bounds-of-delimited-atpt'
10162
Return bounds of DELIMITED at point if succesful, nil otherwise. "]
10163
10164
["Bounds of EMAIL at point" ar-bounds-of-email-atpt
10165
:help " `ar-bounds-of-email-atpt'
10166
Return bounds of EMAIL at point if succesful, nil otherwise. "]
10167
10168
["Bounds of FILENAME at point" ar-bounds-of-filename-atpt
10169
:help " `ar-bounds-of-filename-atpt'
10170
Return bounds of FILENAME at point if succesful, nil otherwise. "]
10171
10172
["Bounds of FLOAT at point" ar-bounds-of-float-atpt
10173
:help " `ar-bounds-of-float-atpt'
10174
Return bounds of FLOAT at point if succesful, nil otherwise. "]
10175
10176
["Bounds of FUNCTION at point" ar-bounds-of-function-atpt
10177
:help " `ar-bounds-of-function-atpt'
10178
Return bounds of FUNCTION at point if succesful, nil otherwise. "]
10179
10180
["Bounds of IP at point" ar-bounds-of-ip-atpt
10181
:help " `ar-bounds-of-ip-atpt'
10182
Return bounds of IP at point if succesful, nil otherwise. "]
10183
10184
["Bounds of ISBN at point" ar-bounds-of-isbn-atpt
10185
:help " `ar-bounds-of-isbn-atpt'
10186
Return bounds of ISBN at point if succesful, nil otherwise. "]
10187
10188
["Bounds of LINE at point" ar-bounds-of-line-atpt
10189
:help " `ar-bounds-of-line-atpt'
10190
Return bounds of LINE at point if succesful, nil otherwise. "]
10191
10192
["Bounds of NAME at point" ar-bounds-of-name-atpt
10193
:help " `ar-bounds-of-name-atpt'
10194
Return bounds of NAME at point if succesful, nil otherwise. "]
10195
10196
["Bounds of NUMBER at point" ar-bounds-of-number-atpt
10197
:help " `ar-bounds-of-number-atpt'
10198
Return bounds of NUMBER at point if succesful, nil otherwise. "]
10199
10200
["Bounds of PAGE at point" ar-bounds-of-page-atpt
10201
:help " `ar-bounds-of-page-atpt'
10202
Return bounds of PAGE at point if succesful, nil otherwise. "]
10203
10204
["Bounds of PARAGRAPH at point" ar-bounds-of-paragraph-atpt
10205
:help " `ar-bounds-of-paragraph-atpt'
10206
Return bounds of PARAGRAPH at point if succesful, nil otherwise. "]
10207
10208
["Bounds of PAREN at point" ar-bounds-of-paren-atpt
10209
:help " `ar-bounds-of-paren-atpt'
10210
Return bounds of PAREN at point if succesful, nil otherwise. "]
10211
10212
["Bounds of PHONE at point" ar-bounds-of-phone-atpt
10213
:help " `ar-bounds-of-phone-atpt'
10214
Return bounds of PHONE at point if succesful, nil otherwise. "]
10215
10216
["Bounds of REGION at point" ar-bounds-of-region-atpt
10217
:help " `ar-bounds-of-region-atpt'
10218
Return bounds of REGION at point if succesful, nil otherwise. "]
10219
10220
["Bounds of SENTENCE at point" ar-bounds-of-sentence-atpt
10221
:help " `ar-bounds-of-sentence-atpt'
10222
Return bounds of SENTENCE at point if succesful, nil otherwise. "]
10223
10224
["Bounds of SEXP at point" ar-bounds-of-sexp-atpt
10225
:help " `ar-bounds-of-sexp-atpt'
10226
Return bounds of SEXP at point if succesful, nil otherwise. "]
10227
10228
["Bounds of STRING at point" ar-bounds-of-string-atpt
10229
:help " `ar-bounds-of-string-atpt'
10230
Return bounds of STRING at point if succesful, nil otherwise. "]
10231
10232
["Bounds of SH-STRUCT at point" ar-bounds-of-sh-struct-atpt
10233
:help " `ar-bounds-of-sh-struct-atpt'
10234
Return bounds of SH-STRUCT at point if succesful, nil otherwise. "]
10235
10236
["Bounds of SYMBOL at point" ar-bounds-of-symbol-atpt
10237
:help " `ar-bounds-of-symbol-atpt'
10238
Return bounds of SYMBOL at point if succesful, nil otherwise. "]
10239
10240
["Bounds of URL at point" ar-bounds-of-url-atpt
10241
:help " `ar-bounds-of-url-atpt'
10242
Return bounds of URL at point if succesful, nil otherwise. "]
10243
10244
["Bounds of WORD at point" ar-bounds-of-word-atpt
10245
:help " `ar-bounds-of-word-atpt'
10246
Return bounds of WORD at point if succesful, nil otherwise. "]
10247
10248
["Bounds of WORD-ALPHA-ONLY at point" ar-bounds-of-word-alpha-only-atpt
10249
:help " `ar-bounds-of-word-alpha-only-atpt'
10250
Return bounds of WORD-ALPHA-ONLY at point if succesful, nil otherwise. "]
10251
10252
)
10253
10254
)
10255
("Beginning position"
10256
("Delimited"
10257
10258
["Beginning position of BRACED at point" ar-braced-beginning-position-atpt
10259
:help " `ar-braced-beginning-position-atpt'
10260
Beginning position of BRACED at point if any, nil otherwise. "]
10261
10262
["Beginning position of BRACKETED at point" ar-bracketed-beginning-position-atpt
10263
:help " `ar-bracketed-beginning-position-atpt'
10264
Beginning position of BRACKETED at point if any, nil otherwise. "]
10265
10266
["Beginning position of PARENTIZED at point" ar-parentized-beginning-position-atpt
10267
:help " `ar-parentized-beginning-position-atpt'
10268
Beginning position of PARENTIZED at point if any, nil otherwise. "]
10269
10270
["Beginning position of DOUBLEQUOTED at point" ar-doublequoted-beginning-position-atpt
10271
:help " `ar-doublequoted-beginning-position-atpt'
10272
Beginning position of DOUBLEQUOTED at point if any, nil otherwise. "]
10273
10274
["Beginning position of SINGLEQUOTED at point" ar-singlequoted-beginning-position-atpt
10275
:help " `ar-singlequoted-beginning-position-atpt'
10276
Beginning position of SINGLEQUOTED at point if any, nil otherwise. "]
10277
10278
["Beginning position of TRIPLEQUOTED at point" ar-triplequoted-beginning-position-atpt
10279
:help " `ar-triplequoted-beginning-position-atpt'
10280
Beginning position of TRIPLEQUOTED at point if any, nil otherwise. "]
10281
10282
["Beginning position of LESSER-ANGLED at point" ar-lesser-angled-beginning-position-atpt
10283
:help " `ar-lesser-angled-beginning-position-atpt'
10284
Beginning position of LESSER-ANGLED at point if any, nil otherwise. "]
10285
10286
"-"
10287
10288
["Beginning position of TRIPLEQUOTED-DQ at point" ar-triplequoted-dq-beginning-position-atpt
10289
:help " `ar-triplequoted-dq-beginning-position-atpt'
10290
Beginning position of TRIPLEQUOTED-DQ at point if any, nil otherwise. "]
10291
10292
["Beginning position of TRIPLEQUOTE-SQ at point" ar-triplequote-sq-beginning-position-atpt
10293
:help " `ar-triplequote-sq-beginning-position-atpt'
10294
Beginning position of TRIPLEQUOTE-SQ at point if any, nil otherwise. "]
10295
10296
["Beginning position of GREATER-ANGLED at point" ar-greater-angled-beginning-position-atpt
10297
:help " `ar-greater-angled-beginning-position-atpt'
10298
Beginning position of GREATER-ANGLED at point if any, nil otherwise. "]
10299
10300
["Beginning position of LEFT-RIGHT-SINGLEQUOTED at point" ar-left-right-singlequoted-beginning-position-atpt
10301
:help " `ar-left-right-singlequoted-beginning-position-atpt'
10302
Beginning position of LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
10303
10304
["Beginning position of BACKSLASHED at point" ar-backslashed-beginning-position-atpt
10305
:help " `ar-backslashed-beginning-position-atpt'
10306
Beginning position of BACKSLASHED at point if any, nil otherwise. "]
10307
10308
["Beginning position of DOLLARED at point" ar-dollared-beginning-position-atpt
10309
:help " `ar-dollared-beginning-position-atpt'
10310
Beginning position of DOLLARED at point if any, nil otherwise. "]
10311
10312
["Beginning position of DOUBLEQUOTED at point" ar-doublequoted-beginning-position-atpt
10313
:help " `ar-doublequoted-beginning-position-atpt'
10314
Beginning position of DOUBLEQUOTED at point if any, nil otherwise. "]
10315
10316
["Beginning position of EQUALIZED at point" ar-equalized-beginning-position-atpt
10317
:help " `ar-equalized-beginning-position-atpt'
10318
Beginning position of EQUALIZED at point if any, nil otherwise. "]
10319
10320
["Beginning position of HYPHENED at point" ar-hyphened-beginning-position-atpt
10321
:help " `ar-hyphened-beginning-position-atpt'
10322
Beginning position of HYPHENED at point if any, nil otherwise. "]
10323
10324
["Beginning position of SINGLEQUOTED at point" ar-singlequoted-beginning-position-atpt
10325
:help " `ar-singlequoted-beginning-position-atpt'
10326
Beginning position of SINGLEQUOTED at point if any, nil otherwise. "]
10327
10328
["Beginning position of SLASHED at point" ar-slashed-beginning-position-atpt
10329
:help " `ar-slashed-beginning-position-atpt'
10330
Beginning position of SLASHED at point if any, nil otherwise. "]
10331
10332
["Beginning position of UNDERSCORED at point" ar-underscored-beginning-position-atpt
10333
:help " `ar-underscored-beginning-position-atpt'
10334
Beginning position of UNDERSCORED at point if any, nil otherwise. "]
10335
10336
["Beginning position of WHITESPACED at point" ar-whitespaced-beginning-position-atpt
10337
:help " `ar-whitespaced-beginning-position-atpt'
10338
Beginning position of WHITESPACED at point if any, nil otherwise. "]
10339
10340
)
10341
("Character classes"
10342
10343
["Beginning position of [:alnum:] char class at point" ar-alnum-beginning-position-atpt
10344
:help " `ar-alnum-beginning-position-atpt'
10345
Return beginning position of ALNUM at point if succesful, nil otherwise. "]
10346
10347
["Beginning position of [:alpha:] char class at point" ar-alpha-beginning-position-atpt
10348
:help " `ar-alpha-beginning-position-atpt'
10349
Return beginning position of ALPHA at point if succesful, nil otherwise. "]
10350
10351
["Beginning position of [:ascii:] char class at point" ar-ascii-beginning-position-atpt
10352
:help " `ar-ascii-beginning-position-atpt'
10353
Return beginning position of ASCII at point if succesful, nil otherwise. "]
10354
10355
["Beginning position of [:blank:] char class at point" ar-blank-beginning-position-atpt
10356
:help " `ar-blank-beginning-position-atpt'
10357
Return beginning position of BLANK at point if succesful, nil otherwise. "]
10358
10359
["Beginning position of [:cntrl:] char class at point" ar-cntrl-beginning-position-atpt
10360
:help " `ar-cntrl-beginning-position-atpt'
10361
Return beginning position of CNTRL at point if succesful, nil otherwise. "]
10362
10363
["Beginning position of [:digit:] char class at point" ar-digit-beginning-position-atpt
10364
:help " `ar-digit-beginning-position-atpt'
10365
Return beginning position of DIGIT at point if succesful, nil otherwise. "]
10366
10367
["Beginning position of [:graph:] char class at point" ar-graph-beginning-position-atpt
10368
:help " `ar-graph-beginning-position-atpt'
10369
Return beginning position of GRAPH at point if succesful, nil otherwise. "]
10370
10371
["Beginning position of [:lower:] char class at point" ar-lower-beginning-position-atpt
10372
:help " `ar-lower-beginning-position-atpt'
10373
Return beginning position of LOWER at point if succesful, nil otherwise. "]
10374
10375
["Beginning position of [:nonascii:] char class at point" ar-nonascii-beginning-position-atpt
10376
:help " `ar-nonascii-beginning-position-atpt'
10377
Return beginning position of NONASCII at point if succesful, nil otherwise. "]
10378
10379
["Beginning position of [:print:] char class at point" ar-print-beginning-position-atpt
10380
:help " `ar-print-beginning-position-atpt'
10381
Return beginning position of PRINT at point if succesful, nil otherwise. "]
10382
10383
["Beginning position of [:punct:] char class at point" ar-punct-beginning-position-atpt
10384
:help " `ar-punct-beginning-position-atpt'
10385
Return beginning position of PUNCT at point if succesful, nil otherwise. "]
10386
10387
["Beginning position of [:space:] char class at point" ar-space-beginning-position-atpt
10388
:help " `ar-space-beginning-position-atpt'
10389
Return beginning position of SPACE at point if succesful, nil otherwise. "]
10390
10391
["Beginning position of [:upper:] char class at point" ar-upper-beginning-position-atpt
10392
:help " `ar-upper-beginning-position-atpt'
10393
Return beginning position of UPPER at point if succesful, nil otherwise. "]
10394
10395
["Beginning position of [:xdigit:] char class at point" ar-xdigit-beginning-position-atpt
10396
:help " `ar-xdigit-beginning-position-atpt'
10397
Return beginning position of XDIGIT at point if succesful, nil otherwise. "]
10398
10399
)
10400
("Other"
10401
10402
["Beginning position of ANGLED-NO-NEST at point" ar-angled-no-nest-beginning-position-atpt
10403
:help " `ar-angled-no-nest-beginning-position-atpt'
10404
Return beginning position of ANGLED-NO-NEST at point if succesful, nil otherwise. "]
10405
10406
["Beginning position of GREATER-ANGLED-NESTED at point" ar-greater-angled-nested-beginning-position-atpt
10407
:help " `ar-greater-angled-nested-beginning-position-atpt'
10408
Return beginning position of GREATER-ANGLED-NESTED at point if succesful, nil otherwise. "]
10409
10410
["Beginning position of LESSER-ANGLED-NESTED at point" ar-lesser-angled-nested-beginning-position-atpt
10411
:help " `ar-lesser-angled-nested-beginning-position-atpt'
10412
Return beginning position of LESSER-ANGLED-NESTED at point if succesful, nil otherwise. "]
10413
10414
["Beginning position of BUFFER at point" ar-buffer-beginning-position-atpt
10415
:help " `ar-buffer-beginning-position-atpt'
10416
Return beginning position of BUFFER at point if succesful, nil otherwise. "]
10417
10418
["Beginning position of COMMENT at point" ar-comment-beginning-position-atpt
10419
:help " `ar-comment-beginning-position-atpt'
10420
Return beginning position of COMMENT at point if succesful, nil otherwise. "]
10421
10422
["Beginning position of CSV at point" ar-csv-beginning-position-atpt
10423
:help " `ar-csv-beginning-position-atpt'
10424
Return beginning position of CSV at point if succesful, nil otherwise. "]
10425
10426
["Beginning position of DATE at point" ar-date-beginning-position-atpt
10427
:help " `ar-date-beginning-position-atpt'
10428
Return beginning position of DATE at point if succesful, nil otherwise. "]
10429
10430
["Beginning position of DEFUN at point" ar-defun-beginning-position-atpt
10431
:help " `ar-defun-beginning-position-atpt'
10432
Return beginning position of DEFUN at point if succesful, nil otherwise. "]
10433
10434
["Beginning position of DELIMITED at point" ar-delimited-beginning-position-atpt
10435
:help " `ar-delimited-beginning-position-atpt'
10436
Return beginning position of DELIMITED at point if succesful, nil otherwise. "]
10437
10438
["Beginning position of EMAIL at point" ar-email-beginning-position-atpt
10439
:help " `ar-email-beginning-position-atpt'
10440
Return beginning position of EMAIL at point if succesful, nil otherwise. "]
10441
10442
["Beginning position of FILENAME at point" ar-filename-beginning-position-atpt
10443
:help " `ar-filename-beginning-position-atpt'
10444
Return beginning position of FILENAME at point if succesful, nil otherwise. "]
10445
10446
["Beginning position of FLOAT at point" ar-float-beginning-position-atpt
10447
:help " `ar-float-beginning-position-atpt'
10448
Return beginning position of FLOAT at point if succesful, nil otherwise. "]
10449
10450
["Beginning position of FUNCTION at point" ar-function-beginning-position-atpt
10451
:help " `ar-function-beginning-position-atpt'
10452
Return beginning position of FUNCTION at point if succesful, nil otherwise. "]
10453
10454
["Beginning position of IP at point" ar-ip-beginning-position-atpt
10455
:help " `ar-ip-beginning-position-atpt'
10456
Return beginning position of IP at point if succesful, nil otherwise. "]
10457
10458
["Beginning position of ISBN at point" ar-isbn-beginning-position-atpt
10459
:help " `ar-isbn-beginning-position-atpt'
10460
Return beginning position of ISBN at point if succesful, nil otherwise. "]
10461
10462
["Beginning position of LINE at point" ar-line-beginning-position-atpt
10463
:help " `ar-line-beginning-position-atpt'
10464
Return beginning position of LINE at point if succesful, nil otherwise. "]
10465
10466
["Beginning position of NAME at point" ar-name-beginning-position-atpt
10467
:help " `ar-name-beginning-position-atpt'
10468
Return beginning position of NAME at point if succesful, nil otherwise. "]
10469
10470
["Beginning position of NUMBER at point" ar-number-beginning-position-atpt
10471
:help " `ar-number-beginning-position-atpt'
10472
Return beginning position of NUMBER at point if succesful, nil otherwise. "]
10473
10474
["Beginning position of PAGE at point" ar-page-beginning-position-atpt
10475
:help " `ar-page-beginning-position-atpt'
10476
Return beginning position of PAGE at point if succesful, nil otherwise. "]
10477
10478
["Beginning position of PARAGRAPH at point" ar-paragraph-beginning-position-atpt
10479
:help " `ar-paragraph-beginning-position-atpt'
10480
Return beginning position of PARAGRAPH at point if succesful, nil otherwise. "]
10481
10482
["Beginning position of PAREN at point" ar-paren-beginning-position-atpt
10483
:help " `ar-paren-beginning-position-atpt'
10484
Return beginning position of PAREN at point if succesful, nil otherwise. "]
10485
10486
["Beginning position of PHONE at point" ar-phone-beginning-position-atpt
10487
:help " `ar-phone-beginning-position-atpt'
10488
Return beginning position of PHONE at point if succesful, nil otherwise. "]
10489
10490
["Beginning position of REGION at point" ar-region-beginning-position-atpt
10491
:help " `ar-region-beginning-position-atpt'
10492
Return beginning position of REGION at point if succesful, nil otherwise. "]
10493
10494
["Beginning position of SENTENCE at point" ar-sentence-beginning-position-atpt
10495
:help " `ar-sentence-beginning-position-atpt'
10496
Return beginning position of SENTENCE at point if succesful, nil otherwise. "]
10497
10498
["Beginning position of SEXP at point" ar-sexp-beginning-position-atpt
10499
:help " `ar-sexp-beginning-position-atpt'
10500
Return beginning position of SEXP at point if succesful, nil otherwise. "]
10501
10502
["Beginning position of STRING at point" ar-string-beginning-position-atpt
10503
:help " `ar-string-beginning-position-atpt'
10504
Return beginning position of STRING at point if succesful, nil otherwise. "]
10505
10506
["Beginning position of SH-STRUCT at point" ar-sh-struct-beginning-position-atpt
10507
:help " `ar-sh-struct-beginning-position-atpt'
10508
Return beginning position of SH-STRUCT at point if succesful, nil otherwise. "]
10509
10510
["Beginning position of SYMBOL at point" ar-symbol-beginning-position-atpt
10511
:help " `ar-symbol-beginning-position-atpt'
10512
Return beginning position of SYMBOL at point if succesful, nil otherwise. "]
10513
10514
["Beginning position of URL at point" ar-url-beginning-position-atpt
10515
:help " `ar-url-beginning-position-atpt'
10516
Return beginning position of URL at point if succesful, nil otherwise. "]
10517
10518
["Beginning position of WORD at point" ar-word-beginning-position-atpt
10519
:help " `ar-word-beginning-position-atpt'
10520
Return beginning position of WORD at point if succesful, nil otherwise. "]
10521
10522
["Beginning position of WORD-ALPHA-ONLY at point" ar-word-alpha-only-beginning-position-atpt
10523
:help " `ar-word-alpha-only-beginning-position-atpt'
10524
Return beginning position of WORD-ALPHA-ONLY at point if succesful, nil otherwise. "]
10525
10526
)
10527
10528
)
10529
("End position"
10530
("Delimited"
10531
10532
["End position of BRACED at point" ar-braced-end-position-atpt
10533
:help " `ar-braced-end-position-atpt'
10534
End position of BRACED at point if any, nil otherwise. "]
10535
10536
["End position of BRACKETED at point" ar-bracketed-end-position-atpt
10537
:help " `ar-bracketed-end-position-atpt'
10538
End position of BRACKETED at point if any, nil otherwise. "]
10539
10540
["End position of PARENTIZED at point" ar-parentized-end-position-atpt
10541
:help " `ar-parentized-end-position-atpt'
10542
End position of PARENTIZED at point if any, nil otherwise. "]
10543
10544
["End position of DOUBLEQUOTED at point" ar-doublequoted-end-position-atpt
10545
:help " `ar-doublequoted-end-position-atpt'
10546
End position of DOUBLEQUOTED at point if any, nil otherwise. "]
10547
10548
["End position of SINGLEQUOTED at point" ar-singlequoted-end-position-atpt
10549
:help " `ar-singlequoted-end-position-atpt'
10550
End position of SINGLEQUOTED at point if any, nil otherwise. "]
10551
10552
["End position of TRIPLEQUOTED at point" ar-triplequoted-end-position-atpt
10553
:help " `ar-triplequoted-end-position-atpt'
10554
End position of TRIPLEQUOTED at point if any, nil otherwise. "]
10555
10556
["End position of LESSER-ANGLED at point" ar-lesser-angled-end-position-atpt
10557
:help " `ar-lesser-angled-end-position-atpt'
10558
End position of LESSER-ANGLED at point if any, nil otherwise. "]
10559
10560
"-"
10561
10562
["End position of TRIPLEQUOTED-DQ at point" ar-triplequoted-dq-end-position-atpt
10563
:help " `ar-triplequoted-dq-end-position-atpt'
10564
End position of TRIPLEQUOTED-DQ at point if any, nil otherwise. "]
10565
10566
["End position of TRIPLEQUOTE-SQ at point" ar-triplequote-sq-end-position-atpt
10567
:help " `ar-triplequote-sq-end-position-atpt'
10568
End position of TRIPLEQUOTE-SQ at point if any, nil otherwise. "]
10569
10570
["End position of GREATER-ANGLED at point" ar-greater-angled-end-position-atpt
10571
:help " `ar-greater-angled-end-position-atpt'
10572
End position of GREATER-ANGLED at point if any, nil otherwise. "]
10573
10574
["End position of LEFT-RIGHT-SINGLEQUOTED at point" ar-left-right-singlequoted-end-position-atpt
10575
:help " `ar-left-right-singlequoted-end-position-atpt'
10576
End position of LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
10577
10578
["End position of BACKSLASHED at point" ar-backslashed-end-position-atpt
10579
:help " `ar-backslashed-end-position-atpt'
10580
End position of BACKSLASHED at point if any, nil otherwise. "]
10581
10582
["End position of DOLLARED at point" ar-dollared-end-position-atpt
10583
:help " `ar-dollared-end-position-atpt'
10584
End position of DOLLARED at point if any, nil otherwise. "]
10585
10586
["End position of DOUBLEQUOTED at point" ar-doublequoted-end-position-atpt
10587
:help " `ar-doublequoted-end-position-atpt'
10588
End position of DOUBLEQUOTED at point if any, nil otherwise. "]
10589
10590
["End position of EQUALIZED at point" ar-equalized-end-position-atpt
10591
:help " `ar-equalized-end-position-atpt'
10592
End position of EQUALIZED at point if any, nil otherwise. "]
10593
10594
["End position of HYPHENED at point" ar-hyphened-end-position-atpt
10595
:help " `ar-hyphened-end-position-atpt'
10596
End position of HYPHENED at point if any, nil otherwise. "]
10597
10598
["End position of SINGLEQUOTED at point" ar-singlequoted-end-position-atpt
10599
:help " `ar-singlequoted-end-position-atpt'
10600
End position of SINGLEQUOTED at point if any, nil otherwise. "]
10601
10602
["End position of SLASHED at point" ar-slashed-end-position-atpt
10603
:help " `ar-slashed-end-position-atpt'
10604
End position of SLASHED at point if any, nil otherwise. "]
10605
10606
["End position of UNDERSCORED at point" ar-underscored-end-position-atpt
10607
:help " `ar-underscored-end-position-atpt'
10608
End position of UNDERSCORED at point if any, nil otherwise. "]
10609
10610
["End position of WHITESPACED at point" ar-whitespaced-end-position-atpt
10611
:help " `ar-whitespaced-end-position-atpt'
10612
End position of WHITESPACED at point if any, nil otherwise. "]
10613
10614
)
10615
("Character classes"
10616
10617
["End position of [:alnum:] char class at point" ar-alnum-end-position-atpt
10618
:help " `ar-alnum-end-position-atpt'
10619
Return end position of ALNUM at point if succesful, nil otherwise. "]
10620
10621
["End position of [:alpha:] char class at point" ar-alpha-end-position-atpt
10622
:help " `ar-alpha-end-position-atpt'
10623
Return end position of ALPHA at point if succesful, nil otherwise. "]
10624
10625
["End position of [:ascii:] char class at point" ar-ascii-end-position-atpt
10626
:help " `ar-ascii-end-position-atpt'
10627
Return end position of ASCII at point if succesful, nil otherwise. "]
10628
10629
["End position of [:blank:] char class at point" ar-blank-end-position-atpt
10630
:help " `ar-blank-end-position-atpt'
10631
Return end position of BLANK at point if succesful, nil otherwise. "]
10632
10633
["End position of [:cntrl:] char class at point" ar-cntrl-end-position-atpt
10634
:help " `ar-cntrl-end-position-atpt'
10635
Return end position of CNTRL at point if succesful, nil otherwise. "]
10636
10637
["End position of [:digit:] char class at point" ar-digit-end-position-atpt
10638
:help " `ar-digit-end-position-atpt'
10639
Return end position of DIGIT at point if succesful, nil otherwise. "]
10640
10641
["End position of [:graph:] char class at point" ar-graph-end-position-atpt
10642
:help " `ar-graph-end-position-atpt'
10643
Return end position of GRAPH at point if succesful, nil otherwise. "]
10644
10645
["End position of [:lower:] char class at point" ar-lower-end-position-atpt
10646
:help " `ar-lower-end-position-atpt'
10647
Return end position of LOWER at point if succesful, nil otherwise. "]
10648
10649
["End position of [:nonascii:] char class at point" ar-nonascii-end-position-atpt
10650
:help " `ar-nonascii-end-position-atpt'
10651
Return end position of NONASCII at point if succesful, nil otherwise. "]
10652
10653
["End position of [:print:] char class at point" ar-print-end-position-atpt
10654
:help " `ar-print-end-position-atpt'
10655
Return end position of PRINT at point if succesful, nil otherwise. "]
10656
10657
["End position of [:punct:] char class at point" ar-punct-end-position-atpt
10658
:help " `ar-punct-end-position-atpt'
10659
Return end position of PUNCT at point if succesful, nil otherwise. "]
10660
10661
["End position of [:space:] char class at point" ar-space-end-position-atpt
10662
:help " `ar-space-end-position-atpt'
10663
Return end position of SPACE at point if succesful, nil otherwise. "]
10664
10665
["End position of [:upper:] char class at point" ar-upper-end-position-atpt
10666
:help " `ar-upper-end-position-atpt'
10667
Return end position of UPPER at point if succesful, nil otherwise. "]
10668
10669
["End position of [:xdigit:] char class at point" ar-xdigit-end-position-atpt
10670
:help " `ar-xdigit-end-position-atpt'
10671
Return end position of XDIGIT at point if succesful, nil otherwise. "]
10672
10673
)
10674
("Other"
10675
10676
["End position of ANGLED-NO-NEST at point" ar-angled-no-nest-end-position-atpt
10677
:help " `ar-angled-no-nest-end-position-atpt'
10678
Return end position of ANGLED-NO-NEST at point if succesful, nil otherwise. "]
10679
10680
["End position of GREATER-ANGLED-NESTED at point" ar-greater-angled-nested-end-position-atpt
10681
:help " `ar-greater-angled-nested-end-position-atpt'
10682
Return end position of GREATER-ANGLED-NESTED at point if succesful, nil otherwise. "]
10683
10684
["End position of LESSER-ANGLED-NESTED at point" ar-lesser-angled-nested-end-position-atpt
10685
:help " `ar-lesser-angled-nested-end-position-atpt'
10686
Return end position of LESSER-ANGLED-NESTED at point if succesful, nil otherwise. "]
10687
10688
["End position of BUFFER at point" ar-buffer-end-position-atpt
10689
:help " `ar-buffer-end-position-atpt'
10690
Return end position of BUFFER at point if succesful, nil otherwise. "]
10691
10692
["End position of COMMENT at point" ar-comment-end-position-atpt
10693
:help " `ar-comment-end-position-atpt'
10694
Return end position of COMMENT at point if succesful, nil otherwise. "]
10695
10696
["End position of CSV at point" ar-csv-end-position-atpt
10697
:help " `ar-csv-end-position-atpt'
10698
Return end position of CSV at point if succesful, nil otherwise. "]
10699
10700
["End position of DATE at point" ar-date-end-position-atpt
10701
:help " `ar-date-end-position-atpt'
10702
Return end position of DATE at point if succesful, nil otherwise. "]
10703
10704
["End position of DEFUN at point" ar-defun-end-position-atpt
10705
:help " `ar-defun-end-position-atpt'
10706
Return end position of DEFUN at point if succesful, nil otherwise. "]
10707
10708
["End position of DELIMITED at point" ar-delimited-end-position-atpt
10709
:help " `ar-delimited-end-position-atpt'
10710
Return end position of DELIMITED at point if succesful, nil otherwise. "]
10711
10712
["End position of EMAIL at point" ar-email-end-position-atpt
10713
:help " `ar-email-end-position-atpt'
10714
Return end position of EMAIL at point if succesful, nil otherwise. "]
10715
10716
["End position of FILENAME at point" ar-filename-end-position-atpt
10717
:help " `ar-filename-end-position-atpt'
10718
Return end position of FILENAME at point if succesful, nil otherwise. "]
10719
10720
["End position of FLOAT at point" ar-float-end-position-atpt
10721
:help " `ar-float-end-position-atpt'
10722
Return end position of FLOAT at point if succesful, nil otherwise. "]
10723
10724
["End position of FUNCTION at point" ar-function-end-position-atpt
10725
:help " `ar-function-end-position-atpt'
10726
Return end position of FUNCTION at point if succesful, nil otherwise. "]
10727
10728
["End position of IP at point" ar-ip-end-position-atpt
10729
:help " `ar-ip-end-position-atpt'
10730
Return end position of IP at point if succesful, nil otherwise. "]
10731
10732
["End position of ISBN at point" ar-isbn-end-position-atpt
10733
:help " `ar-isbn-end-position-atpt'
10734
Return end position of ISBN at point if succesful, nil otherwise. "]
10735
10736
["End position of LINE at point" ar-line-end-position-atpt
10737
:help " `ar-line-end-position-atpt'
10738
Return end position of LINE at point if succesful, nil otherwise. "]
10739
10740
["End position of NAME at point" ar-name-end-position-atpt
10741
:help " `ar-name-end-position-atpt'
10742
Return end position of NAME at point if succesful, nil otherwise. "]
10743
10744
["End position of NUMBER at point" ar-number-end-position-atpt
10745
:help " `ar-number-end-position-atpt'
10746
Return end position of NUMBER at point if succesful, nil otherwise. "]
10747
10748
["End position of PAGE at point" ar-page-end-position-atpt
10749
:help " `ar-page-end-position-atpt'
10750
Return end position of PAGE at point if succesful, nil otherwise. "]
10751
10752
["End position of PARAGRAPH at point" ar-paragraph-end-position-atpt
10753
:help " `ar-paragraph-end-position-atpt'
10754
Return end position of PARAGRAPH at point if succesful, nil otherwise. "]
10755
10756
["End position of PAREN at point" ar-paren-end-position-atpt
10757
:help " `ar-paren-end-position-atpt'
10758
Return end position of PAREN at point if succesful, nil otherwise. "]
10759
10760
["End position of PHONE at point" ar-phone-end-position-atpt
10761
:help " `ar-phone-end-position-atpt'
10762
Return end position of PHONE at point if succesful, nil otherwise. "]
10763
10764
["End position of REGION at point" ar-region-end-position-atpt
10765
:help " `ar-region-end-position-atpt'
10766
Return end position of REGION at point if succesful, nil otherwise. "]
10767
10768
["End position of SENTENCE at point" ar-sentence-end-position-atpt
10769
:help " `ar-sentence-end-position-atpt'
10770
Return end position of SENTENCE at point if succesful, nil otherwise. "]
10771
10772
["End position of SEXP at point" ar-sexp-end-position-atpt
10773
:help " `ar-sexp-end-position-atpt'
10774
Return end position of SEXP at point if succesful, nil otherwise. "]
10775
10776
["End position of STRING at point" ar-string-end-position-atpt
10777
:help " `ar-string-end-position-atpt'
10778
Return end position of STRING at point if succesful, nil otherwise. "]
10779
10780
["End position of SH-STRUCT at point" ar-sh-struct-end-position-atpt
10781
:help " `ar-sh-struct-end-position-atpt'
10782
Return end position of SH-STRUCT at point if succesful, nil otherwise. "]
10783
10784
["End position of SYMBOL at point" ar-symbol-end-position-atpt
10785
:help " `ar-symbol-end-position-atpt'
10786
Return end position of SYMBOL at point if succesful, nil otherwise. "]
10787
10788
["End position of URL at point" ar-url-end-position-atpt
10789
:help " `ar-url-end-position-atpt'
10790
Return end position of URL at point if succesful, nil otherwise. "]
10791
10792
["End position of WORD at point" ar-word-end-position-atpt
10793
:help " `ar-word-end-position-atpt'
10794
Return end position of WORD at point if succesful, nil otherwise. "]
10795
10796
["End position of WORD-ALPHA-ONLY at point" ar-word-alpha-only-end-position-atpt
10797
:help " `ar-word-alpha-only-end-position-atpt'
10798
Return end position of WORD-ALPHA-ONLY at point if succesful, nil otherwise. "]
10799
10800
)
10801
10802
)
10803
10804
)
10805
("Length"
10806
("Delimited"
10807
10808
["Length of BRACED at point" ar-length-of-braced-atpt
10809
:help " `ar-length-of-braced-atpt'
10810
Length of BRACED at point if any, nil otherwise. "]
10811
10812
["Length of BRACKETED at point" ar-length-of-bracketed-atpt
10813
:help " `ar-length-of-bracketed-atpt'
10814
Length of BRACKETED at point if any, nil otherwise. "]
10815
10816
["Length of PARENTIZED at point" ar-length-of-parentized-atpt
10817
:help " `ar-length-of-parentized-atpt'
10818
Length of PARENTIZED at point if any, nil otherwise. "]
10819
10820
["Length of DOUBLEQUOTED at point" ar-length-of-doublequoted-atpt
10821
:help " `ar-length-of-doublequoted-atpt'
10822
Length of DOUBLEQUOTED at point if any, nil otherwise. "]
10823
10824
["Length of SINGLEQUOTED at point" ar-length-of-singlequoted-atpt
10825
:help " `ar-length-of-singlequoted-atpt'
10826
Length of SINGLEQUOTED at point if any, nil otherwise. "]
10827
10828
["Length of TRIPLEQUOTED at point" ar-length-of-triplequoted-atpt
10829
:help " `ar-length-of-triplequoted-atpt'
10830
Length of TRIPLEQUOTED at point if any, nil otherwise. "]
10831
10832
["Length of LESSER-ANGLED at point" ar-length-of-lesser-angled-atpt
10833
:help " `ar-length-of-lesser-angled-atpt'
10834
Length of LESSER-ANGLED at point if any, nil otherwise. "]
10835
10836
"-"
10837
10838
["Length of TRIPLEQUOTED-DQ at point" ar-length-of-triplequoted-dq-atpt
10839
:help " `ar-length-of-triplequoted-dq-atpt'
10840
Length of TRIPLEQUOTED-DQ at point if any, nil otherwise. "]
10841
10842
["Length of TRIPLEQUOTE-SQ at point" ar-length-of-triplequote-sq-atpt
10843
:help " `ar-length-of-triplequote-sq-atpt'
10844
Length of TRIPLEQUOTE-SQ at point if any, nil otherwise. "]
10845
10846
["Length of GREATER-ANGLED at point" ar-length-of-greater-angled-atpt
10847
:help " `ar-length-of-greater-angled-atpt'
10848
Length of GREATER-ANGLED at point if any, nil otherwise. "]
10849
10850
["Length of LEFT-RIGHT-SINGLEQUOTED at point" ar-length-of-left-right-singlequoted-atpt
10851
:help " `ar-length-of-left-right-singlequoted-atpt'
10852
Length of LEFT-RIGHT-SINGLEQUOTED at point if any, nil otherwise. "]
10853
10854
["Length of BACKSLASHED at point" ar-length-of-backslashed-atpt
10855
:help " `ar-length-of-backslashed-atpt'
10856
Length of BACKSLASHED at point if any, nil otherwise. "]
10857
10858
["Length of DOLLARED at point" ar-length-of-dollared-atpt
10859
:help " `ar-length-of-dollared-atpt'
10860
Length of DOLLARED at point if any, nil otherwise. "]
10861
10862
["Length of DOUBLEQUOTED at point" ar-length-of-doublequoted-atpt
10863
:help " `ar-length-of-doublequoted-atpt'
10864
Length of DOUBLEQUOTED at point if any, nil otherwise. "]
10865
10866
["Length of EQUALIZED at point" ar-length-of-equalized-atpt
10867
:help " `ar-length-of-equalized-atpt'
10868
Length of EQUALIZED at point if any, nil otherwise. "]
10869
10870
["Length of HYPHENED at point" ar-length-of-hyphened-atpt
10871
:help " `ar-length-of-hyphened-atpt'
10872
Length of HYPHENED at point if any, nil otherwise. "]
10873
10874
["Length of SINGLEQUOTED at point" ar-length-of-singlequoted-atpt
10875
:help " `ar-length-of-singlequoted-atpt'
10876
Length of SINGLEQUOTED at point if any, nil otherwise. "]
10877
10878
["Length of SLASHED at point" ar-length-of-slashed-atpt
10879
:help " `ar-length-of-slashed-atpt'
10880
Length of SLASHED at point if any, nil otherwise. "]
10881
10882
["Length of UNDERSCORED at point" ar-length-of-underscored-atpt
10883
:help " `ar-length-of-underscored-atpt'
10884
Length of UNDERSCORED at point if any, nil otherwise. "]
10885
10886
["Length of WHITESPACED at point" ar-length-of-whitespaced-atpt
10887
:help " `ar-length-of-whitespaced-atpt'
10888
Length of WHITESPACED at point if any, nil otherwise. "])
10889
("Character classes"
10890
10891
["Length of [:alnum:] char class at point" ar-length-of-alnum-atpt
10892
:help " `ar-length-of-alnum-atpt'
10893
Return length of ALNUM at point if succesful, nil otherwise. "]
10894
10895
["Length of [:alpha:] char class at point" ar-length-of-alpha-atpt
10896
:help " `ar-length-of-alpha-atpt'
10897
Return length of ALPHA at point if succesful, nil otherwise. "]
10898
10899
["Length of [:ascii:] char class at point" ar-length-of-ascii-atpt
10900
:help " `ar-length-of-ascii-atpt'
10901
Return length of ASCII at point if succesful, nil otherwise. "]
10902
10903
["Length of [:blank:] char class at point" ar-length-of-blank-atpt
10904
:help " `ar-length-of-blank-atpt'
10905
Return length of BLANK at point if succesful, nil otherwise. "]
10906
10907
["Length of [:cntrl:] char class at point" ar-length-of-cntrl-atpt
10908
:help " `ar-length-of-cntrl-atpt'
10909
Return length of CNTRL at point if succesful, nil otherwise. "]
10910
10911
["Length of [:digit:] char class at point" ar-length-of-digit-atpt
10912
:help " `ar-length-of-digit-atpt'
10913
Return length of DIGIT at point if succesful, nil otherwise. "]
10914
10915
["Length of [:graph:] char class at point" ar-length-of-graph-atpt
10916
:help " `ar-length-of-graph-atpt'
10917
Return length of GRAPH at point if succesful, nil otherwise. "]
10918
10919
["Length of [:lower:] char class at point" ar-length-of-lower-atpt
10920
:help " `ar-length-of-lower-atpt'
10921
Return length of LOWER at point if succesful, nil otherwise. "]
10922
10923
["Length of [:nonascii:] char class at point" ar-length-of-nonascii-atpt
10924
:help " `ar-length-of-nonascii-atpt'
10925
Return length of NONASCII at point if succesful, nil otherwise. "]
10926
10927
["Length of [:print:] char class at point" ar-length-of-print-atpt
10928
:help " `ar-length-of-print-atpt'
10929
Return length of PRINT at point if succesful, nil otherwise. "]
10930
10931
["Length of [:punct:] char class at point" ar-length-of-punct-atpt
10932
:help " `ar-length-of-punct-atpt'
10933
Return length of PUNCT at point if succesful, nil otherwise. "]
10934
10935
["Length of [:space:] char class at point" ar-length-of-space-atpt
10936
:help " `ar-length-of-space-atpt'
10937
Return length of SPACE at point if succesful, nil otherwise. "]
10938
10939
["Length of [:upper:] char class at point" ar-length-of-upper-atpt
10940
:help " `ar-length-of-upper-atpt'
10941
Return length of UPPER at point if succesful, nil otherwise. "]
10942
10943
["Length of [:xdigit:] char class at point" ar-length-of-xdigit-atpt
10944
:help " `ar-length-of-xdigit-atpt'
10945
Return length of XDIGIT at point if succesful, nil otherwise. "])
10946
("Other"
10947
10948
["Length of ANGLED-NO-NEST at point" ar-length-of-angled-no-nest-atpt
10949
:help " `ar-length-of-angled-no-nest-atpt'
10950
Return length of ANGLED-NO-NEST at point if succesful, nil otherwise. "]
10951
10952
["Length of GREATER-ANGLED-NESTED at point" ar-length-of-greater-angled-nested-atpt
10953
:help " `ar-length-of-greater-angled-nested-atpt'
10954
Return length of GREATER-ANGLED-NESTED at point if succesful, nil otherwise. "]
10955
10956
["Length of LESSER-ANGLED-NESTED at point" ar-length-of-lesser-angled-nested-atpt
10957
:help " `ar-length-of-lesser-angled-nested-atpt'
10958
Return length of LESSER-ANGLED-NESTED at point if succesful, nil otherwise. "]
10959
10960
["Length of BUFFER at point" ar-length-of-buffer-atpt
10961
:help " `ar-length-of-buffer-atpt'
10962
Return length of BUFFER at point if succesful, nil otherwise. "]
10963
10964
["Length of COMMENT at point" ar-length-of-comment-atpt
10965
:help " `ar-length-of-comment-atpt'
10966
Return length of COMMENT at point if succesful, nil otherwise. "]
10967
10968
["Length of CSV at point" ar-length-of-csv-atpt
10969
:help " `ar-length-of-csv-atpt'
10970
Return length of CSV at point if succesful, nil otherwise. "]
10971
10972
["Length of DATE at point" ar-length-of-date-atpt
10973
:help " `ar-length-of-date-atpt'
10974
Return length of DATE at point if succesful, nil otherwise. "]
10975
10976
["Length of DEFUN at point" ar-length-of-defun-atpt
10977
:help " `ar-length-of-defun-atpt'
10978
Return length of DEFUN at point if succesful, nil otherwise. "]
10979
10980
["Length of DELIMITED at point" ar-length-of-delimited-atpt
10981
:help " `ar-length-of-delimited-atpt'
10982
Return length of DELIMITED at point if succesful, nil otherwise. "]
10983
10984
["Length of EMAIL at point" ar-length-of-email-atpt
10985
:help " `ar-length-of-email-atpt'
10986
Return length of EMAIL at point if succesful, nil otherwise. "]
10987
10988
["Length of FILENAME at point" ar-length-of-filename-atpt
10989
:help " `ar-length-of-filename-atpt'
10990
Return length of FILENAME at point if succesful, nil otherwise. "]
10991
10992
["Length of FLOAT at point" ar-length-of-float-atpt
10993
:help " `ar-length-of-float-atpt'
10994
Return length of FLOAT at point if succesful, nil otherwise. "]
10995
10996
["Length of FUNCTION at point" ar-length-of-function-atpt
10997
:help " `ar-length-of-function-atpt'
10998
Return length of FUNCTION at point if succesful, nil otherwise. "]
10999
11000
["Length of IP at point" ar-length-of-ip-atpt
11001
:help " `ar-length-of-ip-atpt'
11002
Return length of IP at point if succesful, nil otherwise. "]
11003
11004
["Length of ISBN at point" ar-length-of-isbn-atpt
11005
:help " `ar-length-of-isbn-atpt'
11006
Return length of ISBN at point if succesful, nil otherwise. "]
11007
11008
["Length of LINE at point" ar-length-of-line-atpt
11009
:help " `ar-length-of-line-atpt'
11010
Return length of LINE at point if succesful, nil otherwise. "]
11011
11012
["Length of NAME at point" ar-length-of-name-atpt
11013
:help " `ar-length-of-name-atpt'
11014
Return length of NAME at point if succesful, nil otherwise. "]
11015
11016
["Length of NUMBER at point" ar-length-of-number-atpt
11017
:help " `ar-length-of-number-atpt'
11018
Return length of NUMBER at point if succesful, nil otherwise. "]
11019
11020
["Length of PAGE at point" ar-length-of-page-atpt
11021
:help " `ar-length-of-page-atpt'
11022
Return length of PAGE at point if succesful, nil otherwise. "]
11023
11024
["Length of PARAGRAPH at point" ar-length-of-paragraph-atpt
11025
:help " `ar-length-of-paragraph-atpt'
11026
Return length of PARAGRAPH at point if succesful, nil otherwise. "]
11027
11028
["Length of PAREN at point" ar-length-of-paren-atpt
11029
:help " `ar-length-of-paren-atpt'
11030
Return length of PAREN at point if succesful, nil otherwise. "]
11031
11032
["Length of PHONE at point" ar-length-of-phone-atpt
11033
:help " `ar-length-of-phone-atpt'
11034
Return length of PHONE at point if succesful, nil otherwise. "]
11035
11036
["Length of REGION at point" ar-length-of-region-atpt
11037
:help " `ar-length-of-region-atpt'
11038
Return length of REGION at point if succesful, nil otherwise. "]
11039
11040
["Length of SENTENCE at point" ar-length-of-sentence-atpt
11041
:help " `ar-length-of-sentence-atpt'
11042
Return length of SENTENCE at point if succesful, nil otherwise. "]
11043
11044
["Length of SEXP at point" ar-length-of-sexp-atpt
11045
:help " `ar-length-of-sexp-atpt'
11046
Return length of SEXP at point if succesful, nil otherwise. "]
11047
11048
["Length of STRING at point" ar-length-of-string-atpt
11049
:help " `ar-length-of-string-atpt'
11050
Return length of STRING at point if succesful, nil otherwise. "]
11051
11052
["Length of SH-STRUCT at point" ar-length-of-sh-struct-atpt
11053
:help " `ar-length-of-sh-struct-atpt'
11054
Return length of SH-STRUCT at point if succesful, nil otherwise. "]
11055
11056
["Length of SYMBOL at point" ar-length-of-symbol-atpt
11057
:help " `ar-length-of-symbol-atpt'
11058
Return length of SYMBOL at point if succesful, nil otherwise. "]
11059
11060
["Length of URL at point" ar-length-of-url-atpt
11061
:help " `ar-length-of-url-atpt'
11062
Return length of URL at point if succesful, nil otherwise. "]
11063
11064
["Length of WORD at point" ar-length-of-word-atpt
11065
:help " `ar-length-of-word-atpt'
11066
Return length of WORD at point if succesful, nil otherwise. "]
11067
11068
["Length of WORD-ALPHA-ONLY at point" ar-length-of-word-alpha-only-atpt
11069
:help " `ar-length-of-word-alpha-only-atpt'
11070
Return length of WORD-ALPHA-ONLY at point if succesful, nil otherwise. "]))
11071
11072
;; ar-thing-at-point-utils-nodelim-core-menu: ar-atpt-classes end
11073
11074
)))
11075
11076
map))
11077
11078
(define-derived-mode werkstatt emacs-lisp-mode "Werk"
11079
;; (kill-all-local-variables)
11080
;; (setq major-mode 'ar-werkstatt
11081
;; mode-name "Sh-Werkstatt")
11082
(use-local-map ar-werkstatt-mode-map)
11083
(and ar-werkstatt-hs-minor-mode-p
11084
(add-hook 'ar-werkstatt-mode-hook 'hs-minor-mode))
11085
;; (when ar-werkstatt-menu
11086
;; (easy-menu-add ar-werkstatt-menu)
11087
)
11088
11089
11090
;; ar-python-triplequote-raw start
11091
11092
;;;###autoload
11093
(defun ar-th-triplequote (thing &optional arg iact)
11094
" "
11095
(let* ((bounds (ar-th-bounds thing))
11096
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11097
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11098
(ar-th-delim thing arg "\"\"\"\\\\\\\\\|\'\'\'" "\"\"\"\\\\\\\\\|\'\'\'" iact beg end)))
11099
11100
;;;###autoload
11101
(defun ar-th-triplequote-dq (thing &optional arg iact)
11102
" "
11103
(let* ((bounds (ar-th-bounds thing))
11104
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11105
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11106
(ar-th-delim thing arg "\"\"\"" "\"\"\"" iact beg end)))
11107
11108
;;;###autoload
11109
(defun ar-th-triplequote-sq (thing &optional arg iact)
11110
" "
11111
(let* ((bounds (ar-th-bounds thing))
11112
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11113
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11114
(ar-th-delim thing arg "'''" "'''" iact beg end)))
11115
11116
;; ar-insert-delimit-unpaired start
11117
11118
;;;###autoload
11119
(defun ar-th-backslash (thing &optional arg iact)
11120
" "
11121
(let* ((bounds (ar-th-bounds thing))
11122
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11123
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11124
(ar-th-delim thing arg "\\" "\\" iact beg end)))
11125
11126
;;;###autoload
11127
(defun ar-th-backtick (thing &optional arg iact)
11128
" "
11129
(let* ((bounds (ar-th-bounds thing))
11130
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11131
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11132
(ar-th-delim thing arg "`" "`" iact beg end)))
11133
11134
;;;###autoload
11135
(defun ar-th-colon (thing &optional arg iact)
11136
" "
11137
(let* ((bounds (ar-th-bounds thing))
11138
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11139
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11140
(ar-th-delim thing arg ":" ":" iact beg end)))
11141
11142
;;;###autoload
11143
(defun ar-th-dollar (thing &optional arg iact)
11144
" "
11145
(let* ((bounds (ar-th-bounds thing))
11146
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11147
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11148
(ar-th-delim thing arg "$" "$" iact beg end)))
11149
11150
;;;###autoload
11151
(defun ar-th-doublequote (thing &optional arg iact)
11152
" "
11153
(let* ((bounds (ar-th-bounds thing))
11154
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11155
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11156
(ar-th-delim thing arg "\"" "\"" iact beg end)))
11157
11158
;;;###autoload
11159
(defun ar-th-equalize (thing &optional arg iact)
11160
" "
11161
(let* ((bounds (ar-th-bounds thing))
11162
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11163
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11164
(ar-th-delim thing arg "=" "=" iact beg end)))
11165
11166
;;;###autoload
11167
(defun ar-th-escape (thing &optional arg iact)
11168
" "
11169
(let* ((bounds (ar-th-bounds thing))
11170
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11171
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11172
(ar-th-delim thing arg "\\" "\\" iact beg end)))
11173
11174
;;;###autoload
11175
(defun ar-th-hyphen (thing &optional arg iact)
11176
" "
11177
(let* ((bounds (ar-th-bounds thing))
11178
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11179
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11180
(ar-th-delim thing arg "-" "-" iact beg end)))
11181
11182
;;;###autoload
11183
(defun ar-th-singlequote (thing &optional arg iact)
11184
" "
11185
(let* ((bounds (ar-th-bounds thing))
11186
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11187
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11188
(ar-th-delim thing arg "'" "'" iact beg end)))
11189
11190
;;;###autoload
11191
(defun ar-th-slash (thing &optional arg iact)
11192
" "
11193
(let* ((bounds (ar-th-bounds thing))
11194
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11195
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11196
(ar-th-delim thing arg "/" "/" iact beg end)))
11197
11198
;;;###autoload
11199
(defun ar-th-star (thing &optional arg iact)
11200
" "
11201
(let* ((bounds (ar-th-bounds thing))
11202
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11203
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11204
(ar-th-delim thing arg "*" "*" iact beg end)))
11205
11206
;;;###autoload
11207
(defun ar-th-backtick (thing &optional arg iact)
11208
" "
11209
(let* ((bounds (ar-th-bounds thing))
11210
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11211
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11212
(ar-th-delim thing arg "`" "`" iact beg end)))
11213
11214
;;;###autoload
11215
(defun ar-th-underscore (thing &optional arg iact)
11216
" "
11217
(let* ((bounds (ar-th-bounds thing))
11218
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11219
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11220
(ar-th-delim thing arg "_" "_" iact beg end)))
11221
11222
;;;###autoload
11223
(defun ar-th-whitespace (thing &optional arg iact)
11224
" "
11225
(let* ((bounds (ar-th-bounds thing))
11226
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11227
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11228
(ar-th-delim thing arg " " " " iact beg end)))
11229
;; ar-insert-delimit-unpaired end
11230
11231
;; ar-insert-delimit-forms start
11232
11233
;;;###autoload
11234
(defun ar-th-brace (thing &optional arg iact)
11235
" "
11236
(let* ((bounds (ar-th-bounds thing))
11237
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11238
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11239
(ar-th-delim thing arg "{" "}" iact beg end)))
11240
11241
;;;###autoload
11242
(defun ar-th-bracket (thing &optional arg iact)
11243
" "
11244
(let* ((bounds (ar-th-bounds thing))
11245
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11246
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11247
(ar-th-delim thing arg "[" "]" iact beg end)))
11248
11249
;;;###autoload
11250
(defun ar-th-lesser-angle (thing &optional arg iact)
11251
" "
11252
(let* ((bounds (ar-th-bounds thing))
11253
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11254
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11255
(ar-th-delim thing arg "<" ">" iact beg end)))
11256
11257
;;;###autoload
11258
(defun ar-th-greater-angle (thing &optional arg iact)
11259
" "
11260
(let* ((bounds (ar-th-bounds thing))
11261
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11262
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11263
(ar-th-delim thing arg ">" "<" iact beg end)))
11264
11265
;;;###autoload
11266
(defun ar-th-left-right-singlequote (thing &optional arg iact)
11267
" "
11268
(let* ((bounds (ar-th-bounds thing))
11269
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11270
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11271
(ar-th-delim thing arg "‘" "’" iact beg end)))
11272
11273
;;;###autoload
11274
(defun ar-th-parentize (thing &optional arg iact)
11275
" "
11276
(let* ((bounds (ar-th-bounds thing))
11277
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11278
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11279
(ar-th-delim thing arg "(" ")" iact beg end)))
11280
;; ar-insert-delimit-forms end
11281
11282
;; ar-atpt-data-forms-aktiv start
11283
11284
;;;###autoload
11285
(defun ar-th-begin-end-quote (thing &optional arg iact)
11286
" "
11287
(let* ((bounds (ar-th-bounds thing))
11288
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11289
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11290
(ar-th-delim thing arg "\\begin{quote}" "\\end{quote}" iact beg end)))
11291
11292
;;;###autoload
11293
(defun ar-th-blok (thing &optional arg iact)
11294
" "
11295
(let* ((bounds (ar-th-bounds thing))
11296
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11297
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11298
(ar-th-delim thing arg "{% " " %}" iact beg end)))
11299
11300
;;;###autoload
11301
(defun ar-th-double-backslash (thing &optional arg iact)
11302
" "
11303
(let* ((bounds (ar-th-bounds thing))
11304
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11305
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11306
(ar-th-delim thing arg "\\\\" "\\\\" iact beg end)))
11307
11308
;;;###autoload
11309
(defun ar-th-doubleslash (thing &optional arg iact)
11310
" "
11311
(let* ((bounds (ar-th-bounds thing))
11312
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11313
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11314
(ar-th-delim thing arg "//" "//" iact beg end)))
11315
11316
;;;###autoload
11317
(defun ar-th-double-backslash-paren (thing &optional arg iact)
11318
" "
11319
(let* ((bounds (ar-th-bounds thing))
11320
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11321
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11322
(ar-th-delim thing arg "\\\\(" "\\\\)" iact beg end)))
11323
11324
;;;###autoload
11325
(defun ar-th-tabledata (thing &optional arg iact)
11326
" "
11327
(let* ((bounds (ar-th-bounds thing))
11328
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11329
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11330
(ar-th-delim thing arg "<td[^>]*>" "</td>" iact beg end)))
11331
11332
;;;###autoload
11333
(defun ar-th-slash-paren (thing &optional arg iact)
11334
" "
11335
(let* ((bounds (ar-th-bounds thing))
11336
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11337
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11338
(ar-th-delim thing arg "\\(" "\\)" iact beg end)))
11339
11340
;;;###autoload
11341
(defun ar-th-xsl-stylesheet (thing &optional arg iact)
11342
" "
11343
(let* ((bounds (ar-th-bounds thing))
11344
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11345
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11346
(ar-th-delim thing arg "<xsl:stylesheet[^<]+>.*$" "</xsl:stylesheet>" iact beg end)))
11347
11348
;;;###autoload
11349
(defun ar-th-xsl-template (thing &optional arg iact)
11350
" "
11351
(let* ((bounds (ar-th-bounds thing))
11352
(beg (or (ignore-errors (caar bounds))(car-safe bounds)))
11353
(end (or (ignore-errors (cdr (cadr bounds)))(ignore-errors (cadr (cadr bounds)))(cdr-safe bounds))))
11354
(ar-th-delim thing arg "<xsl:template[^<]+>.*$" "</xsl:template>" iact beg end)))
11355
;; ar-atpt-data-forms-aktiv end
11356
11357
11358
(defun ar-th-slash-base (thing startstring endstring &optional arg iact)
11359
(let* ((bounds (ar-th-bounds thing arg iact))
11360
(beg (caar bounds))
11361
(end (copy-marker (or (ignore-errors (cadr (cadr bounds)))(ignore-errors (cdr (cadr bounds)))))))
11362
(goto-char end)
11363
(forward-char -1)
11364
(insert endstring)
11365
(goto-char beg)
11366
(insert startstring)
11367
(goto-char (1+ end))))
11368
11369
11370
11371
;; ar-insert-thingatpt-syntax-funktionen start
11372
11373
(defun ar-syntax-class-atpt (&optional pos)
11374
"Return the syntax class part of the syntax at point. "
11375
(interactive)
11376
(let* ((pos (or pos (point)))
11377
(erg (logand (car (syntax-after pos)) 65535)))
11378
(when (interactive-p) (message "%s" erg)) erg))
11379
11380
(defun syntax-class-bfpt ()
11381
"Return the syntax class part of the syntax at point. "
11382
(interactive)
11383
(let ((erg (logand (car (syntax-after (1- (point)))) 65535)))
11384
(when (interactive-p) (message "%s" erg)) erg))
11385
11386
(defun ar-syntax-atpt (&optional docu pos)
11387
(interactive)
11388
(when pos
11389
(goto-char pos))
11390
(let* ((elt (car (if (featurep 'xemacs)
11391
(char-syntax (char-after))
11392
(syntax-after (point)))))
11393
(stax (cond ((eq elt 0) "0 whitespace")
11394
((eq elt 5) "5 close parenthesis")
11395
((eq elt 10) "10 character quote")
11396
((eq elt 1) "1 punctuation")
11397
((eq elt 6) "6 expression prefix")
11398
((eq elt 11) "11 comment-start")
11399
((eq elt 2) "2 word")
11400
((eq elt 7) "7 string quote")
11401
((eq elt 12) "12 comment-end")
11402
((eq elt 3) "3 symbol")
11403
((eq elt 8) "8 paired delimiter")
11404
((eq elt 13) "13 inherit")
11405
((eq elt 4) "4 open parenthesis")
11406
((eq elt 9) "9 escape")
11407
((eq elt 14) "14 generic comment")
11408
((eq elt 15) "15 generic string"))))
11409
(when (interactive-p)
11410
(message (format "%s" stax)))
11411
(if docu
11412
(format "%s" stax)
11413
elt)))
11414
11415
(defun ar-syntax-in-region-atpt (beg end)
11416
(interactive "r")
11417
(save-excursion
11418
(goto-char beg)
11419
(let (erg)
11420
(while (< (point) end)
11421
(setq erg (concat erg "\n" "\"" (char-to-string (char-after)) "\"" " is " (ar-syntax-atpt t)))
11422
(forward-char 1))
11423
(message "%s" erg)
11424
erg)))
11425
11426
(defun syntax-bfpt ()
11427
(interactive)
11428
(let ((stax (syntax-after (1- (point)))))
11429
(when (interactive-p)
11430
(message (format "%s" stax)))
11431
stax))
11432
11433
(defvar ar-paired-delimited-raw
11434
(list
11435
'(braced "{" "}")
11436
'(bracketed "[" "]")
11437
'(lesser-angled "<" ">")
11438
'(greater-angled ">" "<")
11439
'(left-right-singlequoted "‘" "’")
11440
'(parentized "(" ")")))
11441
11442
(defvar ar-unpaired-delimited-raw
11443
(list
11444
'(backslashed "\\\\")
11445
'(backticked "`")
11446
'(coloned ":")
11447
'(dollared "$")
11448
'(doublequoted "\\\"")
11449
'(equalized "=")
11450
'(hyphened "-")
11451
'(singlequoted "'")
11452
'(slashed "/")
11453
'(stared "*")
11454
'(underscored "_")
11455
'(whitespaced " ")))
11456
11457
(defun ar--transform-delimited-new-delimiter (to)
11458
"Return the new delimiter - either paired or unpaired. "
11459
(let ((erg))
11460
(dolist (ele ar-paired-delimited-raw)
11461
(when (member to ele)
11462
(setq erg (cdr ele))
11463
(message "%s" (car erg))))
11464
(unless erg
11465
(dolist (ele ar-unpaired-delimited-raw)
11466
(when (member to ele)
11467
(setq erg (cdr ele))
11468
(message "%s" (car erg)))))
11469
erg))
11470
11471
(defun ar--transform-insert-opening-delimiter-according-to-type (new-delimiter)
11472
"If a cons, insert car. "
11473
(insert (car new-delimiter)))
11474
11475
(defun ar--transform-return-closing-delimiter-according-to-type (new-delimiter)
11476
"Return closing delimiter. "
11477
(if (< 1 (length new-delimiter))
11478
(cadr new-delimiter)
11479
(car new-delimiter)))
11480
11481
;; (ar--transform-delimited-new-delimiter t)
11482
11483
;; ar-paired-delimited-raw
11484
;; ar-unpaired-delimited-raw
11485
(defun ar--transform-delimited-intern (from to)
11486
"Expects string. "
11487
(let* ((bounds (ignore-errors (funcall (car (read-from-string (concat "ar-bounds-of-" from "-atpt"))))))
11488
(end (copy-marker (or (ignore-errors (cadr (cadr bounds)))(ignore-errors (cdr (cadr bounds))))))
11489
(new-delimiter (ar--transform-delimited-new-delimiter (car (read-from-string to)))))
11490
(if (and bounds new-delimiter)
11491
(progn
11492
(funcall (car (read-from-string (concat "ar-trim-" from "-atpt"))))
11493
(goto-char (caar bounds))
11494
;; (insert "[")
11495
(ar--transform-insert-opening-delimiter-according-to-type new-delimiter)
11496
(goto-char end)
11497
;; (insert "]")
11498
(insert (ar--transform-return-closing-delimiter-according-to-type new-delimiter)))
11499
(message (concat "Can't see " from)))))
11500
;; Listen start
11501
11502
(setq ar-atpt-unpaired-delimited-extended-list
11503
(list
11504
'(backslashed "\\")
11505
'(backticked "`")
11506
'(coloned ":")
11507
'(dollared "$")
11508
'(doublequoted "\"")
11509
'(equalized "=")
11510
'(hyphened "-")
11511
'(singlequoted "'")
11512
'(slashed "/")
11513
'(stared "*")
11514
'(underscored "_")
11515
'(whitespaced " ")))
11516
11517
(setq ar-atpt-data-forms-aktiv
11518
(list
11519
'begin-end-quote
11520
'blok
11521
'double-backslash
11522
'doubleslash
11523
'double-backslash-paren
11524
'tabledata
11525
'slash-paren
11526
'xsl-stylesheet
11527
'xsl-template))
11528
11529
(setq ar-atpt-data-forms-passiv
11530
(list
11531
'begin-end-quoted
11532
'blok
11533
'double-backslashed
11534
'doubleslashed
11535
'doubleslashed-paren
11536
'tabledata-p
11537
'slashed-paren
11538
'xsl-stylesheet-p
11539
'xsl-template-p))
11540
11541
(setq ar-atpt-python-list (list 'py-block 'py-block-or-clause 'py-class 'py-clause 'py-def-or-class 'py-def 'py-expression 'py-partial-expression 'py-statement 'py-string))
11542
11543
(setq ar-atpt-python-quoted (list 'triplequoted 'triplequoted-dq 'triplequoted-sq))
11544
11545
(setq ar-python-triplequote (list 'triplequote 'triplequote-dq 'triplequote-sq))
11546
11547
(setq ar-atpt-markup-list (list 'begin-end-quote 'blok 'double-backslashed 'doubleslashed 'doubleslashed-paren 'markup 'ml-data 'ml-attribut 'ml-tag 'slashed-paren 'tabledata 'xsl-stylesheet 'xsl-template))
11548
11549
(setq ar-atpt-delimlist (list 'brace 'bracket 'lesser-angle 'greater-angle 'left-right-singlequote 'parentize))
11550
11551
(setq ar-atpt-delimited-list (list 'braced 'bracketed 'lesser-angled 'greater-angled 'left-right-singlequoted 'parentized))
11552
11553
(setq ar-atpt-delimlist-unpaired (list 'backslash 'backtick 'colon 'dollar 'doublequote 'equalize 'escape 'hyphen 'singlequote 'slash 'star 'backtick 'underscore 'whitespace))
11554
11555
(setq ar-atpt-unpaired-delimited-list (list 'backslashed 'backticked 'coloned 'dollared 'doublequoted 'equalized 'hyphened 'singlequoted 'slashed 'stared 'underscored 'whitespaced))
11556
11557
(setq ar-atpt-classes (list 'alnum 'alpha 'ascii 'blank 'cntrl 'digit 'graph 'lower 'nonascii 'print 'punct 'space 'upper 'xdigit))
11558
11559
(setq ar-atpt-region-only (list 'region))
11560
11561
(setq ar-atpt-rest-list (list 'angled-no-nest 'greater-angled-nested 'lesser-angled-nested 'buffer 'comment 'csv 'date 'defun 'delimited 'email 'filename 'filename-nondirectory 'float 'function 'ip 'isbn 'line 'list 'name 'number 'page 'paragraph 'paren 'phone 'region 'sentence 'sexp 'string 'sh-struct 'symbol 'url 'word 'word-alpha-only))
11562
11563
(setq ar-atpt-major-forms-restricted-list (list 'buffer 'page 'paragraph 'region))
11564
11565
(setq ar-atpt-counts-list (list 'angled-no-nest 'greater-angled-nested 'lesser-angled-nested 'csv 'line 'paragraph 'region 'sentence 'string 'buffer))
11566
11567
(setq ar-atpt-unary-operations-raw (list 'commatize 'quote))
11568
11569
11570
11571
(provide 'thingatpt-utils-base)
11572
;;; thingatpt-utils-base.el ends here
Loggerhead is a web-based interface for Breezy
Version: 2.0.1