Re: [aclug-L] XEmacs and Emacs

["Clint A. Brubakken" <cabrubak@xxxxxxxxxxx>]

Ok here they are in their interity, I probably didn't cut and past enough.

The parentesis should match in the end, if they don't there is a problem.


On Fri, 18 Dec 1998, Steven Saner wrote:

> Thanks for your reply and what you suggest is exactly what I am
> after. Unfortunately I'm sure if the syntax is quite correct in the
> code you list. Both xemacs and emacs complains about it. Since my lisp
> expertise is, well, nonexistent, could you help me out a bit? I notice
> that there is an unmatched number of open and closed parenthesis, which
> smells of being wrong, but I'm not sure how they should be.
> 
> Thanks.
> 
> 
> 
> On Fri, Dec 18, 1998 at 07:01:05PM -0600, Clint A. Brubakken wrote:
> > put all of youe xemacs option in a second file called xemacs-options 
> > 
> > (if your not sure which is which start with everything and then take out
> > as you go)
> > 
> > then add this to your .emacs
> > 
> >  ((and (string-match "XEmacs" emacs-version)
> >        (boundp 'emacs-major-version)
> >             (= emacs-major-version 19)
> >             (>= emacs-minor-version 14))
> >            (= emacs-major-version 20))
> >   (load-options-file "/usr/users/User18/cabrubak/.xemacs-options")))
> > 
> > replacing /usr/users/User18/cabrubak/.xemacs-options with where yours is
> > 
> > 
> > 
> > On
> > Fri, 18 Dec 1998, Steven Saner wrote:
> > 
> > > I use XEmacs on a regular basis when I am at my workstation. When I
> > > log in remotely, however, I often want to use plain old GNU Emacs in
> > > terminal mode. I have a number of XEmacs perferences stored in my
> > > .emacs file and that works fine. When I try to run GNU Emacs, however,
> > > it complains about some things in .emacs that it doesn't
> > > understand. Does anyone know how to fix this? Is it possible to have
> > > XEmacs read a different config file, like .xemacs?
> > > 
> > > Thanks
> > > 
> > > -- 
> > > ==================================================================
> > > Steven Saner                            SouthWind Internet Access, Inc.
> > > ssaner@xxxxxxxxxxxxx                    Technical Support
> > > http://www2.southwind.net/~ssaner       support@xxxxxxxxxxxxx
> > >                                         http://www.southwind.net
> > >                                         263-7963 Wichita  (800)525-7963
> > > 
> > > ---
> > > This is the Air Capital Linux Users Group discussion list.  If you
> > > want to unsubscribe, send the word "unsubscribe" to
> > > aclug-L-request@xxxxxxxxxxxx.  If you want to post to the list, send your
> > > message to aclug-L@xxxxxxxxxxxx.
> > > 
> > 
> > +-----------------------------------------------------+
> > | The Cheez-Czar  http://www.hackboy.com/~cabrubak    |
> > -------------------------------------------------------------------------------
> > Why did kamikaze pilots wear helmets?
> > --------------------------------------------------------------------------------
> > 
> > ---
> > This is the Air Capital Linux Users Group discussion list.  If you
> > want to unsubscribe, send the word "unsubscribe" to
> > aclug-L-request@xxxxxxxxxxxx.  If you want to post to the list, send your
> > message to aclug-L@xxxxxxxxxxxx.
> 
> -- 
> ==================================================================
> Steven Saner                            SouthWind Internet Access, Inc.
> ssaner@xxxxxxxxxxxxx                    Technical Support
> http://www2.southwind.net/~ssaner       support@xxxxxxxxxxxxx
>                                         http://www.southwind.net
>                                         263-7963 Wichita  (800)525-7963
> 
> ---
> This is the Air Capital Linux Users Group discussion list.  If you
> want to unsubscribe, send the word "unsubscribe" to
> aclug-L-request@xxxxxxxxxxxx.  If you want to post to the list, send your
> message to aclug-L@xxxxxxxxxxxx.
> 

+-----------------------------------------------------+
| The Cheez-Czar  http://www.hackboy.com/~cabrubak    |
-------------------------------------------------------------------------------
APPLE - Arrogance Produces Profit-Losing Entity
--------------------------------------------------------------------------------

;; -*- Mode: Emacs-Lisp -*-

