GNU bug report logs - #14390
24.3.50; (wrong-type-argument stringp t) from `read-regexp'

Previous Next

Full log

View this message in rfc822 format

From: help-debbugs <at> gnu.org (GNU bug Tracking System)
To: Juri Linkov <juri <at> jurta.org>
Cc: tracker <at> debbugs.gnu.org
Subject: bug#14390: closed (24.3.50; (wrong-type-argument stringp t) from
 `read-regexp')
Date: Tue, 14 May 2013 23:44:02 +0000

[Message part 1 (text/plain, inline)]

Your message dated Wed, 15 May 2013 02:40:50 +0300
with message-id <87k3n1yvst.fsf <at> mail.jurta.org>
and subject line Re: bug#14390: 24.3.50; (wrong-type-argument stringp t) from `read-regexp'
has caused the debbugs.gnu.org bug report #14390,
regarding 24.3.50; (wrong-type-argument stringp t) from `read-regexp'
to be marked as done.

(If you believe you have received this mail in error, please contact
help-debbugs <at> gnu.org.)


-- 
14390: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=14390
GNU Bug Tracking System
Contact help-debbugs <at> gnu.org with problems

[Message part 2 (message/rfc822, inline)]

From: "Drew Adams" <drew.adams <at> oracle.com>
To: <bug-gnu-emacs <at> gnu.org>
Subject: 24.3.50; (wrong-type-argument stringp t) from `read-regexp'
Date: Sat, 11 May 2013 14:54:12 -0700

The backtrace is not from emacs -Q, but I think the same problem is there.
 
`read-regexp' binds SUGGESTIONS to this:
 
(append
  suggestions
  (list
   (find-tag-default-as-regexp) ; <======= SHOULD return a string
   (car regexp-search-ring)
   (regexp-quote (or (car search-ring) ""))
   (car (symbol-value query-replace-from-history-variable))))
 
The problem is (find-tag-default-as-regexp), which will return `t' when
TAG is nil.  `t' is not a valid suggestion: SUGGESTIONS must be a list
of strings.
 
Debugger entered--Lisp error: (wrong-type-argument stringp t)
* icicle-ORIG-read-from-minibuffer("Flush lines containing match for regexp: " t
nil nil regexp-history (t "^\\*.*" "keep-lines-read-args"
"bookmarkp-bmenu-show-only-varlists") t)
* read-from-minibuffer("Flush lines containing match for regexp: " nil nil nil
regexp-history (t "^\\*.*" "keep-lines-read-args"
"bookmarkp-bmenu-show-only-varlists") t)
* read-regexp("Flush lines containing match for regexp")
* (list (read-regexp prompt) nil nil t)
* (lambda (prompt) "Read arguments for `keep-lines' and friends.\nPrompt for a
regexp with PROMPT.\nValue is a list, (REGEXP)." (list (read-regexp prompt) nil
nil t))("Flush lines containing match for regexp")
* apply((lambda (prompt) "Read arguments for `keep-lines' and friends.\nPrompt
for a regexp with PROMPT.\nValue is a list, (REGEXP)." (list (read-regexp
prompt) nil nil t)) "Flush lines containing match for regexp")
* keep-lines-read-args("Flush lines containing match for regexp")
  (progn (barf-if-buffer-read-only) (keep-lines-read-args "Flush lines
containing match for regexp"))
  call-interactively(flush-lines record-it)
  icicle-execute-extended-command-1("flush-lines")
  ...
  funcall(...)
  icicle-execute-extended-command()
  call-interactively(icicle-execute-extended-command nil nil)
  command-execute(icicle-execute-extended-command)
 
 
 

In GNU Emacs 24.3.50.1 (i386-mingw-nt5.1.2600)
 of 2013-05-10 on ODIEONE
Bzr revision: 112542 rgm <at> gnu.org-20130510102119-fklj7xlajezey0tr
Windowing system distributor `Microsoft Corp.', version 5.1.2600
Configured using:
 `configure --with-gcc (4.7) --no-opt --enable-checking --cflags
 -IC:/Devel/emacs/build/include --ldflags -LC:/Devel/emacs/build/lib'
 

[Message part 3 (message/rfc822, inline)]

From: Juri Linkov <juri <at> jurta.org>
To: "Drew Adams" <drew.adams <at> oracle.com>
Cc: 14390-done <at> debbugs.gnu.org
Subject: Re: bug#14390: 24.3.50;
	(wrong-type-argument stringp t) from `read-regexp'
Date: Wed, 15 May 2013 02:40:50 +0300

> === modified file 'lisp/subr.el'
> --- lisp/subr.el	2013-04-27 23:07:46 +0000
> +++ lisp/subr.el	2013-05-11 23:16:36 +0000
> @@ -2715,7 +2715,7 @@ (defun find-tag-default-as-regexp ()
>  		   (get major-mode 'find-tag-default-function)
>  		   'find-tag-default))
>  	 (tag (funcall tagf)))
> -    (cond ((not tag))
> +    (cond ((not tag) "")

After looking more at this, I think it should return nil
because its accompanying function `find-tag-default' returns nil,
not an empty string, if there is no default tag at point.

This is fixed now.

> BTW, the same commit revno:111971 introduced the function
> `hi-lock-read-regexp-defaults'.  I think this is a good thing,
> and I propose to improve it by adding `read-regexp-defaults-tag'
> and `read-regexp-defaults-history' as we were discussing a month ago.

I'll create a separate request for this.

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.