help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: running multiple Emacs versions


From: Pascal J. Bourguignon
Subject: Re: running multiple Emacs versions
Date: Sat, 13 Feb 2010 19:58:54 +0100
User-agent: Gnus/5.11 (Gnus v5.11) Emacs/22.3 (darwin)

nchubrich <nicholas.chubrich@gmail.com> writes:

> I would like to run both Aquamacs and a compiled version of Emacs 23,
> for different purposes.  Presumably they will need different
> configurations.  How can I do this, seeing as there is one .emacs
> file?

I use the same .emacs for all my emacsen.
(Well, for one thing, I reduce the problem by using only GNU emacsen).


The only specific settings I have for aquamacs are:



(when (or (boundp 'aquamacs-version)
          (eq window-system 'ns))
  (setf mac-command-modifier 'meta
        mac-option-modifier  'alt
        one-buffer-one-frame nil
        initial-frame-alist '((background-color . "#ddffee")
                              (left . 76)
                              (top . 20)
                              (width . 80)
                              (height . 60))
        default-frame-alist (append initial-frame-alist default-frame-alist)
        cursor-type 'box)
  (cua-mode 0)
  ;; Perhaps the following is not needed for you or the current version:
  (when (fboundp 'smart-frame-positioning-mode)
    (smart-frame-positioning-mode nil))
  (when (load "scroll-bar" nil t)
    (defun scroll-bar-columns (side)
      "Return the width, measured in columns, of the vertical scrollbar on SIDE.
SIDE must be the symbol `left' or `right'."
      (let* ((wsb   (window-scroll-bars))
             (vtype (nth 2 wsb))
             (cols  (nth 1 wsb)))
        (cond
         ((not (memq side '(left right nil)))
          (error "`left' or `right' expected instead of %S" side))
         ((and (eq vtype side) cols))
         ((eq (frame-parameter nil 'vertical-scroll-bars) side)
          ;; nil means it's a non-toolkit scroll bar, and its width in
          ;; columns is 14 pixels rounded up.
          (ceiling (or (frame-parameter nil 'scroll-bar-width) 14)
                   (frame-char-width)))
         (0))))))


Here are a set a variable you can use to implement variable
configurations:

system-type          darwin   gnu/linux   cygwin
system-name          "naiad.informatimago.com" "hermes.afaa.asso.fr"
system-configuration "i686-pc-linux-gnu" "i686-pc-cygwin" 
"i386-apple-darwin9.8.0"
window-system        nil x mac ns w32
emacs-major-version  18 19 20 21 23
emacs-minor-version  0 1 2 3
emacs-version        "20.7.2" "21.2.1" "23.0.94.1" "23.1.1"
aquamacs-version     "2.0preview3"

But of course, you should try to keep the most common .emacs.
You may also use boundp and fboundp, and (when (require 'xxx nil t) ...)
to avoid errors when something is missing.

-- 
__Pascal Bourguignon__


reply via email to

[Prev in Thread] Current Thread [Next in Thread]