(setq options-file-xemacs-version '(19 15))
  (setq-default case-fold-search t)
  (setq-default overwrite-mode nil)
    (setq-default case-fold-search t)
  (setq-default case-replace t)
  (require 'pending-del)
  (pending-delete-on nil)
  (setq-default zmacs-regions t)
  (setq-default mouse-yank-at-point nil)
  (setq-default require-final-newline t)
  (setq-default next-line-add-newlines nil)
  (setq-default teach-extended-commands-p t)
  (setq-default teach-extended-commands-timeout 2)
  (setq-default debug-on-error nil)
  (setq-default debug-on-quit nil)
  (setq-default lpr-switches nil)
  (setq-default ps-print-color-p t)
  (setq-default ps-paper-type 'letter)
  (setq-default get-frame-for-buffer-default-instance-limit nil)
  (setq-default temp-buffer-show-function 'show-temp-buffer-in-current-frame)
    (setq-default font-lock-auto-fontify t)
  (setq-default font-lock-use-fonts nil)
  (setq-default font-lock-use-colors t)
  (setq-default font-lock-maximum-decoration t)
  (setq-default font-lock-maximum-size 256000)
  (setq-default font-lock-mode-enable-list nil)
  (setq-default font-lock-mode-disable-list nil)
  (require 'font-lock)
  (remove-hook 'font-lock-mode-hook 'turn-on-fast-lock)
  (add-hook 'font-lock-mode-hook 'turn-on-lazy-lock)
  (require 'paren)
  (paren-set-mode 'sexp)
  (if (featurep 'scrollbar) (progn (add-spec-list-to-specifier scrollbar-width 
'nil) (add-spec-list-to-specifier scrollbar-height 'nil)))
  (add-spec-list-to-specifier modeline-shadow-thickness '((global (nil . 2))))
  (setq-default truncate-lines nil)
  (setq-default bar-cursor nil)
    (setq-default buffers-menu-max-size 25)
  (setq-default complex-buffers-menu-p nil)
  (setq-default buffers-menu-sort-function 
'sort-buffers-menu-by-mode-then-alphabetically)
  (setq-default buffers-menu-grouping-function 
'group-buffers-menu-by-mode-then-alphabetically)
  (setq-default buffers-menu-submenus-for-groups-p nil)
  (setq-default font-menu-ignore-scaled-fonts t)
  (setq-default font-menu-this-frame-only-p nil)
  (if (featurep 'toolbar) (progn (set-default-toolbar-position 'top) 
(add-spec-list-to-specifier default-toolbar-visible-p 'nil) 
(add-spec-list-to-specifier toolbar-buttons-captioned-p 'nil)))
  (setq-default mouse-avoidance-mode nil)
  (setq-default browse-url-browser-function 'browse-url-w3)

(setq inferior-lisp-program "/usr/bin/gcl") 

(defun FindNextDbl()
"move tothe next doubled word ignoring <...> tags" (interactive)
(re-search-forward "\\<\\([a-z]+\\)\\([\\n \\t]\\|<[^>]+>\\)+\\1\\>")
)
(define-key global-map "\C-x\C-d" 'FindNextDbl)
 
(setq-default c-brace-offset -2)
(autoload 'kill-this-buffer "menu-bar")
(define-key global-map "\C-x\C-k" 'kill-this-buffer)
(add-hook 'c-mode-hook
          '(lambda ()
             (line-number-mode 1)
             (define-key c-mode-map "\C-c\C-c" 'compile)
             (define-key c-mode-map "\C-m" 'reindent-then-newline-and-indent)))
(add-hook 'c++-mode-hook
          '(lambda ()
             (line-number-mode 1)
             (define-key c-mode-map "\C-c\C-c" 'compile)
             (define-key c++-mode-map "\C-m" 
'reindent-then-newline-and-indent)))
(define-key global-map "\M-g" 'goto-line)
(keyboard-translate ?\C-h ?\C-?)
(setq-default make-backup-files nil)
(set-face-background 'default      "snow")     ; frame background
(set-face-foreground 'default      "black")


;; Options Menu Settings
;; =====================
(cond
 ((and (string-match "XEmacs" emacs-version)
       (boundp 'emacs-major-version)
       (or (and
            (= emacs-major-version 19)
            (>= emacs-minor-version 14))
           (= emacs-major-version 20))
       (fboundp 'load-options-file))
  (load-options-file "/usr/users/User18/cabrubak/.xemacs-options")))
;; ============================
;; End of Options Menu Settings

(setq minibuffer-max-depth nil)