Re: Default share/ and lisp/ directories?

[Noam Postavsky]

On Tue, Feb 20, 2018 at 3:27 PM, Kaushal Modi <address@hidden> wrote:

>> Use (file-name-directory (directory-file-name (expand-file-name file)))

> Thank you. I was aware of that, but was just being plain lazy.. I didn't
> consider refactoring my whole config to fix that until now[1], so thanks :)

For those of us who are even lazier, what's wrong with

(defvar share-dir (expand-file-name "../share/" invocation-directory))
(defvar lisp-dir
  (expand-file-name
   (format "../share/emacs/%s/lisp/"
           (pcase (version-to-list emacs-version)
             (`(,major 0 ,micro . ,_) (format "%d.0.%d" major micro))
             (`(,major ,minor . ,_) (format "%d.%d" major minor))))
   invocation-directory))