This looks the wrong way round, schemebc.emf is supposed to be the Basic
Black on Cream which has become the new default (replacing the 'Default
White on Black' on most platforms) and schemej remains the 'Black on Cream'.

So the question is what's gone wrong? Have you got any local scheme files in
your user area, in particular have you got a local copy of schemes.emf,
scheme.emf or userstp.emf? They may have defined another version of the
variables .scheme.scheme-files or .scheme.scheme-names which is
incompatible. (Re)move these and try again.

Failing that, can you please check your ME registry (Help -> List Registry)
and in your current platform (e.g. "win32") find the scheme setting, I think
it will be schemej.emf. in which case the scheme name and file list is
broken, please grep/find any reference to these 2 variables and send me any
file with references them. Please remember to search your user directory if
you have one.

Thanks,

Steve

> -----Original Message-----
> From: Thomas Hundt [mailto:thundt@...]
> Sent: Tuesday, August 21, 2001 4:30 AM
> To: JASSPA MicroEmacs Mailing List
> Subject: [jasspa] Another v8/01 install observation -- schemej file not
> changed,but colors are wrong
>
>
> Another thing I noticed: I was using schemej.emf ("Black on
> cream" now known as "Basic black on cream")  -- and the colors
> are different under 8/01 versus previous releases.  (Example:
> comments are green.  And the background is more pinkish than
> greenish.)  When I switch to the newer version of "Black on
> cream" (schemebc.emf, which has the cool italics -- wow!!!) the
> colors are "correct" again.  (E.g., comments are red.)  I did a
> diff and schemej.emf did not change -- and looks quite a bit
> different from schemebc.emf -- I wonder if perhaps this schemej
> should have been changed to match the new color layout, and you
> just forgot or something...? Comments say these are
> programmatically generated, so hopefully you can just run a
> script to fix it :-)
>
> Cheers
>
> -Th
>
>
> __________
> Thomas Hundt <thundt@...> +1-415-643-3595 [http://hundt.com]
>
>
>
>
> __________________________________________________________________________
>
>
>
> This is an unmoderated list. JASSPA is not responsible for the content of
>
> any material posted to this list.
>
>
>
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
>
>

AFAIK NULL is a perfectly valid DOS filename. The reserved word is NUL.
Therefore

dir >null
type null

shows the contents of the directory.

Also this little c prog:

#include <stdio.h>
main()
{
     FILE *f;
     f=fopen("null","w");
     fputs("foo\nbar",f);
}


correctly creates a file "null" containing the words foo and bar.

Not that I want to defend MS (their software and OSs suck) but in this case
I'd consider WinZip broken and not DOS and it's relatives.

And not that this helps much because a lot of people out there are using
Windows and WinZip instead of a decent OS (or at least cygwin) and tar/gzip

BTW. Try

grep -n foo file1 nul:

under DOS. This works at least with W2K's cmd. (Ooops, I guess
sometimes I have to use MS OSs myself...)

Jirko


>
> From: Steven Phillips <sphillips@...>
> To: jasspa@yahoogroups.com
> Subject: RE: [jasspa] memacros.tar.gz -- file "null"
>
> Why is windows so c**p? Why is NULL a reserved file name? How bizarre.
>
> The NULL file is used by any command which use grep, rgrep,
> replace-all-strings etc. The problem with grep is that if you do:
>
>         grep -n foo file1 file2
>
> you get lines like
>
>         file1:23: .....foo.....
>
> everything works well, but if you run:
>
>         grep -n file1
>
> you get:
>
>         23: .....foo.....
>
> The file name is dropped because only one file was given. Therefore always
> give 2 file names. On unix thats easy, give "/dev/null" but on windows....
> enough said!
>
> Steve
>
> > -----Original Message-----
> > From: Thomas Hundt [mailto:thundt@...]
> > Sent: Tuesday, August 21, 2001 4:15 AM
> > To: JASSPA MicroEmacs Mailing List
> > Subject: [jasspa] memacros.tar.gz -- file "null"
> >
> >
> > Going through the latest upgrades :-)
> >
> > There is always this file "null" in this archive -- it screws up
> > copying in WinZip because "null" is a reserved word in Windows...
> > You might want to remove it (unless it has a purpose?).
> >
> > -Th
> >
> > __________
> > Thomas Hundt <thundt@...> +1-415-643-3595 [http://hundt.com]
> >
> >
> >
> >
> > __________________________________________________________________________
> >
> >
> >
> > This is an unmoderated list. JASSPA is not responsible for the content of
> >
> > any material posted to this list.
> >
> >
> >
> >
> > Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
> >
> >
> >
>
>
>
> __________________________________________________________________________
>
>
>
> This is an unmoderated list. JASSPA is not responsible for the content of
>
> any material posted to this list.
>
>
>
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
> --------------End of forwarded message-------------------------
>
> ----------------------------------
> E-Mail: jirko@...
> Date: 21-Aug-2001
> Time: 11:48:55
>
> This message was sent by XFMail
> ----------------------------------
>

What would be a sensible file name to use? i.e. if we renamed null to
devnull or empty would this avoid any problems??

Steve

> -----Original Message-----
> From: Jirko Cassuben [mailto:jirko@...]
> Sent: Tuesday, August 21, 2001 2:26 PM
> To: jasspa@yahoogroups.com
> Subject: Re: RE: [jasspa] memacros.tar.gz -- file "null"
>
>
> AFAIK NULL is a perfectly valid DOS filename. The reserved word is NUL.
> Therefore
>
> dir >null
> type null
>
> shows the contents of the directory.
>
> Also this little c prog:
>
> #include <stdio.h>
> main()
> {
>     FILE *f;
>     f=fopen("null","w");
>     fputs("foo\nbar",f);
> }
>
>
> correctly creates a file "null" containing the words foo and bar.
>
> Not that I want to defend MS (their software and OSs suck) but in
> this case
> I'd consider WinZip broken and not DOS and it's relatives.
>
> And not that this helps much because a lot of people out there are using
> Windows and WinZip instead of a decent OS (or at least cygwin)
> and tar/gzip
>
> BTW. Try
>
> grep -n foo file1 nul:
>
> under DOS. This works at least with W2K's cmd. (Ooops, I guess
> sometimes I have to use MS OSs myself...)
>
> Jirko
>
>
> >
> > From: Steven Phillips <sphillips@...>
> > To: jasspa@yahoogroups.com
> > Subject: RE: [jasspa] memacros.tar.gz -- file "null"
> >
> > Why is windows so c**p? Why is NULL a reserved file name? How bizarre.
> >
> > The NULL file is used by any command which use grep, rgrep,
> > replace-all-strings etc. The problem with grep is that if you do:
> >
> >         grep -n foo file1 file2
> >
> > you get lines like
> >
> >         file1:23: .....foo.....
> >
> > everything works well, but if you run:
> >
> >         grep -n file1
> >
> > you get:
> >
> >         23: .....foo.....
> >
> > The file name is dropped because only one file was given.
> Therefore always
> > give 2 file names. On unix thats easy, give "/dev/null" but on
> windows....
> > enough said!
> >
> > Steve
> >
> > > -----Original Message-----
> > > From: Thomas Hundt [mailto:thundt@...]
> > > Sent: Tuesday, August 21, 2001 4:15 AM
> > > To: JASSPA MicroEmacs Mailing List
> > > Subject: [jasspa] memacros.tar.gz -- file "null"
> > >
> > >
> > > Going through the latest upgrades :-)
> > >
> > > There is always this file "null" in this archive -- it screws up
> > > copying in WinZip because "null" is a reserved word in Windows...
> > > You might want to remove it (unless it has a purpose?).
> > >
> > > -Th
> > >
> > > __________
> > > Thomas Hundt <thundt@...> +1-415-643-3595 [http://hundt.com]
> > >
> > >
> > >
> > >
> > >
> __________________________________________________________________________
> > >
> > >
> > >
> > > This is an unmoderated list. JASSPA is not responsible for
> the content of
> > >
> > > any material posted to this list.
> > >
> > >
> > >
> > >
> > > Your use of Yahoo! Groups is subject to
http://docs.yahoo.com/info/terms/
> >
> >
> >
>
>
>
> __________________________________________________________________________
>
>
>
> This is an unmoderated list. JASSPA is not responsible for the content of
>
> any material posted to this list.
>
>
>
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
> --------------End of forwarded message-------------------------
>
> ----------------------------------
> E-Mail: jirko@...
> Date: 21-Aug-2001
> Time: 11:48:55
>
> This message was sent by XFMail
> ----------------------------------
>




__________________________________________________________________________



This is an unmoderated list. JASSPA is not responsible for the content of

any material posted to this list.




Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/

The memacros.zip was actually packed and unpacked with WinZip (V8)
so I'm not sure what the problem is here (original zip archieve
shipped from a UNIX box using the zip(1) utility). I've never
seen a problem with WinZip and a file called "null".

