[elpa] externals/ergoemacs-mode e3d4071 108/325: Remove standard-var component

[Stefan Monnier]

branch: externals/ergoemacs-mode
commit e3d4071d894c9bdfffa06327e502d282b5944642
Author: Walter Landry <wlandry@caltech.edu>
Commit: Walter Landry <wlandry@caltech.edu>

    Remove standard-var component
---
 ergoemacs-themes.el | 126 +---------------------------------------------------
 1 file changed, 1 insertion(+), 125 deletions(-)

diff --git a/ergoemacs-themes.el b/ergoemacs-themes.el
index 24a6e65..ea69dc8 100644
--- a/ergoemacs-themes.el
+++ b/ergoemacs-themes.el
@@ -28,129 +28,6 @@
 (require 'advice)
 (require 'ibuffer)
 
-(ergoemacs-component standard-vars ()
-  "Enabled/changed variables/modes"
-  (setq org-CUA-compatible t
-        org-support-shift-select t
-        set-mark-command-repeat-pop t
-        org-special-ctrl-a/e t
-        ido-vertical-define-keys 'C-n-C-p-up-down-left-right
-        scroll-error-top-bottom t
-        initial-scratch-message (substitute-command-keys ";; This buffer is 
for notes you don't want to save, and for Lisp evaluation.\n;; If you want to 
create a file, visit that file with \\[find-file],\n;; then enter the text in 
that file's own buffer.")
-        ;; Remove tutorial and guided tour, since the keys don't apply...
-        fancy-startup-text
-        `((:face (variable-pitch font-lock-comment-face)
-                 "Welcome to "
-                 :link ("GNU Emacs"
-                        ,(lambda (_button) (browse-url 
"http://www.gnu.org/software/emacs/";))
-                        "Browse http://www.gnu.org/software/emacs/";)
-                 ", one component of the "
-                 :link
-                 ,(lambda ()
-                    (if (eq system-type 'gnu/linux)
-                        `("GNU/Linux"
-                          ,(lambda (_button) (browse-url 
"http://www.gnu.org/gnu/linux-and-gnu.html";))
-                          "Browse http://www.gnu.org/gnu/linux-and-gnu.html";)
-                      `("GNU" ,(lambda (_button) (describe-gnu-project))
-                        "Display info on the GNU project")))
-                 " operating system.\n\n"
-                 "\n"
-                 :link ("View Emacs Manual" ,(lambda (_button) 
(info-emacs-manual)))
-                 "\tView the Emacs manual using Info\n"
-                 :link ("Absence of Warranty" ,(lambda (_button) 
(describe-no-warranty)))
-                 "\tGNU Emacs comes with "
-                 :face (variable-pitch (:slant oblique))
-                 "ABSOLUTELY NO WARRANTY\n"
-                 :face variable-pitch
-                 :link ("Copying Conditions" ,(lambda (_button) 
(describe-copying)))
-                 "\tConditions for redistributing and changing Emacs\n"
-                 :link ("Ordering Manuals" ,(lambda (_button) 
(view-order-manuals)))
-                 "\tPurchasing printed copies of manuals\n"
-                 "\n"))
-        ;;
-        fancy-about-text
-        `((:face (variable-pitch font-lock-comment-face)
-                 "This is "
-                 :link ("GNU Emacs"
-                        ,(lambda (_button) (browse-url 
"http://www.gnu.org/software/emacs/";))
-                        "Browse http://www.gnu.org/software/emacs/";)
-                 ", one component of the "
-                 :link
-                 ,(lambda ()
-                    (if (eq system-type 'gnu/linux)
-                        `("GNU/Linux"
-                          ,(lambda (_button)
-                             (browse-url 
"http://www.gnu.org/gnu/linux-and-gnu.html";))
-                          "Browse http://www.gnu.org/gnu/linux-and-gnu.html";)
-                      `("GNU" ,(lambda (_button) (describe-gnu-project))
-                        "Display info on the GNU project.")))
-                 " operating system.\n"
-                 :face (variable-pitch font-lock-builtin-face)
-                 "\n"
-                 ,(lambda () (emacs-version))
-                 "\n"
-                 :face (variable-pitch (:height 0.8))
-                 ,(lambda () emacs-copyright)
-                 "\n\n"
-                 :face variable-pitch
-                 :link ("Authors"
-                        ,(lambda (_button)
-                           (view-file (expand-file-name "AUTHORS" 
data-directory))
-                           (goto-char (point-min))))
-                 "\tMany people have contributed code included in GNU Emacs\n"
-                 :link ("Contributing"
-                        ,(lambda (_button)
-                           (view-file (expand-file-name "CONTRIBUTE" 
data-directory))
-                           (goto-char (point-min))))
-                 "\tHow to contribute improvements to Emacs\n"
-                 "\n"
-                 :link ("GNU and Freedom" ,(lambda (_button) 
(describe-gnu-project)))
-                 "\tWhy we developed GNU Emacs, and the GNU operating system\n"
-                 :link ("Absence of Warranty" ,(lambda (_button) 
(describe-no-warranty)))
-                 "\tGNU Emacs comes with "
-                 :face (variable-pitch (:slant oblique))
-                 "ABSOLUTELY NO WARRANTY\n"
-                 :face variable-pitch
-                 :link ("Copying Conditions" ,(lambda (_button) 
(describe-copying)))
-                 "\tConditions for redistributing and changing Emacs\n"
-                 :link ("Getting New Versions" ,(lambda (_button) 
(describe-distribution)))
-                 "\tHow to obtain the latest version of Emacs\n"
-                 :link ("Ordering Manuals" ,(lambda (_button) 
(view-order-manuals)))
-                 "\tBuying printed manuals from the FSF\n"
-                 "\n"
-                )))
-  (add-hook 'dirtrack-directory-change-hook 
'ergoemacs-shell-here-directory-change-hook)
-  (add-hook 'kill-buffer-hook 'ergoemacs-save-buffer-to-recently-closed)
-  (add-hook 'shell-mode-hook 'ergoemacs-shell-here-hook)
-  (add-hook 'eshell-post-command-hook 
'ergoemacs-shell-here-directory-change-hook)
-  (delete-selection-mode 1)
-  (setq recentf-menu-before "Close"
-        recentf-menu-items-for-commands
-        (list
-         ["Open Last Closed"
-          ergoemacs-open-last-closed
-          :help "Remove duplicates, and obsoletes files from the recent list"
-          :active t]
-         ["Cleanup list"
-          recentf-cleanup
-          :help "Remove duplicates, and obsoletes files from the recent list"
-          :active t]
-         ["Edit list..."
-          recentf-edit-list
-          :help "Manually remove files from the recent list"
-          :active t]
-         ["Save list now"
-          recentf-save-list
-          :help "Save the list of recently opened files now"
-          :active t]
-         ["Options..."
-          (customize-group "recentf")
-          :help "Customize recently opened files menu and options"
-          :active t]))
-  (recentf-mode (if noninteractive -1 1))
-  )
-
-
 (defun ergoemacs-set-standard-vars ()
   "Enabled/changed variables/modes"
   (setq org-CUA-compatible t
@@ -1415,8 +1292,7 @@
                 select-items
                 switch
                 text-transform
-                ergoemacs-remaps
-                standard-vars)
+                ergoemacs-remaps)
   :optional-on '(tab-indents-region
                  backspace-del-seq
                  fixed-bold-italic