Set read-symbol-shorthands in individual libraries

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.

Author: tarsius

.dir-locals.el

@@ -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

lisp/forge-github.el

@@ -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

lisp/forge-gitlab.el

@@ -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

lisp/forge-topic.el

@@ -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