Mercurial > emacs

comparison lisp/emacs-lisp/re-builder.el @ 35756:8a4490cbee15

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(reb-update-modestring): Don't use concat for integers. From Juanma Barranquero <lektu@uol.com.br>.
author Eli Zaretskii <eliz@gnu.org>
date Wed, 31 Jan 2001 08:29:28 +0000
parents 7a7b3b2c177a
children e178314a581e
comparison
equal deleted inserted replaced
35755:f0c740b5e8b0 35756:8a4490cbee15
516 (defun reb-update-modestring () 516 (defun reb-update-modestring ()
517 "Update the variable `reb-mode-string' displayed in the mode line." 517 "Update the variable `reb-mode-string' displayed in the mode line."
518 (setq reb-mode-string 518 (setq reb-mode-string
519 (concat 519 (concat
520 (if reb-subexp-mode 520 (if reb-subexp-mode
521 (concat " (subexp " (or reb-subexp-displayed "-") ")") 521 (format " (subexp %s)" (or reb-subexp-displayed "-"))
522 "") 522 "")
523 (if (not (reb-target-binding case-fold-search)) 523 (if (not (reb-target-binding case-fold-search))
524 " Case" 524 " Case"
525 ""))) 525 "")))
526 (force-mode-line-update)) 526 (force-mode-line-update))