workgroups2 Changeset - cecf5c408045

Changeset - cecf5c408045

Parent rev.

Child rev.

[Not reviewed]

0 1 0

Sergey Pashinin - 11 years ago 2014-07-26 17:13:59
sergey@pashinin.com

Changed minibuffer message

1 file changed with 1 insertions and 3 deletions:

src/workgroups-utils-basic.el

0 comments (0 inline, 0 general)

src/workgroups-utils-basic.el

➞

Show inline comments

@@ @@ -626,27 +626,25 @@ Anything else is formatted with %s to produce a string." @@
               ((stringp spec) spec)
               (t `(format "%s" ,spec))))))
 (defun wg-barf-on-active-minibuffer ()
   "Throw an error when the minibuffer is active."
   (when (wg-minibuffer-active-p)
     (error "Workgroup operations aren't permitted while the \
 minibuffer is active")))
     (error "Exit minibuffer to use workgroups functions!")))
 (defmacro wg-set-parameter (place parameter value)
   "Set PARAMETER to VALUE at PLACE.
 This needs to be a macro to allow specification of a setf'able place."
   (wg-with-gensyms (p v)
     `(let ((,p ,parameter) (,v ,value))
        (wg-pickelable-or-error ,p)
        (wg-pickelable-or-error ,v)
        (setf ,place (wg-aput ,place ,p ,v))
        ,v)))
 ;;; uid utils
 (defun wg-time-to-b36 (&optional time)
   "Convert `current-time' into a b36 string."
   (apply 'concat (wg-docar (time (or time (current-time)))
                    (wg-int-to-b36 time 4))))

0 comments (0 inline, 0 general)