blob: ec568093af224880445f99b45c823c86faf856e2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
(defun f-test ()
(let ((elisp-shorthands '(("foo-" . "bar-"))))
(with-temp-buffer
(insert "(foo-bar)")
(goto-char (point-min))
(read (current-buffer)))))
(defun f-test2 ()
(let ((elisp-shorthands '(("foo-" . "bar-"))))
(read-from-string "(foo-bar)")))
(defun f-test3 ()
(let ((elisp-shorthands '(("foo-" . "bar-"))))
(intern "foo-bar")))
(defvar f-test-complete-me 42)
(defun #_f-test4--- () 84)
(when nil
(f-test3)
(f-test2)
(f-test)
(#_f-test4---))
;; Local Variables:
;; elisp-shorthands: (("f-" . "elisp--foo-"))
;; End:
|
