help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: dabbrev hang


From: Klaus Zeitler
Subject: Re: dabbrev hang
Date: 28 May 2003 15:29:48 +0200
User-agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3

>>>>> "Kin" == Kin Cho <address@hidden> writes:
    Kin> 
    Kin> I call dabbrev-expand while the minibuffer is active (e.g.,
    Kin> interactively calling eval-expression), it dabbrev hangs in
    Kin> dabbrev--goto-start-of-abbrev.
    Kin> 
    Kin> The reason is that (bobp) is false and (forward-char -1)
    Kin> can't backup into the prompt.
    Kin> 
    Kin> I'm thinking advicing bobp to cope with this, but is there a
    Kin> better fix?
    Kin> 
    Kin> I'm using emacs 21.3.

I tried to follow up on this on gnu.emacs.bug, but my last replies there
haven't shown up. Thus I'll repost it here.

that is probably the bug I reported last year, RMS sent me a patch
for this problem. Please try:

--- snip ---
*** /vol/freeware/SunOS-5.8/emacs/21.3/share/emacs/21.3/lisp/dabbrev.el Thu Jun 
21 09:40:45 2001
--- 
/vol/freeware/SunOS-5.8/emacs/21.3/share/emacs/21.3/site-lisp/patch/dabbrev.el  
    Mon Apr  7 15:42:57 2003
***************
*** 599,605 ****
        (progn
          (forward-char -1)
          (while (and (looking-at dabbrev--abbrev-char-regexp)
!                     (not (bobp)))
            (forward-char -1))
          (or (looking-at dabbrev--abbrev-char-regexp)
              (forward-char 1))))
--- 599,605 ----
        (progn
          (forward-char -1)
          (while (and (looking-at dabbrev--abbrev-char-regexp)
!                     (not (= (point) (field-beginning (point)))))
            (forward-char -1))
          (or (looking-at dabbrev--abbrev-char-regexp)
              (forward-char 1))))
***************
*** 948,953 ****
--- 948,954 ----
                            "\\(" dabbrev--abbrev-char-regexp "\\)"))
          (pattern2 (concat (regexp-quote abbrev)
                           "\\(\\(" dabbrev--abbrev-char-regexp "\\)+\\)"))
+         (inhibit-point-motion-hooks t)
          (found-string nil))
        ;; Limited search.
        (save-restriction
--- snip ---

This patch didn't make it into 21.3, I'll check if it's in CVS.

Klaus

-- 
 ------------------------------------------
|  Klaus Zeitler      Lucent Technologies  |
 ------------------------------------------
---
Whenever anyone says, "theoretically", they
really mean, "not really".   -- Dave Parnas


reply via email to

[Prev in Thread] Current Thread [Next in Thread]