all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* 23.0.60; Odd behavior of maximized windows
@ 2008-03-28 17:53 David Abrahams
  2008-03-30 17:59 ` Jan Djärv
  0 siblings, 1 reply; 13+ messages in thread
From: David Abrahams @ 2008-03-28 17:53 UTC (permalink / raw)
  To: emacs-pretest-bug


Please write in English if possible, because the Emacs maintainers
usually do not have translators to read other languages for them.

Your bug report will be posted to the emacs-pretest-bug@gnu.org mailing list.

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:

I am using Emacs 21 under Gnome with Compiz.  Occasionally, Compiz or
Emerald will freak out and I'll lose all my "window decorations" (title
bars, etc.)  I don't know what causes it.  I typically keep one or more
maximized emacs windows open.  With any other application I use, all I
need to do to get the decorations back is to restart my window manager
(it's not an X restart).  For some reason, the emacs window remains
maximized (the area, sans decorations, fills an entire screen) and no
decorations come back.  The emacs window actually even obscures the
gnome panels!  This persistent annoyance would obviously not be much of
a problem if it weren't for a bug somewhere else, but it is an odd
nonuniformity.  It would be best if emacs worked like all my other X
applications in that respect.

If Emacs crashed, and you have the Emacs process in the gdb debugger,
please include the output from the following gdb commands:
    `bt full' and `xbacktrace'.
If you would like to further debug the crash, please read the file
/usr/local/share/emacs/23.0.60/etc/DEBUG for instructions.


In GNU Emacs 23.0.60.2 (i686-pc-linux-gnu, GTK+ Version 2.12.0)
 of 2008-01-14 on gutsy
Windowing system distributor `The X.Org Foundation', version 11.0.10300000
configured using `configure  '--enable-font-backend' '--with-jpeg' '--with-tiff' '--with-gif' '--with-png' '--with-freetype' '--with-xft' '--with-gtk' '--with-xpm' '--prefix=/usr/local''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: en_US.UTF-8
  value of $XMODIFIERS: nil
  locale-coding-system: utf-8-unix
  default-enable-multibyte-characters: t

Major mode: Group

Minor modes in effect:
  gnus-topic-mode: t
  gnus-undo-mode: t
  show-paren-mode: t
  delete-selection-mode: t
  global-auto-revert-mode: t
  tooltip-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  global-auto-composition-mode: t
  auto-composition-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
<down-mouse-1> <mouse-1> M-x g n u s <return> <help-echo> 
<down-mouse-1> <mouse-1> M-x r e p o r t - e m a <tab> 
<return>

Recent messages:
nnrss: Requesting ImprovingBoostDocs...
Contacting host: beta.boost.org:80
Reading [text/xml]... 22k of 22k (100%)
Reading... done.
nnrss: Requesting ImprovingBoostDocs...done
nnrss: Requesting ATI Proprietary Linux Driver Releases...
Reading [application/octet-stream]... 22k of 22k (100%)
ati.amd.com tried to set a cookie for domain amd.com - rejected.
nnrss: Requesting ATI Proprietary Linux Driver Releases...done
Checking new news...done

-- 
Dave Abrahams
Boost Consulting
http://boost-consulting.com




^ permalink raw reply	[flat|nested] 13+ messages in thread

* Re: 23.0.60; Odd behavior of maximized windows
  2008-03-28 17:53 23.0.60; Odd behavior of maximized windows David Abrahams
@ 2008-03-30 17:59 ` Jan Djärv
  2008-03-30 18:51   ` David Abrahams
  0 siblings, 1 reply; 13+ messages in thread
From: Jan Djärv @ 2008-03-30 17:59 UTC (permalink / raw)
  To: David Abrahams; +Cc: emacs-pretest-bug

