You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
22 lines
827 B
22 lines
827 B
(setq inhibit-modification-hooks nil)
|
|
(defun test-hook-a (change-beg change-end prev-len)
|
|
(append-to-file change-beg change-end "xyz.txt"))
|
|
(defun test-hook-b (change-beg change-end)
|
|
(append-to-file change-beg change-end "xyz.txt"))
|
|
(defun test-hook-i (num)
|
|
(setq x (concat (buffer-substring-no-properties (point-min) (+ (point-min) num)) "0\n"))
|
|
(message x)
|
|
(write-region x nil "xyz.txt" t)
|
|
(point-min))
|
|
(add-hook 'after-change-functions 'test-hook-a)
|
|
(add-hook 'before-change-functions 'test-hook-b)
|
|
;(add-hook 'after-insert-file-functions 'test-hook-i)
|
|
;(autoload 'speechd-speak "speechd-speak" nil t)
|
|
;(speechd-speak)
|
|
;(speechd-set-rate 65)
|
|
;(speechd-set-punctuation-mode "all")
|
|
;(speechd-out-disable-driver "brltty")
|
|
;(setq speechd-speak-echo 'word
|
|
; speechd-speak-deleted-char t
|
|
; speechd-speak-whole-line t)
|