Mercurial > hg > xemacs-beta
view tests/gtk/gtk-extra-test.el @ 5855:0bddb59072b6
Look for cased character classes when deciding on case-fold-search, #'isearch
lisp/ChangeLog addition:
2015-03-11 Aidan Kehoe <kehoea@parhasard.net>
* isearch-mode.el:
* isearch-mode.el (isearch-fix-case):
Use the new #'no-case-regexp-p function if treating ISEARCH-STRING
as a regular expression; otherwise, use the [[:upper:]] character
class.
* isearch-mode.el (isearch-no-upper-case-p): Removed.
* isearch-mode.el (with-caps-disable-folding): Removed.
These two haven't been used since 1998.
* occur.el (occur-1):
Use #'no-case-regexp-p here.
* replace.el (perform-replace):
Don't use #'no-upper-case-p, use #'no-case-regexp-p or
(string-match "[[:upper:]]" ...) as appropriate.
* simple.el:
* simple.el (no-upper-case-p): Removed. This did two different
things, and its secondary function (examining regular expressions)
just became much more complicated; move the regular expression
functionality to its own function, use character classes when
examining non-regular-expressions instead.
The code to look for character classes, and the design decision
that this should be done, are from GNU, thank you Stefan Monnier.
* simple.el (no-case-regexp-p): New.
Given a REGEXP, return non-nil if it has nothing to suggest an
interactive user wants a case-sensitive search.
* simple.el (with-search-caps-disable-folding):
* simple.el (with-interactive-search-caps-disable-folding):
Update both these macros to use #'no-case-regexp-p.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Wed, 11 Mar 2015 18:06:15 +0000 (2015-03-11) |
| parents | b9167d522a9a |
| children |
line wrap: on
line source
;; gtk-extra-test.el --- test extra GTK widgets ;; ;; Copyright 2000, 2001 William Perry ;; ;; This file is part of XEmacs. ;; XEmacs is free software: you can redistribute it and/or modify it ;; under the terms of the GNU General Public License as published by the ;; Free Software Foundation, either version 3 of the License, or (at your ;; option) any later version. ;; XEmacs is distributed in the hope that it will be useful, but WITHOUT ;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or ;; FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License ;; for more details. ;; You should have received a copy of the GNU General Public License ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>. (require 'gtk-extra) (gtk-define-test "Color Combo" extra color-combo nil (let ((combo (gtk-color-combo-new))) (gtk-box-pack-start window combo nil nil 0))) (gtk-define-test "Directory Tree" extra dirtree nil (let ((dir (gtk-dir-tree-new))) (gtk-box-pack-start window dir nil nil 0) (gtk-dir-tree-open-dir dir "/"))) (gtk-define-test "File List" extra filelist nil (let ((scrolled (gtk-scrolled-window-new nil nil)) (list (gtk-file-list-new 32 2 "/"))) (gtk-scrolled-window-add-with-viewport scrolled list) (put scrolled 'height 200) (gtk-box-pack-start window scrolled t t 0))) (gtk-define-test "Font Combo" extra fontcombo nil (let ((fc (gtk-font-combo-new))) (gtk-box-pack-start window fc t t 0)))