In addition, the tar.gz would also appear to be handled correctly
by WinZip V8.0 ??

I assume that this is the winzip.com version of WinZip and
not something else going by the same name ??

Jon.

Thomas Hundt wrote:
>
> Going through the latest upgrades :-)
>
> There is always this file "null" in this archive -- it screws up copying in
WinZip because "null" is a reserved word in Windows... You might want to remove
it (unless it has a purpose?).
>
> -Th
>
--

Hello,

I found out that if any function that uses  meGetString and is called
from the menu, example of such case if the ones given in the title
(Help On Command, or Macro) if you have the Quiet Mode unset you'll
hear a whole lot of beeping if and when you move the mouse.

This is not severe since the function properly, but there's seems to
be some problem handling the mouse events. Some problem with the
callsbacks.. ?

If the same commands are issued from the command line, I did not
observed this behaviour. I'm running Windows 2000 SP2 and I've
compiled the sources with both MSVC and Borland 5.5

Greetings

Pedro Gomes

Hello All!

If you select Macro... under Insert or Help on Command in Help and then move the
mouse, if you have the beep activated you'll hear a whole lot of beeps every
time you move the mouse.

I think that any command that is executed from the Menu Bars that uses
meGetString does it, atleast I've tryed a lot and all of them do it.

Supposedly it is the handleling of the callsbacks from the mouse ...???

It's not severe since, you can work but it's a whole lot annoying ....:=)

Greetings

Pedro Gomes

Hi.

I think Jon is right and WinZip handles the "null" file correctly, I tested
that at work today. So it seems that T. Hundts system has a local problem
there. Anyway an empty file, as the "null" one, might give DOS/Windows systems
some problems, for example you cannot use copy to copy them. So probably you
can try setting %tool-null-file to "nul:" instead of the "null" file in
tools.emf (and anywhere else if necessary) that should work for Windows/DOS the
way /dev/null does for unices. I'll test that tomorrow and tell you if it works.

Jirko


On 21-Aug-2001 Steven Phillips wrote:
> What would be a sensible file name to use? i.e. if we renamed null to
> devnull or empty would this avoid any problems??
>
> Steve
>
>> -----Original Message-----
>> From: Jirko Cassuben [mailto:jirko@...]
>> Sent: Tuesday, August 21, 2001 2:26 PM
>> To: jasspa@yahoogroups.com
>> Subject: Re: RE: [jasspa] memacros.tar.gz -- file "null"
>>
>>
>> AFAIK NULL is a perfectly valid DOS filename. The reserved word is NUL.
>> Therefore
>>
>> dir >null
>> type null
>>
>> shows the contents of the directory.
>>
>> Also this little c prog:
>>
>> #include <stdio.h>
>> main()
>> {
>>     FILE *f;
>>     f=fopen("null","w");
>>     fputs("foo\nbar",f);
>> }
>>
>>
>> correctly creates a file "null" containing the words foo and bar.
>>
>> Not that I want to defend MS (their software and OSs suck) but in
>> this case
>> I'd consider WinZip broken and not DOS and it's relatives.
>>
>> And not that this helps much because a lot of people out there are using
>> Windows and WinZip instead of a decent OS (or at least cygwin)
>> and tar/gzip
>>
>> BTW. Try
>>
>> grep -n foo file1 nul:
>>
>> under DOS. This works at least with W2K's cmd. (Ooops, I guess
>> sometimes I have to use MS OSs myself...)
>>
>> Jirko

