Re: eww

[Bastien <bzg@gnu.org>]

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

Juanma Barranquero <lekktu@gmail.com> writes:

> On Sun, Jan 12, 2014 at 2:46 PM, Richard Stallman <rms@gnu.org> wrote:
>
>> Before the first release that contains eww, I think we should set up
>> natural aliases for the commands, perhaps using the name "browse" or
>> "www" or "web" instead of "eww".  With natural names, users won't have
>> to wonder, "What in the world did they call that?"  We can avoid
>> adding one more difficulty to learning to use Emacs.
>>
>> I think epa also needs a set of natural aliases, with "crypt" instead
>> of "epa".
>
> We introduced define-alternatives for exactly that case. It's just
> that nobody has used it yet.

Try this:

  (define-alternatives web)
  (setq web-alternatives '(("eww" . eww)))
  M-x web RET TAB RET

Does not work without the attached patch.

I think it's safe to recommend `define-alternatives' for commands
only, not for function, and the docstring suggests this too.  If so,
I'll apply the patch.

Two other problems:

1) when there is only one "alternative", the user is asked which
   one he wants.  I think COMMAND should use the alternative without
   asking, and tell the user how to add other alternatives through
   COMMAND-alternatives for 2 secs the first time the alternative is
   chosen.

2) Once an alternative is chosen, setting COMMAND-alternatives will
   not take any effect, and I don't see a way to cancel the first
   choice.

What do you think?


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: simple.el.patch --]
[-- Type: text/x-diff, Size: 857 bytes --]

=== modified file 'lisp/simple.el'
*** lisp/simple.el	2014-01-12 04:00:03 +0000
--- lisp/simple.el	2014-01-13 11:10:41 +0000
***************
*** 7694,7700 ****
                 (customize-save-variable ',varimp-sym
                                          (cdr (assoc-string val ,varalt-sym))))))
           (if ,varimp-sym
!              (funcall ,varimp-sym)
             (message ,(format "No implementation selected for command `%s'"
                               command-name)))))))
  
--- 7694,7700 ----
                 (customize-save-variable ',varimp-sym
                                          (cdr (assoc-string val ,varalt-sym))))))
           (if ,varimp-sym
!              (call-interactively ,varimp-sym)
             (message ,(format "No implementation selected for command `%s'"
                               command-name)))))))
  


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


-- 
 Bastien