David Abrahams skrev:
> Please write in English if possible, because the Emacs maintainers
> usually do not have translators to read other languages for them.
> 
> Your bug report will be posted to the emacs-pretest-bug@gnu.org mailing list.
> 
> Please describe exactly what actions triggered the bug
> and the precise symptoms of the bug:
> 
> I am using Emacs 21 under Gnome with Compiz.  Occasionally, Compiz or
> Emerald will freak out and I'll lose all my "window decorations" (title
> bars, etc.)  I don't know what causes it.  I typically keep one or more
> maximized emacs windows open.  With any other application I use, all I
> need to do to get the decorations back is to restart my window manager
> (it's not an X restart).  For some reason, the emacs window remains
> maximized (the area, sans decorations, fills an entire screen) and no
> decorations come back.  The emacs window actually even obscures the
> gnome panels!  This persistent annoyance would obviously not be much of
> a problem if it weren't for a bug somewhere else, but it is an odd
> nonuniformity.  It would be best if emacs worked like all my other X
> applications in that respect.
> 

I also run Emerald, Gnome, Compiz and alse see Emerald crashes.  I don't have
maximized Emacs:es.  But I see that sometimes compiz maximizes windows by
itself when the become "too large" (exactly what that means I don't know).

Do you have other maximized windows that don't cover the entire screen after a
restart?  Window manager decorations is really up to the window manager, Emacs
doesn't do anything about this by itself.

	Jan D.





^ permalink raw reply	[flat|nested] 13+ messages in thread

* Re: 23.0.60; Odd behavior of maximized windows
  2008-03-30 17:59 ` Jan Djärv
@ 2008-03-30 18:51   ` David Abrahams
  2008-03-31  6:21     ` Jan Djärv
  0 siblings, 1 reply; 13+ messages in thread
From: David Abrahams @ 2008-03-30 18:51 UTC (permalink / raw)
  To: Jan Djärv; +Cc: emacs-pretest-bug


on Sun Mar 30 2008, Jan Djärv <jan.h.d-AT-swipnet.se> wrote:

> David Abrahams skrev:
>> Please write in English if possible, because the Emacs maintainers
>> usually do not have translators to read other languages for them.
>> 
>> Your bug report will be posted to the emacs-pretest-bug@gnu.org mailing list.
>> 
>> Please describe exactly what actions triggered the bug
>> and the precise symptoms of the bug:
>> 
>> I am using Emacs 21 under Gnome with Compiz.  Occasionally, Compiz or
>> Emerald will freak out and I'll lose all my "window decorations" (title
>> bars, etc.)  I don't know what causes it.  I typically keep one or more
>> maximized emacs windows open.  With any other application I use, all I
>> need to do to get the decorations back is to restart my window manager
>> (it's not an X restart).  For some reason, the emacs window remains
>> maximized (the area, sans decorations, fills an entire screen) and no
>> decorations come back.  The emacs window actually even obscures the
>> gnome panels!  This persistent annoyance would obviously not be much of
>> a problem if it weren't for a bug somewhere else, but it is an odd
>> nonuniformity.  It would be best if emacs worked like all my other X
>> applications in that respect.
>> 
>
> I also run Emerald, Gnome, Compiz and alse see Emerald crashes.  I don't have
> maximized Emacs:es.  But I see that sometimes compiz maximizes windows by
> itself when the become "too large" (exactly what that means I don't know).
>
> Do you have other maximized windows that don't cover the entire screen after a
> restart?  

Yes.

> Window manager decorations is really up to the window manager, Emacs
> doesn't do anything about this by itself.

I figured as much, but it must be doing something differently from,
e.g., Thunderbird, or I wouldn't be seeing this effect.

-- 
Dave Abrahams
Boost Consulting
http://boost-consulting.com




^ permalink raw reply	[flat|nested] 13+ messages in thread

* Re: 23.0.60; Odd behavior of maximized windows
  2008-03-30 18:51   ` David Abrahams
@ 2008-03-31  6:21     ` Jan Djärv
  2008-03-31 18:37       ` David Abrahams
  0 siblings, 1 reply; 13+ messages in thread
From: Jan Djärv @ 2008-03-31  6:21 UTC (permalink / raw)
  To: David Abrahams; +Cc: emacs-pretest-bug



David Abrahams skrev:
> on Sun Mar 30 2008, Jan Djärv <jan.h.d-AT-swipnet.se> wrote:
> 
>> I also run Emerald, Gnome, Compiz and alse see Emerald crashes.  I don't have
>> maximized Emacs:es.  But I see that sometimes compiz maximizes windows by
>> itself when the become "too large" (exactly what that means I don't know).
>>
>> Do you have other maximized windows that don't cover the entire screen after a
>> restart?  
> 
> Yes.
> 
>> Window manager decorations is really up to the window manager, Emacs
>> doesn't do anything about this by itself.
> 
> I figured as much, but it must be doing something differently from,
> e.g., Thunderbird, or I wouldn't be seeing this effect.
> 

I will run some tests.  I guess there is some property one should set which 
Emacs doesn't.  Stay tuned...

	Jan D.




^ permalink raw reply	[flat|nested] 13+ messages in thread

* Re: 23.0.60; Odd behavior of maximized windows
  2008-03-31  6:21     ` Jan Djärv
@ 2008-03-31 18:37       ` David Abrahams
  2008-04-01  8:38         ` Jan Djärv
  0 siblings, 1 reply; 13+ messages in thread
From: David Abrahams @ 2008-03-31 18:37 UTC (permalink / raw)
  To: Jan Djärv; +Cc: emacs-pretest-bug

Jan Djärv wrote:
> 
> 
> David Abrahams skrev:
>> on Sun Mar 30 2008, Jan Djärv <jan.h.d-AT-swipnet.se> wrote:
>>
>>> I also run Emerald, Gnome, Compiz and alse see Emerald crashes.  I
>>> don't have
>>> maximized Emacs:es.  But I see that sometimes compiz maximizes
>>> windows by
>>> itself when the become "too large" (exactly what that means I don't
>>> know).
>>>
>>> Do you have other maximized windows that don't cover the entire
>>> screen after a
>>> restart?  
>>
>> Yes.
>>
>>> Window manager decorations is really up to the window manager, Emacs
>>> doesn't do anything about this by itself.
>>
>> I figured as much, but it must be doing something differently from,
>> e.g., Thunderbird, or I wouldn't be seeing this effect.
>>
> 
> I will run some tests.  I guess there is some property one should set
> which Emacs doesn't.  Stay tuned...
> 
>     Jan D.
> 


Thanks!

-- 
Dave Abrahams
Boost Consulting
http://boost-consulting.com




^ permalink raw reply	[flat|nested] 13+ messages in thread

* Re: 23.0.60; Odd behavior of maximized windows
  2008-03-31 18:37       ` David Abrahams
@ 2008-04-01  8:38         ` Jan Djärv
  2008-04-01 14:43           ` David Abrahams
  0 siblings, 1 reply; 13+ messages in thread
From: Jan Djärv @ 2008-04-01  8:38 UTC (permalink / raw)
  To: David Abrahams; +Cc: emacs-pretest-bug


> Jan Djärv wrote:
>>
>> David Abrahams skrev:
>>> on Sun Mar 30 2008, Jan Djärv <jan.h.d-AT-swipnet.se> wrote:
>>>
>>>> I also run Emerald, Gnome, Compiz and alse see Emerald crashes.  I
>>>> don't have
>>>> maximized Emacs:es.  But I see that sometimes compiz maximizes
>>>> windows by
>>>> itself when the become "too large" (exactly what that means I don't
>>>> know).
>>>>
>>>> Do you have other maximized windows that don't cover the entire
>>>> screen after a
>>>> restart?  
>>> Yes.
>>>
>>>> Window manager decorations is really up to the window manager, Emacs
>>>> doesn't do anything about this by itself.
>>> I figured as much, but it must be doing something differently from,
>>> e.g., Thunderbird, or I wouldn't be seeing this effect.
>>>
>> I will run some tests.  I guess there is some property one should set
>> which Emacs doesn't.  Stay tuned...

I have run several tests and killed Emerald manually, but my Emacs always 
comes back with window decorations.

When Emacs is maximized, the window manager sets _NET_WM_STATE, usually to
  _NET_WM_STATE_MAXIMIZED_VERT, _NET_WM_STATE_MAXIMIZED_HORZ.

When it is restarted it shall look at the NET_WM_STATE and restore it as it 
was before the crash.  If WM_STATE is set to _NET_WM_STATE_FULLSCREEN however, 
you would see the behaviour you are seeing.

Can you do
% xprop | grep NET_WM_STATE

and then click in the maximized Emacs window?  What is the output?

Do you know what version of Emerald you have?  If you run this with for 
example Metacity, do you see the same effect?

	Jan D.






^ permalink raw reply	[flat|nested] 13+ messages in thread

* Re: 23.0.60; Odd behavior of maximized windows
  2008-04-01  8:38         ` Jan Djärv
@ 2008-04-01 14:43           ` David Abrahams
  2008-04-01 15:35             ` Jan Djärv
  2008-04-03  6:49             ` Jan Djärv
  0 siblings, 2 replies; 13+ messages in thread
From: David Abrahams @ 2008-04-01 14:43 UTC (permalink / raw)
  To: Jan Djärv; +Cc: emacs-pretest-bug

Jan Djärv wrote:
> 
>> Jan Djärv wrote:
>>>
>>> David Abrahams skrev:
>>>> on Sun Mar 30 2008, Jan Djärv <jan.h.d-AT-swipnet.se> wrote:
>>>>
>>>>> I also run Emerald, Gnome, Compiz and alse see Emerald crashes.  I
>>>>> don't have
>>>>> maximized Emacs:es.  But I see that sometimes compiz maximizes
>>>>> windows by
>>>>> itself when the become "too large" (exactly what that means I don't
>>>>> know).
>>>>>
>>>>> Do you have other maximized windows that don't cover the entire
>>>>> screen after a
>>>>> restart?  
>>>> Yes.
>>>>
>>>>> Window manager decorations is really up to the window manager, Emacs
>>>>> doesn't do anything about this by itself.
>>>> I figured as much, but it must be doing something differently from,
>>>> e.g., Thunderbird, or I wouldn't be seeing this effect.
>>>>
>>> I will run some tests.  I guess there is some property one should set
>>> which Emacs doesn't.  Stay tuned...
> 
> I have run several tests and killed Emerald manually, but my Emacs
> always comes back with window decorations.
> 
> When Emacs is maximized, the window manager sets _NET_WM_STATE, usually to
>  _NET_WM_STATE_MAXIMIZED_VERT, _NET_WM_STATE_MAXIMIZED_HORZ.
> 
> When it is restarted it shall look at the NET_WM_STATE and restore it as
> it was before the crash.  If WM_STATE is set to _NET_WM_STATE_FULLSCREEN
> however, you would see the behaviour you are seeing.
> 
> Can you do
> % xprop | grep NET_WM_STATE
> 
> and then click in the maximized Emacs window?  What is the output?

_NET_WM_STATE(ATOM) = _NET_WM_STATE_MAXIMIZED_VERT,
_NET_WM_STATE_MAXIMIZED_HORZ

> Do you know what version of Emerald you have?  

Here's the package info:

  Package: emerald
  Priority: optional
  Section: universe/x11
  Installed-Size: 956
  Maintainer: Ubuntu MOTU Developers <ubuntu-motu@lists.ubuntu.com>
  Original-Maintainer: Nicholas Thomas <lupine@beryl-project.org>
  Architecture: i386
  Version: 0.3~git20070717-0ubuntu1

> If you run this with for
> example Metacity, do you see the same effect?

I don't know how to duplicate the dying window decorator effect with
Metacity, so it's hard to tell you.

Thanks again for going to such lengths on this one.

-- 
Dave Abrahams
Boost Consulting
http://boost-consulting.com




^ permalink raw reply	[flat|nested] 13+ messages in thread

* Re: 23.0.60; Odd behavior of maximized windows
  2008-04-01 14:43           ` David Abrahams
@ 2008-04-01 15:35             ` Jan Djärv
  2008-04-01 15:48               ` David Abrahams
  2008-04-03  6:49             ` Jan Djärv
  1 sibling, 1 reply; 13+ messages in thread
From: Jan Djärv @ 2008-04-01 15:35 UTC (permalink / raw)
  To: David Abrahams; +Cc: emacs-pretest-bug



David Abrahams skrev:
> Jan Djärv wrote:
>>> Jan Djärv wrote:
>>>> David Abrahams skrev:
>>>>> on Sun Mar 30 2008, Jan Djärv <jan.h.d-AT-swipnet.se> wrote:
>>>>>
>>>>>> I also run Emerald, Gnome, Compiz and alse see Emerald crashes.  I
>>>>>> don't have
>>>>>> maximized Emacs:es.  But I see that sometimes compiz maximizes
>>>>>> windows by
>>>>>> itself when the become "too large" (exactly what that means I don't
>>>>>> know).
>>>>>>
>>>>>> Do you have other maximized windows that don't cover the entire
>>>>>> screen after a
>>>>>> restart?  
>>>>> Yes.
>>>>>
>>>>>> Window manager decorations is really up to the window manager, Emacs
>>>>>> doesn't do anything about this by itself.
>>>>> I figured as much, but it must be doing something differently from,
>>>>> e.g., Thunderbird, or I wouldn't be seeing this effect.
>>>>>
>>>> I will run some tests.  I guess there is some property one should set
>>>> which Emacs doesn't.  Stay tuned...
>> I have run several tests and killed Emerald manually, but my Emacs
>> always comes back with window decorations.
>>
>> When Emacs is maximized, the window manager sets _NET_WM_STATE, usually to
>>  _NET_WM_STATE_MAXIMIZED_VERT, _NET_WM_STATE_MAXIMIZED_HORZ.
>>
>> When it is restarted it shall look at the NET_WM_STATE and restore it as
>> it was before the crash.  If WM_STATE is set to _NET_WM_STATE_FULLSCREEN
>> however, you would see the behaviour you are seeing.
>>
>> Can you do
>> % xprop | grep NET_WM_STATE
>>
>> and then click in the maximized Emacs window?  What is the output?
> 
> _NET_WM_STATE(ATOM) = _NET_WM_STATE_MAXIMIZED_VERT,
> _NET_WM_STATE_MAXIMIZED_HORZ
> 
>> Do you know what version of Emerald you have?  
> 
> Here's the package info:
> 
>   Package: emerald
>   Priority: optional
>   Section: universe/x11
>   Installed-Size: 956
>   Maintainer: Ubuntu MOTU Developers <ubuntu-motu@lists.ubuntu.com>
>   Original-Maintainer: Nicholas Thomas <lupine@beryl-project.org>
>   Architecture: i386
>   Version: 0.3~git20070717-0ubuntu1

Hmm, Ubuntu, I'm on a Fedora system.  I'll try on Ubuntu also.

> 
>> If you run this with for
>> example Metacity, do you see the same effect?
> 
> I don't know how to duplicate the dying window decorator effect with
> Metacity, so it's hard to tell you.

I think it is enough to run metacity -replace in a shell.

	Jan D.





^ permalink raw reply	[flat|nested] 13+ messages in thread

* Re: 23.0.60; Odd behavior of maximized windows
  2008-04-01 15:35             ` Jan Djärv
@ 2008-04-01 15:48               ` David Abrahams
  0 siblings, 0 replies; 13+ messages in thread
From: David Abrahams @ 2008-04-01 15:48 UTC (permalink / raw)
  To: Jan Djärv; +Cc: emacs-pretest-bug


on Tue Apr 01 2008, Jan Djärv <jan.h.d-AT-swipnet.se> wrote:

>>
>>> If you run this with for
>>> example Metacity, do you see the same effect?
>>
>> I don't know how to duplicate the dying window decorator effect with
>> Metacity, so it's hard to tell you.
>
> I think it is enough to run metacity -replace in a shell.

I don't see that effect.  On the other hand, I don't see that effect
either when I select "reload window manager" from my fusion-icon applet,
which does a version of compiz --replace AFAIK.

-- 
Dave Abrahams
Boost Consulting
http://boost-consulting.com




^ permalink raw reply	[flat|nested] 13+ messages in thread

* Re: 23.0.60; Odd behavior of maximized windows
  2008-04-01 14:43           ` David Abrahams
  2008-04-01 15:35             ` Jan Djärv
@ 2008-04-03  6:49             ` Jan Djärv
  2008-04-04 15:44               ` David Abrahams
  1 sibling, 1 reply; 13+ messages in thread
From: Jan Djärv @ 2008-04-03  6:49 UTC (permalink / raw)
  To: David Abrahams; +Cc: emacs-pretest-bug

David Abrahams skrev:
> 
> Here's the package info:
> 
>   Package: emerald
>   Priority: optional
>   Section: universe/x11
>   Installed-Size: 956
>   Maintainer: Ubuntu MOTU Developers <ubuntu-motu@lists.ubuntu.com>
>   Original-Maintainer: Nicholas Thomas <lupine@beryl-project.org>
>   Architecture: i386
>   Version: 0.3~git20070717-0ubuntu1
> 

I now tried with that version and I simply can not repeat the effect you are
seeing.  Do you give any special command line options to Emacs, or do you have
any speccial frame properties set?  Do you maximize emacs after it is starte
by clicking on a title bar button, or have you configured compiz to always
maximize Emacs frames?


	Jan D.





^ permalink raw reply	[flat|nested] 13+ messages in thread

* Re: 23.0.60; Odd behavior of maximized windows
  2008-04-03  6:49             ` Jan Djärv
@ 2008-04-04 15:44               ` David Abrahams
  2008-04-06 14:06                 ` Jan Djärv
  0 siblings, 1 reply; 13+ messages in thread
From: David Abrahams @ 2008-04-04 15:44 UTC (permalink / raw)
  To: Jan Djärv; +Cc: emacs-pretest-bug

[-- Attachment #1: Type: text/plain, Size: 1094 bytes --]


on Thu Apr 03 2008, Jan Djärv <jan.h.d-AT-swipnet.se> wrote:

> David Abrahams skrev:
>> 
>> Here's the package info:
>> 
>>   Package: emerald
>>   Priority: optional
>>   Section: universe/x11
>>   Installed-Size: 956
>>   Maintainer: Ubuntu MOTU Developers <ubuntu-motu@lists.ubuntu.com>
>>   Original-Maintainer: Nicholas Thomas <lupine@beryl-project.org>
>>   Architecture: i386
>>   Version: 0.3~git20070717-0ubuntu1
>> 

Hi Jan,

> I now tried with that version and I simply can not repeat the effect you are
> seeing.  

Does emerald crash for you?  'cause I don't think it will happen
otherwise.

> Do you give any special command line options to Emacs, 

Nope.

> or do you have
> any speccial frame properties set?  

I wouldn't know how to set a frame property, so probably not ;-)

I've enclosed my .emacs

> Do you maximize emacs after it is starte
> by clicking on a title bar button, 

Yep.

> or have you configured compiz to always
> maximize Emacs frames?

Nope.

Note also that my emacs is a CVS HEAD build from 2008-02-17


[-- Attachment #2: .emacs --]
[-- Type: application/octet-stream, Size: 79197 bytes --]

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;; Dave Abrahams' .emacs file. Changelog at bottom.
;;
;; Instructions for installation:
;;
;; 1. On Windows systems your home directory is the value of the environment
;; variable HOME or failing that, the root directory of your C drive (C:/)
;;
;; 2. This file (.emacs) should be placed in your home directory (Windows users
;; see item 1).
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq w32-enable-italics t)
(setq w32-enable-synthesized-fonts t)

; is it gnu emacs or xemacs
(setq my-gnup (not (string-match "^\\(XEmacs\\).*" (emacs-version))))

(setq my-windows
      (or (eq system-type 'windows-nt)
	  (eq system-type 'cygwin32)
	  (eq system-type 'cygwin)))


(if my-gnup
    (condition-case nil
        (progn
;          (set-default-font "lucida console-10")
;          (set-default-font "Bitstream Vera Sans Mono-9.2")
          (set-default-font "-bitstream-bitstream vera sans mono-medium-*-normal--13-*-*-*-m-*-*")
;          (set-face-font 'italic "-bitstream-bitstream vera sans mono-medium-i-normal--12-*-*-*-m-*-iso10646-1")
;          (set-face-font 'bold-italic "-bitstream-bitstream vera sans mono-bold-i-normal--12-*-*-*-m-*-iso10646-1")
;          (set-face-font 'bold "-bitstream-bitstream vera sans mono-bold-*-normal--12-*-*-*-m-*-iso10646-1")
;          (set-default-font "-outline-Lucida Console-normal-r-normal-normal-13-120-96-96-c-*-iso8859-1")
;          (set-face-font 'italic "-outline-Lucida Console-normal-i-normal-normal-13-120-96-96-c-*-iso8859-1")
;          (set-face-font 'bold-italic "-outline-Lucida Console-bold-i-normal-normal-13-120-96-96-c-*-iso8859-1")
          )
      (error nil)))

; Try to load Gnus
(condition-case nil
    (require 'gnus-load)
  (error nil))

;; on Windoze systems, filenames are not case-sensitive. If we don't arrange for
;; them to come out lower-case when listed, useful toys like ediff-directories
;; won't work properly.
(if (eq system-type 'windows-nt)
    ;; Hook the directory-files function.
    (progn
      (defadvice directory-files (after my-directory-files-advice activate compile)
        "downcases the filenames that result from the builtin directory-files function"
        (setq ad-return-value (mapcar 'downcase ad-return-value)))

;;       (defadvice ediff-files3 (before my-ediff3-forward-slashes activate)
;;         (ad-set-arg 0 (my-forward-slashes (ad-get-arg 0)) t)
;;         (ad-set-arg 1 (my-forward-slashes (ad-get-arg 1)) t)
;;         (ad-set-arg 2 (my-forward-slashes (ad-get-arg 2)) t)
;;         )
      
;;       (defadvice ediff-temp-file (after my-ediff-temp-file-forward-slashes activate compile)
;;         (setq ad-return-value (my-forward-slashes ad-return-value))
;;         )
      
      (defun w32-restore-frame ()
        "Restore a minimized frame"
        (interactive)
        (w32-send-sys-command 61728))

      (defun w32-maximize-frame ()
        "Maximize the current frame"
        (interactive)
        (w32-send-sys-command 61488))

      (if my-gnup
          (w32-maximize-frame))

      ;; The docs say that this is deprecated, but so far it's the
      ;; only way to make things work right.  Which things?  I don't
      ;; remember anymore.  It's certainly breaking things under
      ;; XEmacs.  Turned off everywhere until I discover a problem
      (and nil my-gnup (setq directory-sep-char ?/))
      
      ))

;; (defun my-forward-slashes (filename)
;;   "convert each backslash in filename to a forward slash"
;;   (concat (mapcar (function (lambda (c)
;;                               (if (= c ?\\) ?/ c)))
;;                   filename)))


;; font-lock-mode is what implements syntax coloring and hilighting.
(require 'font-lock)            ; require forces the module to load right away.
; (setq font-lock-support-mode 'lazy-lock-mode)

;; Setting your default font
;;
;; To set the font for a single session, use shift-left-mouse-button (S-down-mouse-1)
;; To set the font for all sessions, modify the shortcut that starts emacs to use
;; an argument of the form -font "fontname"
;;
;; To find the nasty string to use as a fontname, put the cursor on the '*' in the
;; following line:
;;      (w32-select-font) *
;; type C-xC-e to evaluate the lisp expression. Make a choice in the resulting
;; dialog, and C-x-b *Messages* to switch to the *Messages* buffer. Copy the line
;; you see near the bottom which looks like this:
;;   "-*-Lucida Console-normal-r-*-*-13-97-96-96-c-*-iso8859-1"
;; that's what you want to paste into the shortcut properties dialog after '-font'.


;; I like a slightly gray background for editing on my raster displays
;; contrast tends to work better on my laptop, known as "MOREPIE"
;;
;; To see a list of color names, use control-middle-mouse-button (C-down-mouse-2)
;; and choose "Display Colors" from the resulting menu.

;; Changed my mind about this
;; (if (not (equal (getenv "COMPUTERNAME") "MOREPIE"))
;;    (set-background-color "gray85")

; (set-background-color "white")

;;  )

;;
;; Override some of the default version-control behavior
;;
(require 'vc-hooks)

(defun my-force-writable ()
  "Make this buffer and its file writable.  Has no effect on
  buffers not associated with a file"
  
  (interactive)
  
  (let ((f (buffer-file-name)))
    (if f
        (let* ((modes (file-modes f))
               (newmodes (logior ?\200 modes))
               )
           
          (if (not (equal modes newmodes))
              (progn
                (set-file-modes f newmodes)
                
                (if (not (buffer-modified-p))
                    (revert-buffer nil t t))
                ))
          )))) 

(defun my-vc-file-owner (file)
  ;; vc-mode doesn't seems overly strict in checking the writable status of
  ;; checked-out files: It wants the CVS username to be identical to the login
  ;; of the emacs user. This is problematic if you work with repositories where
  ;; your userID is different from your OS login. This is typical when working
  ;; with remote repositories. Here we just fake emacs into thinking that these
  ;; things always match.
  (vc-user-login-name))

;;
;; Set defaults that will be picked up by various modes and other emacs packages.
;;
(setq-default

 ;; "Electrify" a few keys in SGML-mode for editing HTML documents
 sgml-quick-keys t
  sgml-validate-command "gtidy"
; sgml-validate-command "tidy -i -wrap 78 --keep-time 0 --gnu-emacs 1 --gnu-emacs-file"
 
 ;; Tell me if I use M-x <command-name> when there was a key binding for it
 teach-extended-commands-p t
 
 ;; Non-nil means truncate lines in all windows less than full frame wide.
 truncate-partial-width-windows nil

 ;; Show the file name in the buffer's mode-line
 mode-line-buffer-identification '("%12b [%f]")

 ;; Always indent using spaces instead of tabs (hooked separately for makefiles below)
 indent-tabs-mode nil

 ;; By default, ediff all in one frame.
 ediff-window-setup-function 'ediff-setup-windows-plain

 ;; view diffs side-by-side
 ediff-split-window-function 'split-window-horizontally

 ;; only highlight the selected diff (keeps down gray cruft onscreen)
 ediff-highlight-all-diffs nil

 ;; don't try to use pkunzip to extract
 archive-zip-use-pkzip nil

 ;; Where to find email addresses
 mail-personal-alias-file "~dave/.mailrc"
 mail-abbrev-mailrc-file "~dave/.mailrc"
 )

(if my-gnup
    (progn
      ;; Automatically revert unmodified buffers when they change out from under us on disk.
      (global-auto-revert-mode 1)

      ;; Turn on syntax highlighting in all modes by default
      (global-font-lock-mode 1)
      
      ;; If you don't set hscroll-global-mode, emacs will sometimes prevent you from navigating
      ;; to parts of truncated lines which are off the right side of the window (pane). I find
      ;; this incredibly annoying, so I turn it off.
      (condition-case nil
          (hscroll-global-mode 1)
        (error nil))

      ;; This highlights the region (between point and mark) whenever the mark is
      ;; active. It also causes the mark to be able to become inactive (e.g. by
      ;; typing C-g. To get the mark back, just type C-x C-x.
      (transient-mark-mode 1)
))

;; Enable these two supposedly "advanced" commands which come disabled by default.
(put 'upcase-region 'disabled nil)
(put 'downcase-region 'disabled nil)

(setq my-emacs-version
      (if (string-match "\\([0-9]+[.][0-9]+\\)" (emacs-version))
          (string-to-number (match-string 1 (emacs-version)))))
 

(if (and my-windows (< my-emacs-version 21.3))
    (custom-set-faces
     '(bold ((t (:weight bold :height 0.99 :family "tahoma"))))
     '(italic ((t (:slant italic :family "arial"))))
     '(bold-italic ((t (:slant italic :weight bold :family "arial")))) 
))

;; This makes it so yanked/typed text replaces any active selection
;; In XEmacs it is aliased to pending-delete-mode
(if my-gnup
    (if (not delete-selection-mode)
        (delete-selection-mode))
  (if (not pending-delete-mode)
      (pending-delete-mode)))

;; For some reason, XEmacs doesn't let newline insertion do pending
;; delete by default.  The way its pending-delete-mode works, it
;; checks each command symbol executed to see if it has the
;; 'pending-delete property, so simply adding the property to the
;; commands in question gets us where we want to be.
(cond ((not my-gnup)
       (put 'newline 'pending-delete t)
       (put 'newline-and-indent 'pending-delete t))
  )

;; Add directories to the path that emacs uses to load its packages
(setq load-path (cons "/usr/share/emacs/site-lisp/mailcrypt" load-path))
(setq load-path (cons "~dave/elisp" load-path))
;; (setq load-path (cons "~/elisp/w3m" load-path))
(setq load-path (cons "~dave/elisp/unofficial/" load-path))

; (require 'tramp)

(setq load-path (cons "~dave/elisp/w3" load-path))
; (require 'w3-auto)

;; add some directories for backwards compatibility, depending on the emacs version
(if my-emacs-version
    (mapcar (lambda (dir)
              (if (and (string-match "pre-\\([0-9]+[.][0-9]+\\)" dir)
                       (< my-emacs-version (string-to-number (match-string 1 dir))))
                  (setq load-path (cons (concat "~dave/elisp/" dir) load-path))))
            (directory-files "~dave/elisp" nil "pre-\\([0-9]+[.][0-9]+\\)")))

;;; stuff from Brad

(autoload 'speedbar-frame-mode "speedbar" "Popup a speedbar frame" t)
(autoload 'speedbar-get-focus  "speedbar" "Jump to speedbar frame" t)

; Add a menu entry called Tools where speedbar can live
(if my-gnup
    (define-key-after (lookup-key global-map [menu-bar tools])
      [speedbar] '("Speedbar" . speedbar-frame-mode) [calendar]))

;     (setq send-mail-function 'feedmail-send-it)
;     (autoload 'feedmail-send-it "feedmail")

(condition-case nil
  (load-file "~dave/auth-credentials.el")
  (error nil))

;; Does XEmacs have some problem with mail alias expansion?
;(if (not my-gnup)
;    (setq-default message-mail-alias-type nil))

(defun my-message-insert-citation-line ()
  "Insert a simple citation line."
  (when message-reply-headers
    (insert "\non " (format-time-string "%a %b %d %Y" (date-to-time (mail-header-date message-reply-headers))) ", "
    (replace-regexp-in-string "@" "-AT-" (mail-header-from message-reply-headers)) " wrote:\n\n")))

(condition-case nil
    (progn
(load-library "mailcrypt")
(mc-setversion "gpg")
(autoload 'mc-install-write-mode "mailcrypt" nil t)
(autoload 'mc-install-read-mode "mailcrypt" nil t)
(add-hook 'gnus-summary-mode-hook 'mc-install-read-mode)
(add-hook 'message-mode-hook 'mc-install-write-mode)
(add-hook 'news-reply-mode-hook 'mc-install-write-mode)

;; Use the pgp2 compatibility wrapper
; (setq mc-gpg-path "/usr/bin/gpg-compat")
;; If you have more than one key, specify the one to use
; (setq mc-gpg-user-id "0x12345678")
;; Always sign encrypted messages
(setq mc-pgp-always-sign t)
;; How long should mailcrypt remember your passphrase
(setq mc-passwd-timeout 600)


)
(error nil)
)


(setq-default ;; fill-column 80 ;;;;; Maybe narrower is better
      tab-width 4
      next-line-add-newlines nil
      require-final-newline nil

      Shell-command-switch "-c"

      ;; Mail settings
      user-full-name "David Abrahams"
      user-mail-address "dave@boost-consulting.com"
      mail-user-agent 'message-user-agent

;      send-mail-function 'smtpmail-send-it
;      message-send-mail-function 'smtpmail-send-it

      ;; For use with my Local Exim MTA
      send-mail-function 'sendmail-send-it
      ; message-send-mail-function 'message-send-mail-with-sendmail
      message-send-mail-function 'smtpmail-send-it
      sendmail-program "exim"
      
      message-subject-re-regexp "^[ 	]*\\(\\([Rr][Ee]\\|[Aa][Ww]\\)\\(\\[[0-9]*\\]\\)*:[ 	]*\\)*[ 	]*"
      message-syntax-checks '((sender . disabled) (long-lines . disabled))
      smtpmail-code-conv-from nil
      
      smtpmail-default-smtp-server "boost-consulting.com"
      smtpmail-local-domain "boost-consulting.com"
      ; smtpmail-debug-info t ;; make a trace of all SMTP transactions

      ; smtpmail-smtp-service 465 ;; SSL - apparently not supported by emacs
      
      ; have gnutls (ubuntu package gnutls-bin) installed or this won't work.
      ; starttls doesn't do it!
      smtpmail-smtp-service 587
      
      ; smtpmail-auth-credentials "~/.authinfo" ;; that's the default
      smtpmail-starttls-credentials
      '(
        ("boost-consulting.com" 587 "" "")
;        ("new.boost-consulting.com" 587 "~/.openssl_private/CAkey.pem" "~/.openssl_private/CAcert.pem")
        ("smtp.stlport.com" 587 "~dave/.openssl_private/CAkey.pem" "~dave/.openssl_private/CAcert.pem")
        )

      ;;
      ;; Printer Settings
      ;;
      ps-printer-name "hp_Laserjet_1300"
      printer-name "hp_Laserjet_1300"

      ps-landscape-mode nil
      ps-font-family 'Courier
      ps-font-size 9.0
      ps-inter-column 18
      ps-top-margin 30
      ps-left-margin 18
      ps-right-margin 18
      ps-bottom-margin 18
      ps-header-pad 9
      ps-header-line-pad 0
      ps-header-font-size 9.0
      ps-header-title-font-size 10
      ps-header-offset 9
      ps-number-of-columns 1
      )

(set-face-foreground font-lock-builtin-face "red3")
(set-face-foreground font-lock-comment-face "red3")
(set-face-foreground font-lock-constant-face "slateblue")
(set-face-foreground font-lock-string-face "darkgreen")

;; (if (not my-gnup)  ; I don't know how to use BBDB yet anyway.
;;     (require 'bbdb)
;;   (bbdb-initialize 'gnus 'message 'sc 'w3 'reportmail))

;;
;; Special stuff for NT
;;

(if (eq system-type 'windows-nt)
    (progn
      ;;
      ;; We don't know what this does but Brad swears it helps with NT
      ;;
      (require 'comint)
      (fset 'original-comint-exec-1 (symbol-function 'comint-exec-1))
      (defun comint-exec-1 (name buffer command switches)
        (let ((binary-process-input t)
              (binary-process-output nil))
          (original-comint-exec-1 name buffer command switches)))))
      
(if my-windows
      ;; Set our common backup file repository
      (setq backup-file-dir (concat (or (getenv "TEMP") "/tmp") "/emacs~"))

  ;; else
  (setq backup-file-dir "/tmp/emacs~")
  )


;;
;; Stuff for dealing with emacs backup files. Instead of littering our
;; directories with them they will go into a common black hole for later
;; disposal.
;;

;; Create the backup file directory if it doesn't exist
(if (not (file-directory-p backup-file-dir))
    (make-directory backup-file-dir))

(defun my-convert-slashes (filename)
  "Look at each character in a string and change ':' to '-' and '/' to '_'"
  (concat (mapcar (function (lambda (c)
                              (cond ((= c ?/) ?_)
                                         ((= c ?:) ?-)
                                         (t c))))
                  filename)))

;;
;; Create name mangler for backup files. Creates one honking file
;; name by morphing path components into the filename. Used to keep
;; backup files in one location without conflicts.
;;
(if (or (not my-emacs-version) (< my-emacs-version 21.1))
    
    (defun make-backup-file-name (filename)
      "Create a non-numeric backup file name for FILENAME. Convert the file path
into one long file name and places it in the directory given by backup-file-dir."
      (expand-file-name (concat (my-convert-slashes 
                                 (expand-file-name (file-name-directory
                                                    filename)))
                                (file-name-nondirectory filename) "~dave")
                        backup-file-dir))

  (setq-default
   backup-directory-alist (list (cons "." backup-file-dir)))
   
  )

;; (setq make-backup-file-name-function 'my-make-backup-file-name)

;; The emacs command 'shell' normally brings you back to the same
;; *Shell* buffer every time.
(defun new-shell()
  "Start up a new shell in a uniquely-named buffer."
  (interactive)
  (shell)
  ;;
  ;; Look for the process that exists for the now current buffer. Rename
  ;; it to include its process ID.
  ;;
  (let ((procs (process-list))
        (aProc nil)
        (buf (current-buffer))
        (pid nil))
    (while procs
      (setq aProc (car procs)
            procs (cdr procs))
      (if (eq buf (process-buffer aProc))
          (setq pid (process-id aProc)
                procs nil)))
    (if pid
        (rename-buffer (format "%s (%d)" shell-file-name pid))
      (rename-buffer "shell" t))))


;; Don't croak if you can't find python-mode
(condition-case nil
    (require 'python-mode)
  (error nil))

;;
;; We want to emulate Python mode's highlighting
;;
(defvar python-shell-font-lock-keywords
  (append '(("[][(){}]" . font-lock-constant-face))
          '(("^python%\\|^>\\|^(pdb)" . font-lock-constant-face))
          python-font-lock-keywords
          ))

;;
;; python -- creates a subprocess running Python. Stolen from python-mode.el
;;
(defun python ()
  (interactive)
  (switch-to-buffer-other-window
   (apply 'make-comint py-which-bufname py-which-shell nil py-which-args))
  (make-local-variable 'comint-prompt-regexp)
  (make-local-variable 'font-lock-defaults)
  (setq comint-prompt-regexp "^python% \\|^> \\|^(pdb) "
        font-lock-defaults '(python-shell-font-lock-keywords t))
  (add-hook 'comint-output-filter-functions 'py-comint-output-filter-function)
  (set-syntax-table py-mode-syntax-table)
  (use-local-map py-shell-map)
  (local-set-key "\C-a" 'comint-bol)
  (local-set-key "\C-c\C-a" 'beginning-of-line)
  (python-mode)
  (font-lock-mode))

;;
;; Matlab
;;
(autoload 'matlab-mode "matlab" "Enter Matlab mode." t)
(autoload 'matlab-shell "matlab" "Interactive Matlab mode." t)


;;
;; my-compile, my-recompile - easy compilation with scrolling errors, and easy
;;      recompilation without worrying about what buffer you're in.
;;

;; Used by my-compile and my-recompile to get back to the bottom of a
;; compilation buffer after save-excursion brings us back to the place we
;; started.
(defun my-end-of-current-compilation-buffer()
  (if (equal (buffer-name) "*compilation*")
      (end-of-buffer)))
  
(defun my-compile(&optional command)
  (interactive)
  (if (interactive-p)
      (call-interactively 'compile)
    (compile command))
  (save-excursion
    (pop-to-buffer "*compilation*")
    (end-of-buffer))
  ;; force scrolling despite save-excursion
  (my-end-of-current-compilation-buffer))

(defun my-buffer-exists (buffer)
  "Return t if the buffer exists.
buffer is either a buffer object or a buffer name"
  (bufferp (get-buffer buffer)))
  
(defun my-recompile ()
  "Run recompilation but put the point at the *end* of the buffer
so we can watch errors as they come up"
  (interactive)
  (if (and (my-buffer-exists "*compilation*")
           compile-command)
      (save-excursion
        ;; switching to the compilation buffer here causes the compile command to be
        ;; executed from the same directory it originated from.
        (pop-to-buffer "*compilation*")
        (recompile)
        (pop-to-buffer "*compilation*")
        (end-of-buffer))
    ;; else
    (call-interactively 'my-compile))
  ;; force scrolling despite save-excursion
  (my-end-of-current-compilation-buffer))

;;
;; TLM (version-control) utilities
;;

; (defun my-tlm-diff-latest()
;   "run TLM diff with the current buffer against the latest version under version control."
;   (interactive)
;   (let ((file-name (file-name-nondirectory (buffer-file-name))))
;     (let ((temp-file (concat temporary-file-directory file-name)))
;       (shell-command (concat "rm -f " temp-file)) ;; remove any existing temp file
;       (shell-command (concat "tlm get " file-name " * " temp-file))
;       (shell-command (concat "chmod -w " temp-file)) ;; should not be writable
;       (ediff (buffer-file-name) temp-file)
;       (delete-file temp-file))))

;;
;; General utilities
;;

(defun my-kill-buffer ()
  "Just kill the current buffer without asking, unless of course it's a
modified file"
  (interactive)
  (kill-buffer (current-buffer)))

(defun my-switch-to-previous-buffer ()
  "Switch to the most recently visited buffer without asking"
  (interactive)
  (switch-to-buffer nil))

(defun my-info-other-frame ()
  (interactive)
  (select-frame (make-frame))
  (info))


(defun my-matching-paren (arg)
  (interactive "P")
  (if arg
      () ;;(insert "%")  ; insert the character we're bound to
    (cond ((looking-at "[[({]")
           (forward-sexp 1)
           (forward-char -1))
          ((looking-at "[]})]")
           (forward-char 1)
           (forward-sexp -1))
          (t
           ;; (insert "%")  ; insert the character we're bound to
      ))))

; Something for converting DOS files to unix format
(defun my-use-code-undecided-unix ()
  (interactive)
  (set-buffer-file-coding-system 'undecided-unix)
  (save-buffer))

(defun my-other-window-backward (&optional n)
  "Select the previous window. Copied from \"Writing Gnu Emacs Extensions\"."
  (interactive "P")
  (other-window (- (or n 1)))
  )

; return the first non-nil result of applying f to each element of seq
(defun my-first-non-nil (seq f)
  (and seq
       (or
        (apply f (list (car seq)))
        (my-first-non-nil (cdr seq) f)))
  )
            
;; If point is in a .cxx file, bring up the .h file of the same name,
;; and vice versa.  If there's an .ixx or a .ipp file of the same base
;; name, that goes in the cycle after the .h file
(defun my-cpp-toggle-src-hdr (&optional arg)
  "If point is in a .cpp file, switch to its corresponding .h file, or a .ixx/.ipp file if one exists.
If point is in a .ixx/.ipp file, switch to its corresponding .h file, or a .cpp file if one exists.
If point is in a .h file, switch to its corresponding .cpp file."
  (interactive "p")
  (let ((this-file (buffer-file-name)))
    ;; find this file suffix
    (setq point (string-match "\\.[CcHhIi][XxPp]?[XxPp]?$" this-file))
    (if point
        (progn
          (let*((suffix (substring this-file point))
                (prefix (substring this-file 0 point))
                
                ;; construct candidate suffix patterns
                (new-suffix-patterns
                 (cond
                  ((string-match "^\\.[Cc]" suffix) '(".[hH]*" ".[iI][XxPp][XxPp]"))
                  ((string-match "^\\.[Hh]" suffix) '(".[iI][XxPp][XxPp]" ".[cC]*"))
                  ((string-match "^\\.[Ii]" suffix) '(".[cC]*"  ".[hH]*"))))

                ;; find another file to open
                (other-file
                 
                 (my-first-non-nil
                  new-suffix-patterns
                  
                  (lambda (sufpat)
                    (let ((expanded
                           (car (file-expand-wildcards (concat prefix sufpat)))))
                      ;; if an expansion was found and the file exists, return it
                      (and expanded (file-exists-p expanded) expanded)
                      )
                    )
                  
                  )
                 ))
            
            (if other-file (find-file other-file)))))))

;; Older versions of GNU Emacs (pre-20.6, probably a bit earlier) had an annoying
;; habit of creating new buffers for you if you quickly used TAB RET to auto-complete
;; a buffer name when switching buffers and if there was more than one valid
;; completion. This appears to be fixed now, but these definitions don't seem to 
;; interfere and might also work well for XEmacs.
(defadvice switch-to-buffer (before my-existing-buffer
                                    activate compile)
  "When switching buffers interactively, only switch to existing buffers
unless given a prefix argument."
  (interactive
   (list (read-buffer "Switch to buffer: "
                      (other-buffer)
                      (null current-prefix-arg)))))

(defadvice switch-to-buffer-other-window (before my-existing-buffer-other-window
                                    activate compile)
  "When switching buffers interactively, only switch to existing buffers
unless given a prefix argument."
  (interactive
   (list (read-buffer "Switch to buffer in other window: "
                      (other-buffer)
                      (null current-prefix-arg)))))

(defadvice switch-to-buffer-other-frame (before my-existing-buffer-other-frame
                                    activate compile)
  "When switching buffers interactively, only switch to existing buffers
unless given a prefix argument."
  (interactive
   (list (read-buffer "Switch to buffer in other frame: "
                      (other-buffer)
                      (null current-prefix-arg)))))


;; Emacs has a bunch of built-in commands for working with rectangular regions
;; of the screen (try "M-x apropos RET rectangle" for a list). These can be
;; *really cool* for making diagrams in text. There a couple of really useful
;; things missing from the built-in rectangle support, though, especially if
;; you're making pictures. First, the built-in yank-rectangle moves text which
;; is to the right of point over to avoid the new text. Sometimes you just want
;; that, but other times you just want to drop in a yanked rectangle on top of
;; what's there without disturbing the rest of the picture. That's what
;; my-yank-replace-rectangle does. Also, there's no built-in way of copying a
;; region to the rectangle kill-buffer. For that, we have my-save-rectangle.
(defun my-yank-replace-rectangle ()
  "Replace a rectangular region with the last killed rectangle, placing its upper left corner at point."
  (interactive)
  (my-replace-rectangle killed-rectangle))

(defun my-replace-rectangle (rectangle)
  "Replace rectangular region with RECTANGLE, placing its upper left corner at point.
RECTANGLE's first line is inserted at point, its second
line is inserted at a point vertically under point, etc.
RECTANGLE should be a list of strings.
After this command, the mark is at the upper left corner
and point is at the lower right corner."
  (let (
        (lines rectangle)
        (insertcolumn (current-column))
        (save-overwrite-mode overwrite-mode)
        (width (length (car rectangle)))
        (endcolumn (+ (current-column) (length (car rectangle))))
        (first t))
    (push-mark)
    (setq overwrite-mode nil)
    (while lines
      (or first
          (progn
            (forward-line 1)
            (or (bolp) (insert ?\n))))
      (move-to-column-force endcolumn)
      (delete-backward-char width)
      (setq first nil)
      (insert (car lines))
      (setq lines (cdr lines)))
    (setq overwrite-mode save-overwrite-mode)
    ))

(defun my-save-rectangle (start end)
  "Save rectangle with corners at point and mark as last killed one.
Calling from program, supply two args START and END, buffer positions."
  (interactive "r")
  (setq killed-rectangle (extract-rectangle start end)))

(defun my-kill-rectangle (start end)
  "Save rectangle with corners at point and mark as last killed one,
and erase it.  Calling from program, supply two args START and END,
buffer positions."
  (interactive "r")
  (my-save-rectangle start end)
  (clear-rectangle start end))

;;;;;;;;;;;;;;;;;;;;;;;;
;;                    ;;
;; Mode Customization ;;
;;                    ;;
;;;;;;;;;;;;;;;;;;;;;;;;

;;
;; dired (directory navigation in the editor)

;; Make it so dired lets you explore directories in a single window (pane) without
;; constantly opening subdirectories and files in new panes. This is the way dired
;; works in XEmacs
(defun dired-mouse-find-file(event)
  "switch to the clicked file or directory in the same window"
  (interactive "e")
  (mouse-set-point event)
  (dired-find-file))

(add-hook 'dired-mode-hook
          '(lambda ()
             (define-key dired-mode-map [(mouse-2)] 'dired-mouse-find-file)
             ))

;; message

(add-hook 'message-mode-hook
          '(lambda () (auto-fill-mode t)))

(require 'footnote)
(setq
      footnote-body-tag-spacing 1
      footnote-spaced-footnotes nil
      footnote-style 'latin)
(add-hook 'message-mode-hook 'footnote-mode)

;;
;; Picture
;;
(defun my-picture-mode-hook ()
  (modify-syntax-entry ?| "w")
  (modify-syntax-entry ?+ "w"))

(add-hook 'picture-mode-hook 'my-picture-mode-hook)


;; qbk
(condition-case nil
    (load-library "qbk-mode")
(error nil))

;;
;; (ht)(sg)(x)ml
;;

(require 'sgml-mode)
;; don't insert newlines around <code>...</code> tags
(setq html-tag-alist
      (append
       '( ("code"))
       html-tag-alist)
      )

; (setq load-path (cons "~/elisp/nxml-mode" load-path))
;(condition-case nil
;    (load "~/elisp/nxhtml-mode/autostart.el")
;  (error nil)
;  )

;; (if (fboundp 'nxhtml-mode)
;;       (setq auto-mode-alist
;;             (cons '("\\.\\(x*html\\)\\'" . nxhtml-mode)
;;                   auto-mode-alist)))
    
(if (fboundp 'html-mode)
       (setq auto-mode-alist
             (cons '("\\.\\(x*html\\)\\'" . html-mode)
                   auto-mode-alist)))

(condition-case nil
    (progn
      (setq unicode-character-list-file "~dave/elisp/unichars.el")
      (load-library "xmlunicode"))
  (error nil)
  )

(defun my-nxml-complete (arg)
  (interactive "*P")
  (if (run-hook-with-args-until-success 'nxml-completion-hook)
      (unless (equal (char-before) ?>) (insert ?>))
    (dabbrev-expand arg)))

(defun my-nxml-mode-hook ()
  (local-set-key "\M-/" 'my-nxml-complete)
  )

(condition-case nil
    (progn
      (load "rng-auto")
      (message "nxml loaded")
      (setq auto-mode-alist
            (cons '("\\.\\(xml\\|xsl\\|rng\\)\\'" . nxml-mode)
                  auto-mode-alist))
      (add-hook 'nxml-mode-hook 'my-nxml-mode-hook)
      )
  (error nil)
  )

(require 'sgml-mode)
;; don't insert newlines around <code>...</code> tags
(setq html-tag-alist
      (append
       '( ("code"))
       html-tag-alist)
      )


(define-skeleton html-href-anchor
  "HTML anchor tag with href attribute."
  "URL: "
  "<a href=\"" str "\">" _ "</a>")

(defun my-mark-or-point ()
  "Return the mark if it is active, otherwise the point."
  (if
      (if (fboundp 'region-active-p) (region-active-p) mark-active)
      (mark)
    (point)))

(defun my-selection ()
  "Return a pair [start . finish) delimiting the current selection"
      (let ((start (make-marker))
            (finish (make-marker)))
        (set-marker start (min (my-mark-or-point) (point)))

        (set-marker finish (max (my-mark-or-point) (point)))
        (cons start finish)))

(defun my-replace-in-region (start finish key replacement)
  "In the range [START, FINISH), replace text matching KEY with REPLACEMENT"
  (goto-char start)
  (while (search-forward key finish t)
    (replace-match replacement)))

(defun my-activate-mark ()
  "Make the mark active if it is currently inactive"
  (set-mark (mark t)))

(defun my-code-tag ()
  "Surround the region with <code>...</code>, formatting it as code."
  (interactive)
  (sgml-tag "code"))

(defun my-sgml-validate-writeback ()
  (interactive)
  (let* ((file (buffer-file-name))
         (cmd
          (format "tidy --tidy-mark no -i -wrap 78 -m -asxhtml --merge-divs no --merge-spans no --doctype strict -utf8 %s" file file) ))

  (save-some-buffers (not compilation-ask-about-save) nil)
  (compile-internal cmd "No more errors")
;  (sgml-validate cmd)
    ))

(defun my-convert-html-literals ()
  "convert special characters in the region as follows:

   \"&\" => \"&amp;\"     \"<\" => \"&lt;\"      \">\" => \"&gt;\"    \"\\\"\" => \"&quot;\"
This makes a region of source code appear correctly in an HTML file."
  (interactive)
  (save-excursion
    (let ((start (car (my-selection)))
          (finish (cdr (my-selection))))
      (my-replace-in-region start finish "&" "&amp;")
      (my-replace-in-region start finish "<" "&lt;")
      (my-replace-in-region start finish ">" "&gt;")
      (my-replace-in-region start finish "\"" "&quot;")
      )))

(defun my-preformatted ()
  "Surround the region with <pre>...</pre> and convert
special characters contained within as follows:

   \"&\" => \"&amp;\"     \"<\" => \"&lt;\"      \">\" => \"&gt;\"    \"\\\"\" => \"&quot;\"
This makes a region of source code appear correctly in an HTML file."
  (interactive)
        (my-convert-html-literals)
  (sgml-tag "pre")
)

(defun my-yank-code ()
  "Yank whatever was last killed, add HTML formatting as blockquoted,
preformatted text, and translate the special characters \"<\\\">&\" to their HTML
equivalents."
  (interactive)
  (yank)
  (my-activate-mark)
  (my-convert-html-literals))

; workaround for XEmacs
(if (not (boundp 'show-paren-mode))
    (defun show-paren-mode (yes)))

(defun my-code-mode-hook ()
  (font-lock-mode t)
  (show-paren-mode t)
  (local-set-key [return] 'newline-and-indent)
  (local-set-key [(control return)] 'newline)
  (local-set-key [( control ?\( )] 'my-matching-paren)
  
  ;; Try to make completion case sensitive in code buffers.
  (make-local-variable 'dabbrev-case-fold-search)
  (setq dabbrev-case-fold-search nil)
  )

;;
;; Jam
;;
(require 'jam-mode)

 ;; If `line-beginning-position' isn't available, provide one.
  (unless (fboundp 'line-beginning-position)
    (defun line-beginning-position (&optional n)
      "Return the `point' of the beginning of the current line."
      (save-excursion
        (beginning-of-line n)
        (point))))

  ;; If `line-end-position' isn't available, provide one.
  (unless (fboundp 'line-end-position)
    (defun line-end-position (&optional n)
      "Return the `point' of the end of the current line."
      (save-excursion
        (end-of-line n)
        (point))))

(defun my-jam-electric-semicolon ()
  (interactive "*")
  (insert-string
   (save-excursion
     (let ((start (point)))
       (if (and (re-search-backward "^[^#]*[^ \t\n]" (line-beginning-position))
                (equal (match-end 0) start))
           " ;" ";")))))
          

(defun my-sh-indentation ()
  (save-excursion
    (set-mark (point)) ; {  
    (if (re-search-backward "^[^#\n]*\\(\\[\\|]\\|(\\|)\\|{\\|}\\)" nil t)
        (+ (current-indentation)
           (progn
             (goto-char (match-beginning 1))
             (if (looking-at "[[{(]") 4 0)))
      0)))

(defun my-sh-newline-and-indent ()
  (interactive "*")
  (newline)
  (indent-line-to
   (save-excursion
     (skip-chars-backward " \t\n") 
     (+ (my-sh-indentation)
        (let ((start (point)))
          (if (and (re-search-backward "^[^#\n]*[;{}]" (line-beginning-position) t)
                   (equal (match-end 0) start))
              0 4))))))
    
(defun my-sh-electric-braces ()
  (interactive "*")
  (let ((indentation (my-sh-indentation)))
    (if (equal (current-indentation) (current-column))
        (indent-line-to indentation))
    (insert-string "{}")
    (backward-char)
    (newline)
    (newline)
    (indent-line-to indentation)
    (previous-line 1)
    (indent-to (+ indentation 4))))

(defun my-sh-electric-open-brace ()
  (interactive "*")
  (let ((indentation (my-sh-indentation)))
    (if (equal (current-indentation) (current-column))
        (indent-line-to indentation))
    (insert-string "{")
    (newline)
    (indent-line-to (+ indentation 4))))

;; Stolen from lisp-mode.el, with slight modifications for reformatting comments
;;
(defun my-sh-fill-paragraph (&optional justify)
  "Like \\[fill-paragraph], but handle Emacs Lisp comments.
If any of the current line is a comment, fill the comment or the
paragraph of it that point is in, preserving the comment's indentation
and initial semicolons."
  (interactive "P")
  (let (
    ;; Non-nil if the current line contains a comment.
    has-comment

    ;; Non-nil if the current line contains code and a comment.
    has-code-and-comment

    ;; If has-comment, the appropriate fill-prefix for the comment.
    comment-fill-prefix
    )

    ;; Figure out what kind of comment we are looking at.
    (save-excursion
      (beginning-of-line)
      (cond

       ;; A line with nothing but a comment on it?
       ((looking-at "[ \t]*#[# \t]*")
    (setq has-comment t
          comment-fill-prefix (buffer-substring (match-beginning 0)
                            (match-end 0))))

       ;; A line with some code, followed by a comment?  Remember that the
       ;; semi which starts the comment shouldn't be part of a string or
       ;; character.
       ((condition-case nil
        (save-restriction
          (narrow-to-region (point-min)
                (save-excursion (end-of-line) (point)))
          (while (not (looking-at "#\\|$"))
        (skip-chars-forward "^#\n\"\\\\?")
        (cond
         ((eq (char-after (point)) ?\\) (forward-char 2))
         ((memq (char-after (point)) '(?\" ??)) (forward-sexp 1))))
          (looking-at "#+[\t ]*"))
      (error nil))
    (setq has-comment t has-code-and-comment t)
    (setq comment-fill-prefix
          (concat (make-string (/ (current-column) 8) ?\t)
              (make-string (% (current-column) 8) ?\ )
              (buffer-substring (match-beginning 0) (match-end 0)))))))

    (if (not has-comment)
        ;; `paragraph-start' is set here (not in the buffer-local
        ;; variable so that `forward-paragraph' et al work as
        ;; expected) so that filling (doc) strings works sensibly.
        ;; Adding the opening paren to avoid the following sexp being
        ;; filled means that sexps generally aren't filled as normal
        ;; text, which is probably sensible.  The `;' and `:' stop the
        ;; filled para at following comment lines and keywords
        ;; (typically in `defcustom').
    (let ((paragraph-start (concat paragraph-start
                                       "\\|\\s-*[\(#:\"]")))
          (fill-paragraph justify))

      ;; Narrow to include only the comment, and then fill the region.
      (save-excursion
    (save-restriction
      (beginning-of-line)
      (narrow-to-region
       ;; Find the first line we should include in the region to fill.
       (save-excursion
         (while (and (zerop (forward-line -1))
             (looking-at "^[ \t]*#")))
         ;; We may have gone too far.  Go forward again.
         (or (looking-at ".*#")
         (forward-line 1))
         (point))
       ;; Find the beginning of the first line past the region to fill.
       (save-excursion
         (while (progn (forward-line 1)
               (looking-at "^[ \t]*#")))
         (point)))

      ;; Lines with only semicolons on them can be paragraph boundaries.
      (let* ((paragraph-start (concat paragraph-start "\\|[ \t#]*$"))
         (paragraph-separate (concat paragraph-start "\\|[ \t#]*$"))
         (paragraph-ignore-fill-prefix nil)
         (fill-prefix comment-fill-prefix)
         (after-line (if has-code-and-comment
                 (save-excursion
                   (forward-line 1) (point))))
         (end (progn
            (forward-paragraph)
            (or (bolp) (newline 1))
            (point)))
         ;; If this comment starts on a line with code,
         ;; include that like in the filling.
         (beg (progn (backward-paragraph)
                 (if (eq (point) after-line)
                 (forward-line -1))
                 (point))))
        (fill-region-as-paragraph beg end
                      justify nil
                      (save-excursion
                    (goto-char beg)
                    (if (looking-at fill-prefix)
                        nil
                      (re-search-forward comment-start-skip)
                      (point))))))))
    t))

;; not very useful
(defun my-sh-electric-close-brace ()
  (interactive "*")
  (let ((indentation
        (progn
          (delete-region (point)
                         (progn
                         (or (zerop (skip-chars-backward " \t\n"))
                             (if (sh-quoted-p)
                                 (forward-char)))
                         (point)))
          (if (equal (char-before) 123) (current-indentation)
              (- (current-indentation) 4)))))
    (newline)
    (indent-to indentation)
    (insert-string "}")
    (newline)
    (indent-to indentation)))


(defun my-jam-debug-mode ()
  (interactive)
;;  (compilation-mode)
  (local-set-key [(control f10)] 'jam-debug-prev)
  (local-set-key [f10] 'jam-debug-next)
  (local-set-key [(shift f11)] 'jam-debug-finish)
  (local-set-key [(control shift f11)] 'jam-debug-caller)
  (local-set-key [f11] 'jam-debug-in))

;;
;; html
;;
(defun my-html-mode-hook ()
  (local-set-key [f7] 'my-sgml-validate-writeback)
;  (local-set-key [\C-f7] 'sgml-validate)
  (local-set-key [(control f7)] 'sgml-validate)
  (local-set-key "\C-c\C-c\C-c" 'my-code-tag)
  (local-set-key "\C-c\C-c\C-q" 'my-preformatted)
  (local-set-key "\C-c\C-cy" 'my-yank-code)
  )
(add-hook 'html-mode-hook 'my-html-mode-hook)

;;
;; sh
;;
(defun my-sh-mode-hook ()
  (interactive "*")
  (my-code-mode-hook)
  (auto-fill-mode t)
  (local-set-key [return] 'my-sh-newline-and-indent)
  (local-set-key "{" 'my-sh-electric-open-brace)
  (local-set-key [\S-\M-{] 'my-sh-electric-braces)
  (setq fill-paragraph-function 'my-sh-fill-paragraph)
  ;; (local-set-key "}" 'my-sh-electric-close-brace)
  )
(add-hook 'sh-mode-hook 'my-sh-mode-hook)

(defun my-my-jam-mode-hook ()
  (interactive "*")
  (local-set-key ";" 'my-jam-electric-semicolon)
  (auto-fill-mode)
  )
(add-hook 'my-jam-mode-hook 'my-my-jam-mode-hook)
  
;;
;; Perl
;;
(defun my-perl-mode-hook ()
  (my-code-mode-hook)
  )
(add-hook 'perl-mode-hook 'my-perl-mode-hook)

;;
;; lisp
;;

(defun my-lisp-mode-hook ()
  (my-code-mode-hook)
  )
(add-hook 'lisp-mode-hook 'my-lisp-mode-hook)
(add-hook 'emacs-lisp-mode-hook 'my-lisp-mode-hook)
(add-hook 'lisp-interaction-mode-hook 'my-lisp-mode-hook)

(defun my-unedebug-defun ()
  "I can't believe emacs doesn't give you a way to do this!!"
  (interactive)
  (eval-expression
   (edebug-read-top-level-form))
  )

;;
;; compilation
;;
(defun my-compilation-mode-hook ()
  (setq truncate-lines nil))
                                        ; Don't truncate lines in the compilation window
(add-hook 'compilation-mode-hook 'my-compilation-mode-hook)

(setq-default compilation-context-lines 0)

;;
;; python
;;
(defun my-python-mode-hook ()
  (auto-fill-mode t)
  ;;  (filladapt-mode t)
  (font-lock-mode t)
  (show-paren-mode t)
  (make-local-variable 'adaptive-fill-regexp)
  (setq adaptive-fill-regexp "^[     ]*# ")
  (local-set-key [return] 'newline-and-indent)
  (local-set-key [(control return)] 'newline)
  (local-set-key [( control ?\( )] 'my-matching-paren)
  (make-local-variable 'parens-require-spaces)
  (setq parens-require-spaces nil)
  (setq fill-column 80)
  )

(add-hook 'python-mode-hook 'my-python-mode-hook)

;;
;; restructured text
;;
(defun my-rst-mode-hook ()
  (make-local-variable 'lazy-lock-defer-time)
  (make-local-variable 'lazy-lock-stealth-time)
  (make-local-variable 'lazy-lock-stealth-load)
  (setq lazy-lock-stealth-time 5)
  (setq lazy-lock-defer-time 7)
  (setq lazy-lock-stealth-verbose t)
  (setq lazy-lock-stealth-load 100)
  
  ;; AWL guidelines say code blocks must be 65 characters wide or
  ;; fewer.  Leave 2 spaces for indent.
  (setq fill-column 67)

  (auto-fill-mode t)
  )

(add-hook 'rst-mode-hook 'my-rst-mode-hook)

;; Customize which modes are automatically invoked on files matching certain
;; patterns.
(setq auto-mode-alist
      (append
       '( ("\\.py$" . python-mode)
          ("\\.lit$" . python-mode)
          ("\\.nlp$" . python-mode)
          ("\\.jam$" . jam-mode)
          ("[Jj]am\\(base\\|rules\\|root\\)$" . jam-mode)
          ("[Jj]amfile" . jam-mode)     ;; handle Jamfile and Jamfile.v2
          ("\\..pp$" . c++-mode)
          ("\\.jerr$" . my-jam-debug-mode)
          ("\\.m\\'" . matlab-mode)
          ("\\.rst$" . rst-mode)
          )
       auto-mode-alist))

(condition-case nil (load-library "rst")
  (error nil))

;;
;; Customize regular expressions which match compilation error messages
;;

;; Make sure we have a definition of compilation-error-regexp-alist before
;; modifying it
(require 'compile)

(if (not (boundp 'compilation-file-regexp-alist))
   (setq compilation-error-regexp-alist
         (append
          '(
            ;; Docutils error output
            ("^\\(\\(?:[a-zA-Z]:\\)?[^:(	\n]+\\):\\([0-9]*\\): (\\(?:\\(WARNING\\)\\|ERROR\\)"
             1 2 nil (3)
             )

            ("^### mw[^\n]+\n# *In: \"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?$" 1)
            ("^### mw[^\n]+\n# *File: \"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?$" 1)
            ("\\(### mw[^\n]+\n\\)?# +\\([0-9]+\\):" nil 2)
            )
         
          compilation-error-regexp-alist
          '(
            ;; info from MSVC
            ("^ *\\(\\(?:[a-zA-Z]:\\)?[^:(	\n]+\\)(\\([0-9]+\\)) *:"
             1 2 nil 0)
            )
          )
         )
  
  (progn ;; old style matching
    
    (setq compilation-file-regexp-alist
      (append
       '(
         ;; This expression matches metrowerks command-line tool output, which
         ;; only displays the filename once for multiple errors
         ("### mw[^\n]+\n# *In: \"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?$" 1)
         ("### mw[^\n]+\n# *File: \"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?$" 1)
         
         ("^(\\(.*\.tex\\)\\|\\(.*tex\.cfg\\)\nLaTeX2e" 1)
         )
           compilation-file-regexp-alist))

    (setq compilation-error-regexp-alist
          (append
           '(
             ("\\s-*#\\s-*line\\s-+\\([0-9]+\\)\\s-+\"\\([a-zA-Z]?:?[^\":\n]+\\)\"" 2 1)
         
             ;; This expression can be used to match error messages from Jam
             ("\"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?:\\([0-9]+\\):" 1 2)

             ;; matches some gcc error output
             ("\\(\\(                 \\)\\|\\(In file included \\)\\)from \"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?:\\([0-9]+\\)" 4 5)
 

             ;; matches some vc7 error output
             (" +\\(\\([a-zA-Z]:\\)?[^:(	\n]+\\)(\\([0-9]+\\)):.*'.*" 1 3)
         
 
             ;; This expression matches metrowerks command-line tool output. We just
             ;; pick up the line number, since the file name is handled elsewhere
             ("\\(### mw[^\n]+\n\\)?# +\\([0-9]+\\):" nil 2)

             ("        \\(\\([a-zA-Z]:\\)?[^:(\t\n]+\\)(\\([0-9]+\\)) \
: see " 1 3)

             (".*at\\s-+[Ll]ine\\s-+\\([0-9]+\\)\\s-+of\\s-+\"\\([a-zA-Z]?:?[^\":\n]+\\)\"" 2 1)

                                        ; Python backtraces include these
             ("^[ \t]*File \"\\([a-zA-Z]?:?[^\":\n]+\\)\",[ \t]+[Ll]ine[ \t]+\\([0-9]+\\).*" 1 2)

             ;; These are "helpfully" supplied when Boost.Build testing prints a backtrace
             ("^[ \t]*\\(at\\|from\\)[ \t]+line[ \t]+\\([0-9]+\\)[ \t]+of[ \t]+\"?\\([a-zA-Z]?:?[^\":\n(]+\\).*" 3 2)
             )
           compilation-error-regexp-alist))
    )
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq interpreter-mode-alist
      (cons '("python" . python-mode)
            interpreter-mode-alist))

(autoload 'python-mode "python-mode" "Python editing mode." t)

;;
;; C/C++
;;

(defun my-c-leading-comma-p ()
  (save-excursion
    (beginning-of-line)
    (c-forward-token-2 0 nil (c-point 'eol))
    (eq (char-after) ?,)))

(defun my-c-comma-unindent (langelem)
  "Unindent for leading commas"
  (if (my-c-leading-comma-p) '/))

(defun my-c-comma-indent (langelem)
  "Indent for leading commas"
  (if (my-c-leading-comma-p) '*))

(defun my-cleanup-pp-output ()
  "Clean up preprocessor output so that it's at least semi-readable"
  (interactive)

  (let ((selection (my-selection))
        (start (make-marker))
        (end (make-marker))
        )
    (set-marker start (car selection))
    (set-marker end (cdr selection))
    
    (c++-mode)
    ;; CR before function declaration id
    (replace-regexp "\\([a-zA-Z0-9_]\\) +\\([a-zA-Z_][a-zA-Z0-9_]*(\\)" "\\1\n\\2" nil start end)
    (replace-regexp "\\(\\<return\\>\\|\\<new\\>\\)\n" "\\1 " nil start end)

    ;; CR after template parameter list
    (replace-regexp "\\<template\\> *<\\([^<>]+\\)>" "template <\\1>\n" nil start end)

    (replace-regexp " *\\(\\s.\\|[()]\\) *" "\\1" nil start end)
    (replace-regexp " +" " " nil start end)
    
    (replace-regexp "\\([{}];*\\)" "\\1\n" nil start end)  ;
    (replace-regexp "\\([^ ].*\\)\\([{}]\\)" "\\1\n\\2" nil start end)
    
    (replace-regexp ";\\(.\\)" ";\n\\1" nil start end)
    
    (replace-regexp "\\([(]+\\)\\([(]\\)" "\\1\n\\2" nil start end)
    (replace-regexp ">\\(\\<struct\\>\\|\\<class\\>\\)" ">\n\\1" nil start end)
    (indent-region start end nil)
  ))

(defun my-empty-braces ()
  "insert {}"
  (interactive "*")
  (insert-string "{}")
  (indent-according-to-mode)
  )

(defun my-electric-braces ()
  "Insert a pair of braces surrounding a blank line, indenting each according to the mode"
  (interactive "*")
  (let ((bolp
         (save-excursion (skip-chars-backward " \t")
                         (equal (current-column) 0))))
    (insert-string "{}")
    (if bolp
        (eval (list indent-line-function)))
    )
    (backward-char)
    (newline-and-indent)
    (previous-line 1)
    (end-of-line)
    (newline-and-indent))

(setq my-initials "dwa")

(defun boost-copyright ()
  "Return the appropriate boost copyright for the current user and year"
  (concat "Copyright " (user-full-name) " " (number-to-string (nth 5 (decode-time)))
          ". Distributed under the Boost\n\
Software License, Version 1.0. (See accompanying\n\
file LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)"))
      
(defun fluid-copyright ()
  "Return the appropriate FluidObjects copyright for the current user and year"
  (concat "Copyright FluidObjects Software " (number-to-string (nth 5 (decode-time)))
          ". All rights reserved."))

(defun my-split-filename (filename)
  "split a FILENAME string into a (basename . extension) pair"
  (let* ((fname filename)

         (prefix
          (if (string-match "\\(.*\\)\\(\\..*\\)" fname)
              (substring fname 0 (match-end 1))
            fname))
         (extension
          (if (match-beginning 2)
              (substring fname (+ 1 (match-beginning 2)))
            nil)))
    (cons prefix extension)
  ))

(defun my-split-current-filename ()
  (my-split-filename (file-name-nondirectory (buffer-file-name))))

(defun my-include-guard (path-elts)
  "Compute the appropriate #include guard based on the current buffer's name and the given path elements"
  (let* ((split-name (my-split-current-filename))
         (time (decode-time))
         (prefix (car split-name))
         (ext (cdr split-name))
         (extension (if ext (concat "_" ext) ""))
         )
    (upcase
     (concat
      (eval (cons 'concat (mapcar (lambda (s) (concat s "_")) path-elts))) 
      prefix "_" my-initials
      (number-to-string (nth 5 time))
      (number-to-string (nth 4 time))
      (number-to-string (nth 3 time)) extension))))
                  
(defun my-split-path (path)
  (let ((result nil) (elt nil))
    (while (and path
                (not (equal (setq elt (file-name-nondirectory path)) "")))
      (setq result (cons elt result))
      (setq path (file-name-directory path))
      (setq path (and path (directory-file-name path))))
    result))

(defun my-copyright (&optional copyright)
  "Insert a commented COPYRIGHT string. If COPYRIGHT
is not supplied, the boost copyright is used by default"
  (interactive)
  (let ((copy-start (point)))
      
    (insert-string (concat (or copyright
                       (or (and (my-path-elts) (boost-copyright))
                           (eval (list my-default-copyright))))
                   "\n"))
      
    (comment-region copy-start (point))))

(defun my-path-elts ()
  (subseq (my-split-path (buffer-file-name)) 0 -1))

(defcustom my-namespace-roots
      '(("boost". boost-copyright) ("fluid" . fluid-copyright))
      "An alist of root directory names and associated copyright
      functions from which to deduce C++ namespace names."
      ':type 'alist )

(defun my-prepare-source ()
  (let* ((all-path-elts (my-path-elts))
    
         ;; prune off the head of path-elts up to the last occurrence
         ;; of boost, if any otherwise, path-elts will be nil

         ;; this is the index of the namespace root in the path
         (index (position-if
                   (lambda (x)
                     (find-if
                      (lambda (y) (equal (car y) x))
                      my-namespace-roots))
                   all-path-elts :from-end 0))

         ;; the name of the root element
         (root (and index (nth index all-path-elts)))

         ;; the path elements to use for the namespace
         (top-path-elts (and index (subseq all-path-elts index)))

         (path-elts
          (if (and top-path-elts
                   (equal root "boost")
                   (equal "libs" (cadr top-path-elts))
                   (equal "src" (cadddr top-path-elts)))
              (append (list root (caddr top-path-elts)) (cddddr top-path-elts))
            top-path-elts))
           
         (copyright-function
          (and index
               (cdr (find-if (lambda (y) (equal (car y) root)) my-namespace-roots))))
           
         (copyright
          (and index
               (eval (list copyright-function))))
                 
         )
    (cons path-elts copyright)))

(defun my-begin-header ()
  "Begin a C/C++ header with include guards and a copyright."
  (interactive)
  (let* (
         (source-prep (my-prepare-source))
         (path-elts (car source-prep))
         (guard (my-include-guard path-elts))
         (copyright (cdr source-prep)))

    (beginning-of-buffer)
    (if copyright
        (my-copyright copyright)
      (my-copyright))
      
    (insert-string (concat "#ifndef " guard "\n"
                   "# define " guard "\n"))

    (let ((final nil) ;; final position
          (nsfini (if path-elts "\n" "")))
      
      ;; opening namespace stuff
      (insert-string nsfini)
      (mapc (lambda (n) (insert-string (concat "namespace " n " { ")))
            path-elts)
      (insert-string nsfini)
        
      (setq final (point))
      (newline)
      
      (end-of-buffer)
      ;; make sure the next stuff goes on its own line
      (if (not (equal (current-column) 0))
          (newline))
      
      ;; closing namespace stuff
      (mapc (lambda (n) (insert-string "}")) path-elts)
      (reduce (lambda (prefix n)
                (insert-string (concat prefix n)) "::")
              path-elts
              :initial-value " // namespace ")
      (insert-string nsfini)
      (insert-string nsfini)
      (insert-string (concat "#endif // " guard))
      (goto-char final))
    )
  )


(defun my-begin-source ()
  "Begin a C/C++ source file"
  (interactive)
  (let* ((source-prep (my-prepare-source))
         (path-elts (car source-prep))
         (copyright (cdr source-prep))
         (basename (car (my-split-current-filename)))
         )

    
    (beginning-of-buffer)
    (if copyright
        (my-copyright copyright)
      (my-copyright))
    
    (let ((final nil) ;; final position
          (nsfini (if path-elts "\n" "")))
      
      ;; opening namespace stuff
      (insert-string nsfini)
      (if path-elts
          (progn
            (insert-string "#include \"")
            (mapc (lambda (n) (insert-string n "/"))
                  path-elts)
            (insert-string (concat (downcase basename) ".hpp\"\n\n"))))
      
      (mapc (lambda (n) (insert-string (concat "namespace " n " { ")))
            path-elts)
      
      (insert-string nsfini)
        
      (setq final (point))
      (newline)
      
      (end-of-buffer)
      ;; make sure the next stuff goes on its own line
      (if (not (equal (current-column) 0))
          (newline))
      
      ;; closing namespace stuff
      (mapc (lambda (n) (insert-string "}")) path-elts)
      (reduce (lambda (prefix n)
                (insert-string (concat prefix n)) "::")
              path-elts
              :initial-value " // namespace ")
      (insert-string nsfini)
      (goto-char final)
      )
    )
  )

(defcustom my-buffer-initialization-alist
      '(
        ("\\.[ih]\\(pp\\|xx\\)?$" . my-begin-header)
        ("\\.c\\(pp\\|xx\\)$" . my-begin-source)
        ("\\.\\(jam\\|\\html?\\|sh\\|py\\|rst\\|xml\\)$" . my-copyright)
        )
      "A list of pairs (PATTERN . FUNCTION) describing how to initialize an empty buffer whose
file name matches PATTERN."
      ':type 'alist
      )

(defcustom my-default-copyright
      'boost-copyright
      "A symbol naming a function which generates the default copyright message"
      ':type 'symbol
      )

(defadvice find-file (after my-gud-translate-cygwin-paths activate)
  ;; if the file doesn't exist yet and is empty
  (if (and (equal (buffer-size) 0)
           (not (file-exists-p (buffer-file-name))))

      ;; try to find an initialization function
      (let ((initializer
             (find-if
              (lambda (pair) (string-match (car pair) (buffer-file-name)))
              my-buffer-initialization-alist)))

        ;; if found, call it
        (if initializer
            (progn (eval (list (cdr initializer)))
                   (set-buffer-modified-p nil)))
      )))

(defun my-at-preprocessor-directive-p ()
  "return non-nil if point is sitting at the beginning of a preprocessor directive name"
  (and
   (save-excursion
     (re-search-backward "^\\([ \t]*\\)#\\([ \t]*\\)" (line-beginning-position) t))
   (>= (point) (match-beginning 2))
   (<= (point) (match-end 2))
    ))

(defun my-preprocessor-indentation ()
  (save-excursion
    (beginning-of-line)
    (re-search-backward "^[ \t]*#[ \t]*" nil t)
    (goto-char (match-end 0))
    (+ (current-column)
       (if (looking-at "\\(if\\)\\|\\(el\\)") 1 0))))
  
(defun my-electric-pound-< ()
  (interactive)
  (my-maybe-insert-incude "<" ">"))

(defun my-electric-pound-quote ()
  (interactive)
  (my-maybe-insert-incude "\"" "\""))

(defun my-maybe-insert-incude (open close)
  (if (my-at-preprocessor-directive-p)
      (progn
        (move-to-column (my-preprocessor-indentation) t)
        (insert-string (concat "include " open))
        (save-excursion
          (insert-string close)))
    (insert-string open)))

(defun my-electric-pound ()
  (interactive)
  (insert-string "#")
  (if (my-at-preprocessor-directive-p)
      (progn
        (delete-region (match-beginning 1) (match-end 1))
        (move-to-column (my-preprocessor-indentation) t))))

(defun my-electric-pound-e ()
  (interactive)
  
  (if (my-at-preprocessor-directive-p)
      (progn
        (move-to-column (- (my-preprocessor-indentation) 1))))
  (insert-string "e"))
        
(defun my-c-namespace-indent (langelem)
  "Used with c-set-offset, indents namespace scope elements 2 spaces
from the namespace declaration iff the open brace sits on a line by itself."
  (save-excursion
    (if (progn (goto-char (cdr langelem))
               (setq column (current-column))
               (end-of-line)
               (while (and (search-backward "{" nil t)
                           (assoc 'incomment (c-guess-basic-syntax))))
               (skip-chars-backward " \t")
               (bolp))
        2)))

(defun my-c-backward-template-prelude ()
  "Back up over expressions that end with a template argument list.

Examples include:

        typename foo<bar>::baz::mumble

        foo(bar, baz).template bing
"
  (while
      (save-excursion
        ;; Inspect the previous token or balanced pair to
        ;; see whether to skip backwards over it
        (c-backward-syntactic-ws)
        (or
         ;; is it the end of a nested template argument list?
         (and
          (eq (char-before) ?>)
          (c-backward-token-2 1 t) ;; skips over balanced "<>" pairs
          (eq (char-after) ?<))
                   
         (and
          (c-backward-token-2 1 t)
          (looking-at "[A-Za-z_\\[(.]\\|::\\|->"))))
              
    (c-backward-token-2 1 t)))
  
(defun my-lineup-first-template-args (langelem)
  "Align lines beginning with the first template argument.

To allow this function to be used in a list expression, nil is
returned if we don't appear to be in a template argument list.

Works with: template-args-cont."
  (let ((leading-comma (my-c-leading-comma-p)))
    (save-excursion
      (c-with-syntax-table c++-template-syntax-table
        (beginning-of-line)
        (backward-up-list 1)
        (if (eq (char-after) ?<)
            
            (progn
              (my-c-backward-template-prelude)
              
              (vector
               (+ (current-column)
                  (if leading-comma (/ c-basic-offset 2) c-basic-offset)
                  ))

              ))))))


(defun my-lineup-more-template-args (langelem)
  "Line up template argument lines under the first argument,
adjusting for leading commas. To allow this function to be used in
a list expression, nil is returned if there's no template
argument on the first line.

Works with: template-args-cont."
  (let ((result (c-lineup-template-args langelem)))
    (if (not (eq result nil))
        (if (my-c-leading-comma-p)
            (vector (- (aref result 0) (/ c-basic-offset 2)))
          result))))

(defun my-lineup-template-close (langelem)
  (save-excursion
    (c-with-syntax-table c++-template-syntax-table
      (beginning-of-line)
      (c-forward-syntactic-ws (c-point 'eol))
      (if (and
           (eq (char-after) ?>)
           (progn
             (forward-char)
             (c-backward-token-2 1 t)
             (eq (char-after) ?<)))
          (progn
            (my-c-backward-template-prelude)
            (vector (current-column)))))))

(defun my-c-electric-comma (arg)
  "Amend the regular comma insertion by possibly appending a
  space."
  (interactive "*P") ; Require a writable buffer/take a prefix arg in raw form

  ;; Do the regular action.  Perhaps we should be using defadvice here?
  (c-electric-semi&comma arg)

  ;; Insert the space if this comma is the first token on the line, or
  ;; if there are preceding commas followed by a space.
  (and (eq (char-before) ?,)
       (save-excursion
         (backward-char)
         (skip-syntax-backward " ")
         (bolp)
         )
       (insert-string " "))
  )
         
(defun my-c-electric-gt (arg)
  "Insert a greater-than character.
The line will be re-indented if the buffer is in C++ mode.
Exceptions are when a numeric argument is supplied, point is inside a
literal, or `c-syntactic-indentation' is nil, in which case the line
will not be re-indented."
  (interactive "*P")
  (let ((indentp (and c-syntactic-indentation
		      (not arg)
		      (not (c-in-literal))))
	;; shut this up
	(c-echo-syntactic-information-p nil))
    (self-insert-command (prefix-numeric-value arg))
    (if indentp
	(indent-according-to-mode))))

(defun my-c-namespace-open-indent (langelem)
  "Used with c-set-offset, indents namespace opening braces to the
same indentation as the line on which the namespace declaration
starts."
  (save-excursion
    (goto-char (cdr langelem))
    (let ((column (current-column)))
      (beginning-of-line)
      (skip-chars-forward " \t")
      (- (current-column) column))))

(defun my-c-defun-block-intro-indent (langelem)
  "Used with c-set-offset, makes sure defun-block-intro doesn't
  cause indentation when we're just inside a namespace."
  (if (assoc 'innamespace (c-guess-basic-syntax))
      0
    '+))

(defun my-c-tab ()
  (interactive "*")
  (delete-region (car (my-selection)) (cdr (my-selection)))
  (c-indent-command)
  )
  
(defun my-c-mode-hook ()
  (setq c-default-style "bsd"
        c-backspace-function 'backward-delete-char
        c-basic-offset 4
        c-tab-always-indent t)

  ;; Add 2 spaces of indentation when the open brace is on a line by itself
  (c-set-offset 'innamespace 'my-c-namespace-indent)
  
  ;; indent solo opening braces to the same indentation as the line on
  ;; which the namespace starts
  (c-set-offset 'namespace-open 'my-c-namespace-open-indent)

  ;; I don't know why this is required, but recent cc-modes seem to
  ;; need it to get my namespace indenting right.
  (c-set-offset 'defun-block-intro 'my-c-defun-block-intro-indent)
  
  ;; indent access labels public/private/protected by 1 space, as in 'M'. I
  ;; kinda like that.
  (c-set-offset 'access-label -3)


  ;;
  ;;fixup template indentation
  ;;
  (c-set-offset 'template-args-cont
                (quote
                 (my-lineup-more-template-args
                  my-lineup-template-close
                  my-lineup-first-template-args
                  +)))
  
  (set-variable 'c-backslash-max-column 200)
  
  (my-code-mode-hook)

  (local-set-key [tab] 'my-c-tab)
  (local-set-key [?\M-{] 'my-electric-braces)
  (local-set-key [(control ?{)] 'my-empty-braces)
  (local-set-key [(meta \`)] 'my-cpp-toggle-src-hdr)
  (local-set-key [?#] 'my-electric-pound)
  (local-set-key [?<] 'my-electric-pound-<)
  (local-set-key [?>] 'my-c-electric-gt)
  (local-set-key [?\"] 'my-electric-pound-quote)
  (local-set-key [?e] 'my-electric-pound-e)
  (local-set-key [?,] 'my-c-electric-comma)
  (make-local-variable 'parens-require-spaces)
  (setq parens-require-spaces nil)
)

(add-hook 'idl-mode-hook 'my-c-mode-hook)
(add-hook 'c-mode-hook 'my-c-mode-hook)
(add-hook 'c++-mode-hook 'my-c-mode-hook)
(add-hook 'java-mode-hook 'my-c-mode-hook)

;; Since pretty much all my .h files are actually C++ headers, use c++-mode instead of
;; c-mode for these files.
(setq auto-mode-alist
      (cons '("\\.h$" . c++-mode) auto-mode-alist))


;;
;; makefile
;;
(defun my-makefile-mode-hook ()
  (font-lock-mode t)
  (show-paren-mode t)
  (setq indent-tabs-mode t)  ; Makefiles actually _need_ tabs :(
  (local-set-key [( control ?\( )] 'my-matching-paren)
  (local-set-key [return] 'newline-and-indent)
  (local-set-key [(control return)] 'newline)
)  

(add-hook 'makefile-mode-hook 'my-makefile-mode-hook)

;; Cover .mak files and Dean's auto-generated .mk1 files
(setq auto-mode-alist
      (cons '("\\.mak$" . makefile-mode) auto-mode-alist))

(setq auto-mode-alist
      (cons '("\\.mk1$" . makefile-mode) auto-mode-alist))



;;
;; Path translation for cygwin
;;
(defun my-translate-cygwin-paths (file)
  "Adjust paths generated by cygwin so that they can be opened by tools running under emacs."

  ;; If it's not a windows system, or the file doesn't begin with /, don't do any filtering
  (if (and (eq system-type 'windows-nt) (string-match "^/" file))
        
      ;; Replace paths of the form /cygdrive/c/... or //c/... with c:/...
      (if (string-match "^\\(//\\|/cygdrive/\\)\\([a-zA-Z]\\)/" file)
          (setq file (file-truename (replace-match "\\2:/" t nil file)))

        ;; ELSE
        ;; Replace names of the form /... with <cygnus installation>/...
        ;; try to find the cygwin installation
        (let ((paths (parse-colon-path (getenv "path"))) ; Get $(PATH) from the environment
              (found nil))

          ;; While there are unprocessed paths and cygwin is not found
          (while (and (not found) paths)
            (setq path (car paths)) ; grab the first path
            (setq paths (cdr paths)) ; walk down the list
          
            (if (and (string-match "/bin/?$" path) ; if it ends with /bin
                     (file-exists-p                ; and cygwin.bat is in the parent
                      (concat
                       (if (string-match "/$" path) path (concat path "/"))
                       "../cygwin.bat")))
                (progn
                  (setq found t) ; done looping
                  (string-match "^\\(.*\\)/bin/?$" path)
                  (setq file (file-truename (concat (match-string 1 path) file))))
              )))))
  file)

;; This "advice" is a way of hooking a function to supply additional
;; functionality. In this case, we want to pre-filter the argument to the
;; function gud-find-file which is used by the emacs debugging mode to open
;; files specified by debug info.
(defadvice gud-find-file (before my-gud-translate-cygwin-paths activate)
  (ad-set-arg 0 (my-translate-cygwin-paths (ad-get-arg 0)) t))

(defun my-gud-run-to-cursor ()
  (gud-tbreak)
  (gud-cont))

(defadvice compilation-find-file (before my-compilation-translate-cygwin-paths activate)
  (ad-set-arg 1 (my-translate-cygwin-paths (ad-get-arg 1)) t))


;; Subversion support
(condition-case nil
    (require 'psvn)
  (error nil))

(setq-default svn-status-custom-hide-function 'my-svn-status-hide-pyc-files)
(defun my-svn-status-hide-pyc-files (info)
  "Hide all pyc files in the `svn-status-buffer-name' buffer."
   (let* ((fname (svn-status-line-info->filename-nondirectory info))
          (fname-len (length fname)))
     (and (> fname-len 4) (string= (substring fname (- fname-len 4)) ".pyc"))))

;;
;; Key bindings
;;

;; Navigation by words
(global-set-key [(control ,)] 'backward-word)
(global-set-key [(control \.)] 'forward-word)

;; Navigation to other windows (panes)
(global-set-key "\C-x\C-n" 'other-window)  ; Normally bound to set-goal-column
(global-set-key "\C-x\C-p" 'my-other-window-backward) ; Normally bound to mark-page

;; growing and shrinking windows (panes)
;;
;; These default bindings happen to be duplicated anyway
;; (e.g. meta left = control left = backward-word) so We're not losing anything
(global-set-key [(meta left)] 'shrink-window-horizontally)
(global-set-key [(meta right)] 'enlarge-window-horizontally)
(global-set-key [(meta up)] 'shrink-window)
(global-set-key [(meta down)] 'enlarge-window)

;; Miscellaneous
(global-set-key "\C-x\C-g" 'goto-line)
(global-set-key "\C-x\C-k" 'my-kill-buffer)
(global-set-key [f3] 'eval-last-sexp)
(global-set-key "\C-xr\C-k" 'my-kill-rectangle)
(global-set-key "\C-xr\C-y" 'my-yank-replace-rectangle)
(global-set-key "\C-xr\C-w" 'my-save-rectangle)
(global-set-key "\C-x\M-Q" 'my-force-writable)



(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(blink-cursor-mode nil nil (frame))
 '(c-offsets-alist (quote ((inher-intro . *) (arglist-cont c-lineup-gcc-asm-reg my-c-comma-unindent 0) (arglist-close . 0) (arglist-intro . +) (member-init-intro . *))))
 '(canlock-password "68699f16324966ea61f1b3f9859b43dd1bf57bd8")
 '(crisp-override-meta-x nil)
 '(cvs-allow-dir-commit t)
 '(cvs-auto-remove-directories (quote empty))
 '(cvs-invert-ignore-marks (quote ("tag")))
 '(diff-default-read-only t)
 '(diff-switches "-bu")
 '(dired-listing-switches "-alh")
 '(ediff-custom-diff-options "-du")
 '(ediff-diff-options "-d")
 '(ediff-keep-variants nil)
 '(gnus-extra-headers (quote (To Newsgroups X-Spambayes-Classification)))
 '(gnus-picon-style (quote right))
 '(gnus-treat-from-picon (quote head))
 '(gnus-treat-mail-picon (quote head))
 '(gnus-treat-newsgroups-picon (quote head))
 '(inhibit-startup-screen t)
 '(load-home-init-file t t)
 '(mail-interactive t)
 '(message-citation-line-function (quote my-message-insert-citation-line))
 '(message-forward-ignored-headers "^Content-Transfer-Encoding:\\|^X-\\|^Received:\\|^User-Agent:\\|^References:")
 '(mm-inline-text-html-with-images t)
 '(my-grep-find-command "find . -type f -not -path \"*/CVS/*\" -not -name \"*[~#]\" -name \"*\" -print0 | xargs -0 -e grep -n -e ")
 '(nxml-slash-auto-complete-flag t)
 '(paren-mode (quote sexp) nil (paren))
 '(rmail-pop-password-required t)
 '(rst-mode-lazy nil)
 '(set-mark-command-repeacut-pop t)
 '(sgml-xml-mode t)
 '(tool-bar-mode nil)
 '(use-dialog-box nil)
 '(visible-bell t)
 '(w3m-default-display-inline-images t)
 '(w3m-icon-directory "/home/dave/elisp/images/w3m")
 '(x-select-enable-clipboard t))

(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(diff-added ((t (:inherit diff-changed-face :foreground "green"))))
 '(italic ((nil (:slant italic))))
 '(message-cited-text-face ((((class color) (background light)) (:foreground "blue"))) t)
 '(nxml-comment-content-face ((t (:foreground "darkred" :slant italic :family "Verdana"))))
 '(nxml-glyph-face ((t (:background "light grey" :foreground "black" :slant normal :weight normal :family "Lucida Sans Unicode"))))
 '(table-cell-face ((t (:background "pink" :inverse-video nil)))))



;; Compilation
(global-set-key [f7] 'my-recompile)
(global-set-key [(control f7)] 'my-compile)
(global-set-key [f4] 'next-error)
(global-set-key [(shift f4)] 'previous-error)
(global-set-key [(control f4)] 'first-error)

(global-set-key [f12] 'ps-print-buffer)

;; Debugging
(global-set-key [f5] 'gud-cont)
(global-set-key [f11] 'gud-step)
(global-set-key [f10] 'gud-next)
(global-set-key [(shift f11)] 'gud-finish)
(global-set-key [(control f10)] 'my-gud-run-to-cursor)
(global-set-key [f9] 'gud-break)
(global-set-key [(shift f9)] 'gud-remove)


;; Version control
; (global-set-key "\C-xvd" 'my-tlm-diff-latest)

;; This is the way I like it, but Windows (and M) users may prefer the
;; commented-out versions below.
(global-set-key [home] 'beginning-of-buffer)
(global-set-key [end] 'end-of-buffer)

;;(global-set-key [home] 'beginning-of-line)
;;(global-set-key [end] 'end-of-line)
;;(global-set-key [\C-home] 'beginning-of-buffer) ;; You can always use M-<
;;(global-set-key [\C-end] 'end-of-buffer) ;; You can always use M->

(global-set-key [( control ?\( )] 'my-matching-paren)

;; This is normally set to bring up a buffer list, but there are many other
;; ways to do this seldom-desired function (e.g. C-mouse1, or look at the
;; "Buffers" menu at the top of the frame).
(global-set-key "\C-x\C-b" 'my-switch-to-previous-buffer)


;; Lots of modes use the tab key to perform indentation. Sometimes you just want
;; to move to the right a bit when you've already got the line indented
(global-set-key [(control tab)] 'tab-to-tab-stop)

;; Dealing with my incorrigible Windows instincts
(global-set-key "\C-z" 'undo)   ; Normally this minimizes the emacs window;
                                ; yikes!

;; I normally use the incantation "Alt-space N" to minimize MSWindows windows
;; from the keyboard, but that doesn't cooperate well with emacs, so I've
;; defined Meta-control-escape to do the same thing inside emacs.
(global-set-key [(meta control escape)] 'iconify-or-deiconify-frame)

(global-set-key "\C-v" 'yank)   ; I'm always scrolling the window when I mean to paste
(global-unset-key [(mouse-2)])  ; I hit mouse-2 by mistake too often, pasting junk into my files
(global-set-key [(down-mouse-2)] 'mouse-drag-region)    ; Make it the same as mouse-1

;; Other useful strokes and commands
;; M-: (alt-shift-;) - evaluate lisp expression
;; C-x C-e - evaluate the preceding lisp expression on this line
;; edebug-<tab> a suite of elisp debugging functions (e.g. edebug-defun)
;; M-! (alt-shift-1) - do a shell command, e.g. tlm edit
;; C-x C-f (visit file) to make a buffer modifiable after you've 'tlm edited' it.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Changelog
;;
;; 8/16/01 - Cope with the default Metrowerks error messages, which are more
;;           descriptive than those you get with -msgstyle gcc. Also added the
;;           standard MSVC debugging keybindings.
;;
;; 8/02/01 - Added Matlab mode from Mark R., and fixed the setting of
;;           user-mail-address for altrabroadband users.
;;
;; 7/26/01 - Added a fix for vc-mode losing the writable status of checked-out
;;           files. Commented out obsolete TLM version control stuff.
;;
;; 7/21/01 - Added auto-fill-mode to my-sh-mode-hook
;;
;; 7/11/01 - Fixed cygwin path translation yet again
;;
;; 6/28/01 - Added cygwin path translation for compilation error messages.
;;
;; 6/13/01 - Added Jam debugging keys
;;
;; 5/31/01 - Updated ediff defaults
;;
;; 4/7/01 - Added sh-mode for Jam files.
;;
;; 3/6/01 - Added my-blockquote-preformatted, my-yank-code, and associated
;; helper functions which help with HTML editing of code fragments.
;;
;; 3/1/01 - Added my-translate-cygwin-paths which handles cygwin paths for GDB
;;
;; 2/1/01 - Enabled sgml-quick-keys
;;
;; 5/11/00 - Fixed my-recompile so that the initial invocation calls compile
;; interactively when there is no compile-command set.
;;
;; 5/12/00 - Added lazy-lock mode to eliminate fontification delays when a new
;; file is visited. Added installation instructions at top of file.
;;
;; 5/12/00 - Added and updated my-cpp-toggle-src-hdr and M-` binding (thanks to
;; Ken Steele).
;;
;; 5/19/00 - Added global-auto-revert-mode
;;
;; 6/8/00 - my-makefile-mode-hook was inactive. I activated it.
;;
;; 6/30/00 - Began automated TLM stuff with my-tlm-diff-latest
;;
;; 7/7/00 - Changed default indentation of C++ access-specifiers to -3
;;
;; 8/26/00 - Added rectangle manipulations
;;
;; 9/1/00 - Fixed return email address
;;
;; 9/18/00 - Forced lowercase results from directory-files for WinNT systems.
;;
;; 11/02/00 - Added smtpmail-smtp-server setting
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;; (if my-gnup
;;       (let ((lines (car-safe (assq 'tool-bar-lines default-frame-alist))))
;;         ;; Workaround for emacs-2.3 alpha bug, additionally setting a string
;;         ;; value of 0 with key HKLM\Software\Gnu\Emacs\Emacs.Toolbar in the
;;         ;; registry.
;;         (when (and lines
;;                    (integerp lines)
;;                    (> lines 0))
;;           (add-hook 'window-setup-hook #'(lambda () (tool-bar-mode -1))))
        
;;         (setq-default tool-bar-mode nil)
;;         (setq-default default-frame-alist (quote ((tool-bar-lines . 0) (menu-bar-lines . 1))))
;; ; '(default-frame-alist (quote ((tool-bar-lines . 0) (menu-bar-lines . 1))) t)
        
;;         )

;;   ;; else
;;   (progn
;;     (customize-set-variable 'paren-mode 'sexp)
;;     (customize-set-variable 'toolbar-visible-p nil)
;;   ))








(put 'scroll-left 'disabled nil)

[-- Attachment #3: Type: text/plain, Size: 64 bytes --]


-- 
Dave Abrahams
Boost Consulting
http://boost-consulting.com

^ permalink raw reply	[flat|nested] 13+ messages in thread

* Re: 23.0.60; Odd behavior of maximized windows
  2008-04-04 15:44               ` David Abrahams
@ 2008-04-06 14:06                 ` Jan Djärv
  2008-04-11 23:53                   ` David Abrahams
  0 siblings, 1 reply; 13+ messages in thread
From: Jan Djärv @ 2008-04-06 14:06 UTC (permalink / raw)
  To: David Abrahams; +Cc: emacs-pretest-bug

David Abrahams skrev:

> Does emerald crash for you?  'cause I don't think it will happen
> otherwise.
> 

It does on occasion, but I've been simulating the crash with kill -9 and other
signals.


> 
> Note also that my emacs is a CVS HEAD build from 2008-02-17
> 

I tried that version also, but no luck.  You could try updating your emacs,
some resize changes has been made.  But I think we have to consider this a bug
in compiz/emerald.

	Jan D.




^ permalink raw reply	[flat|nested] 13+ messages in thread

* Re: 23.0.60; Odd behavior of maximized windows
  2008-04-06 14:06                 ` Jan Djärv
@ 2008-04-11 23:53                   ` David Abrahams
  0 siblings, 0 replies; 13+ messages in thread
From: David Abrahams @ 2008-04-11 23:53 UTC (permalink / raw)
  To: Jan Djärv; +Cc: emacs-pretest-bug

Jan Djärv wrote:
> David Abrahams skrev:
> 
>> Does emerald crash for you?  'cause I don't think it will happen
>> otherwise.
>>
> 
> It does on occasion, but I've been simulating the crash with kill -9 and other
> signals.
> 
> 
>> Note also that my emacs is a CVS HEAD build from 2008-02-17
>>
> 
> I tried that version also, but no luck.  You could try updating your emacs,
> some resize changes has been made.  But I think we have to consider this a bug
> in compiz/emerald.
> 
> 	Jan D.
> 
OK, Jan.  Thanks for all your efforts!

-- 
Dave Abrahams
Boost Consulting
http://boost-consulting.com




^ permalink raw reply	[flat|nested] 13+ messages in thread

end of thread, other threads:[~2008-04-11 23:53 UTC | newest]

Thread overview: 13+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2008-03-28 17:53 23.0.60; Odd behavior of maximized windows David Abrahams
2008-03-30 17:59 ` Jan Djärv
2008-03-30 18:51   ` David Abrahams
2008-03-31  6:21     ` Jan Djärv
2008-03-31 18:37       ` David Abrahams
2008-04-01  8:38         ` Jan Djärv
2008-04-01 14:43           ` David Abrahams
2008-04-01 15:35             ` Jan Djärv
2008-04-01 15:48               ` David Abrahams
2008-04-03  6:49             ` Jan Djärv
2008-04-04 15:44               ` David Abrahams
2008-04-06 14:06                 ` Jan Djärv
2008-04-11 23:53                   ` David Abrahams

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.