Spot the developers who never use anything other than quiet mode! The mouse
is 'rebound' when in osd and this is what is generating the problem.

I will pluck up the courage and run it in noisy mode and fix these problems.

Steve

> -----Original Message-----
> From: pmmg@... [mailto:pmmg@...]
> Sent: Tuesday, August 21, 2001 7:02 PM
> To: jasspa@yahoogroups.com
> Subject: [jasspa] Beeping if Macro or Help On Command is issued from
> menu
>
>
> Hello,
>
> I found out that if any function that uses  meGetString and is called
> from the menu, example of such case if the ones given in the title
> (Help On Command, or Macro) if you have the Quiet Mode unset you'll
> hear a whole lot of beeping if and when you move the mouse.
>
> This is not severe since the function properly, but there's seems to
> be some problem handling the mouse events. Some problem with the
> callsbacks.. ?
>
> If the same commands are issued from the command line, I did not
> observed this behaviour. I'm running Windows 2000 SP2 and I've
> compiled the sources with both MSVC and Borland 5.5
>
> Greetings
>
> Pedro Gomes
>
>
>
>
> __________________________________________________________________________
>
>
>
> This is an unmoderated list. JASSPA is not responsible for the content of
>
> any material posted to this list.
>
>
>
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
>
>

Just checked if using "nul:" instead of the "null" file works. It
does. At least with W2K and W98 but I don't see a reason why it
shouldn't work in other DOS/Windows environments.
So if you replace the line:

   set-variable %tool-null-file &spr "\"%s\"" &find "null" ""
with
   set-variable %tool-null-file "nul:"

in tools.emf, you should be able to discard the "null" file.

jirko

hello,
So finally I got it working, here is the ordered buffer-popup using the
user registry. It is similar to the right-mouse-click quick open
function but only shows already opened buffers.

This function emulates the gnu-emacs-lisp-function (msb.el,
about 1000 lines of elisp-code) in less than 100 lines of emf-code.
You can customize the file extensions via Help->User Setup->File types....

OS tested: win2000, linux

regards, Detlef


add in your <user>.emf
define-macro-file dgbuffer dg-buffer-popup
global-bind-key "dg-buffer-popup" "C-mouse-pick-1" ; like in gnu-emacs
global-bind-key "dg-buffer-popup" "C-mouse-drop-1"

; dgbuffer.emf start
define-macro dg-buffer-popup
     !if ¬ &exi .osd.dgroth-buffer
         set-variable .osd.dgroth-buffer &pinc .osd.next 1 ; buffer-main
         set-variable .osd.dgroth-buffer-starfiles &pinc .osd.next 1 ; buffer
with *
     !endif
     osd .osd.dgroth-buffer 0   "b"
     osd .osd.dgroth-buffer 1   "Mde"  "&*-files"     
.osd.dgroth-buffer-starfiles
     osd .osd.dgroth-buffer 2   "-"
     set-variable #l0 &cat ® "/history" "file-type" "\b" "All files\b"
     set-variable #l1 &cat ® "/history" "file-mask" "\b" ".*\b"
     set-variable :counter 1
     process-starfiles
     set-variable :osd-file-counter 11000
     !while ¬ &seq &lget #l0 :counter ""
         set-variable #l3 &lget #l0 :counter
         set-variable #l4 &lget #l1 :counter
         set-variable .osd.files :osd-file-counter
         osd .osd.dgroth-buffer &pinc :osd-file-counter 3   "Mde"  #l3  
.osd.files
         process-submenu #l3 #l4
         set-variable :counter &inc :counter 1
     !done
     .osd.dgroth-buffer osd 0 "ba" &add $cursor-x 1 &sub $cursor-y 1
!emacro
define-macro process-submenu
     set-variable :regex &cat &cat "," @2 ","
     !if ¬ &isin "All files" @1
         filemask-to-regex :regex
     !endif
     -1 osd .osd.files
     osd .osd.files 0   "b"
     set-variable :fileflag 0
     set-variable $buffer-names ".*"
     !while ¬ &seq &set #l0 $buffer-names ""
         ; a hack for 5 possible fileendings
         !if &xisequal #l0 &lget :regex 1
             set-variable :fileflag &inc :fileflag 1
             osd .osd.files :fileflag    ""   #l0 f dg-buffer-osd-goto
         !elif &xisequal #l0  &lget :regex 2
;            300 ml-write "something is equal"
             set-variable :fileflag &inc :fileflag 1
             osd .osd.files :fileflag    ""   #l0 f dg-buffer-osd-goto
         !elif &xisequal #l0  &lget :regex 3
              set-variable :fileflag &inc :fileflag 1
              osd .osd.files :fileflag   ""   #l0 f dg-buffer-osd-goto
          !elif &xisequal #l0  &lget :regex 4
              set-variable :fileflag &inc :fileflag 1
              osd .osd.files :fileflag   ""   #l0 f dg-buffer-osd-goto
          !elif &xisequal #l0  &lget :regex 5
              set-variable :fileflag &inc :fileflag 1
             osd .osd.files :fileflag   ""   #l0 f dg-buffer-osd-goto
         !endif
     !done
     !if &equ :fileflag 0
         osd .osd.files 1  "" "None found"
     !endif
!emacro


define-macro process-starfiles
     -1 osd .osd.dgroth-buffer-starfiles
     osd .osd.dgroth-buffer-starfiles 0   "b"
     set-variable :star-file 1
     set-variable $buffer-names ".*"
     !while ¬ &seq &set #l0 $buffer-names ""
         !if &seq &lef #l0 1 "*"
             set-variable  :star-file &inc :star-file 1
             osd .osd.dgroth-buffer-starfiles :star-file ""   #l0 f
