Skip to content

Commit

Permalink
Set read-symbol-shorthands in individual libraries
Browse files Browse the repository at this point in the history
When the source file is loaded, then the value set in ".dir-locals.el"
for `read-symbol-shorthands' is not honored.  For byte-compiled files,
settings in that file are honored.

Closes #757.
  • Loading branch information
tarsius committed Feb 17, 2025
1 parent 33b074f commit e8b0682
Show file tree
Hide file tree
Showing 4 changed files with 16 additions and 4 deletions.
5 changes: 1 addition & 4 deletions .dir-locals.el
Original file line number Diff line number Diff line change
@@ -1,8 +1,5 @@
((emacs-lisp-mode
(indent-tabs-mode . nil)
(read-symbol-shorthands
("partial" . "llama--left-apply-partially")
("rpartial" . "llama--right-apply-partially")))
(indent-tabs-mode . nil))
(git-commit-mode
(git-commit-major-mode . git-commit-elisp-text-mode))
(makefile-gmake-mode
Expand Down
5 changes: 5 additions & 0 deletions lisp/forge-github.el
Original file line number Diff line number Diff line change
Expand Up @@ -911,5 +911,10 @@
:callback callback :errorback errorback))

;;; _
;; Local Variables:
;; read-symbol-shorthands: (
;; ("partial" . "llama--left-apply-partially")
;; ("rpartial" . "llama--right-apply-partially"))
;; End:
(provide 'forge-github)
;;; forge-github.el ends here
5 changes: 5 additions & 0 deletions lisp/forge-gitlab.el
Original file line number Diff line number Diff line change
Expand Up @@ -682,5 +682,10 @@
:errorback (or errorback (and callback t))))

;;; _
;; Local Variables:
;; read-symbol-shorthands: (
;; ("partial" . "llama--left-apply-partially")
;; ("rpartial" . "llama--right-apply-partially"))
;; End:
(provide 'forge-gitlab)
;;; forge-gitlab.el ends here
5 changes: 5 additions & 0 deletions lisp/forge-topic.el
Original file line number Diff line number Diff line change
Expand Up @@ -1773,5 +1773,10 @@ modify `bug-reference-bug-regexp' if appropriate."
(add-hook hook #'forge-bug-reference-setup)))

;;; _
;; Local Variables:
;; read-symbol-shorthands: (
;; ("partial" . "llama--left-apply-partially")
;; ("rpartial" . "llama--right-apply-partially"))
;; End:
(provide 'forge-topic)
;;; forge-topic.el ends here

0 comments on commit e8b0682

Please sign in to comment.