<commit_before>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Core Emacs Setup File
;;
;;  Copyright  1995-2010 <NAME>
;;
;;  This package is free software; you can redistribute it and/or modify
;;  it under the terms of the Artistic License, included as the file
;;  "LICENSE" in the source code archive.
;;
;;  This package 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.
;;
;;  You should have received a copy of the file "LICENSE", containing
;;  the License John Weiss originally placed this program under.
;;
;;
;; Modify the customization defaults, based on the settings that I want to
;; use.
;;
;; Load this file in your ".emacs", after the customization block.
;;
;;
;; RCS $Id$
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'custom)
(require 'cus-face)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Custom Defuns
;;
;;   Moved here, in the hope that they'll be present and available when this
;;   file is loaded at startup.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defun jpw-custom-set-variables-nonsaved  (&rest args)
  "Initializes the default value of a customization variable.

Calls `custom-set-variables' on the list of arguments, then converts the
\"saved value\" to the \"default value\".  This prevents localized
customizations from being written to your \".emacs\" file.

Note that this function may require modification whenever
`custom-declare-variable' changes.  {jpw: 9/2004}"
  (apply 'custom-set-variables args)
  (while args
    (let ((entry (car args)))
      (if (listp entry)
          (let* ((symbol (nth 0 entry))
                 (value (get symbol 'saved-value))
                 )
            (if value
                (progn
                 (put symbol 'standard-value value)
                 (put symbol 'force-value nil)
                 (put symbol 'saved-value nil)
                 )) ;; end if
            );; end let*
        ));; end (let ... (if ...
    (setq args (cdr args))
    );; end while
  )


(defun jpw-custom-set-faces-nonsaved  (&rest args)
  "Initializes the default value of a customizable face.

Calls `custom-set-faces' on the list of arguments, then converts the
\"saved value\" to the \"default value\".  This prevents localized
customizations from being written to your \".emacs\" file.

Note that this function may require modification whenever
`custom-declare-face' changes.  {jpw: 9/2004}"
  (apply 'custom-set-faces args)
  (while args
    (let ((entry (car args)))
      (if (listp entry)
          (let* ((face (nth 0 entry))
                 (spec (get face 'saved-face))
                 )
            (if spec
                (progn
                 (make-empty-face face)
                 (face-spec-set face spec)
                 (put face 'saved-face nil)
                 )) ;; end if
            );; end let*
        ));; end (let ... (if ...
    (setq args (cdr args))
    );; end while
  )


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Customization-Menu Variables.
;;
;;   This block only changes what emacs thinks the default values of these
;;   defcustom vars are.  It will NOT change the user's .emacs file when they
;;   next save their customizations.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;; Misc Default Filenames
(jpw-custom-set-variables-nonsaved
 '(abbrev-file-name "~/.emacs.d/.abbrevs" t)
 '(ps-printer-name "~/emacs-out.ps")
 '(quickurl-url-file "~/.emacs.d/.quickurls")
 )


;; Frame Settings
(jpw-custom-set-variables-nonsaved
 '(column-number-mode t)
 '(line-number-mode t)
 '(minibuffer-prompt-properties (quote (read-only
                                        t
                                        point-entered
                                        minibuffer-avoid-prompt
                                        face minibuffer-prompt)))
 '(scroll-bar-mode (quote right))
 )


;; General Behavior
(jpw-custom-set-variables-nonsaved
 '(case-fold-search t)
 '(confirm-kill-emacs (quote y-or-n-p))
 '(default-major-mode (quote text-mode))
 '(history-delete-duplicates t)
 '(revert-without-query (quote (".*")))
 '(safe-local-variable-values
   (quote ((coding-system . utf-8-unix)
           (coding-system . utf-8)
           (buffer-file-coding-system . utf-8)
           (buffer-file-coding-system-explicit . mule-utf-8-dos)
           (tab-stop-list 8 16 24 32 40 48 56 64 72))))
 '(save-abbrevs (quote silently))
 )


;; Misc. Modes to Enable by Default
(jpw-custom-set-variables-nonsaved
 '(abbrev-mode t)
 '(partial-completion-mode t)
 )


;; Editing Behavior
(jpw-custom-set-variables-nonsaved
 '(blink-matching-paren t)
 '(fill-column 78)  ;; For all but text mode.
 '(indent-tabs-mode 'nil) ;; Auto-convert Tabs to Spaces.
 '(next-line-add-newlines nil) ;; [Down] doesn't add \n at EOB
 '(require-final-newline nil)
 '(tab-width 4)  ;; Tab every 4 spaces.
 '(tab-stop-list (quote (4 8 12 16 20 24 28 32 36 40
                           44 48 52 56 60 64 68 72 76)) )
 )


;; Keep Running File Versions (swiped from <NAME>)
(jpw-custom-set-variables-nonsaved
 '(delete-old-versions nil)
 '(kept-new-versions 100)
 '(kept-old-versions 0)
 '(version-control t)
 )


;; Fontification-Related
(jpw-custom-set-variables-nonsaved
 '(global-font-lock-mode t nil (font-lock))
 '(transient-mark-mode t)
 '(show-paren-mode t nil (paren))
 '(show-paren-delay 0.5 nil (paren))
 '(show-paren-style (quote parenthesis) nil (paren))
 )


;; Settings for Multiple Languages:  use Latin1
(jpw-custom-set-variables-nonsaved
 '(current-language-environment "Latin-1")
 '(default-input-method "latin-1-prefix")
 )


;; Programming-Related Settings
(jpw-custom-set-variables-nonsaved
 '(align-c++-modes (quote (c++-mode c-mode
                                    java-mode javascript-generic-mode)))
 '(align-open-comment-modes (quote (vhdl-mode
                                    emacs-lisp-mode
                                    lisp-interaction-mode
                                    lisp-mode
                                    scheme-mode c++-mode c-mode
                                    java-mode
                                    perl-mode cperl-mode
                                    python-mode
                                    makefile-mode
                                    javascript-generic-mode)))<commit_msg>- Changed the SVN Keyword, from the old CVS-specific "RCS $Id:" to "$Id:". - Changed blink-paren/show-paren settings.<commit_after>;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Core Emacs Setup File
;;
;;  Copyright  1995-2010 <NAME>
;;
;;  This package is free software; you can redistribute it and/or modify
;;  it under the terms of the Artistic License, included as the file
;;  "LICENSE" in the source code archive.
;;
;;  This package 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.
;;
;;  You should have received a copy of the file "LICENSE", containing
;;  the License John Weiss originally placed this program under.
;;
;;
;; Modify the customization defaults, based on the settings that I want to
;; use.
;;
;; Load this file in your ".emacs", after the customization block.
;;
;;
;; $Id$
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'custom)
(require 'cus-face)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Custom Defuns
;;
;;   Moved here, in the hope that they'll be present and available when this
;;   file is loaded at startup.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defun jpw-custom-set-variables-nonsaved  (&rest args)
  "Initializes the default value of a customization variable.

Calls `custom-set-variables' on the list of arguments, then converts the
\"saved value\" to the \"default value\".  This prevents localized
customizations from being written to your \".emacs\" file.

Note that this function may require modification whenever
`custom-declare-variable' changes.  {jpw: 9/2004}"
  (apply 'custom-set-variables args)
  (while args
    (let ((entry (car args)))
      (if (listp entry)
          (let* ((symbol (nth 0 entry))
                 (value (get symbol 'saved-value))
                 )
            (if value
                (progn
                 (put symbol 'standard-value value)
                 (put symbol 'force-value nil)
                 (put symbol 'saved-value nil)
                 )) ;; end if
            );; end let*
        ));; end (let ... (if ...
    (setq args (cdr args))
    );; end while
  )


(defun jpw-custom-set-faces-nonsaved  (&rest args)
  "Initializes the default value of a customizable face.

Calls `custom-set-faces' on the list of arguments, then converts the
\"saved value\" to the \"default value\".  This prevents localized
customizations from being written to your \".emacs\" file.

Note that this function may require modification whenever
`custom-declare-face' changes.  {jpw: 9/2004}"
  (apply 'custom-set-faces args)
  (while args
    (let ((entry (car args)))
      (if (listp entry)
          (let* ((face (nth 0 entry))
                 (spec (get face 'saved-face))
                 )
            (if spec
                (progn
                 (make-empty-face face)
                 (face-spec-set face spec)
                 (put face 'saved-face nil)
                 )) ;; end if
            );; end let*
        ));; end (let ... (if ...
    (setq args (cdr args))
    );; end while
  )


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Customization-Menu Variables.
;;
;;   This block only changes what emacs thinks the default values of these
;;   defcustom vars are.  It will NOT change the user's .emacs file when they
;;   next save their customizations.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;; Misc Default Filenames
(jpw-custom-set-variables-nonsaved
 '(abbrev-file-name "~/.emacs.d/.abbrevs" t)
 '(ps-printer-name "~/emacs-out.ps")
 '(quickurl-url-file "~/.emacs.d/.quickurls")
 )


;; Frame Settings
(jpw-custom-set-variables-nonsaved
 '(column-number-mode t)
 '(line-number-mode t)
 '(minibuffer-prompt-properties (quote (read-only
                                        t
                                        point-entered
                                        minibuffer-avoid-prompt
                                        face minibuffer-prompt)))
 '(scroll-bar-mode (quote right))
 )


;; General Behavior
(jpw-custom-set-variables-nonsaved
 '(case-fold-search t)
 '(confirm-kill-emacs (quote y-or-n-p))
 '(default-major-mode (quote text-mode))
 '(history-delete-duplicates t)
 '(revert-without-query (quote (".*")))
 '(safe-local-variable-values
   (quote ((coding-system . utf-8-unix)
           (coding-system . utf-8)
           (buffer-file-coding-system . utf-8)
           (buffer-file-coding-system-explicit . mule-utf-8-dos)
           (tab-stop-list 8 16 24 32 40 48 56 64 72))))
 '(save-abbrevs (quote silently))
 )


;; Misc. Modes to Enable by Default
(jpw-custom-set-variables-nonsaved
 '(abbrev-mode t)
 '(partial-completion-mode t)
 )


;; Editing Behavior
(jpw-custom-set-variables-nonsaved
 '(blink-matching-paren t)
 '(blink-matching-paren-distance nil)
 '(fill-column 78)  ;; For all but text mode.
 '(indent-tabs-mode 'nil) ;; Auto-convert Tabs to Spaces.
 '(next-line-add-newlines nil) ;; [Down] doesn't add \n at EOB
 '(require-final-newline nil)
 '(tab-width 4)  ;; Tab every 4 spaces.
 '(tab-stop-list (quote (4 8 12 16 20 24 28 32 36 40
                           44 48 52 56 60 64 68 72 76)) )
 )


;; Keep Running File Versions (swiped from Jerry Leichter)
(jpw-custom-set-variables-nonsaved
 '(delete-old-versions nil)
 '(kept-new-versions 100)
 '(kept-old-versions 0)
 '(version-control t)
 )


;; Fontification-Related
(jpw-custom-set-variables-nonsaved
 '(global-font-lock-mode t nil (font-lock))
 '(transient-mark-mode t)
 ;;'(show-paren-mode t nil (paren))
 ;; `show-paren-mode' disables `blink-matching-paren' mode.  :P
 '(show-paren-mode nil nil (paren))
 '(show-paren-delay 0.5 nil (paren))
 '(show-paren-style (quote parenthesis) nil (paren))
 )


;; Settings for Multiple Languages:  use Latin1
(jpw-custom-set-variables-nonsaved
 '(current-language-environment "Latin-1")
 '(default-input-method "latin-1-prefix")
 )


;; Programming-Related Settings
(jpw-custom-set-variables-nonsaved
 '(align-c++-modes (quote (c++-mode c-mode
                                    java-mode javascript-generic-mode)))
 '(align-open-comment-modes (quote (vhdl-mode
                                    emacs-lisp-mode
                                    lisp-interaction-mode
                                    lisp-mode
                                    scheme-mode c++-mode c-mode
                                    java-mode
                                    perl-mode cperl-mode
                                    python-mode
                                    makefile-mode
                                    javascript-generic-mode)))
{'fraction_non_alphanumeric': 0.18571216837112792, 'fraction_numerical': 0.013339261894175189, 'mean_word_length': 2.3411735578113393, 'pattern_counts': {'":': 0, '<': 6, '<?xml version=': 0, '>': 6, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 30, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '5593151', 'n_tokens_mistral': 4490, 'n_tokens_neox': 3973, 'n_words': 1161}