dg-buffer-osd-goto
          !endif
     !done
     !if &equ :star-file 1
         osd .osd.dgroth-buffer-starfiles 1  "" "None found"
     !endif
!emacro
0 define-macro dg-buffer-osd-goto
     find-buffer $result
!emacro


; end dgbuffer.emf
   >
   >this works well,
   >so I should build the menus on the fly using two nested while's
   >(OK one while, one goto -- nested while's are in ME impossible - a
   >pitty ...) getting the infos from the registry. After studying osd.emf
   >this seems to be possible, however I am still confused by these #l0,
   >#l1, #l2, etc vars. It's difficult to manage so it takes a little bit
   >time to understand the code ...
   >But what is @# ??? It is used a lot but not described in the docs.
   >
   >Detlef
<snip>

--
Dr. Detlef Groth
Neue Scheune 5
14548 Ferch
Tel. 033209-80278
e-mail: dgroth@...

hello,
So finally I got it working, here is the ordered buffer-popup using the
user registry. It is similar to the right-mouse-click quick open
function but only shows already opened buffers.

This function emulates the gnu-emacs-lisp-function (msb.el,
about 1000 lines of elisp-code) in less than 100 lines of emf-code.
You can customize the file extensions via Help->User Setup->File types....

OS tested: win2000, linux

regards, Detlef


add in your <user>.emf
define-macro-file dgbuffer dg-buffer-popup
global-bind-key "dg-buffer-popup" "C-mouse-pick-1" ; like in gnu-emacs
global-bind-key "dg-buffer-popup" "C-mouse-drop-1"

; dgbuffer.emf start
define-macro dg-buffer-popup
     !if ¬ &exi .osd.dgroth-buffer
         set-variable .osd.dgroth-buffer &pinc .osd.next 1 ; buffer-main
         set-variable .osd.dgroth-buffer-starfiles &pinc .osd.next 1 ; buffer
with *
     !endif
     osd .osd.dgroth-buffer 0   "b"
     osd .osd.dgroth-buffer 1   "Mde"  "&*-files"     
.osd.dgroth-buffer-starfiles
     osd .osd.dgroth-buffer 2   "-"
     set-variable #l0 &cat ® "/history" "file-type" "\b" "All files\b"
     set-variable #l1 &cat ® "/history" "file-mask" "\b" ".*\b"
     set-variable :counter 1
     process-starfiles
     set-variable :osd-file-counter 11000
     !while ¬ &seq &lget #l0 :counter ""
         set-variable #l3 &lget #l0 :counter
         set-variable #l4 &lget #l1 :counter
         set-variable .osd.files :osd-file-counter
         osd .osd.dgroth-buffer &pinc :osd-file-counter 3   "Mde"  #l3  
.osd.files
         process-submenu #l3 #l4
         set-variable :counter &inc :counter 1
     !done
     .osd.dgroth-buffer osd 0 "ba" &add $cursor-x 1 &sub $cursor-y 1
!emacro
define-macro process-submenu
     set-variable :regex &cat &cat "," @2 ","
     !if ¬ &isin "All files" @1
         filemask-to-regex :regex
     !endif
     -1 osd .osd.files
     osd .osd.files 0   "b"
     set-variable :fileflag 0
     set-variable $buffer-names ".*"
     !while ¬ &seq &set #l0 $buffer-names ""
         ; a hack for 5 possible fileendings
         !if &xisequal #l0 &lget :regex 1
             set-variable :fileflag &inc :fileflag 1
             osd .osd.files :fileflag    ""   #l0 f dg-buffer-osd-goto
         !elif &xisequal #l0  &lget :regex 2
;            300 ml-write "something is equal"
             set-variable :fileflag &inc :fileflag 1
             osd .osd.files :fileflag    ""   #l0 f dg-buffer-osd-goto
         !elif &xisequal #l0  &lget :regex 3
              set-variable :fileflag &inc :fileflag 1
              osd .osd.files :fileflag   ""   #l0 f dg-buffer-osd-goto
          !elif &xisequal #l0  &lget :regex 4
              set-variable :fileflag &inc :fileflag 1
              osd .osd.files :fileflag   ""   #l0 f dg-buffer-osd-goto
          !elif &xisequal #l0  &lget :regex 5
              set-variable :fileflag &inc :fileflag 1
             osd .osd.files :fileflag   ""   #l0 f dg-buffer-osd-goto
         !endif
     !done
     !if &equ :fileflag 0
         osd .osd.files 1  "" "None found"
     !endif
!emacro


define-macro process-starfiles
     -1 osd .osd.dgroth-buffer-starfiles
     osd .osd.dgroth-buffer-starfiles 0   "b"
     set-variable :star-file 1
     set-variable $buffer-names ".*"
     !while ¬ &seq &set #l0 $buffer-names ""
         !if &seq &lef #l0 1 "*"
             set-variable  :star-file &inc :star-file 1
             osd .osd.dgroth-buffer-starfiles :star-file ""   #l0 f
dg-buffer-osd-goto
          !endif
     !done
     !if &equ :star-file 1
         osd .osd.dgroth-buffer-starfiles 1  "" "None found"
     !endif
!emacro
0 define-macro dg-buffer-osd-goto
     find-buffer $result
!emacro


; end dgbuffer.emf
   >
   >this works well,
   >so I should build the menus on the fly using two nested while's
   >(OK one while, one goto -- nested while's are in ME impossible - a
   >pitty ...) getting the infos from the registry. After studying osd.emf
   >this seems to be possible, however I am still confused by these #l0,
   >#l1, #l2, etc vars. It's difficult to manage so it takes a little bit
   >time to understand the code ...
   >But what is @# ??? It is used a lot but not described in the docs.
   >
   >Detlef
<snip>

--
Dr. Detlef Groth
Neue Scheune 5
14548 Ferch
Tel. 033209-80278
e-mail: dgroth@...

hello,
So finally I got it working, here is the ordered buffer-popup using the
user registry. It is similar to the right-mouse-click quick open
function but only shows already opened buffers.

This function emulates the gnu-emacs-lisp-function (msb.el,
about 1000 lines of elisp-code) in less than 100 lines of emf-code.
You can customize the file extensions via Help->User Setup->File types....

