execute a command with euc-jp

execute a command with euc-jp

[masashi ito]

Hello to everyone!

I have just joined the list, but been using emacs for about 10 years. Today, I
would like to ask you for help with lisp functions.

I have tried to define a function (my first experience) to execute another
function (howm-menu) with a specified encoding (euc-jp).

What I have ever tried is:
(defun myhowm-menu-eucjp ()
       "to show howm menu with eucjp"
   (interactive)
   (universal-coding-system-argument 'euc-jp)
   (howm-menu)
)

But this (M-x myhowm-menu-eucjp) prompts me to enter a "command to execute
with euc-jp," but does not initiate the command, howm-menu. What should I do
to run the command, howm-menu, with the euc-jp encoding automatically without
prompting me to enter "howm-menu."

Thank you in advance,

Masashi Ito

Re: execute a command with euc-jp

[Thien-Thi Nguyen]

() masashi ito <ma345to@gmx.com>
() Wed, 4 May 2011 20:29:34 -0400

   (defun myhowm-menu-eucjp ()
          "to show howm menu with eucjp"
      (interactive)
      (universal-coding-system-argument 'euc-jp)
      (howm-menu)
   )

   What should I do to run the command, howm-menu, with the euc-jp
   encoding automatically without prompting me to enter "howm-menu."

The long (but more satisfying IMHO) way:

 Move the cursor to ‘universal-coding-system-argument’ and type
 ‘C-h f RET’.  Emacs will show a buffer *Help* at the top of
 which appears:
 
   universal-coding-system-argument is an interactive compiled
   Lisp function in `mule-cmds.el'.
 
 If your Emacs is properly installed, the words mule-cmds.el will be
 presented as a hyperlink.  You can move the cursor there (by typing
 TAB repeatedly) and type RET to follow it, or click with the mouse.
 Doing so will open a buffer viewing that file, with cursor at function
 ‘universal-coding-system-argument’.
 
 Type ‘C-M-e’ to go to the end of the defun.  Note the form:
 
     (let ((coding-system-for-read coding-system)
 	  (coding-system-for-write coding-system)
 	  (coding-system-require-warning t)
 	  (current-prefix-arg prefix))
       (message "")
       (call-interactively cmd))
 
 or something like that.  This shows the basic approach of how to
 invoke a command using a specific coding system: ‘let’-bind some
 variables to the desired value around a call to ‘call-interactively’.
 Transfer this form into ‘myhowm-menu-eucjp’, hard-coding the constant
 bits as you see fit, and pruning the parts that don't seem relevant.
 You might end up with:

The short (but untested, only derived) way:

 (defun myhowm-menu-eucjp ()
   "to show howm menu with eucjp"
   (interactive)
   (let ((coding-system-for-read 'euc-jp)
         (coding-system-for-write 'euc-jp)
         (coding-system-require-warning t))
     (call-interactively 'howm-menu)))

In any case, if your Emacs is not properly installed, fix that first.

Re: execute a command with euc-jp

[Bastian Ballmann]

Am Thu, 05 May 2011 10:31:52 +0200
schrieb Thien-Thi Nguyen <ttn@gnuvola.org>:

> () masashi ito <ma345to@gmx.com>
> () Wed, 4 May 2011 20:29:34 -0400
> 
>    (defun myhowm-menu-eucjp ()
>           "to show howm menu with eucjp"
>       (interactive)
>       (universal-coding-system-argument 'euc-jp)
>       (howm-menu)
>    )
> 
>    What should I do to run the command, howm-menu, with the euc-jp
>    encoding automatically without prompting me to enter "howm-menu."
> 
> The long (but more satisfying IMHO) way:
> 
>  Move the cursor to ‘universal-coding-system-argument’ and type
>  ‘C-h f RET’.  Emacs will show a buffer *Help* at the top of
>  which appears:
>  
>    universal-coding-system-argument is an interactive compiled
>    Lisp function in `mule-cmds.el'.
>  
>  If your Emacs is properly installed, the words mule-cmds.el will be
>  presented as a hyperlink.  You can move the cursor there (by typing
>  TAB repeatedly) and type RET to follow it, or click with the mouse.
>  Doing so will open a buffer viewing that file, with cursor at
> function ‘universal-coding-system-argument’.
>  
>  Type ‘C-M-e’ to go to the end of the defun.  Note the form:
>  
>      (let ((coding-system-for-read coding-system)
>  	  (coding-system-for-write coding-system)
>  	  (coding-system-require-warning t)
>  	  (current-prefix-arg prefix))
>        (message "")
>        (call-interactively cmd))
>  
>  or something like that.  This shows the basic approach of how to
>  invoke a command using a specific coding system: ‘let’-bind some
>  variables to the desired value around a call to ‘call-interactively’.
>  Transfer this form into ‘myhowm-menu-eucjp’, hard-coding the constant
>  bits as you see fit, and pruning the parts that don't seem relevant.
>  You might end up with:
> 
> The short (but untested, only derived) way:
> 
>  (defun myhowm-menu-eucjp ()
>    "to show howm menu with eucjp"
>    (interactive)
>    (let ((coding-system-for-read 'euc-jp)
>          (coding-system-for-write 'euc-jp)
>          (coding-system-require-warning t))
>      (call-interactively 'howm-menu)))
> 
> In any case, if your Emacs is not properly installed, fix that first.
> 

Re: execute a command with euc-jp

[Bastian Ballmann]

Am Thu, 05 May 2011 10:31:52 +0200
schrieb Thien-Thi Nguyen <ttn@gnuvola.org>:

> () masashi ito <ma345to@gmx.com>
> () Wed, 4 May 2011 20:29:34 -0400
> 
>    (defun myhowm-menu-eucjp ()
>           "to show howm menu with eucjp"
>       (interactive)
>       (universal-coding-system-argument 'euc-jp)
>       (howm-menu)
>    )
> 
>    What should I do to run the command, howm-menu, with the euc-jp
>    encoding automatically without prompting me to enter "howm-menu."
> 
> The long (but more satisfying IMHO) way:
> 
>  Move the cursor to ‘universal-coding-system-argument’ and type
>  ‘C-h f RET’.  Emacs will show a buffer *Help* at the top of
>  which appears:
>  
>    universal-coding-system-argument is an interactive compiled
>    Lisp function in `mule-cmds.el'.
>  
>  If your Emacs is properly installed, the words mule-cmds.el will be
>  presented as a hyperlink.  You can move the cursor there (by typing
>  TAB repeatedly) and type RET to follow it, or click with the mouse.
>  Doing so will open a buffer viewing that file, with cursor at
> function ‘universal-coding-system-argument’.
>  
>  Type ‘C-M-e’ to go to the end of the defun.  Note the form:
>  
>      (let ((coding-system-for-read coding-system)
>  	  (coding-system-for-write coding-system)
>  	  (coding-system-require-warning t)
>  	  (current-prefix-arg prefix))
>        (message "")
>        (call-interactively cmd))
>  
>  or something like that.  This shows the basic approach of how to
>  invoke a command using a specific coding system: ‘let’-bind some
>  variables to the desired value around a call to ‘call-interactively’.
>  Transfer this form into ‘myhowm-menu-eucjp’, hard-coding the constant
>  bits as you see fit, and pruning the parts that don't seem relevant.
>  You might end up with:
> 
> The short (but untested, only derived) way:
> 
>  (defun myhowm-menu-eucjp ()
>    "to show howm menu with eucjp"
>    (interactive)
>    (let ((coding-system-for-read 'euc-jp)
>          (coding-system-for-write 'euc-jp)
>          (coding-system-require-warning t))
>      (call-interactively 'howm-menu)))
> 
> In any case, if your Emacs is not properly installed, fix that first.
> 

Re: execute a command with euc-jp

[masashi ito]

Dear Thien-Thi Nguyen,

Thank you for your detailed instruction. You told me many things I didn't
know. These will be definitely helpful in my learning lisp programming. As for
the function definition, however, the code you suggested, unfortunately,
didn't work (M-x myhowm-menu-eucjp didn't show anything).

I have tried many variations. But I haven't got things done yet. One
thing I noticed is 

(defun myhowm-menu-eucjp ()
   "to show howm menu with eucjp"
   (interactive)
   (universal-coding-system-argument 'euc-jp)
   (call-interactively 'howm-menu))

shows the prompt "Command to execute with euc-jp" and stops waiting for further
input. If I press just "enter," howm-menu is processed with a wrong
encoding. If instead I press "ctrl-c , '" which is bound to the howm-menu
command, howm-menu is processed with the euc-jp encoding...

Any suggestion is welcomed!

Masashi

On Thu, May 05, 2011 at 10:31:52AM +0200, Thien-Thi Nguyen wrote:
> () masashi ito <ma345to@gmx.com>
> () Wed, 4 May 2011 20:29:34 -0400
> 
>    (defun myhowm-menu-eucjp ()
>           "to show howm menu with eucjp"
>       (interactive)
>       (universal-coding-system-argument 'euc-jp)
>       (howm-menu)
>    )
> 
>    What should I do to run the command, howm-menu, with the euc-jp
>    encoding automatically without prompting me to enter "howm-menu."
> 
> The long (but more satisfying IMHO) way:
> 
>  Move the cursor to ‘universal-coding-system-argument’ and type
>  ‘C-h f RET’.  Emacs will show a buffer *Help* at the top of
>  which appears:
>  
>    universal-coding-system-argument is an interactive compiled
>    Lisp function in `mule-cmds.el'.
>  
>  If your Emacs is properly installed, the words mule-cmds.el will be
>  presented as a hyperlink.  You can move the cursor there (by typing
>  TAB repeatedly) and type RET to follow it, or click with the mouse.
>  Doing so will open a buffer viewing that file, with cursor at function
>  ‘universal-coding-system-argument’.
>  
>  Type ‘C-M-e’ to go to the end of the defun.  Note the form:
>  
>      (let ((coding-system-for-read coding-system)
>  	  (coding-system-for-write coding-system)
>  	  (coding-system-require-warning t)
>  	  (current-prefix-arg prefix))
>        (message "")
>        (call-interactively cmd))
>  
>  or something like that.  This shows the basic approach of how to
>  invoke a command using a specific coding system: ‘let’-bind some
>  variables to the desired value around a call to ‘call-interactively’.
>  Transfer this form into ‘myhowm-menu-eucjp’, hard-coding the constant
>  bits as you see fit, and pruning the parts that don't seem relevant.
>  You might end up with:
> 
> The short (but untested, only derived) way:
> 
>  (defun myhowm-menu-eucjp ()
>    "to show howm menu with eucjp"
>    (interactive)
>    (let ((coding-system-for-read 'euc-jp)
>          (coding-system-for-write 'euc-jp)
>          (coding-system-require-warning t))
>      (call-interactively 'howm-menu)))
> 
> In any case, if your Emacs is not properly installed, fix that first.

Re: execute a command with euc-jp

[Thien-Thi Nguyen]

() masashi ito <ma345to@gmx.com>
() Thu, 5 May 2011 18:01:10 -0400

   As for the function definition, however, the code you suggested,
   unfortunately, didn't work (M-x myhowm-menu-eucjp didn't show anything).

Perhaps you did not evaluate the new definition?
I was able to see the menu appear with

  (defun ttn-howm-menu ()
    (interactive)
    (let ((coding-system-for-read 'euc-jp)
          (coding-system-for-write 'euc-jp)
          (coding-system-require-warning t))
      (call-interactively 'howm-menu)))

and an installation of howm from howm-1.3.9.1.tar.gz.  After copying this
definition into *scratch*, i typed ‘C-M-x’ (i.e., ‘eval-defun’) and then
‘M-x ttn-howm-menu’.

To verify that ‘eval-defun’ worked correctly, you can type into *scratch*:

  (symbol-function 'ttn-howm-menu)

then type ‘C-j’ to inspect what Emacs thinks is the current definition.

Re: execute a command with euc-jp

[masashi ito]

Dear Thien-Thi Nguyen,

Thank you very much again for your kind, thorough instruction. And I apologize
for my mistake. As you said, I didn't evaluate the newly defined function
properly. I did C-x, C-e, which I found somewhere on the Internet. When I did
C-M-x, everything worked like a charm! I appreciate your help very much!

Sincerely yours,

Masashi

On Fri, May 06, 2011 at 02:37:52AM +0200, Thien-Thi Nguyen wrote:
> () masashi ito <ma345to@gmx.com>
> () Thu, 5 May 2011 18:01:10 -0400
> 
>    As for the function definition, however, the code you suggested,
>    unfortunately, didn't work (M-x myhowm-menu-eucjp didn't show anything).
> 
> Perhaps you did not evaluate the new definition?
> I was able to see the menu appear with
> 
>   (defun ttn-howm-menu ()
>     (interactive)
>     (let ((coding-system-for-read 'euc-jp)
>           (coding-system-for-write 'euc-jp)
>           (coding-system-require-warning t))
>       (call-interactively 'howm-menu)))
> 
> and an installation of howm from howm-1.3.9.1.tar.gz.  After copying this
> definition into *scratch*, i typed ‘C-M-x’ (i.e., ‘eval-defun’) and then
> ‘M-x ttn-howm-menu’.
> 
> To verify that ‘eval-defun’ worked correctly, you can type into *scratch*:
> 
>   (symbol-function 'ttn-howm-menu)
> 
> then type ‘C-j’ to inspect what Emacs thinks is the current definition.

Re: execute a command with euc-jp

[Thien-Thi Nguyen]

() masashi ito <ma345to@gmx.com>
() Thu, 5 May 2011 23:50:22 -0400

   And I apologize for my mistake.

No worries; i'm glad you persisted towards this understanding.

   As you said, I didn't evaluate the newly defined function properly.
   I did C-x, C-e, which I found somewhere on the Internet.
   When I did C-M-x, everything worked like a charm!

‘C-x C-e’ works fine if you place the cursor after the form you want to
evaluate.  ‘C-M-x’ is more suitable when you are in the middle of a defun,
which is often the case when experimenting in *scratch*.

To avoid Internet-induced confusion, you can find this kind of information
directly from Emacs.  Try:

  C-h k C-h k
  C-h k C-x C-e
  C-h k C-M-x

(This way, if there is any remaining confusion, you can tell the Emacs
maintainers about it and Emacs will improve as a result.  Try THAT with the
Internet!  :-D)