Save problem for ada-mode for Xemacs

Save problem for ada-mode for Xemacs

[William Paul Berriss]

Hi

Has anyone had trouble using save for GNAT Ada .adb files using
ada mode on Xemacs v191.4?

I have Xemacs v19.14 and I use ada-mode on a Sun Sparc Classic
and running Xemacs for Solaris 2.4 on Solaris 2.5 on another SPARC.


My problem is this: 


I cannot Save my buffer!!!
It just says untabify: done 
and the Save option in the File menu doesn't grey out.

I have found that if I use Save As the *first* time I save,
and thus overwrite the file I have jsut opened and am using then
Save does grey out and it says Wrote /home/.../filename successfully!

Then Save works from then on.

Can you tell me what I have broken? Done wrong? 

It seems that it is only my *Ada* files that won't Save
(those files with with .adb and .ads extrensions).

If I load a file called junk.text say, I have no problems.

With the Ada files, Save just does not work.
The 1st time is says Loading something...,
but its to fast to read, then it says untabify:done.  Weird.

Then it always says untabify:done.

The only way to save is to use Save As the first time,
else I cannot quit as Buffers are unsaved.

Is something wrong with ada-mode?  Where do I look?

Can you shed any light?

I so please give us a clue.

Thanks.
-- 

W P Berriss                 E-mail: W.P.Berriss@reading.ac.uk
Department of Engineering
The University of Reading
Whiteknights
Reading                     Tel:  0118 987 5123 
Berkshire                     (+44 118 987 5123 outside UK)
RG6 6AY    
England                     Fax:  0118 931 3327    

World Wide Web Home Page: 

http://www.elec.rdg.ac.uk/people/postgrads/will.html

Re: Save problem for ada-mode for Xemacs

[Samuel Tardieu]

>>>>> "William" == William Paul Berriss <W.P.Berriss@reading.ac.uk> writes:

William> I cannot Save my buffer!!! It just says untabify: done and
William> the Save option in the File menu doesn't grey out.

This is a known problem. Rolf Ebert gave a solution here some times
ago. Modify ada-untabify-buffer in ada-mode.el to look like:

(defun ada-untabify-buffer ()
;; change all tabs to spaces
  (save-excursion
    (untabify (point-min) (point-max))) nil)

  Sam
-- 
Samuel Tardieu -- sam@ada.eu.org