OS tested: win2000, linux

regards, Detlef


add in your <user>.emf
define-macro-file dgbuffer dg-buffer-popup
global-bind-key "dg-buffer-popup" "C-mouse-pick-1" ; like in gnu-emacs
global-bind-key "dg-buffer-popup" "C-mouse-drop-1"

; dgbuffer.emf start
define-macro dg-buffer-popup
     !if ¬ &exi .osd.dgroth-buffer
         set-variable .osd.dgroth-buffer &pinc .osd.next 1 ; buffer-main
         set-variable .osd.dgroth-buffer-starfiles &pinc .osd.next 1 ; buffer
with *
     !endif
     osd .osd.dgroth-buffer 0   "b"
     osd .osd.dgroth-buffer 1   "Mde"  "&*-files"     
.osd.dgroth-buffer-starfiles
     osd .osd.dgroth-buffer 2   "-"
     set-variable #l0 &cat ® "/history" "file-type" "\b" "All files\b"
     set-variable #l1 &cat ® "/history" "file-mask" "\b" ".*\b"
     set-variable :counter 1
     process-starfiles
     set-variable :osd-file-counter 11000
     !while ¬ &seq &lget #l0 :counter ""
         set-variable #l3 &lget #l0 :counter
         set-variable #l4 &lget #l1 :counter
         set-variable .osd.files :osd-file-counter
         osd .osd.dgroth-buffer &pinc :osd-file-counter 3   "Mde"  #l3  
.osd.files
         process-submenu #l3 #l4
         set-variable :counter &inc :counter 1
     !done
     .osd.dgroth-buffer osd 0 "ba" &add $cursor-x 1 &sub $cursor-y 1
!emacro
define-macro process-submenu
     set-variable :regex &cat &cat "," @2 ","
     !if ¬ &isin "All files" @1
         filemask-to-regex :regex
     !endif
     -1 osd .osd.files
     osd .osd.files 0   "b"
     set-variable :fileflag 0
     set-variable $buffer-names ".*"
     !while ¬ &seq &set #l0 $buffer-names ""
         ; a hack for 5 possible fileendings
         !if &xisequal #l0 &lget :regex 1
             set-variable :fileflag &inc :fileflag 1
             osd .osd.files :fileflag    ""   #l0 f dg-buffer-osd-goto
         !elif &xisequal #l0  &lget :regex 2
;            300 ml-write "something is equal"
             set-variable :fileflag &inc :fileflag 1
             osd .osd.files :fileflag    ""   #l0 f dg-buffer-osd-goto
         !elif &xisequal #l0  &lget :regex 3
              set-variable :fileflag &inc :fileflag 1
              osd .osd.files :fileflag   ""   #l0 f dg-buffer-osd-goto
          !elif &xisequal #l0  &lget :regex 4
              set-variable :fileflag &inc :fileflag 1
              osd .osd.files :fileflag   ""   #l0 f dg-buffer-osd-goto
          !elif &xisequal #l0  &lget :regex 5
              set-variable :fileflag &inc :fileflag 1
             osd .osd.files :fileflag   ""   #l0 f dg-buffer-osd-goto
         !endif
     !done
     !if &equ :fileflag 0
         osd .osd.files 1  "" "None found"
     !endif
!emacro


define-macro process-starfiles
     -1 osd .osd.dgroth-buffer-starfiles
     osd .osd.dgroth-buffer-starfiles 0   "b"
     set-variable :star-file 1
     set-variable $buffer-names ".*"
     !while ¬ &seq &set #l0 $buffer-names ""
         !if &seq &lef #l0 1 "*"
             set-variable  :star-file &inc :star-file 1
             osd .osd.dgroth-buffer-starfiles :star-file ""   #l0 f
dg-buffer-osd-goto
          !endif
     !done
     !if &equ :star-file 1
         osd .osd.dgroth-buffer-starfiles 1  "" "None found"
     !endif
!emacro
0 define-macro dg-buffer-osd-goto
     find-buffer $result
!emacro


; end dgbuffer.emf
   >
   >this works well,
   >so I should build the menus on the fly using two nested while's
   >(OK one while, one goto -- nested while's are in ME impossible - a
   >pitty ...) getting the infos from the registry. After studying osd.emf
   >this seems to be possible, however I am still confused by these #l0,
   >#l1, #l2, etc vars. It's difficult to manage so it takes a little bit
   >time to understand the code ...
   >But what is @# ??? It is used a lot but not described in the docs.
   >
   >Detlef
<snip>

--
Dr. Detlef Groth
Neue Scheune 5
14548 Ferch
Tel. 033209-80278
e-mail: dgroth@...

Just installed this - it works very well - Thanks.

I did change the binding from C-xxx-1 to C-xxxx-3
because I use the C-xxx-1 binding for folding/unfolding
operations (right button instead of left).

I do like the fact that it does not immediately
bring up the sub-menus. I currently have problems
with the "Tools" pull down menu in 'C' because as you
pass over "Tools->C tools" then you cannot get
to the other entries. Thinking about it we ought
to move this entry to tbe bottom of the pull down
menu then it will not cause any problems.

Regards
Jon.

"dgroth@..." wrote:
>
> hello,
> So finally I got it working, here is the ordered buffer-popup using the
> user registry. It is similar to the right-mouse-click quick open
> function but only shows already opened buffers.
>
> This function emulates the gnu-emacs-lisp-function (msb.el,
> about 1000 lines of elisp-code) in less than 100 lines of emf-code.
> You can customize the file extensions via Help->User Setup->File types....
>
> OS tested: win2000, linux
>
> regards, Detlef
>

>From the archives:

>To turn it into a prefix then you can cange the prefix key
>using n global-bind-key prefix  "<key>"

I'd like to bind Control-[ to do the same thing that the Meta key (ESC) does.

I tried:

1 global-bind-key prefix "C-["

Didn't get any errors, but didn't seem to do any thing either.

How do I do this?

