two more bugs of read-passwd

two more bugs of read-passwd

[Kazu Yamamoto]

Hello,

Two more bugs of read-paswd of CVS Emacs:

1) The following code should return "quit case" if a user type C-g.
   But it just quits.

(condition-case nil
    (read-passwd "password: ")
  (quit "quit case"))

2) The following code should return nil if a user type C-g.
   But it just quits.

(let ((inhibit-quit t))
  (read-passwd "password: "))

--Kazu

Re: two more bugs of read-passwd

[Richard Stallman]

    (condition-case nil
	(read-passwd "password: ")
      (quit "quit case"))

I fixed that.

    (let ((inhibit-quit t))
      (read-passwd "password: "))

You need to set quit-flag to nil
after read-passwd returns, or it will cause a quit later.