A big fat general update and tidy up of all my inits

[syinit] / 03-c-mode-sy.el

diff --git a/03-c-mode-sy.el b/03-c-mode-sy.el
index 34a2d7e..2084c3c 100644 (file)
--- a/03-c-mode-sy.el
+++ b/03-c-mode-sy.el
@@ -1,13 +1,13 @@
-;; 03-c-mode-sy.el --- Set up C mode   -*- Emacs-Lisp -*-
+;; 03-c-mode.el --- Set up C mode
 
 ;; Copyright (C) 2007 - 2020 Steve Youngs
 
 ;;     Author: Steve Youngs <steve@sxemacs.org>
 ;; Maintainer: Steve Youngs <steve@sxemacs.org>
 ;;    Created: <2007-12-02>
-;; Time-stamp: <Wednesday Feb 12, 2020 12:00:39 steve>
-;;   Download: <http://bastard.steveyoungs.com/~steve/SXEmacs/inits/>
-;;   HTMLised: <http://bastard.steveyoungs.com/~steve/SXEmacs/htmlinits/03-c-mode-sy.html>
+;; Time-stamp: <Thursday Apr  9, 2020 06:45:27 steve>
+;;   Download: <https://downloads.sxemacs.org/SYinits/>
+;;   HTMLised: <https://www.sxemacs.org/SYinits/03-c-mode.html>
 ;;   Git Repo: git clone https://git.sxemacs.org/syinit
 ;;   Keywords: init, compile
 
@@ -77,10 +77,8 @@ Key-bindings:
   (c-set-style "linux")
   (setq mode-name "Linux/C"))
 
-(unless (member '("^.*/linux.*/.*\\.[ch]$" . linux-c-mode)
-               auto-mode-alist)
-  (add-to-list 'auto-mode-alist
-              '("^.*/linux.*/.*\\.[ch]$" . linux-c-mode)))
+(add-to-list
+ 'auto-mode-alist '("^.*/linux.*/.*\\.[ch]$" . linux-c-mode))
 
 ;:*=======================
 ;:* C style for XEmacs core source files
@@ -93,10 +91,8 @@ Key-bindings:
   (c-set-style "gnu")
   (setq mode-name "XE/C"))
 
-(unless (member '("^.*/xemacs.*/.*\\.[ch]$" . xemacs-c-mode)
-               auto-mode-alist)
-  (add-to-list 'auto-mode-alist
-              '("^.*/xemacs.*/.*\\.[ch]$" . xemacs-c-mode)))
+(add-to-list
+ 'auto-mode-alist '("^.*/xemacs.*/.*\\.[ch]$" . xemacs-c-mode))
 
 ;:*=======================
 ;:* C style for SXEmacs core source files
@@ -112,10 +108,8 @@ Key-bindings:
   (make-variable-buffer-local 'c-enable-xemacs-performance-kludge-p)
   (setq c-enable-xemacs-performance-kludge-p t))
 
-(unless (member '("^.*/sxemacs.*/.*\\.[ch]$" . sxemacs-c-mode)
-               auto-mode-alist)
-  (add-to-list 'auto-mode-alist
-              '("^.*/sxemacs.*/.*\\.[ch]$" . sxemacs-c-mode)))
+(add-to-list
+ 'auto-mode-alist '("^.*/sxemacs.*/.*\\.[ch]$" . sxemacs-c-mode))
 
 ;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 (message "C mode initialised.")