The C-[ is a much easier reach than the ESC key.


Also how can I turn Control-H back in to being BACKSPACE?  Some way of moving
HELP to ALT-H?

I tried:

	 1 global-bind-key prefix "C-["

And it worked fine for me - typical! Use the describe-bindings command to
see what it has done (search for prefix). Possible problems could be the
platform (I'm using Win NT) whether you're using a console or window mode
(i.e. -n option, I'm not) and international-keyboard problems (the C-[ is a
bit of a funny key, it might be worth trying another simpler key (e.g. C-t)
to see if you can get it working) or you're using an old version?

Once a key has been bound to a prefix command it must be explicitly unbound
before it can be used in a different way, the following should sort out your
C-h issues:

0 global-unbind-key "C-h"
global-bind-key backward-delete-char "C-h"
global-bind-key help "A-h"

Note the 0 argument to global-unbind-key was only introduced about 6 months
ago so if you are using an older version you will need to upgrade to the
latest release.

Steve

> -----Original Message-----
> From: Bob Paddock [mailto:bpaddock@...]
> Sent: Wednesday, August 22, 2001 11:22 PM
> To: jasspa@yahoogroups.com
> Subject: [jasspa] Make Ctrl-[ be the Meta key?
>
>
> >From the archives:
>
> >To turn it into a prefix then you can cange the prefix key
> >using n global-bind-key prefix  "<key>"
>
> I'd like to bind Control-[ to do the same thing that the Meta key
> (ESC) does.
>
> I tried:
>
> 1 global-bind-key prefix "C-["
>
> Didn't get any errors, but didn't seem to do any thing either.
>
> How do I do this?
>
> The C-[ is a much easier reach than the ESC key.
>
>
> Also how can I turn Control-H back in to being BACKSPACE?  Some
> way of moving
> HELP to ALT-H?
>
>
> __________________________________________________________________________
>
>
>
> This is an unmoderated list. JASSPA is not responsible for the content of
>
> any material posted to this list.
>
>
>
>
> Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
>
>
>

hello,
this is trivial but quite handy in html programming:

define-macro rgb2hex
     set-variable :r @ml "enter rgb-value for red"
     set-variable :g @ml "enter rgb-value for green"
     set-variable :b @ml "enter rgb-value for blue"
     set-variable :hexr &add &div :r 16 1
     set-variable :hexrm &add &mod :r 16 1
     set-variable :hexg &add &div :g 16 1
     set-variable :hexgm &add &mod :g 16 1
     set-variable :hexb &add &div :b 16 1
     set-variable :hexbm &add &mod :b 16 1
     set-variable :hexcodes "|0|1|2|3|4|5|6|7|8|9|a|b|c|d|e|f|0|"
; the next (last) line of the macro is very long and will be broken ...
1000 ml-write &cat &cat &cat &cat &cat &cat "hex is: #" &lget :hexcodes :hexr
&lget :hexcodes :hexrm    &lget :hexcodes :hexg &lget :hexcodes :hexgm    &lget
:hexcodes :hexb &lget :hexcodes :hexbm
!emacro

regards,
Detlef

Hello, all

When I execute this macro by Thomas Hundt, found in the contributions page
of the JASSPA site, it effectively re-load the current buffer, but delete
another buffer! It's so?

;------------------------------------------------------------
; reread-file: reload the current file (w/ safety prompt)
;------------------------------------------------------------
define-macro reread-file
     set-variable #l1 $window-aline
     set-variable #l2 $buffer-fname
     !if &bmod "edit"
         !if &iseq @mc1 "Buffer has been changed; reread anyway [y/n]? "
"yYnN" "n"
             !abort
         !endif
     !endif
     0 delete-buffer $buffer-bname  ; force destroy (prompting user doesn't
work in macro)
     ml-write &spr "[Rereading %s]" #l2
     read-file #l2
     #l1 goto-line
!emacro
!force global-bind-key reread-file "C-x f"

Some contributions:

I use this code in keyboard.emf for spanish keyboard suport:

         translate-key "A-C-# A-C-{" "{"
         translate-key "A-C-/ A-C-}" "}"
         translate-key "A-C-; A-C-[" "["
         translate-key "A-C-= A-C-]" "]"
         translate-key "A-C-\\ A-C-\\" "\\"
         translate-key "A-C-1 A-C-|" "|"
         translate-key "A-C-2 A-C-@" "@"
         translate-key "A-C-3 A-C-#" "#"
         translate-key "A-C-6 A-C-¬" "¬"

Finally, I use a lot this macro of mine for go back to the previous buffer
(please, correct errors, I'm unexpert):

define-macro prev-buffer
     set-variable #l1 0
     set-variable $buffer-names ".+"
     !while ¬ &seq &set #l0 $buffer-names ""
         !if ¬ &nbmode #l0 hide
             set-variable #l1 &add #l1 1
         !endif
     !done
     set-variable #l0 0
     !repeat
         set-variable #l0 &add #l0 1
         next-buffer
     !until &equal #l0 &sub #l1 1
!emacro
global-bind-key "prev-buffer" "S-f6"


Regards,

Rodolfo Valeiras

Yes, be warned it's lame in that respect -- I'll have to come up
with a better one!!  Sorry about that.  I only recently found out
it was online for everyone to see...

Ideally I'd like a facility that monitors a buffer's file
continuously and updates it...  I use this for stuff like viewing
log files.

-Th


|From: "Rodolfo Valeiras Reina" <rodoval@...>
|
|Hello, all
|
|When I execute this macro by Thomas Hundt, found in the contributions page
|of the JASSPA site, it effectively re-load the current buffer, but delete
|another buffer! It's so?
|
|;------------------------------------------------------------
|; reread-file: reload the current file (w/ safety prompt)
|;------------------------------------------------------------
|define-macro reread-file
|    set-variable #l1 $window-aline
|    set-variable #l2 $buffer-fname
|    !if &bmod "edit"
|        !if &iseq @mc1 "Buffer has been changed; reread anyway [y/n]? "
|"yYnN" "n"
|            !abort
|        !endif
|    !endif
|    0 delete-buffer $buffer-bname  ; force destroy (prompting user doesn't
|work in macro)
|    ml-write &spr "[Rereading %s]" #l2
|    read-file #l2
|    #l1 goto-line
|!emacro
|!force global-bind-key reread-file "C-x f"

On Wednesday 22 August 2001 05:21 pm, Bob Paddock wrote:
> From the archives:
> >To turn it into a prefix then you can cange the prefix key
> >using n global-bind-key prefix  "<key>"
>
> I'd like to bind Control-[ to do the same thing that the Meta key (ESC)
> does.
>
> I tried:
>
> 1 global-bind-key prefix "C-["
>

: [jasspa] Make Ctrl-[ be the Meta key?

I tried: 1 global-bind-key prefix "C-[" And it worked fine for me - typical!

>Use the describe-bindings command to see what it has done (search for
>prefix). Possible problems could be the platform (I'm using Win NT) whether


I'm using the Aug 2001 release on Windows 95.

>(i.e. -n option, I'm not) and international-keyboard problems (the C-[ is a
>bit of a funny key, it might be worth trying another simpler key (e.g. C-t)

C-t worked as ESC, but C-[ does not.  It says it is not bound to any thing.


>before it can be used in a different way, the following should sort out your
>C-h issues: 0 global-unbind-key "C-h"

Thank you.

Rodolfo Valeiras Reina wrote:
>
> Hello, all
>
> When I execute this macro by Thomas Hundt, found in the contributions page
> of the JASSPA site, it effectively re-load the current buffer, but delete
> another buffer! It's so?
>
> ;------------------------------------------------------------
> ; reread-file: reload the current file (w/ safety prompt)
> ;------------------------------------------------------------
> define-macro reread-file
>     set-variable #l1 $window-aline
>     set-variable #l2 $buffer-fname
>     !if &bmod "edit"
>         !if &iseq @mc1 "Buffer has been changed; reread anyway [y/n]? "
> "yYnN" "n"
>             !abort
>         !endif
>     !endif
>     0 delete-buffer $buffer-bname  ; force destroy (prompting user doesn't
> work in macro)
>     ml-write &spr "[Rereading %s]" #l2
>     read-file #l2
>     #l1 goto-line
> !emacro
> !force global-bind-key reread-file "C-x f"
>

reread-file has now been incorporated into the current release
as a standard macro. The 'official' macro is now
a little bit different. If you have the latest release
then delete the reread-file macro that you have downloaded
and the 'released' macro will be used by default.

If you are using a pre-July 2001 release then the following
macro code may be used instead of what you have - it
should work - if not I suggest you upgrade:

; reread-file - reloads the current buffer's file into the current
buffer
define-macro reread-file
     !if &seq $buffer-fname ""
         ml-write "[Invalid buffer]"
         !bell
         !abort
     !endif
     0xce set-position "\x81"
     ; are we at the end of the buffer?
     set-variable #l7 &seq @wc ""
     ; is the file loaded in binary or crypt mode?
     !if &bmod "binary"
         1 global-mode "binary"
     !endif
     !if &bmod "crypt"
         1 global-mode "crypt"
     !endif
     !force !force read-file $buffer-fname @mna
     set-variable #l0 $status
     -1 global-mode "binary"
     -1 global-mode "crypt"
     !if ¬ #l0
         !abort
     !endif
     !force goto-position "\x81"
     !if #l7
         end-of-buffer
     !endif
!emacro

> Some contributions:
>
> I use this code in keyboard.emf for spanish keyboard suport:
>
>         translate-key "A-C-# A-C-{" "{"
>         translate-key "A-C-/ A-C-}" "}"
>         translate-key "A-C-; A-C-[" "["
>         translate-key "A-C-= A-C-]" "]"
>         translate-key "A-C-\\ A-C-\\" "\\"
>         translate-key "A-C-1 A-C-|" "|"
>         translate-key "A-C-2 A-C-@" "@"
>         translate-key "A-C-3 A-C-#" "#"
>         translate-key "A-C-6 A-C-¬" "¬"

Thanks for these. Will incorporate into keyboard.emf and
repost with spanish keyboard support.

>
> Finally, I use a lot this macro of mine for go back to the previous buffer
> (please, correct errors, I'm unexpert):
>
> define-macro prev-buffer
>     set-variable #l1 0
>     set-variable $buffer-names ".+"
>     !while ¬ &seq &set #l0 $buffer-names ""
>         !if ¬ &nbmode #l0 hide
>             set-variable #l1 &add #l1 1
>         !endif
>     !done
>     set-variable #l0 0
>     !repeat
>         set-variable #l0 &add #l0 1
>         next-buffer
>     !until &equal #l0 &sub #l1 1
> !emacro
> global-bind-key "prev-buffer" "S-f6"
>

As of the July 2001 release then previous buffer may
be evaluated using:-

-1 next-buffer

Hence your binding in the July 2001 release should
be as follows, lets assume that "f6" allows you
to move between the previous and next buffers,
the binding will be:-

	 -1 global-bind-key next-buffer "S-f6"  ; Previous
	 global-bind-key next-buffer "f6"       ; Next

If you wanted a command called "previous-buffer"
then define the macro as follows:-

define-macro previous-buffer
     !if @?
         &neg @# next-buffer
     !else
         -1 next-buffer
     !endif
!emacro

The processing propogates the numeric argument
so "2 previous-buffer" goes back 2 buffers,
a "-2 previous-buffer" goes forward 2 buffers !!

Thanks for the above. I think we could have
provided a little bit more information for the
users about what was in the relaase - there
were a lot of little changes that were made that
should have been hilighted a little more.
Some of these changes have obviously been
forgotten.

Regards
Jon

> Regards,
>
> Rodolfo Valeiras

<SNIP>

> define-macro previous-buffer
>     !if @?
>         &neg @# next-buffer
>     !else
>         -1 next-buffer
>     !endif
> !emacro
>

That was a bit long ... a little better:-

define-macro previous-buffer
     &neg @# next-buffer
!emacro

Regards
Jon.

A correction to the reread-file routine on the contrib page
(http://www.jasspa.com/subs/sub3.txt).

This macro has a bug whereby, if you have two files open at the same time (and
visible on-screen), the one you aren't re-reading gets closed.  The reason is
that the 'read-file' command replaces the current buffer's contents -- I should
have used 'find-file'.  Sorry for the flakey code.

The corrected version reads as follows:

;------------------------------------------------------------
; reread-file: reload the current file (w/ safety prompt)
;------------------------------------------------------------
define-macro reread-file
     set-variable #l1 $window-aline
     set-variable #l2 $buffer-fname
     !if &bmod "edit"
         !if &iseq @mc1 "Buffer has been changed; reread anyway [y/n]? " "yYnN"
"n"
             !abort
         !endif
     !endif
     0 delete-buffer $buffer-bname  ; force destroy (prompting user doesn't work
in macro)
     ml-write &spr "[Rereading %s]" #l2
     find-file #l2
     #l1 goto-line
!emacro
!force global-bind-key reread-file "C-x f"



-Th

__________
Thomas Hundt <thundt@...> +1-415-643-3595

> -----Original Message-----
> From: thundt@... [mailto:thundt@...]
> Sent: Friday, August 24, 2001 12:27 AM
> To: jasspa@yahoogroups.com
> Subject: Re: [jasspa] reread-file macro
>
> Ideally I'd like a facility that monitors a buffer's file
> continuously and updates it...  I use this for stuff like viewing
> log files.

The command already exists (but not documented or directly defined), the
macro is watch which is defined in watch.emf. Add the following to you user
file

define-macro-file watch watch watch-reset

Execute watch in any buffer which is a file you wish to watch, then every 10
second the watch command will check each watched buffer and reload if the
file has changed on disk. Watch only checks visible buffers, i.e. ones
displayed in a window, this help with performance as you can temporarily
hide a watch file.

Running watch in the same buffer will disable the watch.

If you run watch with an argument of 0, (esc 0 esc x watch) you can set the
watch interval in seconds. Unfortunately you cannot do that from a macro
file in the form:

	 0 watch 20

As I didn't implement that very well, but I will fix this.

You can run the command watch-reset to disable all watches, I advise you run
this when you have finished with watch and you find ME's performance has be
affected.

I think I will take this out of the release and add it to the submissions
instead.

Steve

> I'm using the Aug 2001 release on Windows 95.
>
> >(i.e. -n option, I'm not) and international-keyboard problems
> (the C-[ is a
> >bit of a funny key, it might be worth trying another simpler key
> (e.g. C-t)
>
> C-t worked as ESC, but C-[ does not.  It says it is not bound to
> any thing.

This is a horrid problem and all I really want to say is thank you Bill
Gates, you've done it again! But that doesn't help you.

I think the problem is caused by the "C-[" key generating 2 keyboard events,
generating 2 input keys. Heres how it works (or doesn't), when you press
"C-[" instead of generating a single 'C-[' input key ME is told of 2
keyboard input keys 'X' and 'Y', I don't know what they are but typically
'X' will be 'C-['. You have bound 'C-[' to the prefix command so when you
press the 'C-[' key and generate the 'X' input key (which is 'C-[') ME waits
for a second key, this comes immediately in the form of 'Y' and "C-[ Y" is
not bound hence the error.

Confused? So was I when I first saw this problem.

How do you check that this is the problem? By using the $recent-keys
variable. list-variables is bound to "C-h v" (I know you have rebound C-h so
disable that for the moment), in a temporary buffer type 'A' 'A' 'C-h v'
then in the opened "*variables*" look for the $recent-keys, you should see:

     $recent-keys .................. "v C-h A A ..."

Now type 'A' 'A' 'C-[' 'C-h v', and you should see:

     $recent-keys .................. "v C-h C-[ A A ..."

But if you have this double key problem you will see:

     $recent-keys .................. "v C-h Y X A A ..."

The solution is quite simple, you need to use translate-key to combined
these two keys back into C-[ as follows:

	 translate-key "X Y" "C-["

Put that line into your user.emf and job done! If you have any further
problems I suggest we take this off-line, e-mail me directly,

Steve

> > C-t worked as ESC, but C-[ does not.  It says it is not bound to
> > any thing.

> Confused? So was I when I first saw this problem.

Well, yes, because C-[ has worked as ESC in every program I've used except
ME.  I've used it for so long that my fingers just do it when I'm typing.
uEMACS and Jed are two examples.

> How do you check that this is the problem? By using the $recent-keys
> variable. list-variables is bound to "C-h v" (I know you have rebound C-h
> so disable that for the moment), in a temporary buffer type 'A' 'A' 'C-h v'
> then in the opened "*variables*" look for the $recent-keys, you should see:

I'll give it a try.

> The solution is quite simple, you need to use translate-key to combined
> these two keys back into C-[ as follows:
>
>  translate-key "X Y" "C-["

Ok.

Thank you.

hello,
believe it or not, here is the small microemacs-ide
47 lines of powerful emf-code:


with the following features:

     * a directory-specific project.txt-file
        (upper-left-window) for fast jumping to a specific file
        you have to add your project-files here
     * a *item-list* window (lower-left-window)
         for a fast navigation inside the visible-file via the occur
         macro
     * a editing window (the large window in the the upper-right)
     * a *compile* window (optional in the upper-left)
          for compiling your project

     * of course full customization

In order to avoid bad line breaking I simply attach this file.
Any comments, suggestions are welcome.
If your window-configuration sometimes is unordered simply invoke
meide again (<f6>?).
of course this should be fixed better ....

have a nice weekend,
Detlef

--
Dr. Detlef Groth
Neue Scheune 5
14548 Ferch
Tel. 033209-80278
e-mail: dgroth@...

Jon, Thomas: Thanks for the help! I use an old version of ME, I will upgrade
soon.

Rodolfo Valeiras

Does ME have flashing bracket pair capability similar to GNU Emacs
where when you pass your cursor over a left or right bracket in a
peice of code the cursor will temporarily flash ahead or backward to
the corresponding closing or opening bracket pair?