Mercurial > emacs
view test/comint-testsuite.el @ 111018:de901820e0bc
Allow Custom settings to be migrated into a custom theme.
* cus-theme.el (custom-theme--migrate-settings): New var.
(customize-create-theme): Allow editing the `user' theme.
(custom-theme-add-variable, custom-theme-add-var-1)
(custom-theme-add-face, custom-theme-add-face-1): Add a checkbox
to the front of each variable or face widget.
(custom-theme-write): Save theme settings in the correct order.
Optionally, remove saved settings from user customizations.
(custom-theme-write-variables, custom-theme-write-faces): Saved
only the checked widgets.
(customize-themes): Add a link for migrating custom settings.
* custom.el (custom-declare-theme, provide-theme): Use
custom-theme-name-valid-p.
(custom-theme-name-valid-p): Remove checks that are now
unnecessary since themes no longer obey load-path.
* cus-edit.el (custom-variable-value-create): For the simple
style, hide documentation string when hidden.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Sat, 16 Oct 2010 20:00:34 -0400 |
parents | cdae067c62d3 |
children | baf0b339ec21 |
line wrap: on
line source
;;; bytecomp-testsuite.el ;; Copyright (C) 2010 Free Software Foundation, Inc. ;; This file is part of GNU Emacs. ;; GNU Emacs 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. ;; GNU Emacs 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 GNU Emacs. If not, see <http://www.gnu.org/licenses/>. ;;; Commentary: ;; Tests for comint and related modes. ;;; Code: (require 'comint) (defun comint-testsuite-run () (interactive) (with-output-to-temp-buffer "*comint test*" (comint-testsuite--test-comint-password-prompt-regexp))) (defun comint-testsuite--test-comint-password-prompt-regexp () (interactive) (let ((password-strings '("foo@example.net's password: " ;ssh "Password for foo@example.org: " ; knit "Kerberos password for devnull/root <at> GNU.ORG: " ; ksu "Enter passphrase: " ; ssh-add "Enter passphrase (empty for no passphrase): " ; ssh-keygen "Enter same passphrase again: " ; ssh-keygen "Passphrase for key root@GNU.ORG: " ; plink "[sudo] password for user:" ; Ubuntu sudo "Password (again):" "Enter password:")) fail) (dolist (str password-strings) (unless (string-match comint-password-prompt-regexp str) (setq fail t) (princ (format " ERROR: comint-password-prompt-regexp did not match %s\n" str)))) (if fail (princ "FAILED: comint-password-prompt-regexp test\n") (princ "PASSED: comint-password-prompt-regexp test\n")))) (provide 'comint-testsuite) ;;; comint-testsuite.el ends here