[elpa] master updated (bbfbd6e -> 4e40ea1)

[Thomas Fitzsimmons]

fitzsim pushed a change to branch master.

  from  bbfbd6e   Release debbugs 0.9.1.
   new  530b4e2   packages/excorporate: Handle nil list of main invitees
   new  ca6d981   packages/excorporate: Update manual
   new  4366491   packages/excorporate: Retrieve Services.wsdl directly
   new  a887c8a   packages/excorporate: Change server version lookup
   new  e9107ba   packages/excorporate: Improve exco-get-meetings-for-day
   new  a418805   packages/excorporate: Acknowledge Erik Hetzner
   new  ff37d3a   packages/excorporate: Require soap-client 3.1.1
   new  4e40ea1   packages/excorporate: Bump version to 0.7.2


Summary of changes:
 packages/excorporate/excorporate-calfw.el.txt |8 +-
 packages/excorporate/excorporate-org.el   |5 +-
 packages/excorporate/excorporate.el   |   76 +++---
 packages/excorporate/excorporate.info |  104 -
 packages/excorporate/excorporate.texi |   89 +-
 5 files changed, 225 insertions(+), 57 deletions(-)

[elpa] externals/pabbrev 56400d5 2/2: Remove working.el.

[Phillip Lord]

branch: externals/pabbrev
commit 56400d5d256b42ffe45c229ea9827f026b650cf5
Author: Phillip Lord 
Commit: Phillip Lord 

Remove working.el.
---
 pabbrev.el |   67 +++
 1 files changed, 22 insertions(+), 45 deletions(-)

diff --git a/pabbrev.el b/pabbrev.el
index 07c28bc..36149f7 100644
--- a/pabbrev.el
+++ b/pabbrev.el
@@ -251,41 +251,6 @@
   (defalias 'cancel-timer 'delete-itimer))
 )))
 
-;; Working.el hack. Use working.el if it's around, or don't if it's not.
-;; PWL, 2015. working.el is part of cedet but isn't in the emacs trunk
-;; version. Perhaps I should just remove this?
-(eval-and-compile
-  (condition-case nil
-  (require 'working)
-(error
- (progn
-   (defvar pabbrev--msg)
-   (defvar pabbrev--dstr)
-   (defvar pabbrev--ref1)
-   (defmacro working-status-forms (message donestr &rest forms)
- "Contain a block of code during which a working status is shown."
- `(let ((pabbrev--msg ,message) (pabbrev--dstr ,donestr)
-(pabbrev--ref1 0))
-,@forms))
-
-   (defun working-status (&optional percent &rest args)
- "Called within the macro `working-status-forms', show the status."
- (message "%s%s" (apply 'format pabbrev--msg args)
-  (if (eq percent t) (concat "... " pabbrev--dstr)
-(format "... %3d%%"
-(or percent
-(floor (* 100.0 (/ (float (point))
-   (point-max)
-
-   ;; FIXME: Unused?
-   (defun working-dynamic-status (&optional _number &rest args)
- "Called within the macro `working-status-forms', show the status."
- (message "%s%s" (apply 'format pabbrev--msg args)
-  (format "... %c"
-  (aref [ ?- ?/ ?| ?\\ ] (% pabbrev--ref1 4
- (setq pabbrev--ref1 (1+ pabbrev--ref1)))
-   (put 'working-status-forms 'lisp-indent-function 2)
-
 (defgroup pabbrev nil
   "Predicative abbreviation expansion."
   :tag "Predictive Abbreviations."
@@ -382,6 +347,25 @@ I'm not telling you which version, I prefer."
 )
 ;;(setq pabbrev-minimal-expansion-p t)
 
+(defvar pabbrev--msg)
+(defvar pabbrev--dstr)
+(defvar pabbrev--ref1)
+
+(defmacro pabbrev-working-status-forms (message donestr &rest forms)
+  "Contain a block of code during which a working status is shown."
+  `(let ((pabbrev--msg ,message) (pabbrev--dstr ,donestr)
+ (pabbrev--ref1 0))
+ ,@forms))
+
+(defun pabbrev-working-status (&optional percent &rest args)
+  "Called within the macro `pabbrev-working-status-forms', show the status."
+  (message "%s%s" (apply 'format pabbrev--msg args)
+   (if (eq percent t) (concat "... " pabbrev--dstr)
+ (format "... %3d%%"
+ (or percent
+ (floor (* 100.0 (/ (float (point))
+(point-max)
+
 ;; stolen from font-lock!
 (if (featurep 'xemacs)
 (progn
@@ -1376,19 +1360,12 @@ self inserting commands."
   (interactive)
   (save-excursion
 (goto-char (point-min))
-(working-status-forms "pabbrev scavenging buffer" "done"
+(pabbrev-working-status-forms "pabbrev scavenging buffer" "done"
   (while (pabbrev-forward-thing)
-(working-status (/ (* 100 (point)) (point-max)))
-;;(message "pabbrev scavenging (buffer %s words %s line %s done %s 
%%)..."
-;;(current-buffer)
-;;   (pabbrev-get-usage-dictionary-size)
-;;  current-line
-;; (/ (* 100 current-line) total-line))
-;;(message "pabbrev scavenging buffer...On line %s"
-;;   (count-lines (point-min) (point)))
+(pabbrev-working-status (/ (* 100 (point)) (point-max)))
 (pabbrev-mark-add-word
  (pabbrev-bounds-of-thing-at-point)))
-  (working-status t))
+  (pabbrev-working-status t))
 (pabbrev-debug-message "Dictionary size %s total usage %s"
(pabbrev-get-usage-dictionary-size)
(pabbrev-get-total-usages-dictionary))

[elpa] externals/pabbrev updated (d28cf86 -> 56400d5)

[Phillip Lord]

phillord pushed a change to branch externals/pabbrev.

  from  d28cf86   Version 4.2.1 release.
   new  75dde00   Ensure cursor is the correct position.
   new  56400d5   Remove working.el.


Summary of changes:
 pabbrev.el |   78 ---
 1 files changed, 27 insertions(+), 51 deletions(-)

[elpa] externals/pabbrev 75dde00 1/2: Ensure cursor is the correct position.

[Phillip Lord]

branch: externals/pabbrev
commit 75dde004d44f21a06538cb8d7dba45c74cb92393
Author: Phillip Lord 
Commit: Phillip Lord 

Ensure cursor is the correct position.
---
 pabbrev.el |   11 +--
 1 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/pabbrev.el b/pabbrev.el
index 8e3713f..07c28bc 100644
--- a/pabbrev.el
+++ b/pabbrev.el
@@ -921,12 +921,11 @@ The suggestion should start with PREFIX, and be entered 
at point."
   (setq pabbrev-marker (cons (point) (point)))
   (overlay-put pabbrev-overlay
'after-string
-   (propertize
-(concat "["
-(propertize expansion
-'face (overlay-get pabbrev-overlay 
'face))
-"]")
-'cursor 0)))
+   (concat
+(propertize "[" 'cursor 1)
+(propertize expansion
+'face (overlay-get pabbrev-overlay 'face))
+"]")))
 
 (defvar pabbrev-last-expansion-suggestions nil
   "Cached alternative suggestions from the last expansion.")