workgroups2 Changeset - 993f71f231d9

Changeset - 993f71f231d9

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Sergey Pashinin - 12 years ago 2013-05-23 09:53:40
sergey@pashinin.com

added (require 'workgroups-utils-basic) to workgroups-functions.el

1 file changed with 1 insertions and 0 deletions:

src/workgroups-functions.el

0 comments (0 inline, 0 general)

src/workgroups-functions.el

➞

Show inline comments

 ;;; workgroups-functions --- some functions here
 ;;; Commentary:
 ;;; Code:
 (require 'dflet)
 (require 'workgroups-compat)
 (require 'workgroups-utils-basic)
 (defun wg-read-object (prompt test warning &optional initial-contents keymap
                               read hist default-value inherit-input-method)
   "PROMPT for an object that satisfies TEST, WARNING if necessary.
 ARGS are `read-from-minibuffer's args, after PROMPT."
   (dflet ((read () (read-from-minibuffer
                    prompt initial-contents keymap read hist
                    default-value inherit-input-method)))
     (let ((obj (read)))
       (when (and (equal obj "") default-value) (setq obj default-value))
       (while (not (funcall test obj))
         (message warning)

0 comments (0 inline, 0 general)