mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-01 07:16:39 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: emacs: Re-indent.

Browse source 
* gnu/packages/emacs.scm (emacs): Fix indentation.
This commit is contained in:
Maxim Cournoyer 2020-03-22 12:44:24 -04:00
parent ffaec30702
commit 3bd3a6257f
No known key found for this signature in database
GPG key ID: 1260E46482E63562
1 changed files with 46 additions and 46 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

92
gnu/packages/emacs.scm
View file

@ -76,54 +76,54 @@ (define-public emacs
(name "emacs") (name "emacs")
(version "26.3") (version "26.3")
(source (origin (source (origin
(method url-fetch) (method url-fetch)
(uri (string-append "mirror://gnu/emacs/emacs-" (uri (string-append "mirror://gnu/emacs/emacs-"
version ".tar.xz")) version ".tar.xz"))
(sha256 (sha256
(base32 (base32
"119ldpk7sgn9jlpyngv5y4z3i7bb8q3xp4p0qqi7i5nq39syd42d")) "119ldpk7sgn9jlpyngv5y4z3i7bb8q3xp4p0qqi7i5nq39syd42d"))
(patches (search-patches "emacs-exec-path.patch" (patches (search-patches "emacs-exec-path.patch"
"emacs-fix-scheme-indent-function.patch" "emacs-fix-scheme-indent-function.patch"
"emacs-source-date-epoch.patch")) "emacs-source-date-epoch.patch"))
(modules '((guix build utils))) (modules '((guix build utils)))
(snippet (snippet
'(with-directory-excursion "lisp" '(with-directory-excursion "lisp"
;; Delete the bundled byte-compiled elisp files and generated ;; Delete the bundled byte-compiled elisp files and generated
;; autoloads. ;; autoloads.
(for-each delete-file (for-each delete-file
(append (find-files "." "\\.elc$") (append (find-files "." "\\.elc$")
(find-files "." "loaddefs\\.el$") (find-files "." "loaddefs\\.el$")
;; This is the only "autoloads" file that ;; This is the only "autoloads" file that
;; does not have "*loaddefs.el" name. ;; does not have "*loaddefs.el" name.
;; TODO: Next time changing this package, ;; TODO: Next time changing this package,
;; replace the following with a call to ;; replace the following with a call to
;; `find-files', so that `delete-file' ;; `find-files', so that `delete-file'
;; wouldn't error out when the file is ;; wouldn't error out when the file is
;; missing, making the entire snippet field ;; missing, making the entire snippet field
;; reusable as-is for `emacs-next' below. ;; reusable as-is for `emacs-next' below.
'("eshell/esh-groups.el"))) '("eshell/esh-groups.el")))
;; Make sure Tramp looks for binaries in the right places on ;; Make sure Tramp looks for binaries in the right places on
;; remote Guix System machines, where 'getconf PATH' returns ;; remote Guix System machines, where 'getconf PATH' returns
;; something bogus. ;; something bogus.
(substitute* "net/tramp-sh.el" (substitute* "net/tramp-sh.el"
;; Patch the line after "(defcustom tramp-remote-path". ;; Patch the line after "(defcustom tramp-remote-path".
(("\\(tramp-default-remote-path") (("\\(tramp-default-remote-path")
(format #f "(tramp-default-remote-path ~s ~s ~s ~s " (format #f "(tramp-default-remote-path ~s ~s ~s ~s "
"~/.guix-profile/bin" "~/.guix-profile/sbin" "~/.guix-profile/bin" "~/.guix-profile/sbin"
"/run/current-system/profile/bin" "/run/current-system/profile/bin"
"/run/current-system/profile/sbin"))) "/run/current-system/profile/sbin")))
;; Make sure Man looks for C header files in the right ;; Make sure Man looks for C header files in the right
;; places. ;; places.
(substitute* "man.el" (substitute* "man.el"
(("\"/usr/local/include\"" line) (("\"/usr/local/include\"" line)
(string-join (string-join
(list line (list line
"\"~/.guix-profile/include\"" "\"~/.guix-profile/include\""
"\"/var/guix/profiles/system/profile/include\"") "\"/var/guix/profiles/system/profile/include\"")
" "))) " ")))
#t)))) #t))))
(build-system glib-or-gtk-build-system) (build-system glib-or-gtk-build-system)
(arguments (arguments
`(#:tests? #f ; no check target `(#:tests? #f ; no check target