[debbugs-tracker] bug#37723: closed (Apropos Hyperbole key series in DEMO is not pressing final return)

[GNU bug Tracking System]

Your message dated Sun, 13 Oct 2019 12:34:11 -0400
with message-id <CA+OMD9i12381TMEZjYhEWWQeJ6REbHOFAtKtxhyDNA6=address@hidden>
and subject line Re: bug#37723: Apropos Hyperbole key series in DEMO is not 
pressing final return
has caused the debbugs.gnu.org bug report #37723,
regarding Apropos Hyperbole key series in DEMO is not pressing final return
to be marked as done.

(If you believe you have received this mail in error, please contact
address@hidden.)


-- 
37723: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=37723
GNU Bug Tracking System
Contact address@hidden with problems
> --- Begin Message ---
>
>
>
> Subject: 
>
> Apropos Hyperbole key series in DEMO is not pressing final return
>
>
>
>
> Date: 
>
> Sun, 13 Oct 2019 11:41:01 +0800
>
>
>
>
> User-agent: 
>
> Mutt/1.12.2+152 (e4c176b3) (2019-10-01)
>
>
>
>
> I use:  Editor:      GNU Emacs 26.1 (build 2, x86_64-pc-linux-gnu, GTK+ Version 
> 3.24.4)
>
>         Hyperbole:   7.0.7
>         Sys Type:    x86_64-pc-linux-gnu
>         OS Type:     gnu/linux
>         Window Sys:  x
>         News Reader: Gnus v5.13
>
> This might be quirks of my environment, but I'm reporting various little
> issues just in case.
>
> In the DEMO, under
> * Implicit Buttons
> ** Key Series Buttons
>
> The multiline key series:  {M-x apropos
> RET hyperbole RET} is not pressing the final return for me.  The prompt
>   Search for symbol (word list or regexp): hyperbole
> is in the minibuffer and I need to press return myself.
>
> If I put it on one line the behavior is the same:
> {M-x apropos RET hyperbole RET}
>
> If I change it to
> {M-x apropos RET hyperbole RET i}
> the hyperbole apropos page comes up, and  the minibuffer displays the
> error "i is undefined".
>
> Again, I use exwm as well as counsel/swiper/ivy.  There may be a strange
> interaction there, but running it outside of exwm (from console) gives
> me the same behavior.
>
> Thank you,
>
> -Kevin
>
>
>
> --- End Message ---

--- Begin Message --- Subject: Re: bug#37723: Apropos Hyperbole key series in DEMO is not pressing final return Date: Sun, 13 Oct 2019 12:34:11 -0400

On Sat, Oct 12, 2019 at 11:44 PM Kevin J. McCarthy <address@hidden> wrote:

I use:  Editor:      GNU Emacs 26.1 (build 2, x86_64-pc-linux-gnu, GTK+ Version 3.24.4)

         Hyperbole:   7.0.7
         Sys Type:    x86_64-pc-linux-gnu
         OS Type:     gnu/linux
         Window Sys:  x
         News Reader: Gnus v5.13

This might be quirks of my environment, but I'm reporting various little
issues just in case.

In the DEMO, under
* Implicit Buttons
** Key Series Buttons

The multiline key series:  {M-x apropos
RET hyperbole RET} is not pressing the final return for me.  The prompt
   Search for symbol (word list or regexp): hyperbole
is in the minibuffer and I need to press return myself.

If I put it on one line the behavior is the same:
{M-x apropos RET hyperbole RET}

Good catch, Kevin.  There was a bug in a function that trims whitespace from pathname arguments that was doing this to non-pathname arguments like we have here.  If you replace the following function in hpath.el and re-byte-compile and reload the file, this should work properly.

(defun hpath:absolute-to (path &optional default-dirs)
  "Return PATH as an absolute path relative to one directory from optional DEFAULT-DIRS or `default-directory'.
Return PATH unchanged when it is not a valid path or when DEFAULT-DIRS
is invalid.  DEFAULT-DIRS when non-nil may be a single directory or a list of
directories.  The first one in which PATH is found is used."
  (cond ((not (and (stringp path)
                   (hpath:is-p (hpath:trim path) nil t)))
         path)
        ((progn (setq path (hpath:trim path))
                (not (cond ((null default-dirs)
                            (setq default-dirs (cons default-directory nil)))
                           ((stringp default-dirs)
                            (setq default-dirs (cons default-dirs nil)))
                           ((listp default-dirs))
                           (t nil))))
         path)
        (t
         (let ((rtn) dir)
           (while (and default-dirs (null rtn))
             (setq dir (expand-file-name
                        (file-name-as-directory (car default-dirs)))
                   rtn (expand-file-name path dir)
                   default-dirs (cdr default-dirs))
             (or (file-exists-p rtn) (setq rtn nil)))
           (or rtn path)))))

This issue is now resolved and is being closed.

Bob

--- End Message ---