PS
Size: a a a
PS
S
PS
PS
PS
PS
A
S
A
EZ
EZ
a
PG
AP
a
AP
a
(setf thing-at-point)
.a
thing-at-point
. Я хотел определить декремент целого числа под курсором (тоже странно,что его нет; я не потерял ли че из виду?), определил так
(defun decrement-integer-at-point ()
(interactive)
(asetf (integer-at-point) (1- it)))
(setf thing-at-point)
. Я определил так:
(defsetf thing-at-point (thing) (value)
`(let ((pair (bounds-of-thing-at-point ,thing)))
(replace-region-contents (car pair) (cdr pair)
(lambda () (ensure-string ,value)))))
ensure-string
— что тоже странно)PG
PG