]> code.delx.au - gnu-emacs-elpa/blobdiff - packages/tramp-theme/tramp-theme.el
Fix some quoting problems in doc strings
[gnu-emacs-elpa] / packages / tramp-theme / tramp-theme.el
index 2ef25942269ebfb9f73dea7d8c8f67c0d416ac44..2bf9e9b6986a3abc0f62def4fd203363ea9676bc 100644 (file)
@@ -3,19 +3,19 @@
 ;; Copyright (C) 2016 Free Software Foundation, Inc.
 
 ;; Author: Michael Albinus <michael.albinus@gmx.de>
+;; Keywords: convenience, faces
 ;; Package: tramp-theme
-;; Version: 0.1
+;; Version: 0.1.1
 ;; Package-Requires: ((emacs "24.1"))
 
+;; This file is not part of GNU Emacs.
 
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software: you can redistribute it and/or modify
+;; This program is free software: you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
 ;; the Free Software Foundation, either version 3 of the License, or
 ;; (at your option) any later version.
 
-;; GNU Emacs is distributed in the hope that it will be useful,
+;; This program is distributed in the hope that it will be useful,
 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 ;; GNU General Public License for more details.
@@ -69,7 +69,7 @@ changes the background color to \"Green\" for frames connected to
 the remote host \"bar\", and it inverses the fringe face for
 frames using the remote user \"root\":
 
-   '((nil \"^root$\" (fringe (:inherit fringe :inverse-video t)))
+    ((nil \"^root$\" (fringe (:inherit fringe :inverse-video t)))
      (\"^foo$\" nil (default (:background \"Red\")))
      (\"^bar$\" nil (default (:background \"Green\"))))
 
@@ -151,6 +151,12 @@ Used in different hooks, in order to accelerate the redisplay."
       'tramp-theme-hook-function
       (delete 'tramp-theme-hook-function eshell-directory-change-hook)))))
 
+;;;###autoload
+(when load-file-name
+  (add-to-list
+   'custom-theme-load-path
+   (file-name-as-directory (file-name-directory load-file-name))))
+
 (provide-theme 'tramp)
 
 ;;; TODO:
@@ -159,8 +165,4 @@ Used in different hooks, in order to accelerate the redisplay."
 ;;   to edit the faces.  Maybe use (widget-get custom-face-edit :args)
 ;;   for this.
 
-;; Local Variables:
-;; no-byte-compile: t
-;; End:
-
 ;;; tramp-theme.el ends here