mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

More custom :type fixes

Browse Source 
* lisp/lpr.el (lpr-headers-switches):
* lisp/emacs-lisp/testcover.el (testcover-compose-functions):
* lisp/cedet/ede/project-am.el (project-am-compile-project-command): Fix :type.

* lisp/progmodes/sql.el (sql-login-params): Fix and improve :type.
This commit is contained in:
Glenn Morris 2013-05-10 19:21:29 -07:00
parent 0da7ad96c4
commit 99fb275649
6 changed files with 53 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,5 +1,10 @@
2013-05-11 Glenn Morris <rgm@gnu.org>
* lpr.el (lpr-headers-switches):
* emacs-lisp/testcover.el (testcover-compose-functions): Fix :type.
* progmodes/sql.el (sql-login-params): Fix and improve :type.
* emulation/edt-mapper.el: In batch mode, error rather than hang.
* term.el (term-set-escape-char): Make it idempotent.

4
lisp/cedet/ChangeLog
View File

@ -1,3 +1,7 @@
2013-05-11 Glenn Morris <rgm@gnu.org>
* ede/project-am.el (project-am-compile-project-command): Fix :type.
2013-05-09 Glenn Morris <rgm@gnu.org>
* semantic/db-find.el (semanticdb-find-throttle-custom-list):

2
lisp/cedet/ede/project-am.el
View File

@ -55,7 +55,7 @@
(defcustom project-am-compile-project-command nil
"*Default command used to compile a project."
:group 'project-am
:type 'string)
:type '(choice const nil) string)
(defcustom project-am-compile-target-command (concat ede-make-command " -k %s")
"*Default command used to compile a project."

2
lisp/emacs-lisp/testcover.el
View File

@ -118,7 +118,7 @@ calls to one of the `testcover-1value-functions', so if that's true then no
brown splotch is shown for these. This list is quite incomplete! Most
side-effect-free functions should be here."
:group 'testcover
:type 'hook)
:type '(repeat symbol))
(defcustom testcover-progn-functions
'(define-key fset function goto-char mapc overlay-put progn

4
lisp/lpr.el
View File

@ -125,7 +125,9 @@ argument."
"List of strings of options to request page headings in the printer program.
If nil, we run `lpr-page-header-program' to make page headings
and print the result."
:type '(repeat (string :tag "Argument"))
:type '(choice (const nil)
(string :tag "Single argument")
(repeat :tag "Multiple arguments" (string :tag "Argument")))
:group 'lpr)
(defcustom print-region-function nil

65
lisp/progmodes/sql.el
View File

@ -285,36 +285,49 @@ file. Since that is a plaintext file, this could be dangerous."
(define-widget 'sql-login-params 'lazy
"Widget definition of the login parameters list"
;; FIXME: does not implement :default property for the user,
;; database and server options. Anybody have some guidance on how to
;; do this.
:tag "Login Parameters"
:type '(repeat (choice
(const user)
(const password)
(choice :tag "server"
(const server)
(list :tag "file"
(const :format "" server)
(const :format "" :file)
regexp)
(list :tag "completion"
(const :format "" server)
:type '(set :tag "Login Parameters"
(choice :tag "user"
:value user
(const user)
(list :tag "Specify a default"
(const user)
(list :tag "Default"
:inline t (const :default) string)))
(const password)
(choice :tag "server"
:value server
(const server)
(list :tag "Specify a default"
(const server)
(list :tag "Default"
:inline t (const :default) string))
(list :tag "file"
(const :format "" server)
(const :format "" :file)
regexp)
(list :tag "completion"
(const :format "" server)
(const :format "" :completion)
(restricted-sexp
:match-alternatives (listp stringp))))
(choice :tag "database"
:value database
(const database)
(list :tag "Specify a default"
(const database)
(list :tag "Default"
:inline t (const :default) string))
(list :tag "file"
(const :format "" database)
(const :format "" :file)
regexp)
(list :tag "completion"
(const :format "" database)
(const :format "" :completion)
(restricted-sexp
:match-alternatives (listp stringp))))
(choice :tag "database"
(const database)
(list :tag "file"
(const :format "" database)
(const :format "" :file)
regexp)
(list :tag "completion"
(const :format "" database)
(const :format "" :completion)
(restricted-sexp
:match-alternatives (listp stringp))))
(const port))))
(const port)))
;; SQL Product support