[elpa] master 86803d6 200/433: (mmm-set-major-mode-preferences): Added function.

[Dmitry Gutov]

branch: master
commit 86803d69d8b86967d4f4f6953778c290fa9c28fa
Author: mas <mas>
Commit: mas <mas>

    (mmm-set-major-mode-preferences): Added function.
---
 mmm-vars.el | 23 +++++++++++++++++++++--
 1 file changed, 21 insertions(+), 2 deletions(-)

diff --git a/mmm-vars.el b/mmm-vars.el
index 5d016e4..2efca29 100644
--- a/mmm-vars.el
+++ b/mmm-vars.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2000 by Michael Abraham Shulman
 
 ;; Author: Michael Abraham Shulman <address@hidden>
-;; Version: $Id: mmm-vars.el,v 1.39 2001/01/14 01:26:53 mas Exp $
+;; Version: $Id: mmm-vars.el,v 1.40 2001/01/15 00:35:34 mas Exp $
 
 ;;{{{ GPL
 
@@ -311,7 +311,26 @@ unnecessary. It probably won't go away, though."
   "User preferences about what major modes to use.
 Each element has the form \(LANGUAGE . MODE) where LANGUAGE is the
 name of a programming language such as `perl' as a symbol, and MODE is
-the major mode to use, such as `cperl-mode' or `perl-mode'.")
+the major mode to use, such as `cperl-mode' or `perl-mode'."
+  :group 'mmm
+  :type '(repeat (cons symbol
+                       (restricted-sexp :match-alternatives
+                                        (commandp)))))
+
+(defun mmm-set-major-mode-preferences (language mode &optional default)
+  "Set the preferred major mode for LANGUAGE to MODE.
+This sets the value of `mmm-major-mode-preferences'.  If there is
+already a mode specified for LANGUAGE, and DEFAULT is nil or
+unsupplied, then it is changed.  If DEFAULT is non-nil, then any
+existing mode is unchanged.  This may be used by packages to ensure
+that some mode is present, but not override any user-specified mode."
+  (let ((pair (assq language mmm-major-mode-preferences)))
+    (if pair
+        ;; Existing mode preference
+        (unless default
+          (setcdr pair mode))
+      ;; No existing mode preference
+      (add-to-list 'mmm-major-mode-preferences (cons language mode)))))
 
 ;;}}}
 ;;{{{ Key Bindings