[elpa] externals/org updated (3ba46cb -> 8df3e25)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  3ba46cb   Merge branch 'maint'
   new  ad006e2   oc: Remove spurious `provide'
   new  8df3e25   Revert "oc: Remove spurious `provide'"


Summary of changes:

[elpa] externals/org 8df3e25 2/2: Revert "oc: Remove spurious `provide'"

[ELPA Syncer]

branch: externals/org
commit 8df3e25db8a629bbffa883edadb13a55239ae4b7
Author: Nicolas Goaziou 
Commit: Nicolas Goaziou 

Revert "oc: Remove spurious `provide'"

This reverts commit ad006e29305b4dd7af340631806c83d4d9ca2ab7.
---
 lisp/oc-basic.el| 1 +
 lisp/oc-biblatex.el | 1 +
 lisp/oc-csl.el  | 1 +
 lisp/oc-natbib.el   | 1 +
 lisp/oc.el  | 1 +
 5 files changed, 5 insertions(+)

diff --git a/lisp/oc-basic.el b/lisp/oc-basic.el
index bd9b8ec..c46e7a7 100644
--- a/lisp/oc-basic.el
+++ b/lisp/oc-basic.el
@@ -762,4 +762,5 @@ Raise an error when no bibliography is set in the buffer."
 (("nil") ("bare" "b") ("bare-caps" "bc") ("caps" "c"
 
 (provide 'org-cite-basic)
+(provide 'oc-basic)
 ;;; oc-default.el ends here
diff --git a/lisp/oc-biblatex.el b/lisp/oc-biblatex.el
index 97cd034..5a9c304 100644
--- a/lisp/oc-biblatex.el
+++ b/lisp/oc-biblatex.el
@@ -308,4 +308,5 @@ to the document, and set styles."
 (("nil") ("bare" "b") ("caps" "c") ("bare-caps" "bc"
 
 (provide 'org-cite-biblatex)
+(provide 'oc-biblatex)
 ;;; oc-biblatex.el ends here
diff --git a/lisp/oc-csl.el b/lisp/oc-csl.el
index 1fb917a..5e0e272 100644
--- a/lisp/oc-csl.el
+++ b/lisp/oc-csl.el
@@ -604,4 +604,5 @@ property list."
 (("nil") ("bare" "b") ("bare-caps" "bc") ("caps" "c"
 
 (provide 'org-cite-csl)
+(provide 'oc-csl)
 ;;; oc-citeproc.el ends here
diff --git a/lisp/oc-natbib.el b/lisp/oc-natbib.el
index 7ec1033..59951c5 100644
--- a/lisp/oc-natbib.el
+++ b/lisp/oc-natbib.el
@@ -185,4 +185,5 @@ OUTPUT is the final output of the export process."
  ("bare-full" "bf") ("caps-full" "cf") ("bare-caps-full" "bcf"
 
 (provide 'org-cite-natbib)
+(provide 'oc-natbib)
 ;;; oc-natbib.el ends here
diff --git a/lisp/oc.el b/lisp/oc.el
index e2def32..3383481 100644
--- a/lisp/oc.el
+++ b/lisp/oc.el
@@ -1565,4 +1565,5 @@ ARG is the prefix argument received when calling 
interactively the function."
   (user-error "Cannot insert a citation here"
 
 (provide 'org-cite)
+(provide 'oc)
 ;;; oc.el ends here

[elpa] externals/org ad006e2 1/2: oc: Remove spurious `provide'

[ELPA Syncer]

branch: externals/org
commit ad006e29305b4dd7af340631806c83d4d9ca2ab7
Author: Nicolas Goaziou 
Commit: Nicolas Goaziou 

oc: Remove spurious `provide'

* lisp/oc-basic.el:
* lisp/oc-biblatex.el (biblatex):
* lisp/oc-csl.el:
* lisp/oc-natbib.el:
* lisp/oc.el: Provide only the full library name.
---
 lisp/oc-basic.el| 1 -
 lisp/oc-biblatex.el | 1 -
 lisp/oc-csl.el  | 1 -
 lisp/oc-natbib.el   | 1 -
 lisp/oc.el  | 1 -
 5 files changed, 5 deletions(-)

diff --git a/lisp/oc-basic.el b/lisp/oc-basic.el
index c46e7a7..bd9b8ec 100644
--- a/lisp/oc-basic.el
+++ b/lisp/oc-basic.el
@@ -762,5 +762,4 @@ Raise an error when no bibliography is set in the buffer."
 (("nil") ("bare" "b") ("bare-caps" "bc") ("caps" "c"
 
 (provide 'org-cite-basic)
-(provide 'oc-basic)
 ;;; oc-default.el ends here
diff --git a/lisp/oc-biblatex.el b/lisp/oc-biblatex.el
index 5a9c304..97cd034 100644
--- a/lisp/oc-biblatex.el
+++ b/lisp/oc-biblatex.el
@@ -308,5 +308,4 @@ to the document, and set styles."
 (("nil") ("bare" "b") ("caps" "c") ("bare-caps" "bc"
 
 (provide 'org-cite-biblatex)
-(provide 'oc-biblatex)
 ;;; oc-biblatex.el ends here
diff --git a/lisp/oc-csl.el b/lisp/oc-csl.el
index 5e0e272..1fb917a 100644
--- a/lisp/oc-csl.el
+++ b/lisp/oc-csl.el
@@ -604,5 +604,4 @@ property list."
 (("nil") ("bare" "b") ("bare-caps" "bc") ("caps" "c"
 
 (provide 'org-cite-csl)
-(provide 'oc-csl)
 ;;; oc-citeproc.el ends here
diff --git a/lisp/oc-natbib.el b/lisp/oc-natbib.el
index 59951c5..7ec1033 100644
--- a/lisp/oc-natbib.el
+++ b/lisp/oc-natbib.el
@@ -185,5 +185,4 @@ OUTPUT is the final output of the export process."
  ("bare-full" "bf") ("caps-full" "cf") ("bare-caps-full" "bcf"
 
 (provide 'org-cite-natbib)
-(provide 'oc-natbib)
 ;;; oc-natbib.el ends here
diff --git a/lisp/oc.el b/lisp/oc.el
index 3383481..e2def32 100644
--- a/lisp/oc.el
+++ b/lisp/oc.el
@@ -1565,5 +1565,4 @@ ARG is the prefix argument received when calling 
interactively the function."
   (user-error "Cannot insert a citation here"
 
 (provide 'org-cite)
-(provide 'oc)
 ;;; oc.el ends here

[elpa] externals/company 34368be 2/2: Merge pull request #1155 from yugaego/template

[ELPA Syncer]

branch: externals/company
commit 34368be3cdd4ec4cee7790002bfea6c8c123a623
Merge: 48976b7 98ff17b
Author: Dmitry Gutov 
Commit: GitHub 

Merge pull request #1155 from yugaego/template

Add links to Issues
---
 .github/ISSUE_TEMPLATE/config.yml | 26 ++
 1 file changed, 26 insertions(+)

diff --git a/.github/ISSUE_TEMPLATE/config.yml 
b/.github/ISSUE_TEMPLATE/config.yml
new file mode 100644
index 000..6c2518f
--- /dev/null
+++ b/.github/ISSUE_TEMPLATE/config.yml
@@ -0,0 +1,26 @@
+blank_issues_enabled: false
+contact_links:
+  - name: "Ask a Question"
+url: 
https://github.com/company-mode/company-mode/discussions/categories/q-a
+about: Ask and answer questions
+  - name: "Feature Request"
+url: 
https://github.com/company-mode/company-mode/discussions/categories/ideas
+about: Suggest a feature to implement
+  - name: "Company Intro"
+url: http://company-mode.github.io
+about: Quick-start installation and usage instructions
+  - name: "Community Knowledge Base: Tips & Tricks"
+url: https://github.com/company-mode/company-mode/wiki/Tips-&-tricks
+about: Search and share your findings
+  - name: "Community Knowledge Base: Show & Tell"
+url: 
https://github.com/company-mode/company-mode/discussions/categories/show-and-tell
+about: Search and share your findings
+  - name: "Additional Support: Emacs StackExchange"
+url: https://emacs.stackexchange.com/questions/tagged/company-mode
+about: Search, ask and answer questions
+  - name: "Additional Support: Emacs Reddit"
+url: https://www.reddit.com/r/emacs
+about: Search, ask and answer questions
+  - name: "Additional Support: Emacs Help"
+url: https://lists.gnu.org/mailman/listinfo/help-gnu-emacs
+about: Search, ask and answer questions

[elpa] externals/company 98ff17b 1/2: Add links to Issues

[ELPA Syncer]

branch: externals/company
commit 98ff17be1e51e77b125b3ba4d915605f5be323f7
Author: YE 
Commit: YE 

Add links to Issues
---
 .github/ISSUE_TEMPLATE/config.yml | 26 ++
 1 file changed, 26 insertions(+)

diff --git a/.github/ISSUE_TEMPLATE/config.yml 
b/.github/ISSUE_TEMPLATE/config.yml
new file mode 100644
index 000..6c2518f
--- /dev/null
+++ b/.github/ISSUE_TEMPLATE/config.yml
@@ -0,0 +1,26 @@
+blank_issues_enabled: false
+contact_links:
+  - name: "Ask a Question"
+url: 
https://github.com/company-mode/company-mode/discussions/categories/q-a
+about: Ask and answer questions
+  - name: "Feature Request"
+url: 
https://github.com/company-mode/company-mode/discussions/categories/ideas
+about: Suggest a feature to implement
+  - name: "Company Intro"
+url: http://company-mode.github.io
+about: Quick-start installation and usage instructions
+  - name: "Community Knowledge Base: Tips & Tricks"
+url: https://github.com/company-mode/company-mode/wiki/Tips-&-tricks
+about: Search and share your findings
+  - name: "Community Knowledge Base: Show & Tell"
+url: 
https://github.com/company-mode/company-mode/discussions/categories/show-and-tell
+about: Search and share your findings
+  - name: "Additional Support: Emacs StackExchange"
+url: https://emacs.stackexchange.com/questions/tagged/company-mode
+about: Search, ask and answer questions
+  - name: "Additional Support: Emacs Reddit"
+url: https://www.reddit.com/r/emacs
+about: Search, ask and answer questions
+  - name: "Additional Support: Emacs Help"
+url: https://lists.gnu.org/mailman/listinfo/help-gnu-emacs
+about: Search, ask and answer questions

[elpa] externals/company 824b5fd: Some edits

[ELPA Syncer]

branch: externals/company
commit 824b5fd7372478021de6af05f3b489f785a19b4e
Author: Dmitry Gutov 
Commit: Dmitry Gutov 

Some edits
---
 .github/ISSUE_TEMPLATE/config.yml | 12 ++--
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/.github/ISSUE_TEMPLATE/config.yml 
b/.github/ISSUE_TEMPLATE/config.yml
index 6c2518f..e765374 100644
--- a/.github/ISSUE_TEMPLATE/config.yml
+++ b/.github/ISSUE_TEMPLATE/config.yml
@@ -1,20 +1,20 @@
 blank_issues_enabled: false
 contact_links:
-  - name: "Ask a Question"
+  - name: "Discussions: Ask a question"
 url: 
https://github.com/company-mode/company-mode/discussions/categories/q-a
 about: Ask and answer questions
-  - name: "Feature Request"
+  - name: "Discussions: Feature request"
 url: 
https://github.com/company-mode/company-mode/discussions/categories/ideas
 about: Suggest a feature to implement
+  - name: "Discussions: Show & Tell"
+url: 
https://github.com/company-mode/company-mode/discussions/categories/show-and-tell
+about: Tell us about your package or configuration feat
   - name: "Company Intro"
 url: http://company-mode.github.io
 about: Quick-start installation and usage instructions
-  - name: "Community Knowledge Base: Tips & Tricks"
+  - name: "Company Wiki: Tips & Tricks"
 url: https://github.com/company-mode/company-mode/wiki/Tips-&-tricks
 about: Search and share your findings
-  - name: "Community Knowledge Base: Show & Tell"
-url: 
https://github.com/company-mode/company-mode/discussions/categories/show-and-tell
-about: Search and share your findings
   - name: "Additional Support: Emacs StackExchange"
 url: https://emacs.stackexchange.com/questions/tagged/company-mode
 about: Search, ask and answer questions

[elpa] externals/consult 53d9d53: consult-ripgrep-command: Use --smart-case

[ELPA Syncer]

branch: externals/consult
commit 53d9d53ce48edfbac1a2dc3f3070cb9164552b8b
Author: Daniel Mendler 
Commit: Daniel Mendler 

consult-ripgrep-command: Use --smart-case

Suggested by @daanturo on the Doom issue tracker.
---
 consult.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/consult.el b/consult.el
index 2910d6c..7f32a55 100644
--- a/consult.el
+++ b/consult.el
@@ -243,7 +243,7 @@ command options."
 
 (defcustom consult-ripgrep-command
   "rg --null --line-buffered --color=ansi --max-columns=1000\
-   --no-heading --line-number . -e ARG OPTS"
+   --smart-case --no-heading --line-number . -e ARG OPTS"
   "Command line string for ripgrep, see `consult-ripgrep'.
 
 The command string must have a specific format, including ARG and OPTS

[elpa] externals/consult cf9b877: consult--directory-prompt: Ensure that this-command is preserved (See #368)

[ELPA Syncer]

branch: externals/consult
commit cf9b877095d1b5524de8efc3b467dd4341ab97e8
Author: Daniel Mendler 
Commit: Daniel Mendler 

consult--directory-prompt: Ensure that this-command is preserved (See #368)
---
 consult.el | 8 +++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/consult.el b/consult.el
index 7f32a55..5955092 100644
--- a/consult.el
+++ b/consult.el
@@ -711,7 +711,13 @@ Then the `consult-project-root-function' is tried.
 Otherwise the `default-directory' is returned."
   (cond
((stringp dir) (consult--directory-prompt-1 prompt dir))
-   (dir (consult--directory-prompt-1 prompt (read-directory-name "Directory: " 
nil nil t)))
+   (dir (consult--directory-prompt-1
+ prompt
+ ;; HACK Preserve this-command across `read-directory-name' call,
+ ;; such that `consult-customize' continues to work.
+ ;; TODO Find a better and more general solution which preserves 
`this-command'.
+ (let ((this-command this-command))
+   (read-directory-name "Directory: " nil nil t
((when-let (root (consult--project-root))
   (cons (format "%s in project %s: " prompt (consult--project-name root))
 root)))

[elpa] externals/vertico 864dfeb: Fix typo, use variable current-minibuffer-command

[ELPA Syncer]

branch: externals/vertico
commit 864dfeb4e98c4629d1c3e2005b1c3baa7dea7cc9
Author: Daniel Mendler 
Commit: Daniel Mendler 

Fix typo, use variable current-minibuffer-command
---
 extensions/vertico-repeat.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/extensions/vertico-repeat.el b/extensions/vertico-repeat.el
index b46c93b..a25137c 100644
--- a/extensions/vertico-repeat.el
+++ b/extensions/vertico-repeat.el
@@ -69,8 +69,8 @@
   "Save Vertico status for `vertico-repeat'."
   (when vertico--input
 (unless vertico-repeat--restore
-  (setq vertico-repeat--command (if (boundp 'minibuffer-current-command)
-minibuffer-current-command
+  (setq vertico-repeat--command (if (boundp 'current-minibuffer-command)
+current-minibuffer-command
   this-command)
 vertico-repeat--input ""
 vertico-repeat--candidate nil

[nongnu] branch elpa/tablist created (now faab7a0)

[Philip Kaludercic]

zge pushed a change to branch elpa/tablist.

at  faab7a0   Merge pull request #20 from tarsiiformes/sections

This branch includes the following new commits:

   new  20eab2c   Initial commit.
   new  51bf2bf   Initial commit.
   new  e0e6a06   Added tablist package.
   new  bf2e139   Fixed some bindings.
   new  bdfead8   Make savehist hook more robust.
   new  662243a   Remove minor-columns feature.  Avoid a compiler warning.
   new  de762f1   Some documentation fixes.
   new  f980411   Clean up help text.
   new  94bc289   Fixed warning.
   new  82bf4b9   Updated copyright.
   new  b90fff4   *** empty log message ***
   new  6c03338   *** empty log message ***
   new  ad275a1   Merged branch renderpages.
   new  d65235d   Fixed a bug regarding tablist columns.
   new  3ade133   Handle recent changes in eldoc.
   new  0c56b65   Made Keywords: section standard conform.
   new  9019123   Remove tablist package.
   new  e10e086   Readded tablist package.
   new  2077a99   Fix typo in description, and trailing line to satisfy 
package.el
   new  6d03439   Added dir-locals.el
   new  0f1e499   Add .dir-locals.el
   new  9c0c56d   * lisp/pdf-occur.el: New and improved asynchronous, 
multiple file occur. * lisp/pdf-isearch.el:(pdf-isearch-occur): New command.
   new  a0c8192   Bumped version added NEWS.
   new  c78eccd   Turn macro into a function
   new  a0d1755   Workaround semantic bug.
   new  7380227   Fix compiler warnings.
   new  7cd9360   Merge branch 'master' into options
   new  254dc55   Merge pull request #94 from oscarfv/recolor
   new  1a2bad1   Bumped version
   new  de067b4   Merge pull request #95 from svend/spelling
   new  e34dc0b   Merge branch 'master' of github.com:politza/pdf-tools
   new  c5da8e6   Ignore .cask directory
   new  117c37f   Added Cask, Makefile and README files
   new  6fd9f33   Added licence
   new  2262a80   Clear .dir-locals.el
   new  1e4fac1   Add autoload cookie for lazy loading
   new  3368274   Merge pull request #1 from syohex/autoload
   new  ef38312   Add another autoload cookie
   new  4a88205   Remove trailing whitespace
   new  db7c429   Reindent
   new  f13b8f0   Improve README
   new  c834a84   Cosmetic changes to tablist
   new  c762a78   Bump version to 0.80
   new  6d4a6fb   Escape character literals
   new  af87031   Add compatibility with Emacs 27
   new  389730e   Add byte-compile target
   new  f6b495d   Bump version
   new  8079801   Fix invalid argument error
   new  a93d0b1   `model-line-misc-info` may contain non-lists
   new  bd0d2bf   Function quoting
   new  41a9612   Merge pull request #14 from jaor/jaor-patch-1
   new  61f653f   Quote commands as functions
   new  343d81b   Deactivate not implemented commands in keymaps
   new  10a573d   Make git ignore the dist directory
   new  dad26a1   Fix typos
   new  778eee5   Merge pull request #19 from tarsiiformes/typos
   new  9a242c5   Enforce use of spaces for indentation
   new  65271d9   Teach outline-minor-mode about our original heading syntax
   new  3fc27c7   Split tablist-filter.el into sections
   new  faab7a0   Merge pull request #20 from tarsiiformes/sections

[nongnu] elpa/tablist 51bf2bf 02/60: Initial commit.

[Philip Kaludercic]

branch: elpa/tablist
commit 51bf2bf892d550f91cb209993d0302dd1a4048d9
Author: Andreas Politz 
Commit: Andreas Politz 

Initial commit.
---
 .gitignore | 1 +
 1 file changed, 1 insertion(+)

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 000..c531d98
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1 @@
+*.elc

[nongnu] elpa/tablist 662243a 06/60: Remove minor-columns feature. Avoid a compiler warning.

[Philip Kaludercic]

branch: elpa/tablist
commit 662243ab1e76b856d35746db73a15d9ed8c8562e
Author: Andreas Politz 
Commit: Andreas Politz 

Remove minor-columns feature.  Avoid a compiler warning.
---
 tablist.el | 14 +-
 1 file changed, 5 insertions(+), 9 deletions(-)

diff --git a/tablist.el b/tablist.el
index ed9262a..23690f4 100644
--- a/tablist.el
+++ b/tablist.el
@@ -200,8 +200,6 @@ The function should return a collection for this column, 
suitable
 as argument for the function `completion-in-region'.")
 
 ;; Differentiating columns
-(defvar-local tablist-minor-columns nil
-  "Uninteresting, boring columns.")
 (defvar-local tablist-major-columns nil
   "Columns used to mark and when querying.")
 
@@ -230,6 +228,7 @@ as argument for the function `completion-in-region'.")
 ;; *Setup
 ;;
 
+(defvar savehist-additional-variables)
 (add-hook 'savehist-save-hook 
   (lambda nil
 (add-to-list 'savehist-additional-variables 'tablist-named-filter)))
@@ -772,7 +771,7 @@ STATE is a return value of `tablist-get-mark-state'."
   (interactive "p")
   (unless (tabulated-list-get-id)
 (error "No entry on this line"))
-  (let* ((columns (tablist-column-offsets t))
+  (let* ((columns (tablist-column-offsets))
  (current (1- (length columns
 ;; find current column
 (while (and (>= current 0)
@@ -790,8 +789,7 @@ STATE is a return value of `tablist-get-mark-state'."
   (setq n (* (cl-signum n) (1- (abs n)
 (when (/= n 0)
   (tablist-move-to-column
-   (+ (length tablist-minor-columns)
-  (mod (+ current n) (length columns)))
+   (mod (+ current n) (length columns))
 
 (defun tablist-backward-column (n)
   "Move n columns backward, while wrapping around."
@@ -1144,7 +1142,7 @@ Optional REVERT-P means, revert the display afterwards."
   (if columns
   0
 
-(defun tablist-column-offsets (&optional exclude-minor-columns-p)
+(defun tablist-column-offsets ()
   "Return a list of column positions.
 
 This is a list of offsets from the beginning of the line."
@@ -1155,9 +1153,7 @@ This is a list of offsets from the beginning of the line."
  (len (nth 1 c))
  (pad (or (plist-get (nthcdr 3 c) :pad-right)
   1)))
-(unless (and exclude-minor-columns-p
- (memq i tablist-minor-columns))
-  (push cc columns))
+(push cc columns)
 (when (numberp len)
   (cl-incf cc len))
 (when pad

[nongnu] elpa/tablist ad275a1 13/60: Merged branch renderpages.

[Philip Kaludercic]

branch: elpa/tablist
commit ad275a1120165eb1465d287ca0475a4aadf2ab35
Merge: 82bf4b9 6c03338
Author: Andreas Politz 
Commit: Andreas Politz 

Merged branch renderpages.
---
 tablist.el | 36 +++-
 1 file changed, 27 insertions(+), 9 deletions(-)

diff --git a/tablist.el b/tablist.el
index 10362c1..a76a4dc 100644
--- a/tablist.el
+++ b/tablist.el
@@ -53,6 +53,7 @@
 (require 'tabulated-list)
 (require 'dired)
 (require 'tablist-filter)
+(require 'pdf-util)
 
 ;;
 ;; *Mode Maps
@@ -284,18 +285,28 @@ as argument for the function `completion-in-region'.")
  'tablist-selection-changed-functions
  tablist-selected-id)
 
+(defvar tablist-context-window-update--timer nil)
+  
 (defun tablist-context-window-update (&optional id)
   (when (and tablist-context-window-function
  (window-live-p tablist-context-window)
  (not tablist-edit-column-minor-mode))
 (unless id
   (setq id (tabulated-list-get-id)))
-(let ((fn tablist-context-window-function))
-  (with-selected-window tablist-context-window
-(set-window-dedicated-p nil nil)
-(save-selected-window (funcall fn id))
-(when (window-live-p (selected-window))
-  (set-window-dedicated-p nil t))
+(when (timerp tablist-context-window-update--timer)
+  (cancel-timer tablist-context-window-update--timer))
+(setq tablist-context-window-update--timer
+  (run-with-idle-timer 0.1 nil
+(lambda (fn window)
+  (when (window-live-p window)
+(with-selected-window window
+  (set-window-dedicated-p nil nil)
+  (save-selected-window
+(funcall fn id))
+  (when (window-live-p (selected-window))
+(set-window-dedicated-p nil t)
+tablist-context-window-function
+tablist-context-window
 
 (defun tablist-display-context-window ()
   (interactive)
@@ -317,6 +328,13 @@ as argument for the function `completion-in-region'.")
   (delete-window tablist-context-window)))
   (setq tablist-context-window nil))
 
+(defun tablist-toggle-context-window ()
+  (interactive)
+  (if (window-live-p tablist-context-window)
+  (tablist-hide-context-window)
+(tablist-display-context-window)))
+  
+  
 ;;
 ;; *Marking
 ;;
@@ -1599,10 +1617,10 @@ FILTER defaults to `tablist-current-filter'."
`(and ,x1 ,x2))
   (`(and ,x1 ,x2)
`(or ,x1 ,x2))
-  (else else)))
+  (`(not ,x) x)
+  (x `(not ,x
   (tablist-apply-filter)
-  (when (called-interactively-p 'any)
-(tablist-display-filter-temporarily)))
+  (tablist-display-filter-temporarily))
 
 (defun tablist-suspend-filter (&optional flag)
   "Temporarily disable filtering according to FLAG.

[nongnu] elpa/tablist e0e6a06 03/60: Added tablist package.

[Philip Kaludercic]

branch: elpa/tablist
commit e0e6a0678ba1da4ac72dc23ce402666e4c89ca9e
Author: Andreas Politz 
Commit: Andreas Politz 

Added tablist package.
---
 tablist-filter.el |  447 +
 tablist.el| 1897 +
 2 files changed, 2344 insertions(+)

diff --git a/tablist-filter.el b/tablist-filter.el
new file mode 100644
index 000..f3d58b9
--- /dev/null
+++ b/tablist-filter.el
@@ -0,0 +1,447 @@
+;;; tablist-filter.el --- Filter expressions for tablists.
+
+;; Copyright (C) 2013  Andreas Politz
+
+;; Author: Andreas Politz 
+;; Keywords: 
+
+;; This program 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.
+
+;; This program 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 this program.  If not, see .
+
+;;; Commentary:
+
+;;
+
+(require 'semantic/wisent/comp)
+(require 'semantic/wisent/wisent)
+(require 'eldoc)
+
+;;; Code:
+
+(defvar tablist-filter-binary-operator
+  '((== . tablist-filter-op-equal)
+(=~ . tablist-filter-op-regexp)
+(< . tablist-filter-op-<)
+(> . tablist-filter-op->)
+(<= . tablist-filter-op-<=)
+(>= . tablist-filter-op->=)
+(= . tablist-filter-op-=)))
+
+(defvar tablist-filter-unary-operator nil)
+
+(defvar tablist-filter-wisent-parser nil)
+
+(defvar tablist-filter-lexer-regexps nil)
+  
+(defvar tablist-filter-wisent-grammar
+  '(
+;; terminals
+;; Use lowercase for better looking error messages.
+(operand unary-operator binary-operator or and not)
+
+;; terminal associativity & precedence
+((left binary-operator)
+ (left unary-operator)
+ (left or)
+ (left and)
+ (left not))
+
+;; rules
+(filter-or-empty
+ ((nil))
+ ((?\( ?\)) nil)
+ ((filter) $1))
+(filter
+ ((operand) $1) ;;Named filter
+ ((operand binary-operator operand) `(,(intern $2) ,$1 ,$3))
+ ((unary-operator operand) `(,(intern $1) ,$2))
+ ((not filter) `(not ,$2))
+ ((filter and filter) `(and ,$1 ,$3))
+ ((filter or filter) `(or ,$1 ,$3))
+ ((?( filter ?)) $2
+
+(defun tablist-filter-parser-init (&optional reinitialize interactive)
+  (interactive (list t t))
+  (unless (and tablist-filter-lexer-regexps
+   (not reinitialize))
+(let ((re (mapcar
+   (lambda (l)
+ (let ((re (regexp-opt
+(mapcar 'symbol-name
+(mapcar 'car l)) t)))
+   (if (= (length re) 0)
+   ".\\`" ;;matches nothing
+ re)))
+   (list tablist-filter-binary-operator
+ tablist-filter-unary-operator
+  (setq tablist-filter-lexer-regexps
+(nreverse
+ (cons (concat "\\(?:" (car re) "\\|" (cadr re)
+   "\\|[ \t\f\r\n\"!()]\\|&&\\|||\\)")
+   re)
+  (unless (and tablist-filter-wisent-parser
+   (not reinitialize))
+(let ((wisent-compile-grammar*
+   (symbol-function
+'wisent-compile-grammar)))
+  (setq tablist-filter-wisent-parser
+;; Trick the byte-compile into not using the byte-compile
+;; handler in semantic/wisent/comp.el, since it does not
+;; work (wisent-context-compile-grammar n/a).
+(funcall wisent-compile-grammar*
+ tablist-filter-wisent-grammar
+  (when interactive
+(message "Parser reinitialized."))
+  nil)
+
+(defun tablist-filter-wisent-lexer ()
+  (cl-destructuring-bind (unary-op binary-op keywords)
+  tablist-filter-lexer-regexps
+(skip-chars-forward " \t\f\r\n")
+(cond
+ ((eobp) (list wisent-eoi-term))
+ ((= ?\" (char-after))
+  `(operand , (condition-case err
+(read (current-buffer))
+  (error (signal (car err) (cons
+"invalid lisp string"
+(cdr err)))
+ ((looking-at unary-op)
+  (goto-char (match-end 0))
+  `(unary-operator ,(match-string-no-properties 0)))
+ ((looking-at binary-op)
+  (goto-char (match-end 0))
+  `(binary-operator ,(match-string-no-properties 0)))
+ ((looking-at "&&")
+  (forward-char 2)
+  `(and "&&"))
+ ((looking-at "||")
+  (forward-char 2)
+  `(or "||"))
+ ((= ?! (char-after))
+  (forward-char)
+  `(not "!"))
+ ((= ?\( (char-after))
+  (forward-char)
+  `(?\( "("))

[nongnu] elpa/tablist 9c0c56d 22/60: * lisp/pdf-occur.el: New and improved asynchronous, multiple file occur.

[Philip Kaludercic]

branch: elpa/tablist
commit 9c0c56dc7022401021323ca57fc1abdb702e9c61
Author: Andreas Politz 
Commit: Andreas Politz 

* lisp/pdf-occur.el: New and improved asynchronous, multiple file occur.
* lisp/pdf-isearch.el:(pdf-isearch-occur): New command.

* lisp/tablist.el (tablist-generate-sorter): New macro

* lisp/pdf-tools.el (pdf-tools-modes, pdf-tools-enabled-modes): Added
occur global mode.
---
 tablist.el | 23 +++
 1 file changed, 23 insertions(+)

diff --git a/tablist.el b/tablist.el
index b168c66..77e731c 100644
--- a/tablist.el
+++ b/tablist.el
@@ -1926,5 +1926,28 @@ AWINDOW is deleted."
 (tablist-window-attach newwin window)
 newwin))
 
+(defmacro tablist-generate-sorter (column compare-fn &optional read-fn)
+  "Generate a sort function for `tabulated-list' entries.
+
+Example:
+
+ \(tablist-generate-sorter 0 '< 'string-to-number\)
+
+would create a sort function sorting `tabulated-list-entries' on
+the 0-th column as numbers by the less-than relation."
+
+  (let ((column-sym (make-symbol "column"))
+(compare-fn-sym (make-symbol "compare-fn"))
+(read-fn-sym (make-symbol "read-fn")))
+`(let ((,column-sym ,column)
+   (,compare-fn-sym ,compare-fn)
+   (,read-fn-sym (or ,read-fn 'identity)))
+   (lambda (e1 e2)
+ (funcall ,compare-fn-sym
+  (funcall ,read-fn-sym
+   (aref (cadr e1) ,column-sym))
+  (funcall ,read-fn-sym
+   (aref (cadr e2) ,column-sym)))
+
 (provide 'tablist)
 ;;; tablist.el ends here

[nongnu] elpa/tablist 20eab2c 01/60: Initial commit.

[Philip Kaludercic]

branch: elpa/tablist
commit 20eab2cf03f780ae0a50aacb0e1cbffad7ff887a
Author: Andreas Politz 
Commit: Andreas Politz 

Initial commit.

[nongnu] elpa/tablist 94bc289 09/60: Fixed warning.

[Philip Kaludercic]

branch: elpa/tablist
commit 94bc2891ce499f1b4d4056632c9af6bd385c565b
Author: Andreas Politz 
Commit: Andreas Politz 

Fixed warning.

* lisp/tablist.el (tablist-edit-column-mark-field): Avoid compiler warning.
---
 tablist.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/tablist.el b/tablist.el
index cae00c8..5d59212 100644
--- a/tablist.el
+++ b/tablist.el
@@ -1105,9 +1105,9 @@ Optional REVERT-P means, revert the display afterwards."
  
 (defun tablist-edit-column-mark-field ()
   (interactive)
-  (save-restriction
-(narrow-to-region (field-beginning) (field-end))
-(mark-whole-buffer)))
+  (push-mark (field-beginning))
+  (push-mark (field-end) nil t)
+  (goto-char (field-beginning)))
 
 (defun tablist-find-entry (&optional id)
   (interactive)

[nongnu] elpa/tablist 3ade133 15/60: Handle recent changes in eldoc.

[Philip Kaludercic]

branch: elpa/tablist
commit 3ade13365d5c72ce9d935110b73eaebaeb9bc0c6
Author: Andreas Politz 
Commit: Andreas Politz 

Handle recent changes in eldoc.

* lisp/tablist-filter.el (tablist-filter-help): Replace
  abandonded function eldoc-docstring-first-line with split-string.
---
 tablist-filter.el | 10 +-
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/tablist-filter.el b/tablist-filter.el
index eba7f1f..8e2b227 100644
--- a/tablist-filter.el
+++ b/tablist-filter.el
@@ -24,7 +24,6 @@
 
 (require 'semantic/wisent/comp)
 (require 'semantic/wisent/wisent)
-(require 'eldoc)
 
 ;;; Code:
 
@@ -309,10 +308,11 @@
(princ (concat (make-string (max 0 (- 4 (length (symbol-name (car 
op)
?\s)
   "- "
-  (eldoc-docstring-first-line
-   (or (documentation (cdr op))
-   (format "FIXME: Not documented: %s"
-   (cdr op
+  (car (split-string
+(or (documentation (cdr op))
+(format "FIXME: Not documented: %s"
+(cdr op)))
+"\n" t))
   "\n"
 (with-temp-buffer-window
  "*Help*"

[nongnu] elpa/tablist b90fff4 11/60: *** empty log message ***

[Philip Kaludercic]

branch: elpa/tablist
commit b90fff4d0d09c0be08cf06ba76beaf1b4f6ac860
Author: Andreas Politz 
Commit: Andreas Politz 

*** empty log message ***
---
 tablist.el | 35 ++-
 1 file changed, 26 insertions(+), 9 deletions(-)

diff --git a/tablist.el b/tablist.el
index 10362c1..30d7b5d 100644
--- a/tablist.el
+++ b/tablist.el
@@ -53,6 +53,7 @@
 (require 'tabulated-list)
 (require 'dired)
 (require 'tablist-filter)
+(require 'pdf-util)
 
 ;;
 ;; *Mode Maps
@@ -284,18 +285,27 @@ as argument for the function `completion-in-region'.")
  'tablist-selection-changed-functions
  tablist-selected-id)
 
+(defvar tablist-context-window-update--timer nil)
+  
 (defun tablist-context-window-update (&optional id)
   (when (and tablist-context-window-function
  (window-live-p tablist-context-window)
  (not tablist-edit-column-minor-mode))
 (unless id
   (setq id (tabulated-list-get-id)))
-(let ((fn tablist-context-window-function))
-  (with-selected-window tablist-context-window
-(set-window-dedicated-p nil nil)
-(save-selected-window (funcall fn id))
-(when (window-live-p (selected-window))
-  (set-window-dedicated-p nil t))
+(when (timerp tablist-context-window-update--timer)
+  (cancel-timer tablist-context-window-update--timer))
+(setq tablist-context-window-update--timer
+  (run-with-idle-timer 0.1 nil
+(lambda (fn window)
+  (with-selected-window window
+(set-window-dedicated-p nil nil)
+(save-selected-window
+  (funcall fn id))
+(when (window-live-p (selected-window))
+  (set-window-dedicated-p nil t
+tablist-context-window-function
+tablist-context-window
 
 (defun tablist-display-context-window ()
   (interactive)
@@ -317,6 +327,13 @@ as argument for the function `completion-in-region'.")
   (delete-window tablist-context-window)))
   (setq tablist-context-window nil))
 
+(defun tablist-toggle-context-window ()
+  (interactive)
+  (if (window-live-p tablist-context-window)
+  (tablist-hide-context-window)
+(tablist-display-context-window)))
+  
+  
 ;;
 ;; *Marking
 ;;
@@ -1599,10 +1616,10 @@ FILTER defaults to `tablist-current-filter'."
`(and ,x1 ,x2))
   (`(and ,x1 ,x2)
`(or ,x1 ,x2))
-  (else else)))
+  (`(not ,x) x)
+  (x `(not ,x
   (tablist-apply-filter)
-  (when (called-interactively-p 'any)
-(tablist-display-filter-temporarily)))
+  (tablist-display-filter-temporarily))
 
 (defun tablist-suspend-filter (&optional flag)
   "Temporarily disable filtering according to FLAG.

[nongnu] elpa/tablist bf2e139 04/60: Fixed some bindings.

[Philip Kaludercic]

branch: elpa/tablist
commit bf2e13978f76d1f9a449f823b95c7bed8643c8dd
Author: Andreas Politz 
Commit: Andreas Politz 

Fixed some bindings.
---
 tablist.el | 30 +++---
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/tablist.el b/tablist.el
index aff88b8..3911530 100644
--- a/tablist.el
+++ b/tablist.el
@@ -22,8 +22,8 @@
 ;;
 ;; This package adds marks and filters to tabulated-list-mode.  
 ;;
-;; It can be used by either deriving from tablist-mode, or by using
-;; tablist-minor-mode inside a tabulated-list-mode buffer.
+;; It can be used by deriving from tablist-mode and some features by
+;; using tablist-minor-mode inside a tabulated-list-mode buffer.
 ;;
 ;;
 ;; Ideas:
@@ -87,7 +87,7 @@
 
 (defvar tablist-mode-regexp-map
   (let ((kmap (make-sparse-keymap)))
-(define-key kmap "&" 'tablist-flag-gargabe-items)
+;; (define-key kmap "&" 'tablist-flag-gargabe-items)
 (define-key kmap "m" 'tablist-mark-items-regexp)
 kmap))
 
@@ -95,16 +95,6 @@
   (let ((kmap (make-sparse-keymap)))
 (define-key kmap "m" 'tablist-mark-forward)
 (define-key kmap (kbd "DEL") 'tablist-unmark-backward)
-(define-key kmap "d" 'tablist-flag-forward)
-(define-key kmap (kbd "RET") 'tablist-find-entry)
-(define-key kmap "f" 'tablist-find-entry)
-;; (define-key kmap "~" 'tablist-flag-gargabe-items)
-(define-key kmap "D" 'tablist-do-delete)
-;; (define-key kmap "C" 'tablist-do-copy)
-;; (define-key kmap "R" 'tablist-do-rename)
-(define-key kmap "x" 'tablist-do-flagged-delete)
-;; (define-key kmap "F" 'tablist-find-marked-items)
-;; (define-key kmap (kbd "C-o") 'tablist-display-item)
 (define-key kmap "k" 'tablist-do-kill-lines)
 (define-key kmap "U" 'tablist-unmark-all-marks)
 (define-key kmap "u" 'tablist-unmark-forward)
@@ -118,8 +108,8 @@
 (define-key kmap "*" tablist-mode-mark-map)
 (define-key kmap "/" tablist-mode-filter-map)
 
-(define-key kmap "e" 'tablist-edit-column)
-(define-key kmap "i" 'tablist-insert-entry)
+;; (define-key kmap "e" 'tablist-edit-column)
+;; (define-key kmap "i" 'tablist-insert-entry)
 (define-key kmap "s" 'tablist-sort)
 (define-key kmap [remap back-to-indentation] 'tablist-move-to-major-column)
 (define-key kmap [remap next-line] 'tablist-next-line)
@@ -134,6 +124,16 @@
 (defvar tablist-mode-map
   (let ((kmap (copy-keymap tablist-minor-mode-map)))
 (set-keymap-parent kmap tabulated-list-mode-map)
+(define-key kmap "d" 'tablist-flag-forward)
+(define-key kmap (kbd "RET") 'tablist-find-entry)
+(define-key kmap "f" 'tablist-find-entry)
+;; (define-key kmap "~" 'tablist-flag-gargabe-items)
+(define-key kmap "D" 'tablist-do-delete)
+(define-key kmap "C" 'tablist-do-copy)
+(define-key kmap "R" 'tablist-do-rename)
+(define-key kmap "x" 'tablist-do-flagged-delete)
+;; (define-key kmap "F" 'tablist-find-marked-items)
+;; (define-key kmap (kbd "C-o") 'tablist-display-item)
 kmap))
 
   

[nongnu] elpa/tablist 6c03338 12/60: *** empty log message ***

[Philip Kaludercic]

branch: elpa/tablist
commit 6c03338d5581f74fedb0f5eec3750529ae36bc31
Author: Andreas Politz 
Commit: Andreas Politz 

*** empty log message ***
---
 tablist.el | 13 +++--
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/tablist.el b/tablist.el
index 30d7b5d..a76a4dc 100644
--- a/tablist.el
+++ b/tablist.el
@@ -298,12 +298,13 @@ as argument for the function `completion-in-region'.")
 (setq tablist-context-window-update--timer
   (run-with-idle-timer 0.1 nil
 (lambda (fn window)
-  (with-selected-window window
-(set-window-dedicated-p nil nil)
-(save-selected-window
-  (funcall fn id))
-(when (window-live-p (selected-window))
-  (set-window-dedicated-p nil t
+  (when (window-live-p window)
+(with-selected-window window
+  (set-window-dedicated-p nil nil)
+  (save-selected-window
+(funcall fn id))
+  (when (window-live-p (selected-window))
+(set-window-dedicated-p nil t)
 tablist-context-window-function
 tablist-context-window
 

[nongnu] elpa/tablist d65235d 14/60: Fixed a bug regarding tablist columns.

[Philip Kaludercic]

branch: elpa/tablist
commit d65235db22c53d73d3bd95cba79d4cb5898ca451
Author: Andreas Politz 
Commit: Andreas Politz 

Fixed a bug regarding tablist columns.

* lisp/tablist.el (tablist-current-column): Compute the current column
  in a more sane and hopefully correct way.  Extended documentation.
---
 tablist.el | 26 +++---
 1 file changed, 11 insertions(+), 15 deletions(-)

diff --git a/tablist.el b/tablist.el
index a76a4dc..447ff48 100644
--- a/tablist.el
+++ b/tablist.el
@@ -1145,21 +1145,17 @@ Optional REVERT-P means, revert the display afterwards."
prop))
 
 (defun tablist-current-column ()
-  "Return the column number at point."
-  (let ((columns
- (tablist-column-offsets))
-(index 0))
-(when (eq 0 (car columns))
-  (cl-incf index))
-(while (and columns
-(<= (car columns)
-(current-column)))
-  (cl-incf index)
-  (setq columns (cdr columns)))
-(if (> index 0)
-(1- index)
-  (if columns
-  0
+  "Return the column number at point.
+
+Returns nil, if point is before the first column."
+  (let ((column
+ (1- (cl-position
+  (current-column)
+  (append (tablist-column-offsets)
+  (list most-positive-fixnum))
+  :test (lambda (column offset) (> offset column))
+(when (>= column 0)
+  column)))
 
 (defun tablist-column-offsets ()
   "Return a list of column positions.

[nongnu] elpa/tablist 2077a99 19/60: Fix typo in description, and trailing line to satisfy package.el

[Philip Kaludercic]

branch: elpa/tablist
commit 2077a99a3d4175d52862d11ea65fa500ef8a582a
Author: Steve Purcell 
Commit: Steve Purcell 

Fix typo in description, and trailing line to satisfy package.el
---
 tablist.el | 7 +--
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/tablist.el b/tablist.el
index fb7e039..b168c66 100644
--- a/tablist.el
+++ b/tablist.el
@@ -1,4 +1,4 @@
-;;; tablist.el --- Extented tabulated-list-mode. -*- lexical-binding: t -*-
+;;; tablist.el --- Extended tabulated-list-mode -*- lexical-binding: t -*-
 
 ;; Copyright (C) 2013, 2014  Andreas Politz
 
@@ -1928,8 +1928,3 @@ AWINDOW is deleted."
 
 (provide 'tablist)
 ;;; tablist.el ends here
-
-;; Local Variables:
-;; End:
-
-

[nongnu] elpa/tablist e10e086 18/60: Readded tablist package.

[Philip Kaludercic]

branch: elpa/tablist
commit e10e086567653d95dd1753fb5a85f5fa6511e328
Author: Andreas Politz 
Commit: Andreas Politz 

Readded tablist package.

* lisp/tablist.el:

* lisp/tablist-filter.el:
---
 tablist-filter.el |  445 
 tablist.el| 1935 +
 2 files changed, 2380 insertions(+)

diff --git a/tablist-filter.el b/tablist-filter.el
new file mode 100644
index 000..a401a2b
--- /dev/null
+++ b/tablist-filter.el
@@ -0,0 +1,445 @@
+;;; tablist-filter.el --- Filter expressions for tablists.
+
+;; Copyright (C) 2013, 2014  Andreas Politz
+
+;; Author: Andreas Politz 
+;; Keywords: extensions, lisp
+
+;; This program 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.
+
+;; This program 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 this program.  If not, see .
+
+;;; Commentary:
+
+;;
+
+(require 'semantic/wisent/comp)
+(require 'semantic/wisent/wisent)
+
+;;; Code:
+
+(defvar tablist-filter-binary-operator
+  '((== . tablist-filter-op-equal)
+(=~ . tablist-filter-op-regexp)
+(< . tablist-filter-op-<)
+(> . tablist-filter-op->)
+(<= . tablist-filter-op-<=)
+(>= . tablist-filter-op->=)
+(= . tablist-filter-op-=)))
+
+(defvar tablist-filter-unary-operator nil)
+
+(defvar tablist-filter-wisent-parser nil)
+
+(defvar tablist-filter-lexer-regexps nil)
+  
+(defvar tablist-filter-wisent-grammar
+  '(
+;; terminals
+;; Use lowercase for better looking error messages.
+(operand unary-operator binary-operator or and not)
+
+;; terminal associativity & precedence
+((left binary-operator)
+ (left unary-operator)
+ (left or)
+ (left and)
+ (left not))
+
+;; rules
+(filter-or-empty
+ ((nil))
+ ((?\( ?\)) nil)
+ ((filter) $1))
+(filter
+ ((operand) $1) ;;Named filter
+ ((operand binary-operator operand) `(,(intern $2) ,$1 ,$3))
+ ((unary-operator operand) `(,(intern $1) ,$2))
+ ((not filter) `(not ,$2))
+ ((filter and filter) `(and ,$1 ,$3))
+ ((filter or filter) `(or ,$1 ,$3))
+ ((?( filter ?)) $2
+
+(defun tablist-filter-parser-init (&optional reinitialize interactive)
+  (interactive (list t t))
+  (unless (and tablist-filter-lexer-regexps
+   (not reinitialize))
+(let ((re (mapcar
+   (lambda (l)
+ (let ((re (regexp-opt
+(mapcar 'symbol-name
+(mapcar 'car l)) t)))
+   (if (= (length re) 0)
+   ".\\`" ;;matches nothing
+ re)))
+   (list tablist-filter-binary-operator
+ tablist-filter-unary-operator
+  (setq tablist-filter-lexer-regexps
+(nreverse
+ (cons (concat "\\(?:" (car re) "\\|" (cadr re)
+   "\\|[ \t\f\r\n\"!()]\\|&&\\|||\\)")
+   re)
+  (unless (and tablist-filter-wisent-parser
+   (not reinitialize))
+(let ((wisent-compile-grammar*
+   (symbol-function
+'wisent-compile-grammar)))
+  (setq tablist-filter-wisent-parser
+;; Trick the byte-compile into not using the byte-compile
+;; handler in semantic/wisent/comp.el, since it does not
+;; always work (wisent-context-compile-grammar n/a).
+(funcall wisent-compile-grammar*
+ tablist-filter-wisent-grammar
+  (when interactive
+(message "Parser reinitialized."))
+  nil)
+
+(defun tablist-filter-wisent-lexer ()
+  (cl-destructuring-bind (unary-op binary-op keywords)
+  tablist-filter-lexer-regexps
+(skip-chars-forward " \t\f\r\n")
+(cond
+ ((eobp) (list wisent-eoi-term))
+ ((= ?\" (char-after))
+  `(operand , (condition-case err
+(read (current-buffer))
+  (error (signal (car err) (cons
+"invalid lisp string"
+(cdr err)))
+ ((looking-at unary-op)
+  (goto-char (match-end 0))
+  `(unary-operator ,(match-string-no-properties 0)))
+ ((looking-at binary-op)
+  (goto-char (match-end 0))
+  `(binary-operator ,(match-string-no-properties 0)))
+ ((looking-at "&&")
+  (forward-char 2)
+  `(and "&&"))
+ ((looking-at "||")
+  (forward-char 2)
+  `(or "||"))
+ ((= ?! (char-after))
+  (forward-char)
+  `(not 

[nongnu] elpa/tablist 0f1e499 21/60: Add .dir-locals.el

[Philip Kaludercic]

branch: elpa/tablist
commit 0f1e49984a79c0f2e9b06cc86c8b71d47934800b
Author: Andreas Politz 
Commit: Andreas Politz 

Add .dir-locals.el
---
 .gitignore | 1 +
 1 file changed, 1 insertion(+)

diff --git a/.gitignore b/.gitignore
index c531d98..d1b61f6 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1 +1,2 @@
 *.elc
+.dir-locals.el

[nongnu] elpa/tablist a0c8192 23/60: Bumped version added NEWS.

[Philip Kaludercic]

branch: elpa/tablist
commit a0c81928afc851b176930c70892ce8367930f02a
Author: Andreas Politz 
Commit: Andreas Politz 

Bumped version added NEWS.

* lisp/tablist.el:
* lisp/pdf-tools.el:
* NEWS:
* Makefile (PACKAGE_VERSION):
---
 tablist.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tablist.el b/tablist.el
index 77e731c..5e56926 100644
--- a/tablist.el
+++ b/tablist.el
@@ -5,7 +5,7 @@
 ;; Author: Andreas Politz 
 ;; Keywords: extensions, lisp
 ;; Package: tablist
-;; Version: 0.50
+;; Version: 0.60
 ;; Package-Requires: ((emacs "24.3"))
 
 ;; This program is free software; you can redistribute it and/or modify

[nongnu] elpa/tablist 6d03439 20/60: Added dir-locals.el

[Philip Kaludercic]

branch: elpa/tablist
commit 6d0343974217d00fcae78a6c22d2bcd1c83df536
Author: Andreas Politz 
Commit: Andreas Politz 

Added dir-locals.el

* lisp/.gitignore:
---
 .dir-locals.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/.dir-locals.el b/.dir-locals.el
new file mode 100644
index 000..e0a752a
--- /dev/null
+++ b/.dir-locals.el
@@ -0,0 +1 @@
+((emacs-lisp-mode . ((eval . (local-unset-key (kbd "C-c C-c"))

[nongnu] elpa/tablist 1a2bad1 29/60: Bumped version

[Philip Kaludercic]

branch: elpa/tablist
commit 1a2bad18d0520c5d3737f2e7ff3ce2d902133b07
Author: Andreas Politz 
Commit: Andreas Politz 

Bumped version
---
 tablist.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tablist.el b/tablist.el
index 567d69e..ed497d5 100644
--- a/tablist.el
+++ b/tablist.el
@@ -5,7 +5,7 @@
 ;; Author: Andreas Politz 
 ;; Keywords: extensions, lisp
 ;; Package: tablist
-;; Version: 0.60
+;; Version: 0.70
 ;; Package-Requires: ((emacs "24.3"))
 
 ;; This program is free software; you can redistribute it and/or modify

[nongnu] elpa/tablist 9019123 17/60: Remove tablist package.

[Philip Kaludercic]

branch: elpa/tablist
commit 9019123a5ed8e268434ce9767b80d795223ac995
Author: Andreas Politz 
Commit: Andreas Politz 

Remove tablist package.
---
 tablist-filter.el |  445 -
 tablist.el| 1909 -
 2 files changed, 2354 deletions(-)

diff --git a/tablist-filter.el b/tablist-filter.el
deleted file mode 100644
index a401a2b..000
--- a/tablist-filter.el
+++ /dev/null
@@ -1,445 +0,0 @@
-;;; tablist-filter.el --- Filter expressions for tablists.
-
-;; Copyright (C) 2013, 2014  Andreas Politz
-
-;; Author: Andreas Politz 
-;; Keywords: extensions, lisp
-
-;; This program 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.
-
-;; This program 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 this program.  If not, see .
-
-;;; Commentary:
-
-;;
-
-(require 'semantic/wisent/comp)
-(require 'semantic/wisent/wisent)
-
-;;; Code:
-
-(defvar tablist-filter-binary-operator
-  '((== . tablist-filter-op-equal)
-(=~ . tablist-filter-op-regexp)
-(< . tablist-filter-op-<)
-(> . tablist-filter-op->)
-(<= . tablist-filter-op-<=)
-(>= . tablist-filter-op->=)
-(= . tablist-filter-op-=)))
-
-(defvar tablist-filter-unary-operator nil)
-
-(defvar tablist-filter-wisent-parser nil)
-
-(defvar tablist-filter-lexer-regexps nil)
-  
-(defvar tablist-filter-wisent-grammar
-  '(
-;; terminals
-;; Use lowercase for better looking error messages.
-(operand unary-operator binary-operator or and not)
-
-;; terminal associativity & precedence
-((left binary-operator)
- (left unary-operator)
- (left or)
- (left and)
- (left not))
-
-;; rules
-(filter-or-empty
- ((nil))
- ((?\( ?\)) nil)
- ((filter) $1))
-(filter
- ((operand) $1) ;;Named filter
- ((operand binary-operator operand) `(,(intern $2) ,$1 ,$3))
- ((unary-operator operand) `(,(intern $1) ,$2))
- ((not filter) `(not ,$2))
- ((filter and filter) `(and ,$1 ,$3))
- ((filter or filter) `(or ,$1 ,$3))
- ((?( filter ?)) $2
-
-(defun tablist-filter-parser-init (&optional reinitialize interactive)
-  (interactive (list t t))
-  (unless (and tablist-filter-lexer-regexps
-   (not reinitialize))
-(let ((re (mapcar
-   (lambda (l)
- (let ((re (regexp-opt
-(mapcar 'symbol-name
-(mapcar 'car l)) t)))
-   (if (= (length re) 0)
-   ".\\`" ;;matches nothing
- re)))
-   (list tablist-filter-binary-operator
- tablist-filter-unary-operator
-  (setq tablist-filter-lexer-regexps
-(nreverse
- (cons (concat "\\(?:" (car re) "\\|" (cadr re)
-   "\\|[ \t\f\r\n\"!()]\\|&&\\|||\\)")
-   re)
-  (unless (and tablist-filter-wisent-parser
-   (not reinitialize))
-(let ((wisent-compile-grammar*
-   (symbol-function
-'wisent-compile-grammar)))
-  (setq tablist-filter-wisent-parser
-;; Trick the byte-compile into not using the byte-compile
-;; handler in semantic/wisent/comp.el, since it does not
-;; always work (wisent-context-compile-grammar n/a).
-(funcall wisent-compile-grammar*
- tablist-filter-wisent-grammar
-  (when interactive
-(message "Parser reinitialized."))
-  nil)
-
-(defun tablist-filter-wisent-lexer ()
-  (cl-destructuring-bind (unary-op binary-op keywords)
-  tablist-filter-lexer-regexps
-(skip-chars-forward " \t\f\r\n")
-(cond
- ((eobp) (list wisent-eoi-term))
- ((= ?\" (char-after))
-  `(operand , (condition-case err
-(read (current-buffer))
-  (error (signal (car err) (cons
-"invalid lisp string"
-(cdr err)))
- ((looking-at unary-op)
-  (goto-char (match-end 0))
-  `(unary-operator ,(match-string-no-properties 0)))
- ((looking-at binary-op)
-  (goto-char (match-end 0))
-  `(binary-operator ,(match-string-no-properties 0)))
- ((looking-at "&&")
-  (forward-char 2)
-  `(and "&&"))
- ((looking-at "||")
-  (forward-char 2)
-  `(or "||"))
- ((= ?! (char-after))
-  (forward-char)
-  `(not "!"))
- ((= ?\( (char-after))
-  (forward-char)
-   

[nongnu] elpa/tablist bdfead8 05/60: Make savehist hook more robust.

[Philip Kaludercic]

branch: elpa/tablist
commit bdfead822cc0805f412e519e884e78fadd53598e
Author: Andreas Politz 
Commit: Andreas Politz 

Make savehist hook more robust.
---
 tablist.el | 8 
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/tablist.el b/tablist.el
index 3911530..ed9262a 100644
--- a/tablist.el
+++ b/tablist.el
@@ -230,6 +230,10 @@ as argument for the function `completion-in-region'.")
 ;; *Setup
 ;;
 
+(add-hook 'savehist-save-hook 
+  (lambda nil
+(add-to-list 'savehist-additional-variables 'tablist-named-filter)))
+
 (define-minor-mode tablist-minor-mode
   nil nil nil nil
   (unless (derived-mode-p 'tabulated-list-mode)
@@ -237,19 +241,15 @@ as argument for the function `completion-in-region'.")
   (tablist-init (not tablist-minor-mode)))
 
 (define-derived-mode tablist-mode tabulated-list-mode "TL"
-  (use-local-map tablist-mode-map)  ;FIXME: Mhh.
   (tablist-init))
 
 (defun tablist-init (&optional disable)
-  (when (boundp 'savehist-additional-variables)
-(add-to-list 'savehist-additional-variables 'tablist-named-filter))
   (let ((cleaned-misc (cl-remove 'tablist-current-filter
  mode-line-misc-info :key 'car)))
 (cond
  ((not disable)
   (set (make-local-variable 'mode-line-misc-info)
(append
-
 (list
  (list 'tablist-current-filter
'(:eval (format " [%s]"

[nongnu] elpa/tablist f980411 08/60: Clean up help text.

[Philip Kaludercic]

branch: elpa/tablist
commit f980411187f7aa3473c55733e1ad47c07fa92ba5
Author: Andreas Politz 
Commit: Andreas Politz 

Clean up help text.
---
 tablist-filter.el | 20 +---
 1 file changed, 9 insertions(+), 11 deletions(-)

diff --git a/tablist-filter.el b/tablist-filter.el
index f3d58b9..bb5fa9f 100644
--- a/tablist-filter.el
+++ b/tablist-filter.el
@@ -97,7 +97,7 @@
   (setq tablist-filter-wisent-parser
 ;; Trick the byte-compile into not using the byte-compile
 ;; handler in semantic/wisent/comp.el, since it does not
-;; work (wisent-context-compile-grammar n/a).
+;; always work (wisent-context-compile-grammar n/a).
 (funcall wisent-compile-grammar*
  tablist-filter-wisent-grammar
   (when interactive
@@ -153,10 +153,11 @@
 (condition-case error
 (wisent-parse tablist-filter-wisent-parser
   'tablist-filter-wisent-lexer
-  (lambda (msg) (signal 'error
-(replace-regexp-in-string
- "\\$EOI" "end of input"
- msg t t
+  (lambda (msg)
+(signal 'error
+(replace-regexp-in-string
+ "\\$EOI" "end of input"
+ msg t t
   (error
(signal 'error
(append (if (consp (cdr error))
@@ -325,20 +326,17 @@
(side . bottom)))
  nil
  (princ "Filter entries with the following operators.\n\n")
- (princ "~~~ Binary operator ~~~\n")
  (princ "&&  - FILTER1 && FILTER2 : Locical and.\n")
  (princ "||  - FILTER1 || FILTER2 : Locical or.\n")
  (dolist (op tablist-filter-binary-operator)
(princ-op op))
- (princ "\n~~~ Unary operator ~~~\n")
  (princ "!  - ! FILTER : Locical not.\n\n")
  (dolist (op tablist-filter-unary-operator)
(princ-op op))
- (princ "\"...\" may be used to quote names and values if necessary, and 
\(...\) to group expressions.")
+ (princ "\"...\" may be used to quote names and values if necessary,
+and \(...\) to group expressions.")
  (with-current-buffer standard-output
-   (help-mode)
-   
-   
+   (help-mode)   
   
 ;; 
 ;; **Filter Functions

[nongnu] elpa/tablist de762f1 07/60: Some documentation fixes.

[Philip Kaludercic]

branch: elpa/tablist
commit de762f19967c8f8b1b30f36a1cf2535ad0265473
Author: Andreas Politz 
Commit: Andreas Politz 

Some documentation fixes.
---
 tablist.el | 6 --
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/tablist.el b/tablist.el
index 23690f4..cae00c8 100644
--- a/tablist.el
+++ b/tablist.el
@@ -20,7 +20,8 @@
 
 ;;; Commentary:
 ;;
-;; This package adds marks and filters to tabulated-list-mode.  
+;; This package adds marks and filters to tabulated-list-mode.  It
+;; also kind of puts a dired face on tabulated list buffers.
 ;;
 ;; It can be used by deriving from tablist-mode and some features by
 ;; using tablist-minor-mode inside a tabulated-list-mode buffer.
@@ -1409,7 +1410,8 @@ also determines the default COLUMN and direction.
 
 The main difference to `tabulated-list-sort' is, that this
 function sorts the buffer in-place and it ignores a nil sort
-entry in `tabulated-list-format' and sorts on the column anyway."
+entry in `tabulated-list-format' and sorts on the column
+anyway (why not ?)."
 
   (interactive
(list

[nongnu] elpa/tablist 82bf4b9 10/60: Updated copyright.

[Philip Kaludercic]

branch: elpa/tablist
commit 82bf4b9952517b3fb572a9b5cc0316d7ea8bb938
Author: Andreas Politz 
Commit: Andreas Politz 

Updated copyright.
---
 tablist-filter.el | 2 +-
 tablist.el| 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/tablist-filter.el b/tablist-filter.el
index bb5fa9f..eba7f1f 100644
--- a/tablist-filter.el
+++ b/tablist-filter.el
@@ -1,6 +1,6 @@
 ;;; tablist-filter.el --- Filter expressions for tablists.
 
-;; Copyright (C) 2013  Andreas Politz
+;; Copyright (C) 2013, 2014  Andreas Politz
 
 ;; Author: Andreas Politz 
 ;; Keywords: 
diff --git a/tablist.el b/tablist.el
index 5d59212..10362c1 100644
--- a/tablist.el
+++ b/tablist.el
@@ -1,6 +1,6 @@
 ;;; tablist.el --- Extensions for tabulated list mode. -*- lexical-binding: t 
-*-
 
-;; Copyright (C) 2013  Andreas Politz
+;; Copyright (C) 2013, 2014  Andreas Politz
 
 ;; Author: Andreas Politz 
 ;; Keywords:

[nongnu] elpa/tablist e34dc0b 31/60: Merge branch 'master' of github.com:politza/pdf-tools

[Philip Kaludercic]

branch: elpa/tablist
commit e34dc0b6af36987ed292504d330cf15f1427913c
Merge: 1a2bad1 de067b4
Author: Andreas Politz 
Commit: Andreas Politz 

Merge branch 'master' of github.com:politza/pdf-tools

[nongnu] elpa/tablist 0c56b65 16/60: Made Keywords: section standard conform.

[Philip Kaludercic]

branch: elpa/tablist
commit 0c56b65aa6da81f8cc2447a30091be1330d8cedd
Author: Andreas Politz 
Commit: Andreas Politz 

Made Keywords: section standard conform.

* lisp/*.el: Use standard keywords.
---
 tablist-filter.el | 2 +-
 tablist.el| 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/tablist-filter.el b/tablist-filter.el
index 8e2b227..a401a2b 100644
--- a/tablist-filter.el
+++ b/tablist-filter.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2013, 2014  Andreas Politz
 
 ;; Author: Andreas Politz 
-;; Keywords: 
+;; Keywords: extensions, lisp
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
diff --git a/tablist.el b/tablist.el
index 447ff48..62a60d5 100644
--- a/tablist.el
+++ b/tablist.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2013, 2014  Andreas Politz
 
 ;; Author: Andreas Politz 
-;; Keywords:
+;; Keywords: extensions, lisp
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by

[nongnu] elpa/tablist c78eccd 24/60: Turn macro into a function

[Philip Kaludercic]

branch: elpa/tablist
commit c78eccdc68dc858b0d33987735622a7c1c1b63a4
Author: Andreas Politz 
Commit: Andreas Politz 

Turn macro into a function

* lisp/tablist.el (tablist-generate-sorter): This should be a function.
---
 tablist.el | 20 +++-
 1 file changed, 7 insertions(+), 13 deletions(-)

diff --git a/tablist.el b/tablist.el
index 5e56926..567d69e 100644
--- a/tablist.el
+++ b/tablist.el
@@ -1926,7 +1926,7 @@ AWINDOW is deleted."
 (tablist-window-attach newwin window)
 newwin))
 
-(defmacro tablist-generate-sorter (column compare-fn &optional read-fn)
+(defun tablist-generate-sorter (column compare-fn &optional read-fn)
   "Generate a sort function for `tabulated-list' entries.
 
 Example:
@@ -1936,18 +1936,12 @@ Example:
 would create a sort function sorting `tabulated-list-entries' on
 the 0-th column as numbers by the less-than relation."
 
-  (let ((column-sym (make-symbol "column"))
-(compare-fn-sym (make-symbol "compare-fn"))
-(read-fn-sym (make-symbol "read-fn")))
-`(let ((,column-sym ,column)
-   (,compare-fn-sym ,compare-fn)
-   (,read-fn-sym (or ,read-fn 'identity)))
-   (lambda (e1 e2)
- (funcall ,compare-fn-sym
-  (funcall ,read-fn-sym
-   (aref (cadr e1) ,column-sym))
-  (funcall ,read-fn-sym
-   (aref (cadr e2) ,column-sym)))
+  (lambda (e1 e2)
+(funcall compare-fn
+ (funcall (or read-fn 'identity)
+  (aref (cadr e1) column))
+ (funcall read-fn
+  (aref (cadr e2) column)
 
 (provide 'tablist)
 ;;; tablist.el ends here

[nongnu] elpa/tablist ef38312 38/60: Add another autoload cookie

[Philip Kaludercic]

branch: elpa/tablist
commit ef38312867bc0268b1584dd890b1c420bb77ec11
Author: Andreas Politz 
Commit: Andreas Politz 

Add another autoload cookie

* tablist.el (tablist-minor-mode):
---
 tablist.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tablist.el b/tablist.el
index 5929c87..65ad3bc 100644
--- a/tablist.el
+++ b/tablist.el
@@ -295,6 +295,7 @@ as argument for the function `completion-in-region'.")
   (lambda nil
 (add-to-list 'savehist-additional-variables 'tablist-named-filter)))
 
+;;;###autoload
 (define-minor-mode tablist-minor-mode
   nil nil nil nil
   (unless (derived-mode-p 'tabulated-list-mode)

[nongnu] elpa/tablist 3368274 37/60: Merge pull request #1 from syohex/autoload

[Philip Kaludercic]

branch: elpa/tablist
commit 336827466c4aba241e7f9c56e66dae615c5b3611
Merge: 2262a80 1e4fac1
Author: politza 
Commit: politza 

Merge pull request #1 from syohex/autoload

Add autoload cookie for lazy loading
---
 tablist.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tablist.el b/tablist.el
index ed497d5..5929c87 100644
--- a/tablist.el
+++ b/tablist.el
@@ -301,6 +301,7 @@ as argument for the function `completion-in-region'.")
 (error "Buffer is not in Tabulated List Mode"))
   (tablist-init (not tablist-minor-mode)))
 
+;;;###autoload
 (define-derived-mode tablist-mode tabulated-list-mode "TL"
   (tablist-init))
 

[nongnu] elpa/tablist a0d1755 25/60: Workaround semantic bug.

[Philip Kaludercic]

branch: elpa/tablist
commit a0d1755a18929267a793d8043b7ff421dfb1d8bd
Author: Andreas Politz 
Commit: Andreas Politz 

Workaround semantic bug.

* lisp/tablist-filter.el (python-mode-hook): Loading
  semantic/wisent/comp installs a python hook, avoid it.
---
 tablist-filter.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/tablist-filter.el b/tablist-filter.el
index a401a2b..b72ea21 100644
--- a/tablist-filter.el
+++ b/tablist-filter.el
@@ -22,8 +22,9 @@
 
 ;;
 
+(let (python-mode-hook)
 (require 'semantic/wisent/comp)
-(require 'semantic/wisent/wisent)
+(require 'semantic/wisent/wisent))
 
 ;;; Code:
 

[nongnu] elpa/tablist 7380227 26/60: Fix compiler warnings.

[Philip Kaludercic]

branch: elpa/tablist
commit 73802272e12def2ee1076079713ef1daf2189ddf
Author: Andreas Politz 
Commit: Andreas Politz 

Fix compiler warnings.

* lisp/tablist-filter.el: Using require non-toplevel may confuse the
  compiler (?): Declare imported wisent identifier.
---
 tablist-filter.el | 5 -
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tablist-filter.el b/tablist-filter.el
index b72ea21..6a6f058 100644
--- a/tablist-filter.el
+++ b/tablist-filter.el
@@ -28,6 +28,9 @@
 
 ;;; Code:
 
+(defvar wisent-eoi-term)
+(declare-function wisent-parse "semantic/wisent/wisent.el")
+
 (defvar tablist-filter-binary-operator
   '((== . tablist-filter-op-equal)
 (=~ . tablist-filter-op-regexp)
@@ -103,7 +106,7 @@
   (when interactive
 (message "Parser reinitialized."))
   nil)
-
+
 (defun tablist-filter-wisent-lexer ()
   (cl-destructuring-bind (unary-op binary-op keywords)
   tablist-filter-lexer-regexps

[nongnu] elpa/tablist 4a88205 39/60: Remove trailing whitespace

[Philip Kaludercic]

branch: elpa/tablist
commit 4a88205b8d0da0311788029fd9bf2bf726951c94
Author: Philippe Vaucher 
Commit: Philippe Vaucher 

Remove trailing whitespace
---
 tablist-filter.el | 10 -
 tablist.el| 62 +++
 2 files changed, 30 insertions(+), 42 deletions(-)

diff --git a/tablist-filter.el b/tablist-filter.el
index 6a6f058..d8b0eca 100644
--- a/tablist-filter.el
+++ b/tablist-filter.el
@@ -45,7 +45,7 @@
 (defvar tablist-filter-wisent-parser nil)
 
 (defvar tablist-filter-lexer-regexps nil)
-  
+
 (defvar tablist-filter-wisent-grammar
   '(
 ;; terminals
@@ -217,7 +217,6 @@
 (tablist-filter-parser-init)
 (unparse filter noerror)))
 
-
 (defun tablist-filter-eval (filter id entry &optional named-alist)
   (cl-labels
 ((feval (filter)
@@ -340,9 +339,9 @@
  (princ "\"...\" may be used to quote names and values if necessary,
 and \(...\) to group expressions.")
  (with-current-buffer standard-output
-   (help-mode)   
-  
-;; 
+   (help-mode)
+
+;;
 ;; **Filter Functions
 ;;
 
@@ -391,7 +390,6 @@ else return nil."
tail)))
 (_ (funcall fn filter
 
-
 ;;
 ;; Reading filter
 ;;
diff --git a/tablist.el b/tablist.el
index 65ad3bc..5dad1eb 100644
--- a/tablist.el
+++ b/tablist.el
@@ -117,7 +117,7 @@ column."
 
 ;;
 ;; *Mode Maps
-;; 
+;;
 
 (defvar tablist-mode-filter-map
   (let ((kmap (make-sparse-keymap)))
@@ -198,7 +198,6 @@ column."
 ;; (define-key kmap (kbd "C-o") 'tablist-display-item)
 kmap))
 
-  
 ;;
 ;; *Variables
 ;;
@@ -232,7 +231,7 @@ The 2nd argument will be a list of entry ID's.  The function
 should somehow delete these entries and update
 `tabulated-list-entries'.
 
-`find-entry' 
+`find-entry'
 
 The 2nd argument is the ID of an entry.  The function should
 somehow find/display this entry, i.e. a kind of default
@@ -291,7 +290,7 @@ as argument for the function `completion-in-region'.")
 ;;
 
 (defvar savehist-additional-variables)
-(add-hook 'savehist-save-hook 
+(add-hook 'savehist-save-hook
   (lambda nil
 (add-to-list 'savehist-additional-variables 'tablist-named-filter)))
 
@@ -344,12 +343,12 @@ as argument for the function `completion-in-region'.")
   (selected (tabulated-list-get-id)))
   (unless (eq selected id)
 (setq tablist-selected-id selected)
-(run-hook-with-args 
+(run-hook-with-args
  'tablist-selection-changed-functions
  tablist-selected-id)
 
 (defvar tablist-context-window-update--timer nil)
-  
+
 (defun tablist-context-window-update (&optional id)
   (when (and tablist-context-window-function
  (window-live-p tablist-context-window)
@@ -396,8 +395,7 @@ as argument for the function `completion-in-region'.")
   (if (window-live-p tablist-context-window)
   (tablist-hide-context-window)
 (tablist-display-context-window)))
-  
-  
+
 ;;
 ;; *Marking
 ;;
@@ -415,7 +413,7 @@ as argument for the function `completion-in-region'.")
 (if (numberp tablist-major-columns)
 (list tablist-major-columns)
   tablist-major-columns)))
-  
+
 (defun tablist-put-mark (&optional pos)
   "Put a mark before the entry at POS.
 
@@ -814,8 +812,6 @@ STATE is a return value of `tablist-get-mark-state'."
 :right-align)
  (not (= n (1- (length columns)
 (forward-char (1- (car (cdr (elt tabulated-list-format n)
-
-
 
 (defun tablist-move-to-major-column (&optional first-skip-invisible-p)
   "Move to the first major column."
@@ -881,7 +877,7 @@ Return t, if point is now in a visible area."
 'invisible nil (point-max)
   (not (invisible-p (point
 
-;; 
+;;
 ;; *Operations
 ;;
 
@@ -907,7 +903,6 @@ ARG the prefix-arg of the command used in
  op-str
  (tablist-mark-prompt arg pp-items)
 
-
 (defun tablist-operation-available-p (op)
   (and (functionp tablist-operations-function)
(memq op (funcall tablist-operations-function
@@ -950,7 +945,7 @@ ARG the prefix-arg of the command used in
 (message (format "Killed %d line%s"
  (length positions)
  (dired-plural-s (length positions
-
+
 (defun tablist-do-operation (arg fn operation &optional delete-p revert-p)
   "Operate on marked items.
 
@@ -973,9 +968,9 @@ Optional REVERT-P means, revert the display afterwards."
 (tablist-revert))
   (tablist-move-to-major-column
 
-;; 
+;;
 ;; *Editing
-;; 
+;;
 (defvar tablist-edit-column-minor-mode-map
   (let ((kmap (make-sparse-keymap)))
 (set-keymap-parent kmap (current-global-map))
@@ -990,7 +985,7 @@ Optional REVERT-P means, revert the display afterwards."
 (define-key kmap [remap beginning-of-buffer] 'beginning-of-line)
 (define-key kmap [remap mark-whole-buffer] 'tablist-edit-column-mark-field)
 kmap))
-   
+

[nongnu] elpa/tablist 6d4a6fb 44/60: Escape character literals

[Philip Kaludercic]

branch: elpa/tablist
commit 6d4a6fb2bc24c515bee78f79eaccc21465272104
Author: Andreas Politz 
Commit: Andreas Politz 

Escape character literals
---
 tablist-filter.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tablist-filter.el b/tablist-filter.el
index 0ea7e2c..0317fb6 100644
--- a/tablist-filter.el
+++ b/tablist-filter.el
@@ -72,7 +72,7 @@
  ((not filter) `(not ,$2))
  ((filter and filter) `(and ,$1 ,$3))
  ((filter or filter) `(or ,$1 ,$3))
- ((?( filter ?)) $2
+ ((?\( filter ?\)) $2
 
 (defun tablist-filter-parser-init (&optional reinitialize interactive)
   (interactive (list t t))

[nongnu] elpa/tablist af87031 45/60: Add compatibility with Emacs 27

[Philip Kaludercic]

branch: elpa/tablist
commit af8703139d80be54b6c3077dd3e54ca7f3087043
Author: Andreas Politz 
Commit: Andreas Politz 

Add compatibility with Emacs 27
---
 tablist.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tablist.el b/tablist.el
index 590f6f7..b4552dc 100644
--- a/tablist.el
+++ b/tablist.el
@@ -1916,7 +1916,7 @@ AWINDOW is deleted."
 (setq newwin (window--display-buffer
   buf
   (split-window-below height)
-  'window alist display-buffer-mark-dedicated))
+  'window alist))
 (tablist-window-attach newwin window)
 newwin))
 

[nongnu] elpa/tablist 117c37f 33/60: Added Cask, Makefile and README files

[Philip Kaludercic]

branch: elpa/tablist
commit 117c37fa8fa043918d62fd280605c53356f4d641
Author: Andreas Politz 
Commit: Andreas Politz 

Added Cask, Makefile and README files
---
 Cask | 5 +
 Makefile | 9 +
 README   | 5 +
 3 files changed, 19 insertions(+)

diff --git a/Cask b/Cask
new file mode 100644
index 000..17a1d76
--- /dev/null
+++ b/Cask
@@ -0,0 +1,5 @@
+(source gnu)
+(source melpa)
+
+(package-file "tablist.el")
+(files "*.el")
diff --git a/Makefile b/Makefile
new file mode 100644
index 000..91e6b00
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,9 @@
+
+all: package
+
+package:
+   cask package
+clean:
+   rm -rf dist
+   rm -f -- *.elc
+
diff --git a/README b/README
new file mode 100644
index 000..2875ed6
--- /dev/null
+++ b/README
@@ -0,0 +1,5 @@
+This package adds marks and filters to tabulated-list-mode.  It
+also kind of puts a dired face on tabulated list buffers.
+
+It can be used by deriving from tablist-mode and some features by
+using tablist-minor-mode inside a tabulated-list-mode buffer.

[nongnu] elpa/tablist c5da8e6 32/60: Ignore .cask directory

[Philip Kaludercic]

branch: elpa/tablist
commit c5da8e66edbf5f4d81875430c41a403cc615d862
Author: Andreas Politz 
Commit: Andreas Politz 

Ignore .cask directory
---
 .gitignore | 1 +
 1 file changed, 1 insertion(+)

diff --git a/.gitignore b/.gitignore
index d1b61f6..b74540f 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,2 +1,3 @@
 *.elc
 .dir-locals.el
+.cask

[nongnu] elpa/tablist c834a84 42/60: Cosmetic changes to tablist

[Philip Kaludercic]

branch: elpa/tablist
commit c834a84efb6efa32497efe1e73160fade741b836
Author: Stefan Monnier 
Commit: Andreas Politz 

Cosmetic changes to tablist
---
 .gitignore|  2 ++
 tablist-filter.el | 11 ++-
 tablist.el|  4 +++-
 3 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/.gitignore b/.gitignore
index b74540f..cf37763 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,3 +1,5 @@
+*-autoloads.el
+*-pkg.el
 *.elc
 .dir-locals.el
 .cask
diff --git a/tablist-filter.el b/tablist-filter.el
index d8b0eca..0ea7e2c 100644
--- a/tablist-filter.el
+++ b/tablist-filter.el
@@ -1,4 +1,4 @@
-;;; tablist-filter.el --- Filter expressions for tablists.
+;;; tablist-filter.el --- Filter expressions for tablists.  -*- 
lexical-binding:t -*-
 
 ;; Copyright (C) 2013, 2014  Andreas Politz
 
@@ -22,7 +22,8 @@
 
 ;;
 
-(let (python-mode-hook)
+(defvar python-mode-hook)
+(let (python-mode-hook) ;FIXME: Why?
 (require 'semantic/wisent/comp)
 (require 'semantic/wisent/wisent))
 
@@ -268,12 +269,12 @@
 (car item)
   item)))
 
-(defun tablist-filter-op-equal (id entry op1 op2)
+(defun tablist-filter-op-equal (_id entry op1 op2)
   "COLUMN == STRING : Matches if COLUMN's entry is equal to STRING."
   (let ((item (tablist-filter-get-item-by-name entry op1)))
 (string= item op2)))
 
-(defun tablist-filter-op-regexp (id entry op1 op2)
+(defun tablist-filter-op-regexp (_id entry op1 op2)
   "COLUMN =~ REGEXP : Matches if COLUMN's entry matches REGEXP."
   (let ((item (tablist-filter-get-item-by-name entry op1)))
 (string-match op2 item)))
@@ -298,7 +299,7 @@
   "COLUMN = NUMBER : Matches if COLUMN's entry as a number is equal to NUMBER."
   (tablist-filter-op-numeric '= id entry op1 op2))
 
-(defun tablist-filter-op-numeric (op id entry op1 op2)
+(defun tablist-filter-op-numeric (op _id entry op1 op2)
   (let ((item (tablist-filter-get-item-by-name entry op1)))
 (funcall op (string-to-number item)
  (string-to-number op2
diff --git a/tablist.el b/tablist.el
index c3acb1a..1fbfb31 100644
--- a/tablist.el
+++ b/tablist.el
@@ -30,6 +30,8 @@
 ;; using tablist-minor-mode inside a tabulated-list-mode buffer.
 ;;
 
+;;; Code:
+
 (require 'cl-lib)
 (require 'ring)
 (require 'tabulated-list)
@@ -537,7 +539,7 @@ OLD and NEW are both characters used to mark files."
  (pcase new
(?D
 (tablist-flag-forward 1))
-   (t
+   (_
 (let ((tablist-marker-char new)
   (tablist-marked-face
(and default-mark-p

[nongnu] elpa/tablist f13b8f0 41/60: Improve README

[Philip Kaludercic]

branch: elpa/tablist
commit f13b8f048d0bde14bcf4ee4c9006fcd875b28783
Author: Philippe Vaucher 
Commit: Philippe Vaucher 

Improve README
---
 README|  5 -
 README.md | 68 +++
 2 files changed, 68 insertions(+), 5 deletions(-)

diff --git a/README b/README
deleted file mode 100644
index 2875ed6..000
--- a/README
+++ /dev/null
@@ -1,5 +0,0 @@
-This package adds marks and filters to tabulated-list-mode.  It
-also kind of puts a dired face on tabulated list buffers.
-
-It can be used by deriving from tablist-mode and some features by
-using tablist-minor-mode inside a tabulated-list-mode buffer.
diff --git a/README.md b/README.md
new file mode 100644
index 000..2fd51bc
--- /dev/null
+++ b/README.md
@@ -0,0 +1,68 @@
+# Tablist
+
+This package adds marks and filters to `tabulated-list-mode`. It also
+puts a dired face on tabulated list buffers.
+
+It can be used by deriving from `tablist-mode`, or with more limited features
+by enabling `tablist-minor-mode` inside a `tabulated-list-mode` buffer.
+
+# Tablist minor mode
+
+| command  | keymap |
+|--||
+| tablist-mark-forward | m   |
+| tablist-unmark-backward  | DEL |
+| tablist-do-kill-lines| k   |
+| tablist-unmark-all-marks | U   |
+| tablist-unmark-forward   | u   |
+| tablist-toggle-marks | t   |
+| tablist-sort | s   |
+| tablist-shrink-column| <   |
+| tablist-enlarge-column   | >   |
+| tablist-quit | q   |
+| tablist-revert   | G   |
+| tablist-export-csv   | C-c C-e |
+
+
+## Marks
+
+| command| keymap   |
+||--|
+| tablist-change-marks   | * c   |
+| tablist-unmark-all-marks   | * !   |
+| tablist-mark-items-regexp  | * r or % m |
+| tablist-mark-items-numeric | * n   |
+| tablist-mark-forward   | * m   |
+
+## Filters
+
+| command   | keymap |
+|---||
+| tablist-pop-filter| / p |
+| tablist-push-regexp-filter| / r |
+| tablist-push-equal-filter | / = |
+| tablist-push-numeric-filter   | / n |
+| tablist-negate-filter | / ! |
+| tablist-toggle-first-filter-logic | / t |
+| tablist-display-filter| / / |
+| tablist-suspend-filter| / z |
+| tablist-push-named-filter | / a |
+| tablist-name-current-filter   | / s |
+| tablist-delete-named-filter   | / D |
+| tablist-deconstruct-named-filter  | / d |
+| tablist-edit-filter   | / e |
+| tablist-clear-filter  | / C |
+
+# Tablist mode
+
+Same bindings as `tablist-minor-mode`, plus the following:
+
+| command   | keymap |
+|---||
+| tablist-flag-forward  | d   |
+| tablist-find-entry| RET |
+| tablist-find-entry| f   |
+| tablist-do-delete | D   |
+| tablist-do-copy   | C   |
+| tablist-do-rename | R   |
+| tablist-do-flagged-delete | x   |

[nongnu] elpa/tablist a93d0b1 49/60: `model-line-misc-info` may contain non-lists

[Philip Kaludercic]

branch: elpa/tablist
commit a93d0b1731c17e0bc0dd18e37934bba278dc1d5d
Author: jao 
Commit: GitHub 

`model-line-misc-info` may contain non-lists

Should fix #13
---
 tablist.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tablist.el b/tablist.el
index 51728a8..2c2c7d3 100644
--- a/tablist.el
+++ b/tablist.el
@@ -309,7 +309,7 @@ as argument for the function `completion-in-region'.")
 
 (defun tablist-init (&optional disable)
   (let ((cleaned-misc (cl-remove 'tablist-current-filter
- mode-line-misc-info :key 'car)))
+ mode-line-misc-info :key 'car-safe)))
 (cond
  ((not disable)
   (set (make-local-variable 'mode-line-misc-info)

[nongnu] elpa/tablist 6fd9f33 34/60: Added licence

[Philip Kaludercic]

branch: elpa/tablist
commit 6fd9f33d9c80c9b09f7a1c54fd892d2af772e1d4
Author: Andreas Politz 
Commit: Andreas Politz 

Added licence
---
 COPYING | 674 
 1 file changed, 674 insertions(+)

diff --git a/COPYING b/COPYING
new file mode 100644
index 000..94a9ed0
--- /dev/null
+++ b/COPYING
@@ -0,0 +1,674 @@
+GNU GENERAL PUBLIC LICENSE
+   Version 3, 29 June 2007
+
+ Copyright (C) 2007 Free Software Foundation, Inc. 
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+Preamble
+
+  The GNU General Public License is a free, copyleft license for
+software and other kinds of works.
+
+  The licenses for most software and other practical works are designed
+to take away your freedom to share and change the works.  By contrast,
+the GNU General Public License is intended to guarantee your freedom to
+share and change all versions of a program--to make sure it remains free
+software for all its users.  We, the Free Software Foundation, use the
+GNU General Public License for most of our software; it applies also to
+any other work released this way by its authors.  You can apply it to
+your programs, too.
+
+  When we speak of free software, we are referring to freedom, not
+price.  Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+them if you wish), that you receive source code or can get it if you
+want it, that you can change the software or use pieces of it in new
+free programs, and that you know you can do these things.
+
+  To protect your rights, we need to prevent others from denying you
+these rights or asking you to surrender the rights.  Therefore, you have
+certain responsibilities if you distribute copies of the software, or if
+you modify it: responsibilities to respect the freedom of others.
+
+  For example, if you distribute copies of such a program, whether
+gratis or for a fee, you must pass on to the recipients the same
+freedoms that you received.  You must make sure that they, too, receive
+or can get the source code.  And you must show them these terms so they
+know their rights.
+
+  Developers that use the GNU GPL protect your rights with two steps:
+(1) assert copyright on the software, and (2) offer you this License
+giving you legal permission to copy, distribute and/or modify it.
+
+  For the developers' and authors' protection, the GPL clearly explains
+that there is no warranty for this free software.  For both users' and
+authors' sake, the GPL requires that modified versions be marked as
+changed, so that their problems will not be attributed erroneously to
+authors of previous versions.
+
+  Some devices are designed to deny users access to install or run
+modified versions of the software inside them, although the manufacturer
+can do so.  This is fundamentally incompatible with the aim of
+protecting users' freedom to change the software.  The systematic
+pattern of such abuse occurs in the area of products for individuals to
+use, which is precisely where it is most unacceptable.  Therefore, we
+have designed this version of the GPL to prohibit the practice for those
+products.  If such problems arise substantially in other domains, we
+stand ready to extend this provision to those domains in future versions
+of the GPL, as needed to protect the freedom of users.
+
+  Finally, every program is threatened constantly by software patents.
+States should not allow patents to restrict development and use of
+software on general-purpose computers, but in those that do, we wish to
+avoid the special danger that patents applied to a free program could
+make it effectively proprietary.  To prevent this, the GPL assures that
+patents cannot be used to render the program non-free.
+
+  The precise terms and conditions for copying, distribution and
+modification follow.
+
+   TERMS AND CONDITIONS
+
+  0. Definitions.
+
+  "This License" refers to version 3 of the GNU General Public License.
+
+  "Copyright" also means copyright-like laws that apply to other kinds of
+works, such as semiconductor masks.
+
+  "The Program" refers to any copyrightable work licensed under this
+License.  Each licensee is addressed as "you".  "Licensees" and
+"recipients" may be individuals or organizations.
+
+  To "modify" a work means to copy from or adapt all or part of the work
+in a fashion requiring copyright permission, other than the making of an
+exact copy.  The resulting work is called a "modified version" of the
+earlier work or a work "based on" the earlier work.
+
+  A "covered work" means either the unmodified Program or a work based
+on the Program.
+
+  To "propagate" a work means to do anything with it that, without
+permission, would make you directly or secondar

[nongnu] elpa/tablist 2262a80 35/60: Clear .dir-locals.el

[Philip Kaludercic]

branch: elpa/tablist
commit 2262a80d5c896a5a2746bc2630136fb40b04f7fa
Author: Andreas Politz 
Commit: Andreas Politz 

Clear .dir-locals.el
---
 .dir-locals.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/.dir-locals.el b/.dir-locals.el
index e0a752a..607602c 100644
--- a/.dir-locals.el
+++ b/.dir-locals.el
@@ -1 +1 @@
-((emacs-lisp-mode . ((eval . (local-unset-key (kbd "C-c C-c"))
+nil

[nongnu] elpa/tablist 7cd9360 27/60: Merge branch 'master' into options

[Philip Kaludercic]

branch: elpa/tablist
commit 7cd9360cbc2355961772da97ff391e210b2254db
Merge: c78eccd 7380227
Author: oscar 
Commit: oscar 

Merge branch 'master' into options

Conflicts:
lisp/pdf-info.el
server/epdfinfo.c
server/epdfinfo.h
---
 tablist-filter.el | 8 ++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/tablist-filter.el b/tablist-filter.el
index a401a2b..6a6f058 100644
--- a/tablist-filter.el
+++ b/tablist-filter.el
@@ -22,11 +22,15 @@
 
 ;;
 
+(let (python-mode-hook)
 (require 'semantic/wisent/comp)
-(require 'semantic/wisent/wisent)
+(require 'semantic/wisent/wisent))
 
 ;;; Code:
 
+(defvar wisent-eoi-term)
+(declare-function wisent-parse "semantic/wisent/wisent.el")
+
 (defvar tablist-filter-binary-operator
   '((== . tablist-filter-op-equal)
 (=~ . tablist-filter-op-regexp)
@@ -102,7 +106,7 @@
   (when interactive
 (message "Parser reinitialized."))
   nil)
-
+
 (defun tablist-filter-wisent-lexer ()
   (cl-destructuring-bind (unary-op binary-op keywords)
   tablist-filter-lexer-regexps

[nongnu] elpa/tablist c762a78 43/60: Bump version to 0.80

[Philip Kaludercic]

branch: elpa/tablist
commit c762a78f44b789d81c86609dadbe71ef71a64743
Author: Andreas Politz 
Commit: Andreas Politz 

Bump version to 0.80
---
 tablist.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tablist.el b/tablist.el
index 1fbfb31..590f6f7 100644
--- a/tablist.el
+++ b/tablist.el
@@ -5,7 +5,7 @@
 ;; Author: Andreas Politz 
 ;; Keywords: extensions, lisp
 ;; Package: tablist
-;; Version: 0.70
+;; Version: 0.80
 ;; Package-Requires: ((emacs "24.3"))
 
 ;; This program is free software; you can redistribute it and/or modify

[nongnu] elpa/tablist 389730e 46/60: Add byte-compile target

[Philip Kaludercic]

branch: elpa/tablist
commit 389730ef0a01e73358d24a37f40fd9db01917f6c
Author: Andreas Politz 
Commit: Andreas Politz 

Add byte-compile target
---
 Makefile | 12 +++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/Makefile b/Makefile
index 91e6b00..55cb555 100644
--- a/Makefile
+++ b/Makefile
@@ -1,9 +1,19 @@
+EMACS ?= emacs
+# Handle the mess when inside Emacs.
+unexport INSIDE_EMACS  #cask not like this.
+ifeq ($(EMACS), t)
+EMACS = emacs
+endif
+
+emacs = $(EMACS)
 
 all: package
 
+byte-compile:
+   cask exec $(emacs) --batch -L lisp -f batch-byte-compile *.el
+
 package:
cask package
 clean:
rm -rf dist
rm -f -- *.elc
-

[nongnu] elpa/tablist db7c429 40/60: Reindent

[Philip Kaludercic]

branch: elpa/tablist
commit db7c429486f8f6b114679230a435b434e1721f27
Author: Philippe Vaucher 
Commit: Philippe Vaucher 

Reindent
---
 tablist.el | 92 +++---
 1 file changed, 46 insertions(+), 46 deletions(-)

diff --git a/tablist.el b/tablist.el
index 5dad1eb..c3acb1a 100644
--- a/tablist.el
+++ b/tablist.el
@@ -78,7 +78,7 @@ column."
 (replace-regexp-in-string
  "[\t ]+" "[\t ]*" (regexp-quote
 (or (thing-at-point 'line) ""))
-t t))
+ t t))
(,id (tabulated-list-get-id))
(,col (tablist-current-column)))
(progn
@@ -291,8 +291,8 @@ as argument for the function `completion-in-region'.")
 
 (defvar savehist-additional-variables)
 (add-hook 'savehist-save-hook
-  (lambda nil
-(add-to-list 'savehist-additional-variables 'tablist-named-filter)))
+  (lambda nil
+(add-to-list 'savehist-additional-variables 
'tablist-named-filter)))
 
 ;;;###autoload
 (define-minor-mode tablist-minor-mode
@@ -359,16 +359,16 @@ as argument for the function `completion-in-region'.")
   (cancel-timer tablist-context-window-update--timer))
 (setq tablist-context-window-update--timer
   (run-with-idle-timer 0.1 nil
-(lambda (fn window)
-  (when (window-live-p window)
-(with-selected-window window
-  (set-window-dedicated-p nil nil)
-  (save-selected-window
-(funcall fn id))
-  (when (window-live-p (selected-window))
-(set-window-dedicated-p nil t)
-tablist-context-window-function
-tablist-context-window
+   (lambda (fn window)
+ (when (window-live-p window)
+   (with-selected-window window
+ (set-window-dedicated-p nil nil)
+ (save-selected-window
+   (funcall fn id))
+ (when (window-live-p (selected-window))
+   (set-window-dedicated-p nil t)
+   tablist-context-window-function
+   tablist-context-window
 
 (defun tablist-display-context-window ()
   (interactive)
@@ -645,13 +645,13 @@ proceeds as \(BINOP N OPERAND\)."
   (list (funcall fn
(t
 (cl-labels ((search (re)
-  (let (sucess)
-(tablist-skip-invisible-entries)
-(while (and (setq sucess
-  (re-search-forward re nil t))
-(invisible-p (point)))
-  (tablist-forward-entry))
-sucess)))
+(let (sucess)
+  (tablist-skip-invisible-entries)
+  (while (and (setq sucess
+(re-search-forward re nil t))
+  (invisible-p (point)))
+(tablist-forward-entry))
+  sucess)))
   (let ((regexp (tablist-marker-regexp))
 next-position results found)
 (save-excursion
@@ -1328,20 +1328,20 @@ Return the output buffer."
 (unless (buffer-live-p outb)
   (error "Expected a live buffer: %s" outb))
 (cl-labels
-  ((printit (entry)
- (insert
-  (mapconcat
-   (lambda (e)
- (unless (stringp e)
-   (setq e (car e)))
- (if (or always-quote-p
- (string-match escape-re e))
- (concat "\""
- (replace-regexp-in-string "\"" "\"\"" e t t)
- "\"")
-   e))
-   entry separator))
- (insert ?\n)))
+((printit (entry)
+  (insert
+   (mapconcat
+(lambda (e)
+  (unless (stringp e)
+(setq e (car e)))
+  (if (or always-quote-p
+  (string-match escape-re e))
+  (concat "\""
+  (replace-regexp-in-string "\"" "\"\"" e t t)
+  "\"")
+e))
+entry separator))
+  (insert ?\n)))
   (with-current-buffer outb
 (let ((inhibit-read-only t))
   (erase-buffer)
@@ -1505,12 +1505,12 @@ FILTER defaults to `tablist-current-filter'."
   (when (and filter
  (null tablist-filter-suspended))
 (tablist-with-remembering-entry
- (tablist-map-with-fi

[nongnu] elpa/tablist 41a9612 51/60: Merge pull request #14 from jaor/jaor-patch-1

[Philip Kaludercic]

branch: elpa/tablist
commit 41a9612f51bad36d6689667c11f42f8143103bb2
Merge: 8079801 bd0d2bf
Author: politza 
Commit: GitHub 

Merge pull request #14 from jaor/jaor-patch-1

Use car-safe when iterating model-line-misc-info.
---
 tablist.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tablist.el b/tablist.el
index 51728a8..fa22a2b 100644
--- a/tablist.el
+++ b/tablist.el
@@ -309,7 +309,7 @@ as argument for the function `completion-in-region'.")
 
 (defun tablist-init (&optional disable)
   (let ((cleaned-misc (cl-remove 'tablist-current-filter
- mode-line-misc-info :key 'car)))
+ mode-line-misc-info :key #'car-safe)))
 (cond
  ((not disable)
   (set (make-local-variable 'mode-line-misc-info)

[nongnu] elpa/tablist f6b495d 47/60: Bump version

[Philip Kaludercic]

branch: elpa/tablist
commit f6b495d09494784163c3e6ba75b771b71fe226a8
Author: Andreas Politz 
Commit: Andreas Politz 

Bump version
---
 tablist.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tablist.el b/tablist.el
index b4552dc..594e5c9 100644
--- a/tablist.el
+++ b/tablist.el
@@ -5,7 +5,7 @@
 ;; Author: Andreas Politz 
 ;; Keywords: extensions, lisp
 ;; Package: tablist
-;; Version: 0.80
+;; Version: 1.0
 ;; Package-Requires: ((emacs "24.3"))
 
 ;; This program is free software; you can redistribute it and/or modify

[nongnu] elpa/tablist 254dc55 28/60: Merge pull request #94 from oscarfv/recolor

[Philip Kaludercic]

branch: elpa/tablist
commit 254dc5550d5840d8ccdfc13e32b5a0b980256d42
Merge: 7380227 7cd9360
Author: politza 
Commit: politza 

Merge pull request #94 from oscarfv/recolor

Recolor

[nongnu] elpa/tablist 8079801 48/60: Fix invalid argument error

[Philip Kaludercic]

branch: elpa/tablist
commit 8079801527da1f596bc942162026328d7bdf6ad9
Author: Andreas Politz 
Commit: Andreas Politz 

Fix invalid argument error
---
 tablist.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tablist.el b/tablist.el
index 594e5c9..51728a8 100644
--- a/tablist.el
+++ b/tablist.el
@@ -1934,7 +1934,7 @@ the 0-th column as numbers by the less-than relation."
 (funcall compare-fn
  (funcall (or read-fn 'identity)
   (aref (cadr e1) column))
- (funcall read-fn
+ (funcall (or read-fn 'identity)
   (aref (cadr e2) column)
 
 (provide 'tablist)

[nongnu] elpa/tablist 61f653f 52/60: Quote commands as functions

[Philip Kaludercic]

branch: elpa/tablist
commit 61f653f3cf334b22a55a7c1016ba603d68ded1d9
Author: Andreas Politz 
Commit: Andreas Politz 

Quote commands as functions
---
 tablist.el | 124 ++---
 1 file changed, 62 insertions(+), 62 deletions(-)

diff --git a/tablist.el b/tablist.el
index fa22a2b..f195178 100644
--- a/tablist.el
+++ b/tablist.el
@@ -123,81 +123,81 @@ column."
 
 (defvar tablist-mode-filter-map
   (let ((kmap (make-sparse-keymap)))
-(define-key kmap "p" 'tablist-pop-filter)
-(define-key kmap "r" 'tablist-push-regexp-filter)
-(define-key kmap "=" 'tablist-push-equal-filter)
-(define-key kmap "n" 'tablist-push-numeric-filter)
-(define-key kmap "!" 'tablist-negate-filter)
-(define-key kmap "t" 'tablist-toggle-first-filter-logic)
-(define-key kmap "/" 'tablist-display-filter)
-(define-key kmap "z" 'tablist-suspend-filter)
-
-(define-key kmap "a" 'tablist-push-named-filter)
-(define-key kmap "s" 'tablist-name-current-filter)
-(define-key kmap "D" 'tablist-delete-named-filter)
-(define-key kmap "d" 'tablist-deconstruct-named-filter)
-(define-key kmap "e" 'tablist-edit-filter)
-(define-key kmap "C" 'tablist-clear-filter)
+(define-key kmap "p" #'tablist-pop-filter)
+(define-key kmap "r" #'tablist-push-regexp-filter)
+(define-key kmap "=" #'tablist-push-equal-filter)
+(define-key kmap "n" #'tablist-push-numeric-filter)
+(define-key kmap "!" #'tablist-negate-filter)
+(define-key kmap "t" #'tablist-toggle-first-filter-logic)
+(define-key kmap "/" #'tablist-display-filter)
+(define-key kmap "z" #'tablist-suspend-filter)
+
+(define-key kmap "a" #'tablist-push-named-filter)
+(define-key kmap "s" #'tablist-name-current-filter)
+(define-key kmap "D" #'tablist-delete-named-filter)
+(define-key kmap "d" #'tablist-deconstruct-named-filter)
+(define-key kmap "e" #'tablist-edit-filter)
+(define-key kmap "C" #'tablist-clear-filter)
 kmap))
 
 (defvar tablist-mode-mark-map
   (let ((kmap (make-sparse-keymap)))
-(define-key kmap "c" 'tablist-change-marks)
-(define-key kmap "!" 'tablist-unmark-all-marks)
-(define-key kmap "r" 'tablist-mark-items-regexp)
-(define-key kmap "n" 'tablist-mark-items-numeric)
-(define-key kmap "m" 'tablist-mark-forward)
+(define-key kmap "c" #'tablist-change-marks)
+(define-key kmap "!" #'tablist-unmark-all-marks)
+(define-key kmap "r" #'tablist-mark-items-regexp)
+(define-key kmap "n" #'tablist-mark-items-numeric)
+(define-key kmap "m" #'tablist-mark-forward)
 kmap))
 
 (defvar tablist-mode-regexp-map
   (let ((kmap (make-sparse-keymap)))
-;; (define-key kmap "&" 'tablist-flag-gargabe-items)
-(define-key kmap "m" 'tablist-mark-items-regexp)
+;; (define-key kmap "&" #'tablist-flag-gargabe-items)
+(define-key kmap "m" #'tablist-mark-items-regexp)
 kmap))
 
 (defvar tablist-minor-mode-map
   (let ((kmap (make-sparse-keymap)))
-(define-key kmap "m" 'tablist-mark-forward)
-(define-key kmap (kbd "DEL") 'tablist-unmark-backward)
-(define-key kmap "k" 'tablist-do-kill-lines)
-(define-key kmap "U" 'tablist-unmark-all-marks)
-(define-key kmap "u" 'tablist-unmark-forward)
-(define-key kmap "t" 'tablist-toggle-marks)
+(define-key kmap "m" #'tablist-mark-forward)
+(define-key kmap (kbd "DEL") #'tablist-unmark-backward)
+(define-key kmap "k" #'tablist-do-kill-lines)
+(define-key kmap "U" #'tablist-unmark-all-marks)
+(define-key kmap "u" #'tablist-unmark-forward)
+(define-key kmap "t" #'tablist-toggle-marks)
 
-(define-key kmap (kbd "TAB") 'tablist-forward-column)
-(define-key kmap "\t" 'tablist-forward-column)
-(define-key kmap [backtab] 'tablist-backward-column)
+(define-key kmap (kbd "TAB") #'tablist-forward-column)
+(define-key kmap "\t" #'tablist-forward-column)
+(define-key kmap [backtab] #'tablist-backward-column)
 
 (define-key kmap "%" tablist-mode-regexp-map)
 (define-key kmap "*" tablist-mode-mark-map)
 (define-key kmap "/" tablist-mode-filter-map)
 
-;; (define-key kmap "e" 'tablist-edit-column)
-;; (define-key kmap "i" 'tablist-insert-entry)
-(define-key kmap "s" 'tablist-sort)
-(define-key kmap [remap back-to-indentation] 'tablist-move-to-major-column)
-(define-key kmap [remap next-line] 'tablist-next-line)
-(define-key kmap [remap previous-line] 'tablist-previous-line)
-(define-key kmap "<" 'tablist-shrink-column)
-(define-key kmap ">" 'tablist-enlarge-column)
-(define-key kmap "q" 'tablist-quit)
-(define-key kmap "G" 'tablist-revert)
-(define-key kmap (kbd "C-c C-e") 'tablist-export-csv)
+;; (define-key kmap "e" #'tablist-edit-column)
+;; (define-key kmap "i" #'tablist-insert-entry)
+(define-key kmap "s" #'tablist-sort)
+(define-key kmap [remap back-to-indentation] 
#'tablist-move-to-major-column)
+(define-key kmap [remap nex

[nongnu] elpa/tablist de067b4 30/60: Merge pull request #95 from svend/spelling

[Philip Kaludercic]

branch: elpa/tablist
commit de067b423f91f39129ddcf83e99e02f38c79c0a8
Merge: 1a2bad1 c78eccd
Author: politza 
Commit: politza 

Merge pull request #95 from svend/spelling

Fix spelling

[nongnu] elpa/tablist faab7a0 60/60: Merge pull request #20 from tarsiiformes/sections

[Philip Kaludercic]

branch: elpa/tablist
commit faab7a035ef2258cc4ea2182f67e3aedab7e2af9
Merge: 778eee5 3fc27c7
Author: politza 
Commit: GitHub 

Merge pull request #20 from tarsiiformes/sections

Add and improve sections
---
 tablist-filter.el | 20 ++--
 tablist.el|  4 
 2 files changed, 22 insertions(+), 2 deletions(-)

diff --git a/tablist-filter.el b/tablist-filter.el
index 00c8a1d..c5d56b8 100644
--- a/tablist-filter.el
+++ b/tablist-filter.el
@@ -32,6 +32,10 @@
 (defvar wisent-eoi-term)
 (declare-function wisent-parse "semantic/wisent/wisent.el")
 
+;;
+;; *Variables
+;;
+
 (defvar tablist-filter-binary-operator
   '((== . tablist-filter-op-equal)
 (=~ . tablist-filter-op-regexp)
@@ -74,6 +78,10 @@
  ((filter or filter) `(or ,$1 ,$3))
  ((?\( filter ?\)) $2
 
+;;
+;; *Filter Parsing
+;;
+
 (defun tablist-filter-parser-init (&optional reinitialize interactive)
   (interactive (list t t))
   (unless (and tablist-filter-lexer-regexps
@@ -255,6 +263,10 @@
  (_ (error "Invalid filter: %s" filter)
 (feval filter)))
 
+;;
+;; *Filter Operators
+;;
+
 (defun tablist-filter-get-item-by-name (entry col-name)
   (let* ((col (cl-position col-name tabulated-list-format
:key 'car
@@ -343,7 +355,7 @@ and \(...\) to group expressions.")
(help-mode)
 
 ;;
-;; **Filter Functions
+;; *Filter Functions
 ;;
 
 ;; filter ::= nil | named | fn | (OP OP1 [OP2])
@@ -392,7 +404,7 @@ else return nil."
 (_ (funcall fn filter
 
 ;;
-;; Reading filter
+;; *Reading Filter
 ;;
 
 (defvar tablist-filter-edit-history nil)
@@ -445,4 +457,8 @@ else return nil."
   filter)))
 
 (provide 'tablist-filter)
+;; Local Variables:
+;; outline-regexp: ";;\\(\\(?:[;*]+ \\| \\*+\\)[^\s\t\n]\\|###autoload\\)\\|("
+;; indent-tabs-mode: nil
+;; End:
 ;;; tablist-filter.el ends here
diff --git a/tablist.el b/tablist.el
index 59fe7a7..df8778b 100644
--- a/tablist.el
+++ b/tablist.el
@@ -1938,4 +1938,8 @@ the 0-th column as numbers by the less-than relation."
   (aref (cadr e2) column)
 
 (provide 'tablist)
+;; Local Variables:
+;; outline-regexp: ";;\\(\\(?:[;*]+ \\| \\*+\\)[^\s\t\n]\\|###autoload\\)\\|("
+;; indent-tabs-mode: nil
+;; End:
 ;;; tablist.el ends here

[nongnu] elpa/tablist 778eee5 56/60: Merge pull request #19 from tarsiiformes/typos

[Philip Kaludercic]

branch: elpa/tablist
commit 778eee55e5b8ec6683a7141dc40d9342a85c14bb
Merge: 10a573d dad26a1
Author: politza 
Commit: GitHub 

Merge pull request #19 from tarsiiformes/typos

Fix typos
---
 tablist-filter.el |  2 +-
 tablist.el| 12 ++--
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/tablist-filter.el b/tablist-filter.el
index 0317fb6..00c8a1d 100644
--- a/tablist-filter.el
+++ b/tablist-filter.el
@@ -371,7 +371,7 @@ By default the filters are and'ed, unless OR-P is non-nil."
   "Remove the first operator or operand from filter.
 
 If filter starts with a negation, return filter unnegated,
-if filter starts with a dis- or conjuction, remove the first operand,
+if filter starts with a dis- or conjunction, remove the first operand,
 if filter is nil, raise an error,
 else return nil."
   (pcase filter
diff --git a/tablist.el b/tablist.el
index 7787423..59fe7a7 100644
--- a/tablist.el
+++ b/tablist.el
@@ -547,7 +547,7 @@ OLD and NEW are both characters used to mark files."
   (tablist-put-mark)
 
 (defun tablist-unmark-all-marks (&optional marks interactive)
-  "Remove alls marks in MARKS.
+  "Remove all marks in MARKS.
 
 MARKS should be a string of mark characters to match and defaults
 to all marks.  Interactively, remove all marks, unless a prefix
@@ -647,13 +647,13 @@ proceeds as \(BINOP N OPERAND\)."
   (list (funcall fn
(t
 (cl-labels ((search (re)
-(let (sucess)
+(let (success)
   (tablist-skip-invisible-entries)
-  (while (and (setq sucess
+  (while (and (setq success
 (re-search-forward re nil t))
   (invisible-p (point)))
 (tablist-forward-entry))
-  sucess)))
+  success)))
   (let ((regexp (tablist-marker-regexp))
 next-position results found)
 (save-excursion
@@ -953,7 +953,7 @@ ARG the prefix-arg of the command used in
 
 ARG should be the `current-prefix-arg', FN is a function of two
 arguments \(ID ENTRY\) handling the operation.  It gets called
-repeatly with all marked items.  OPERATION is a symbol or string
+repeatedly with all marked items.  OPERATION is a symbol or string
 describing the operation, it is used for display.
 
 Optional non-nil DELETE-P means, remove the items from the display.
@@ -1369,7 +1369,7 @@ Return the output buffer."
 (defun tablist-enlarge-column (&optional column width)
   "Enlarge column COLUMN by WIDTH.
 
-This function is lazy and therfore pretty slow."
+This function is lazy and therefore pretty slow."
   (interactive
(list nil (* (prefix-numeric-value current-prefix-arg)
 3)))

[nongnu] elpa/tablist 343d81b 53/60: Deactivate not implemented commands in keymaps

[Philip Kaludercic]

branch: elpa/tablist
commit 343d81b49a5810a95c8be5d9221282f0464fcb4c
Author: Andreas Politz 
Commit: Andreas Politz 

Deactivate not implemented commands in keymaps
---
 tablist.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tablist.el b/tablist.el
index f195178..7787423 100644
--- a/tablist.el
+++ b/tablist.el
@@ -193,8 +193,8 @@ column."
 (define-key kmap "f" #'tablist-find-entry)
 ;; (define-key kmap "~" #'tablist-flag-gargabe-items)
 (define-key kmap "D" #'tablist-do-delete)
-(define-key kmap "C" #'tablist-do-copy)
-(define-key kmap "R" #'tablist-do-rename)
+;; (define-key kmap "C" #'tablist-do-copy)
+;; (define-key kmap "R" #'tablist-do-rename)
 (define-key kmap "x" #'tablist-do-flagged-delete)
 ;; (define-key kmap "F" #'tablist-find-marked-items)
 ;; (define-key kmap (kbd "C-o") #'tablist-display-item)

[nongnu] elpa/tablist 1e4fac1 36/60: Add autoload cookie for lazy loading

[Philip Kaludercic]

branch: elpa/tablist
commit 1e4fac1dc90a4cd33dd66daca3676b5339d0cc49
Author: Syohei YOSHIDA 
Commit: Syohei YOSHIDA 

Add autoload cookie for lazy loading
---
 tablist.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tablist.el b/tablist.el
index ed497d5..5929c87 100644
--- a/tablist.el
+++ b/tablist.el
@@ -301,6 +301,7 @@ as argument for the function `completion-in-region'.")
 (error "Buffer is not in Tabulated List Mode"))
   (tablist-init (not tablist-minor-mode)))
 
+;;;###autoload
 (define-derived-mode tablist-mode tabulated-list-mode "TL"
   (tablist-init))
 

[nongnu] elpa/tablist 10a573d 54/60: Make git ignore the dist directory

[Philip Kaludercic]

branch: elpa/tablist
commit 10a573dc0e66981110507ee8b8b6408be48ce891
Author: Andreas Politz 
Commit: Andreas Politz 

Make git ignore the dist directory
---
 .gitignore | 1 +
 1 file changed, 1 insertion(+)

diff --git a/.gitignore b/.gitignore
index cf37763..63b529e 100644
--- a/.gitignore
+++ b/.gitignore
@@ -3,3 +3,4 @@
 *.elc
 .dir-locals.el
 .cask
+dist

[nongnu] elpa/tablist bd0d2bf 50/60: Function quoting

[Philip Kaludercic]

branch: elpa/tablist
commit bd0d2bfe4edc762a14e333b9377f02b7e20017a0
Author: jao 
Commit: GitHub 

Function quoting
---
 tablist.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tablist.el b/tablist.el
index 2c2c7d3..fa22a2b 100644
--- a/tablist.el
+++ b/tablist.el
@@ -309,7 +309,7 @@ as argument for the function `completion-in-region'.")
 
 (defun tablist-init (&optional disable)
   (let ((cleaned-misc (cl-remove 'tablist-current-filter
- mode-line-misc-info :key 'car-safe)))
+ mode-line-misc-info :key #'car-safe)))
 (cond
  ((not disable)
   (set (make-local-variable 'mode-line-misc-info)

[nongnu] elpa/tablist 9a242c5 57/60: Enforce use of spaces for indentation

[Philip Kaludercic]

branch: elpa/tablist
commit 9a242c5d5c51429fba6520e54291b6d7f7d872f4
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Enforce use of spaces for indentation
---
 tablist-filter.el | 3 +++
 tablist.el| 3 +++
 2 files changed, 6 insertions(+)

diff --git a/tablist-filter.el b/tablist-filter.el
index 00c8a1d..7f408fb 100644
--- a/tablist-filter.el
+++ b/tablist-filter.el
@@ -445,4 +445,7 @@ else return nil."
   filter)))
 
 (provide 'tablist-filter)
+;; Local Variables:
+;; indent-tabs-mode: nil
+;; End:
 ;;; tablist-filter.el ends here
diff --git a/tablist.el b/tablist.el
index 59fe7a7..fa53fa3 100644
--- a/tablist.el
+++ b/tablist.el
@@ -1938,4 +1938,7 @@ the 0-th column as numbers by the less-than relation."
   (aref (cadr e2) column)
 
 (provide 'tablist)
+;; Local Variables:
+;; indent-tabs-mode: nil
+;; End:
 ;;; tablist.el ends here

[nongnu] elpa/tablist dad26a1 55/60: Fix typos

[Philip Kaludercic]

branch: elpa/tablist
commit dad26a1e050963b0c63118431f01230db78d6b2a
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Fix typos
---
 tablist-filter.el |  2 +-
 tablist.el| 12 ++--
 2 files changed, 7 insertions(+), 7 deletions(-)

diff --git a/tablist-filter.el b/tablist-filter.el
index 0317fb6..00c8a1d 100644
--- a/tablist-filter.el
+++ b/tablist-filter.el
@@ -371,7 +371,7 @@ By default the filters are and'ed, unless OR-P is non-nil."
   "Remove the first operator or operand from filter.
 
 If filter starts with a negation, return filter unnegated,
-if filter starts with a dis- or conjuction, remove the first operand,
+if filter starts with a dis- or conjunction, remove the first operand,
 if filter is nil, raise an error,
 else return nil."
   (pcase filter
diff --git a/tablist.el b/tablist.el
index 7787423..59fe7a7 100644
--- a/tablist.el
+++ b/tablist.el
@@ -547,7 +547,7 @@ OLD and NEW are both characters used to mark files."
   (tablist-put-mark)
 
 (defun tablist-unmark-all-marks (&optional marks interactive)
-  "Remove alls marks in MARKS.
+  "Remove all marks in MARKS.
 
 MARKS should be a string of mark characters to match and defaults
 to all marks.  Interactively, remove all marks, unless a prefix
@@ -647,13 +647,13 @@ proceeds as \(BINOP N OPERAND\)."
   (list (funcall fn
(t
 (cl-labels ((search (re)
-(let (sucess)
+(let (success)
   (tablist-skip-invisible-entries)
-  (while (and (setq sucess
+  (while (and (setq success
 (re-search-forward re nil t))
   (invisible-p (point)))
 (tablist-forward-entry))
-  sucess)))
+  success)))
   (let ((regexp (tablist-marker-regexp))
 next-position results found)
 (save-excursion
@@ -953,7 +953,7 @@ ARG the prefix-arg of the command used in
 
 ARG should be the `current-prefix-arg', FN is a function of two
 arguments \(ID ENTRY\) handling the operation.  It gets called
-repeatly with all marked items.  OPERATION is a symbol or string
+repeatedly with all marked items.  OPERATION is a symbol or string
 describing the operation, it is used for display.
 
 Optional non-nil DELETE-P means, remove the items from the display.
@@ -1369,7 +1369,7 @@ Return the output buffer."
 (defun tablist-enlarge-column (&optional column width)
   "Enlarge column COLUMN by WIDTH.
 
-This function is lazy and therfore pretty slow."
+This function is lazy and therefore pretty slow."
   (interactive
(list nil (* (prefix-numeric-value current-prefix-arg)
 3)))

[nongnu] elpa/tablist 65271d9 58/60: Teach outline-minor-mode about our original heading syntax

[Philip Kaludercic]

branch: elpa/tablist
commit 65271d9ee13110aba9e9e22ecae32521f9bd0ab7
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Teach outline-minor-mode about our original heading syntax
---
 tablist-filter.el | 1 +
 tablist.el| 1 +
 2 files changed, 2 insertions(+)

diff --git a/tablist-filter.el b/tablist-filter.el
index 7f408fb..c6b49bb 100644
--- a/tablist-filter.el
+++ b/tablist-filter.el
@@ -446,6 +446,7 @@ else return nil."
 
 (provide 'tablist-filter)
 ;; Local Variables:
+;; outline-regexp: ";;\\(\\(?:[;*]+ \\| \\*+\\)[^\s\t\n]\\|###autoload\\)\\|("
 ;; indent-tabs-mode: nil
 ;; End:
 ;;; tablist-filter.el ends here
diff --git a/tablist.el b/tablist.el
index fa53fa3..df8778b 100644
--- a/tablist.el
+++ b/tablist.el
@@ -1939,6 +1939,7 @@ the 0-th column as numbers by the less-than relation."
 
 (provide 'tablist)
 ;; Local Variables:
+;; outline-regexp: ";;\\(\\(?:[;*]+ \\| \\*+\\)[^\s\t\n]\\|###autoload\\)\\|("
 ;; indent-tabs-mode: nil
 ;; End:
 ;;; tablist.el ends here

[nongnu] elpa/tablist 3fc27c7 59/60: Split tablist-filter.el into sections

[Philip Kaludercic]

branch: elpa/tablist
commit 3fc27c7c2999040a59420388cdd6aaada12d92c7
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Split tablist-filter.el into sections
---
 tablist-filter.el | 16 ++--
 1 file changed, 14 insertions(+), 2 deletions(-)

diff --git a/tablist-filter.el b/tablist-filter.el
index c6b49bb..c5d56b8 100644
--- a/tablist-filter.el
+++ b/tablist-filter.el
@@ -32,6 +32,10 @@
 (defvar wisent-eoi-term)
 (declare-function wisent-parse "semantic/wisent/wisent.el")
 
+;;
+;; *Variables
+;;
+
 (defvar tablist-filter-binary-operator
   '((== . tablist-filter-op-equal)
 (=~ . tablist-filter-op-regexp)
@@ -74,6 +78,10 @@
  ((filter or filter) `(or ,$1 ,$3))
  ((?\( filter ?\)) $2
 
+;;
+;; *Filter Parsing
+;;
+
 (defun tablist-filter-parser-init (&optional reinitialize interactive)
   (interactive (list t t))
   (unless (and tablist-filter-lexer-regexps
@@ -255,6 +263,10 @@
  (_ (error "Invalid filter: %s" filter)
 (feval filter)))
 
+;;
+;; *Filter Operators
+;;
+
 (defun tablist-filter-get-item-by-name (entry col-name)
   (let* ((col (cl-position col-name tabulated-list-format
:key 'car
@@ -343,7 +355,7 @@ and \(...\) to group expressions.")
(help-mode)
 
 ;;
-;; **Filter Functions
+;; *Filter Functions
 ;;
 
 ;; filter ::= nil | named | fn | (OP OP1 [OP2])
@@ -392,7 +404,7 @@ else return nil."
 (_ (funcall fn filter
 
 ;;
-;; Reading filter
+;; *Reading Filter
 ;;
 
 (defvar tablist-filter-edit-history nil)

[nongnu] branch elpa/pdf-tools created (now 5f77dae)

[Philip Kaludercic]

zge pushed a change to branch elpa/pdf-tools.

at  5f77dae   define-minor-mode: Remove support for obsolete pos 
arguments

This branch includes the following new commits:

   new  c467c2f   Initial commit.
   new  ff95966   Added licenses
   new  eadd36f   Renamed README
   new  fb060cf   More prerequisites
   new  89c46c0   Enabled tool-bar by default
   new  3edb531   Fixed README renaming
   new  cd91a06   Added tests and fixed some lisp dependencies.
   new  1c497a1   Set version to devel.
   new  30c52c4   Set version to devel.
   new  19289d1   Prereq. is Emacs 24
   new  7201d5a   Added ability to log errors.
   new  5cb2ad5   + Added new variable pdf-isearch-filter-matches-function 
+ Made pdf-util-cache-clear also clear the image cache
   new  6eb70c4   Added isearching links.
   new  f00c971   + Added 2 edge intersection functions. + Clear image 
cache in when clearing files. + New function pdf-util-cache-files
   new  e14ae7c   n/a
   new  ceb74c9   + Added size-indication mode. + Added docview buffer test 
functions.
   new  e30ec61   Require pdf-isearch
   new  67a2027   *** empty log message ***
   new  bcd859d   Added reading annotation support. Added more 
documentation.
   new  094be60   Changed outputting metadata dates to ctime.
   new  89f2797   Fixed type error.
   new  ba5a6cc   Revert "Fixed type error."
   new  f5c1ab3   Revert "Changed outputting metadata dates to ctime."
   new  64be9f3   Revert "Revert "Changed outputting metadata dates to 
ctime.""
   new  8cfd2be   Revert "Revert "Fixed type error.""
   new  2fc7544   Add aux.
   new  aebfe5f   Adjust for new time format.
   new  6b2ab99   Fixed time output.
   new  5bb898b   Renamed pdf-util-pdf-image-size -> 
pdf-util-png-image-size. Made it return nil, instead of error and made it work.
   new  bab2b74   Renamed pdf-util-pdf-image-size -> 
pdf-util-png-image-size. Made it return nil, instead of error and made it work.
   new  6dbd434   Fix import.
   new  c0269d8   Removed PDF buffer assertions from non-interactive 
functions. Streamlined function pdf-util-save-window-scroll.
   new  fd79841   Renamed pdf-util-intersection-* functions. Moved 
functions around.
   new  13d68e3   General render/reconvert library.
   new  8a13c24   Completed renaming pdf-utils-intersection-*.
   new  089dbdc   New minor mode pdf-misc-auto-fit. Changed default margin 
to 50.
   new  94213a9   Moved pdf-util-after-change-page-hook here.
   new  3f1d14d   Changed pdf-links to use pdf-render.
   new  014c3cc   *** empty log message ***
   new  8634784   *** empty log message ***
   new  f887b12   Use single buffer local tempfile.
   new  4e46d1a   Check current buffer.
   new  aba1589   Added bugfix for imenu from trunk.
   new  6963e3f   Simplyfied the render api for now.
   new  c9629bc   Simplyfied the render api for now. Streamlined some 
functions.
   new  52ab557   Started a multipage mode.
   new  07156d1   *** empty log message ***
   new  6908919   *** empty log message ***
   new  5869cb5   Added support for commands getannots,getannot-by-key and 
features . Commented questionable hotfix about poppler printing error messages 
to stdout.
   new  1a38de9   Added support for commands getannots,getannot-by-key and 
features, part 2.
   new  12ad8f1   *** empty log message ***
   new  fbaea24   *** empty log message ***
   new  caba82c   *** empty log message ***
   new  fd1c879   *** empty log message ***
   new  e66e057   *** empty log message ***
   new  ce95873   ..
   new  e02d3b2   ..
   new  77ac801   ..
   new  e52bafd   *** empty log message ***
   new  ba4e267   *** empty log message ***
   new  0fe9867   *** empty log message ***
   new  daf5da1   *** empty log message ***
   new  c04d742   *** empty log message ***
   new  96d4ae5   *** empty log message ***
   new  0892d4f   *** empty log message ***
   new  9064f83   *** empty log message ***
   new  9b93f3c   *** empty log message ***
   new  c5ffd0a   Move window functions here.
   new  65274ab   Deleted.
   new  283a5fe   Removed sorted insert of annotations.  Do this on demand 
in lisp.
   new  2450ef0   Bumped min. poppler version to 0.16
   new  aea9a81   Removed unused code.
   new  2030670   Completed version bumping.
   new  e36b541   *** empty log message ***
   new  31b8da2   *** empty log message ***
   new  b296450   *** empty log message ***
   new  b3f3be3   *** empty log message ***
   new  ad5df26   *** empty log message ***
   new  e186910   Fixed compiler warnings.
   new  b19baa8   Merged pdf-attach into pdf-annot and thus resolved the 
circular dependency.
   new  c2f56c0   Removed unused variable.
   new  08181b0   Initial comm

[nongnu] branch elpa/geiser created (now 4099dce)

[Philip Kaludercic]

zge pushed a change to branch elpa/geiser.

at  4099dce   Documentation nit

This branch includes the following new commits:

   new  e6824be   It all begins with an empty tree
   new  22542ce   License file
   new  5c83238   Emacs startup file
   new  9b4016c   Elisp utilities (mostly imported from FUEL).
   new  be3be2b   Basic Guile/Emacs connection and evaluation working.
   new  24ee487   Better error presentation.
   new  96f3def   Fixes for Elisp/Scheme translations.
   new  27e2174   Capturing output of scheme evaluations
   new  be3ac19   Basic region/definition/sexp evaluation and autodoc mode 
working.
   new  eda610d   Better argument position detection in autodoc.
   new  279a07e   Don't echo any autodoc info when arity is not available.
   new  8190670   Better bindings for M-p, M-n in geiser repl.
   new  4e16a7a   Better preparation of Scheme results for the Elisp reader.
   new  72044e7   GEISER-SETUP function activating geiser-mode in scheme 
files.
   new  1e74164   TAB-completion for symbols in Scheme and REPL buffers.
   new  522f145   Optionally show procedure modules in autodoc.
   new  561be1f   Small fix for '() argument position reporting.
   new  690c7fb   Sort completion list in scheme's side.
   new  36ac636   Multi-level form arity recognition in autodoc.
   new  c9f658f   Guile scheme files moved to scheme/guile.
   new  b44d830   Compile file.
   new  5b5234f   * scheme/guile/geiser/eval.scm: load file after 
compilation.
   new  6f70f87   Load file commands.
   new  15fd33f   README stuff.
   new  bfd6b0f   Don't let (ice-9 history) confuse the evaluator.
   new  8dd0179   Edit symbol at point for programs.
   new  65d76d0   Faster M-.
   new  8e50320   Better arg lists.
   new  4ba2141   Faster, asynchronous autodoc.
   new  cfd1fdc   Small improvements.
   new  93b51a8   Small autodoc fixes.
   new  11a64e7   New command to get docstrings (C-cC-d).
   new  740a937   Autodoc: try symbol at point first. Some cleanups.
   new  678e21c   Fleshing out the README.
   new  18943b0   Recognise empty doc string in Emacs side. Small 
refactorings.
   new  5f34ef4   Initial support for module name completion.
   new  8d137f9   Smart tab completion mode.
   new  9df5971   Avoing REPL modeline message flickering on redirection.
   new  90cab86   Nits.
   new  dba34f8   New command: module documentation.
   new  f574939   New command to open module file.
   new  4814d02   Separate commands for evaluation and compilation.
   new  29eaa9f   Better symbol documentation.
   new  5fe4bbd   Document browser improvements: history and links.
   new  a5426c2   (geiser eval) functionality moved to (geiser emacs).
   new  850964a   Allow loading of a initialisation file (akin to ~/.guile, 
named ~/.guile-geiser by default).
   new  7a3d1f8   Offer also local bindings as possible completions in 
M-TAB.
   new  3b9b06b   Capture backtrace. Fix load/compile from Emacs.
   new  540a2cb   Correct stack in load/compile file retorts.
   new  8bf2c57   Partial support for stack trace display.
   new  867774c   Compilation mode working on dbg buffers.
   new  8f76cb3   Spurious geiser-debug-mode key mode map deleted.
   new  73af62c   Smart tab is not enabled by default; module completion 
bound to C-.
   new  87f338d   Missing require.
   new  ff2aa21   Fix for smart-tab-mode.
   new  5353769   Missing require.
   new  03762c6   Autoloads for customization groups.
   new  76bcf01   Variable controlling geiser-autodoc-mode in REPL (on by 
default).
   new  6100a2e   Autodoc system revamped.
   new  770937b   Font lock for autodoc's function name.
   new  be1f88d   Delete, don't kill, region.
   new  af446e1   Persistent REPL history.
   new  5e55181   Autodoc working in the REPL (again).
   new  9186ce4   Simpler handling of rest args in Emacs' side.
   new  0e5a509   Fix scanning partial sexps in presence of quotations &co.
   new  8563be5   Refactoring: local bindings discovery moved to schemeland.
   new  ee0d020   Display (quote foo) as 'foo in autodoc strings.
   new  40a3641   Miscellaneous little fixes.
   new  85c8afb   Fix for autodoc when point in a rest formal arg in define.
   new  7e5f31f   Completion for symbols without enclosing sexp in scheme 
buffers.
   new  db726f7   More precise argument position highlighting in autodoc.
   new  8a320a4   Completions buffer renamed to *Geiser completions*.
   new  b2ed8a6   Some refactoring and new ge:macroexpand.
   new  89f12f6   Refactoring the refactoring.
   new  cb6dbc1   Macro-expand commands.
   new  b8e5c1e   Fix (again!) completion for symbols outside enclosing 
forms.
   new  09e96c3   Correctly detecting first occurrences of metho

[nongnu] elpa/geiser-chez 1f1ee00 02/37: Clean-up elisp code

[Philip Kaludercic]

branch: elpa/geiser-chez
commit 1f1ee00402edcaad21e471e9f378425284ac3d78
Author: Peter 
Commit: Jose Antonio Ortega Ruiz 

Clean-up elisp code
---
 elisp/geiser-chez.el | 21 -
 1 file changed, 21 deletions(-)

diff --git a/elisp/geiser-chez.el b/elisp/geiser-chez.el
index f75ba2d..56943b8 100644
--- a/elisp/geiser-chez.el
+++ b/elisp/geiser-chez.el
@@ -43,7 +43,6 @@
 (defun geiser-chez--parameters ()
   "Return a list with all parameters needed to start Chez Scheme.
 This function uses `geiser-chez-init-file' if it exists."
-;;  `("--load" ,(expand-file-name "chez/geiser/load.scm" geiser-scheme-dir))
   `(,(expand-file-name "chez/geiser/geiser.ss" geiser-scheme-dir))
   )
 
@@ -71,9 +70,6 @@ This function uses `geiser-chez-init-file' if it exists."
  (let ((form (mapconcat 'identity args " ")))
(format "(geiser:%s %s)" proc form)
 
-;; (defconst geiser-chez--module-re
-;;   ".*;; package: +\\(([^)]*)\\)")
-
 (defun geiser-chez--get-module (&optional module)
   (cond ((null module)
  :f)
@@ -84,16 +80,6 @@ This function uses `geiser-chez-init-file' if it exists."
(error :f)))
 (t :f)))
 
-;; (defun geiser-chez--module-cmd (module fmt &optional def)
-;;   (when module
-;; (let* ((module (geiser-chez--get-module module))
-;;(module (cond ((or (null module) (eq module :f)) def)
-;;  (t (format "%s" module)
-;;   (and module (format fmt module)
-
-;; (defun geiser-chez--enter-command (module)
-;;   (geiser-chez--module-cmd module "(geiser:ge '%s)" "()"))
-
 (defun geiser-chez--symbol-begin (module)
   (if module
   (max (save-excursion (beginning-of-line) (point))
@@ -114,13 +100,9 @@ This function uses `geiser-chez-init-file' if it exists."
(format "%s --version"
(shell-quote-argument binary
 
-;; (defconst geiser-chez--path-rx "^In \\([^:\n ]+\\):\n")
 (defun geiser-chez--startup (remote)
   (let ((geiser-log-verbose-p t))
 (compilation-setup t)
-;; (when (and (stringp geiser-chez-source-directory)
-;;(not (string-empty-p geiser-chez-source-directory)))
-;;   (geiser-eval--send/wait (format 
"(geiser:set-chez-scheme-source-directory %S)" geiser-chez-source-directory)))
 (geiser-eval--send/wait "(begin (import (geiser)) (write `((result ) 
(output . \"\"))) (newline))")))
 
 ;;; Implementation definition:
@@ -147,9 +129,6 @@ This function uses `geiser-chez-init-file' if it exists."
   ;; (case-sensitive geiser-chez-case-sensitive-p)
   )
 
-;; notes: (available-modules) in (chez modules)
-;; (env-exports (module-env (find-module '(scheme char, modules: (meta) 
(chez modules) (chez)
-
 (geiser-impl--add-to-alist 'regexp "\\.ss$" 'chez t)
 (geiser-impl--add-to-alist 'regexp "\\.def$" 'chez t)
 

[nongnu] elpa/geiser-chez 2a7a3f6 01/37: Add preliminary support for Chez Scheme

[Philip Kaludercic]

branch: elpa/geiser-chez
commit 2a7a3f6ee98e88d223a4e5df121791fa3205ec27
Author: Peter 
Commit: Jose Antonio Ortega Ruiz 

Add preliminary support for Chez Scheme
---
 elisp/geiser-chez.el | 157 +++
 scheme/chez/geiser/geiser.ss |  62 +
 2 files changed, 219 insertions(+)

diff --git a/elisp/geiser-chez.el b/elisp/geiser-chez.el
new file mode 100644
index 000..f75ba2d
--- /dev/null
+++ b/elisp/geiser-chez.el
@@ -0,0 +1,157 @@
+;; geiser-chez.el -- Chez Scheme's implementation of the geiser protocols
+
+;; This program is free software; you can redistribute it and/or
+;; modify it under the terms of the Modified BSD License. You should
+;; have received a copy of the license along with this program. If
+;; not, see .
+
+(require 'geiser-connection)
+(require 'geiser-syntax)
+(require 'geiser-custom)
+(require 'geiser-base)
+(require 'geiser-eval)
+(require 'geiser-edit)
+(require 'geiser-log)
+(require 'geiser)
+
+(require 'compile)
+(require 'info-look)
+
+(eval-when-compile (require 'cl))
+
+
+;;; Customization:
+
+(defgroup geiser-chez nil
+  "Customization for Geiser's Chez Scheme flavour."
+  :group 'geiser)
+
+(geiser-custom--defcustom geiser-chez-binary
+"chez-scheme"
+  "Name to use to call the Chez Scheme executable when starting a REPL."
+  :type '(choice string (repeat string))
+  :group 'geiser-chez)
+
+
+;;; REPL support:
+
+(defun geiser-chez--binary ()
+  (if (listp geiser-chez-binary)
+  (car geiser-chez-binary)
+geiser-chez-binary))
+
+(defun geiser-chez--parameters ()
+  "Return a list with all parameters needed to start Chez Scheme.
+This function uses `geiser-chez-init-file' if it exists."
+;;  `("--load" ,(expand-file-name "chez/geiser/load.scm" geiser-scheme-dir))
+  `(,(expand-file-name "chez/geiser/geiser.ss" geiser-scheme-dir))
+  )
+
+(defconst geiser-chez--prompt-regexp "> ")
+
+
+;;; Evaluation support:
+
+(defun geiser-chez--geiser-procedure (proc &rest args)
+  (case proc
+((eval compile)
+ (let ((form (mapconcat 'identity (cdr args) " "))
+   (module (cond ((string-equal "'()" (car args))
+  "'()")
+ ((and (car args))
+ (concat "'" (car args)))
+ (t
+  "#f"
+   (format "(geiser:eval %s '%s)" module form)))
+((load-file compile-file)
+ (format "(geiser:load-file %s)" (car args)))
+((no-values)
+ "(geiser:no-values)")
+(t
+ (let ((form (mapconcat 'identity args " ")))
+   (format "(geiser:%s %s)" proc form)
+
+;; (defconst geiser-chez--module-re
+;;   ".*;; package: +\\(([^)]*)\\)")
+
+(defun geiser-chez--get-module (&optional module)
+  (cond ((null module)
+ :f)
+((listp module) module)
+((stringp module)
+ (condition-case nil
+ (car (geiser-syntax--read-from-string module))
+   (error :f)))
+(t :f)))
+
+;; (defun geiser-chez--module-cmd (module fmt &optional def)
+;;   (when module
+;; (let* ((module (geiser-chez--get-module module))
+;;(module (cond ((or (null module) (eq module :f)) def)
+;;  (t (format "%s" module)
+;;   (and module (format fmt module)
+
+;; (defun geiser-chez--enter-command (module)
+;;   (geiser-chez--module-cmd module "(geiser:ge '%s)" "()"))
+
+(defun geiser-chez--symbol-begin (module)
+  (if module
+  (max (save-excursion (beginning-of-line) (point))
+   (save-excursion (skip-syntax-backward "^(>") (1- (point
+(save-excursion (skip-syntax-backward "^'-()>") (point
+
+(defun geiser-chez--import-command (module)
+  (format "(import %s)" module))
+
+(defun geiser-chez--exit-command () "(exit 0)")
+;; 
+;; ;;; REPL startup
+
+(defconst geiser-chez-minimum-version "9.4")
+
+(defun geiser-chez--version (binary)
+  (shell-command-to-string
+   (format "%s --version"
+   (shell-quote-argument binary
+
+;; (defconst geiser-chez--path-rx "^In \\([^:\n ]+\\):\n")
+(defun geiser-chez--startup (remote)
+  (let ((geiser-log-verbose-p t))
+(compilation-setup t)
+;; (when (and (stringp geiser-chez-source-directory)
+;;(not (string-empty-p geiser-chez-source-directory)))
+;;   (geiser-eval--send/wait (format 
"(geiser:set-chez-scheme-source-directory %S)" geiser-chez-source-directory)))
+(geiser-eval--send/wait "(begin (import (geiser)) (write `((result ) 
(output . \"\"))) (newline))")))
+
+;;; Implementation definition:
+
+(define-geiser-implementation chez
+  (binary geiser-chez--binary)
+  (arglist geiser-chez--parameters)
+  (version-command geiser-chez--version)
+  (minimum-version geiser-chez-minimum-version)
+  (repl-startup geiser-chez--startup)
+  (prompt-regexp geiser-chez--prompt-regexp)
+  (debugger-prompt-regexp nil) ;; geiser-chez--debugger-prompt-regexp
+  ;; (ente

[nongnu] elpa/geiser-chez ab13b7f 03/37: Chez: add rudimentary autodoc support

[Philip Kaludercic]

branch: elpa/geiser-chez
commit ab13b7ff828f1f510f66f1b5d712e03a42b85ac0
Author: Peter 
Commit: Jose Antonio Ortega Ruiz 

Chez: add rudimentary autodoc support
---
 scheme/chez/geiser/geiser.ss | 49 +++-
 1 file changed, 48 insertions(+), 1 deletion(-)

diff --git a/scheme/chez/geiser/geiser.ss b/scheme/chez/geiser/geiser.ss
index 3dbed7f..2fa648c 100644
--- a/scheme/chez/geiser/geiser.ss
+++ b/scheme/chez/geiser/geiser.ss
@@ -52,8 +52,55 @@
   (substring? prefix el))
 (map write-to-string (library-list
 
+  (define (procedure-parameter-list p)
+;; same as (inspect object), then hitting c
+(let ((s (((inspect/object p) 'code) 'source)))
+  (if s
+  (let ((form (s 'value)))
+(if (and (list? form)
+ (> (length form) 2)
+ (eq? (car form) 'lambda))
+(cadr form)
+#f))
+  #f)))
+
+  (define (operator-arglist operator)
+(let ((binding (eval operator)))
+  (if binding
+  (let ((arglist (procedure-parameter-list binding)))
+(let loop ((arglist arglist)
+   (optionals? #f)
+   (required '())
+   (optional '()))
+  (cond ((null? arglist)
+ `(,operator ("args" (("required" ,@(reverse required))
+  ("optional" ,@(reverse optional))
+  ("key")
+  ;; ("module" ,module)
+  
+((symbol? arglist)
+ (loop '()
+   #t
+   required
+   (cons "..." (cons arglist optional
+(else
+ (loop
+  (cdr arglist)
+  optionals?
+  (if optionals? required (cons (car arglist) required))
+  (if optionals? (cons (car arglist) optional) 
optional))
+  '(
+
   (define (geiser:autodoc ids . rest)
-'())
+(cond ((null? ids) '())
+  ((not (list? ids))
+   (geiser:autodoc (list ids)))
+  ((not (symbol? (car ids)))
+   (geiser:autodoc (cdr ids)))
+  (else
+   (map (lambda (id)
+  (operator-arglist id))
+ids
 
   (define (geiser:no-values)
 #f)

[nongnu] branch elpa/geiser-chez created (now 03da1c1)

[Philip Kaludercic]

zge pushed a change to branch elpa/geiser-chez.

at  03da1c1   Use new implementation extension declarator

This branch includes the following new commits:

   new  2a7a3f6   Add preliminary support for Chez Scheme
   new  1f1ee00   Clean-up elisp code
   new  ab13b7f   Chez: add rudimentary autodoc support
   new  e4c15a7   fix call the chez scheme executable.
   new  2fb484b   Use (car (process-lines ...)) instead of (shell-command 
...)
   new  1bb0a87   Handle exceptions of ChezScheme and multi-value as well
   new  993b630   Alway pretty-print for results
   new  6a83bee   rewritten geiser:eval to fix the following bug:
   new  e038c28   more reduction on geiser:eval, add test
   new  6eb6a92   simple geiser-chez--display-error
   new  a5a6176   fix compile and load for chez
   new  6b9b733   Add geiser-chez-init-file
   new  2d682c0   fix for geiser-chez-parameters
   new  7bc8f62   Capture stdout in ChezScheme's eval:geiser
   new  a0f6fc3   Add rudimentary Chez support for macro expansion
   new  352515c   Begin the summary lines of all elisp libraries with three 
semicolons
   new  591c794   Mark the beginning of code part of elisp libraries with 
Code: heading
   new  146d4a7   Fix indentation
   new  21bc5bb   Delete trailing whitespace
   new  502b3ac   Use cl-lib instead of cl
   new  755a7cc   add extra parameter support to chez implementation
   new  fcb2a6a   add extra parameter support to chez
   new  086dbba   make chez display output and error messages.
   new  9d66c63   chez: pretty printing macroexpand results.
   new  94296d8   files moved from original import locations
   new  111ecdd   scheme load path adjustments
   new  055e43d   license and readme
   new  98999d7   typo
   new  a2d5fff   make autodoc support the procedure defined by case-lambda.
   new  4fcf6da   add built-in keywords and extra keywords customization
   new  dbebff9   preparing MELPA submission
   new  0c28f4b   Typo
   new  e8065b4   compilation warnings (unused variable)
   new  52b122a   emacs dependency
   new  4cb7f26   fix: auto-activate implementation
   new  fe3d881   whitespace
   new  03da1c1   Use new implementation extension declarator

[nongnu] elpa/geiser-chez e4c15a7 04/37: fix call the chez scheme executable.

[Philip Kaludercic]

branch: elpa/geiser-chez
commit e4c15a770a53576c852e88fe37aea885890c5e9b
Author: izuo 
Commit: Jose Antonio Ortega Ruiz 

fix call the chez scheme executable.
---
 elisp/geiser-chez.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/elisp/geiser-chez.el b/elisp/geiser-chez.el
index 56943b8..1793cfd 100644
--- a/elisp/geiser-chez.el
+++ b/elisp/geiser-chez.el
@@ -27,7 +27,7 @@
   :group 'geiser)
 
 (geiser-custom--defcustom geiser-chez-binary
-"chez-scheme"
+"scheme"
   "Name to use to call the Chez Scheme executable when starting a REPL."
   :type '(choice string (repeat string))
   :group 'geiser-chez)
@@ -133,4 +133,3 @@ This function uses `geiser-chez-init-file' if it exists."
 (geiser-impl--add-to-alist 'regexp "\\.def$" 'chez t)
 
 (provide 'geiser-chez)
-

[nongnu] elpa/geiser-chez 1bb0a87 06/37: Handle exceptions of ChezScheme and multi-value as well

[Philip Kaludercic]

branch: elpa/geiser-chez
commit 1bb0a878513ffeac666205b96b92174323322eae
Author: Chaos Eternal 
Commit: Chaos Eternal 

Handle exceptions of ChezScheme and multi-value as well

- Capture exceptions of ChezScheme
- handles multi-value return
---
 scheme/chez/geiser/geiser.ss | 31 +++
 1 file changed, 27 insertions(+), 4 deletions(-)

diff --git a/scheme/chez/geiser/geiser.ss b/scheme/chez/geiser/geiser.ss
index 2fa648c..6568120 100644
--- a/scheme/chez/geiser/geiser.ss
+++ b/scheme/chez/geiser/geiser.ss
@@ -30,11 +30,34 @@
 
   (define (geiser:eval module form . rest)
 rest
-(let ((result (if module
-  (eval form (environment module))
-  (eval form
+(let* ((try-eval (lambda (x . y)
+  (call/cc
+   (lambda (k)
+ (with-exception-handler
+ (lambda (e)
+   (k e))
+   (lambda () 
+   (if (null? y) (eval x)
+   (eval x (car y)))
+   ))
+  (result-mid (call-with-values
+  (lambda () (if module
+ (try-eval form (environment module))
+ (try-eval form)))
+(lambda (x . y)
+  (if (null? y)
+  x
+  (cons x y)
+  (result result-mid)
+  (error (if (condition? result-mid)
+ (cons 'error (list
+   (cons 'key
+ (with-output-to-string
+   (lambda () (display-condition 
result-mid))
+ '(
   (write `((result ,(write-to-string result))
-   (output . "")))
+   (output . "")
+  ,error))
   (newline)))
 
   (define (geiser:module-completions prefix . rest)

[nongnu] elpa/geiser-chez 591c794 17/37: Mark the beginning of code part of elisp libraries with Code: heading

[Philip Kaludercic]

branch: elpa/geiser-chez
commit 591c794e828ed2d8a3211a3e152ea3bf8858ba0e
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Mark the beginning of code part of elisp libraries with Code: heading

It's the convention and by following it we make a big step towards
supporting outline navigation.

The convention doesn't say much about what parts of the code are
supposed to be part of that sections and what parts belong in a
subsequent section.  Here we put the `require' forms in this section
and maybe some setup code, that's a popular approach.

In most cases there was "" where we now insert "Code:".  They both
serve a similar purpose and we keep the former because some users
depend on that for navigation.  We even add this "" in libraries
where it previously was missing.

In some cases the permission statement was followed by a commentary,
which obviously does not belong in the "Code:" section.  In such cases
add the conventional "Commentary:" section.
---
 elisp/geiser-chez.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/elisp/geiser-chez.el b/elisp/geiser-chez.el
index 601cc6f..8eabae6 100644
--- a/elisp/geiser-chez.el
+++ b/elisp/geiser-chez.el
@@ -5,6 +5,9 @@
 ;; have received a copy of the license along with this program. If
 ;; not, see .
 
+
+;;; Code:
+
 (require 'geiser-connection)
 (require 'geiser-syntax)
 (require 'geiser-custom)

[nongnu] elpa/geiser-chez 993b630 07/37: Alway pretty-print for results

[Philip Kaludercic]

branch: elpa/geiser-chez
commit 993b63096a0b1b40e51fd0133d32998867f54b81
Author: Chaos Eternal 
Commit: Chaos Eternal 

Alway pretty-print for results
---
 scheme/chez/geiser/geiser.ss | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/scheme/chez/geiser/geiser.ss b/scheme/chez/geiser/geiser.ss
index 6568120..e833e47 100644
--- a/scheme/chez/geiser/geiser.ss
+++ b/scheme/chez/geiser/geiser.ss
@@ -55,7 +55,9 @@
  (with-output-to-string
(lambda () (display-condition 
result-mid))
  '(
-  (write `((result ,(write-to-string result))
+  (write `((result ,(with-output-to-string
+ (lambda ()
+   (pretty-print result
(output . "")
   ,error))
   (newline)))

[nongnu] elpa/geiser-chez 2fb484b 05/37: Use (car (process-lines ...)) instead of (shell-command ...)

[Philip Kaludercic]

branch: elpa/geiser-chez
commit 2fb484bac916304c255580fcb9feb3b9cc771ac3
Author: Jordan Brown 
Commit: Jose Antonio Ortega Ruiz 

Use (car (process-lines ...)) instead of (shell-command ...)

`shell-command` assumes Bourne-shell-compatible quoting, which
doesn't work when the user isn't using a Bourne-compatible shell.

Instead of futzing about with quoting, we can just use `process-lines`
to execute a process and pass it arguments directly.
---
 elisp/geiser-chez.el | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/elisp/geiser-chez.el b/elisp/geiser-chez.el
index 1793cfd..17b6c8d 100644
--- a/elisp/geiser-chez.el
+++ b/elisp/geiser-chez.el
@@ -96,9 +96,7 @@ This function uses `geiser-chez-init-file' if it exists."
 (defconst geiser-chez-minimum-version "9.4")
 
 (defun geiser-chez--version (binary)
-  (shell-command-to-string
-   (format "%s --version"
-   (shell-quote-argument binary
+  (car (process-lines binary "--version")))
 
 (defun geiser-chez--startup (remote)
   (let ((geiser-log-verbose-p t))

[nongnu] elpa/geiser-chez 6eb6a92 10/37: simple geiser-chez--display-error

[Philip Kaludercic]

branch: elpa/geiser-chez
commit 6eb6a92d5178e73c5097e9166b29a6b88910c823
Author: Chaos Eternal 
Commit: Chaos Eternal 

simple geiser-chez--display-error
---
 elisp/geiser-chez.el | 5 -
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/elisp/geiser-chez.el b/elisp/geiser-chez.el
index 17b6c8d..2bd45f1 100644
--- a/elisp/geiser-chez.el
+++ b/elisp/geiser-chez.el
@@ -102,6 +102,9 @@ This function uses `geiser-chez-init-file' if it exists."
   (let ((geiser-log-verbose-p t))
 (compilation-setup t)
 (geiser-eval--send/wait "(begin (import (geiser)) (write `((result ) 
(output . \"\"))) (newline))")))
+
+(defun geiser-chez--display-error (module key msg)
+  (and key (message key) nil))
 
 ;;; Implementation definition:
 
@@ -120,7 +123,7 @@ This function uses `geiser-chez-init-file' if it exists."
   (exit-command geiser-chez--exit-command)
   (import-command geiser-chez--import-command)
   (find-symbol-begin geiser-chez--symbol-begin)
-  ;; (display-error geiser-chez--display-error)
+  (display-error geiser-chez--display-error)
   ;; (external-help geiser-chez--manual-look-up)
   ;; (check-buffer geiser-chez--guess)
   ;; (keywords geiser-chez--keywords)

[nongnu] elpa/geiser-chez a5a6176 11/37: fix compile and load for chez

[Philip Kaludercic]

branch: elpa/geiser-chez
commit a5a617648a445ff323bc7c832786769782d8c45c
Author: Maris Orbidans 
Commit: Maris Orbidans 

fix compile and load for chez
---
 elisp/geiser-chez.el |  2 +-
 scheme/chez/geiser/geiser.ss | 17 +
 2 files changed, 18 insertions(+), 1 deletion(-)

diff --git a/elisp/geiser-chez.el b/elisp/geiser-chez.el
index 2bd45f1..ff75e5a 100644
--- a/elisp/geiser-chez.el
+++ b/elisp/geiser-chez.el
@@ -104,7 +104,7 @@ This function uses `geiser-chez-init-file' if it exists."
 (geiser-eval--send/wait "(begin (import (geiser)) (write `((result ) 
(output . \"\"))) (newline))")))
 
 (defun geiser-chez--display-error (module key msg)
-  (and key (message key) nil))
+  (and key (message msg) nil))
 
 ;;; Implementation definition:
 
diff --git a/scheme/chez/geiser/geiser.ss b/scheme/chez/geiser/geiser.ss
index 8b9aba7..38bc68f 100644
--- a/scheme/chez/geiser/geiser.ss
+++ b/scheme/chez/geiser/geiser.ss
@@ -4,9 +4,26 @@
   geiser:module-completions
   geiser:autodoc
   geiser:no-values
+ geiser:load-file
   geiser:newline)
   (import (chezscheme))
 
+  (define (last-index-of str-list char idx last-idx)
+(if (null? str-list)
+   last-idx
+   (last-index-of (cdr str-list) char (+ 1 idx) (if (char=? char (car 
str-list)) idx last-idx
+
+  (define (obj-file-name name)
+(let ((idx (last-index-of (string->list name) #\. 0 -1)))
+  (if (= idx -1)
+ (string-append name ".so")
+ (string-append (substring name 0 idx) ".so"
+
+  (define (geiser:load-file filename)
+(let ((output-filename (obj-file-name filename)))
+  (maybe-compile-file filename output-filename)
+  (load output-filename)))
+
   (define string-prefix?
 (lambda (x y)
   (let ([n (string-length x)])

[nongnu] elpa/geiser-chez fcb2a6a 22/37: add extra parameter support to chez

[Philip Kaludercic]

branch: elpa/geiser-chez
commit fcb2a6ab8d1bd37ed36030d6e9cc81388761c465
Author: julian herrera 
Commit: julian herrera 

add extra parameter support to chez
---
 elisp/geiser-chez.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/elisp/geiser-chez.el b/elisp/geiser-chez.el
index 6749290..9a24a72 100644
--- a/elisp/geiser-chez.el
+++ b/elisp/geiser-chez.el
@@ -40,7 +40,7 @@
   :type 'string
   :group 'geiser-chez)
 
-(geiser-custom--defcustom geiser-chez-extra-command-line-parameters '("")
+(geiser-custom--defcustom geiser-chez-extra-command-line-parameters '()
   "Additional parameters to supply to the Chez binary."
   :type '(repeat string)
   :group 'geiser-chez)

[nongnu] elpa/geiser-chez 146d4a7 18/37: Fix indentation

[Philip Kaludercic]

branch: elpa/geiser-chez
commit 146d4a70df9ea6ca264899a5f0c0a5bb3cf7463f
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Fix indentation
---
 elisp/geiser-chez.el |  2 +-
 scheme/chez/geiser/geiser.ss | 10 +-
 scheme/chez/geiser/test.ss   | 10 +-
 3 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/elisp/geiser-chez.el b/elisp/geiser-chez.el
index 8eabae6..c1bdde7 100644
--- a/elisp/geiser-chez.el
+++ b/elisp/geiser-chez.el
@@ -68,7 +68,7 @@ This function uses `geiser-chez-init-file' if it exists."
(module (cond ((string-equal "'()" (car args))
   "'()")
  ((and (car args))
- (concat "'" (car args)))
+  (concat "'" (car args)))
  (t
   "#f"
(format "(geiser:eval %s '%s)" module form)))
diff --git a/scheme/chez/geiser/geiser.ss b/scheme/chez/geiser/geiser.ss
index 5c92a5b..70313ab 100644
--- a/scheme/chez/geiser/geiser.ss
+++ b/scheme/chez/geiser/geiser.ss
@@ -4,21 +4,21 @@
   geiser:module-completions
   geiser:autodoc
   geiser:no-values
- geiser:load-file
+  geiser:load-file
   geiser:newline
   geiser:macroexpand)
   (import (chezscheme))
 
   (define (last-index-of str-list char idx last-idx)
 (if (null? str-list)
-   last-idx
-   (last-index-of (cdr str-list) char (+ 1 idx) (if (char=? char (car 
str-list)) idx last-idx
+last-idx
+(last-index-of (cdr str-list) char (+ 1 idx) (if (char=? char (car 
str-list)) idx last-idx
 
   (define (obj-file-name name)
 (let ((idx (last-index-of (string->list name) #\. 0 -1)))
   (if (= idx -1)
- (string-append name ".so")
- (string-append (substring name 0 idx) ".so"
+  (string-append name ".so")
+  (string-append (substring name 0 idx) ".so"
 
   (define (geiser:load-file filename)
 (let ((output-filename (obj-file-name filename)))
diff --git a/scheme/chez/geiser/test.ss b/scheme/chez/geiser/test.ss
index 21f3396..a0259e1 100644
--- a/scheme/chez/geiser/test.ss
+++ b/scheme/chez/geiser/test.ss
@@ -1,5 +1,5 @@
 (import (geiser)
-   (chezscheme))
+(chezscheme))
 
 (define-syntax assert-equal
   (syntax-rules ()
@@ -77,10 +77,10 @@
 ;;[(x1 x2 x3) (+ (+ x1 x2) x3)]
 ;;[(x1 x2 . rest)
 ;; ((letrec ([loop (lambda (x1 x2 rest)
-;;   (let ([x (+ x1 x2)])
-;; (if (null? rest)
-;; x
-;; (loop x (car rest) (cdr rest)])
+;;(let ([x (+ x1 x2)])
+;;  (if (null? rest)
+;;  x
+;;  (loop x (car rest) (cdr rest)])
 ;;loop)
 ;;  x1
 ;;  x2

[nongnu] elpa/geiser-chez e038c28 09/37: more reduction on geiser:eval, add test

[Philip Kaludercic]

branch: elpa/geiser-chez
commit e038c289b15d6895c78d7694c12e75129bd2f4aa
Author: Chaos Eternal 
Commit: Chaos Eternal 

more reduction on geiser:eval, add test
---
 scheme/chez/geiser/geiser.ss | 58 +---
 scheme/chez/geiser/test.ss   | 90 
 2 files changed, 117 insertions(+), 31 deletions(-)

diff --git a/scheme/chez/geiser/geiser.ss b/scheme/chez/geiser/geiser.ss
index ca50295..8b9aba7 100644
--- a/scheme/chez/geiser/geiser.ss
+++ b/scheme/chez/geiser/geiser.ss
@@ -34,37 +34,33 @@
   (if module
   (eval form (environment module))
   (eval form
-  (result-mid (call-with-values
-  (lambda ()
-(call/cc
- (lambda (k)
-   (with-exception-handler
-   (lambda (e)
- (k 'error e))
- (lambda ()
-   (call-with-values
-   (lambda ()
- (body))
- (lambda (x . y)
-   (if (null? y)
-   (k 'single x)
-   (k 'multi (cons x y))
-(lambda (t v)
-  (cons t v
-  (result (if (eq? (car result-mid) 'error)
-  ""
-  (with-output-to-string
-(lambda ()
-  (pretty-print (cdr result-mid))
-  (error (if (eq? (car result-mid) 'error)
- (cons 'error (list
-   (cons 'key
- (with-output-to-string
-   (lambda () (display-condition (cdr 
result-mid)))
- '(
-  (write `((result ,result)
-  (output . "")
-  ,error))
+  (gen-result (lambda (result-mid is-error?)
+(if is-error?
+`((result "")
+  (output . "")
+  (error . ,(list
+   (cons 'key
+ (with-output-to-string
+   (lambda ()
+ (display-condition 
result-mid)))
+`((result ,(with-output-to-string
+ (lambda ()
+   (pretty-print result-mid
+  (output . "")
+  (result (call/cc
+   (lambda (k)
+ (with-exception-handler
+ (lambda (e)
+   (k (gen-result e #t)))
+   (lambda ()
+ (call-with-values
+ (lambda ()
+   (body))
+   (lambda (x . y)
+ (if (null? y)
+ (k (gen-result x #f))
+ (k (gen-result (cons x y) #f)))
+  (write result)
   (newline)))
 
   (define (geiser:module-completions prefix . rest)
diff --git a/scheme/chez/geiser/test.ss b/scheme/chez/geiser/test.ss
new file mode 100644
index 000..ac5503b
--- /dev/null
+++ b/scheme/chez/geiser/test.ss
@@ -0,0 +1,90 @@
+(import (geiser)
+   (chezscheme))
+
+
+(define-syntax get-result
+  (syntax-rules ()
+((_ form)
+ (with-output-to-string
+   (lambda ()
+(geiser:eval #f form))
+
+(define-syntax do-test
+  (syntax-rules ()
+((_ form result)
+ (assert
+  (equal?
+   (get-result form)
+   result)
+
+;; (something-doesnot-exist)
+;;=> Error: Exception: variable something-doesnot-exist is not bound
+(do-test
+ '(something-doesnot-exist)
+ "((result \"\") (output . \"\") (error (key . \"Exception: variable 
something-doesnot-exist is not bound\")))\n"
+ )
+
+;; (make-violation)
+;;=> #
+(do-test
+ '(make-violation) 
+ "((result \"#\\n\") (output . \"\"))\n")
+
+;; (values 1 2 3)
+;;==> (1 2 3)
+(do-test
+ '(values 1 2 3)
+ "((result \"(1 2 3)\\n\") (output . \"\"))\n")
+
+;; 1
+;;=> 1
+(do-test '1 "((result \"1\\n\") (output . \"\"))\n")
+
+
+;; '(case-lambda
+;;[(x1 x2) (+ x1 x2)]
+;;[(x1 x2 x3) (+ (+ x1 x2) x3)]
+;;[(x1 x2 . rest)
+;; ((letrec ([loop (lambda (x1 x2 rest)
+;;   (let ([x (+ x1 x2)])
+;; (if (null? rest)
+;; x
+;; (loop x (car rest) (cdr rest)])
+;;loop)
+;;  x1
+;;  x2
+;;  

[nongnu] elpa/geiser-chez 94296d8 25/37: files moved from original import locations

[Philip Kaludercic]

branch: elpa/geiser-chez
commit 94296d8dcfb46812bb142e4fb6a41e9bc810d287
Author: jao 
Commit: jao 

files moved from original import locations
---
 elisp/geiser-chez.el => geiser-chez.el | 0
 {scheme/chez => src}/geiser/geiser.ss  | 0
 {scheme/chez => src}/geiser/test.ss| 0
 3 files changed, 0 insertions(+), 0 deletions(-)

diff --git a/elisp/geiser-chez.el b/geiser-chez.el
similarity index 100%
rename from elisp/geiser-chez.el
rename to geiser-chez.el
diff --git a/scheme/chez/geiser/geiser.ss b/src/geiser/geiser.ss
similarity index 100%
rename from scheme/chez/geiser/geiser.ss
rename to src/geiser/geiser.ss
diff --git a/scheme/chez/geiser/test.ss b/src/geiser/test.ss
similarity index 100%
rename from scheme/chez/geiser/test.ss
rename to src/geiser/test.ss

[nongnu] elpa/geiser-chez 21bc5bb 19/37: Delete trailing whitespace

[Philip Kaludercic]

branch: elpa/geiser-chez
commit 21bc5bbd8c3a8defecc74d669bbcef7b2c86af15
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Delete trailing whitespace
---
 scheme/chez/geiser/test.ss | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/scheme/chez/geiser/test.ss b/scheme/chez/geiser/test.ss
index a0259e1..2407448 100644
--- a/scheme/chez/geiser/test.ss
+++ b/scheme/chez/geiser/test.ss
@@ -58,7 +58,7 @@
 ;; (make-violation)
 ;;=> #
 (do-test
- '(make-violation) 
+ '(make-violation)
  "((result \"#\\n\") (output . \"\"))\n")
 
 ;; (values 1 2 3)
@@ -118,4 +118,3 @@
  rest)]
   [(x1) (+ x1)]
   [() (+)])) "((result \"(case-lambda\\n  [(x1 x2) (+ x1 x2)]\\n  [(x1 x2 x3) 
(+ (+ x1 x2) x3)]\\n  [(x1 x2 . rest)\\n   ((letrec ([loop (lambda (x1 x2 
rest)\\n (let ([x (+ x1 x2)])\\n   (if 
(null? rest)\\n   x\\n   (loop 
x (car rest) (cdr rest)])\\n  loop)\\n x1\\n x2\\n 
rest)]\\n  [(x1) (+ x1)]\\n  [() (+)])\\n\") (output . \"\"))\n")
-

[nongnu] elpa/geiser-chez 6a83bee 08/37: rewritten geiser:eval to fix the following bug:

[Philip Kaludercic]

branch: elpa/geiser-chez
commit 6a83beef6b949bcc51ae56bff7bdb3acf67ae69b
Author: Chaos Eternal 
Commit: Chaos Eternal 

rewritten geiser:eval to fix the following bug:

when eval (make-violation)
it shall return:  \#
but previous impletement will treat it as an ERROR.
---
 scheme/chez/geiser/geiser.ss | 53 
 1 file changed, 29 insertions(+), 24 deletions(-)

diff --git a/scheme/chez/geiser/geiser.ss b/scheme/chez/geiser/geiser.ss
index e833e47..ca50295 100644
--- a/scheme/chez/geiser/geiser.ss
+++ b/scheme/chez/geiser/geiser.ss
@@ -30,35 +30,40 @@
 
   (define (geiser:eval module form . rest)
 rest
-(let* ((try-eval (lambda (x . y)
-  (call/cc
-   (lambda (k)
- (with-exception-handler
- (lambda (e)
-   (k e))
-   (lambda () 
-   (if (null? y) (eval x)
-   (eval x (car y)))
-   ))
+(let* ((body (lambda ()
+  (if module
+  (eval form (environment module))
+  (eval form
   (result-mid (call-with-values
-  (lambda () (if module
- (try-eval form (environment module))
- (try-eval form)))
-(lambda (x . y)
-  (if (null? y)
-  x
-  (cons x y)
-  (result result-mid)
-  (error (if (condition? result-mid)
+  (lambda ()
+(call/cc
+ (lambda (k)
+   (with-exception-handler
+   (lambda (e)
+ (k 'error e))
+ (lambda ()
+   (call-with-values
+   (lambda ()
+ (body))
+ (lambda (x . y)
+   (if (null? y)
+   (k 'single x)
+   (k 'multi (cons x y))
+(lambda (t v)
+  (cons t v
+  (result (if (eq? (car result-mid) 'error)
+  ""
+  (with-output-to-string
+(lambda ()
+  (pretty-print (cdr result-mid))
+  (error (if (eq? (car result-mid) 'error)
  (cons 'error (list
(cons 'key
  (with-output-to-string
-   (lambda () (display-condition 
result-mid))
+   (lambda () (display-condition (cdr 
result-mid)))
  '(
-  (write `((result ,(with-output-to-string
- (lambda ()
-   (pretty-print result
-   (output . "")
+  (write `((result ,result)
+  (output . "")
   ,error))
   (newline)))
 

[nongnu] elpa/geiser-chez 2d682c0 13/37: fix for geiser-chez-parameters

[Philip Kaludercic]

branch: elpa/geiser-chez
commit 2d682c0ae4963bfc28966cdf9f4544412c846d11
Author: Jose Antonio Ortega Ruiz 
Commit: Jose Antonio Ortega Ruiz 

fix for geiser-chez-parameters
---
 elisp/geiser-chez.el | 7 +++
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/elisp/geiser-chez.el b/elisp/geiser-chez.el
index c6f7130..67b9382 100644
--- a/elisp/geiser-chez.el
+++ b/elisp/geiser-chez.el
@@ -48,11 +48,10 @@
 (defun geiser-chez--parameters ()
   "Return a list with all parameters needed to start Chez Scheme.
 This function uses `geiser-chez-init-file' if it exists."
-  (let ((init-file) (and (stringp geiser-chez-init-file)
- (expand-file-name geiser-chez-init-file)))
+  (let ((init-file (and (stringp geiser-chez-init-file)
+(expand-file-name geiser-chez-init-file
 `(,@(and init-file (file-readable-p init-file) (list init-file))
-  ,(expand-file-name "chez/geiser/geiser.ss" geiser-scheme-dir)))
-  )
+  ,(expand-file-name "chez/geiser/geiser.ss" geiser-scheme-dir
 
 (defconst geiser-chez--prompt-regexp "> ")
 

[nongnu] elpa/geiser-chez 7bc8f62 14/37: Capture stdout in ChezScheme's eval:geiser

[Philip Kaludercic]

branch: elpa/geiser-chez
commit 7bc8f62409b66bdb35b934c632d7fea12a53d636
Author: jitwit 
Commit: jitwit 

Capture stdout in ChezScheme's eval:geiser
---
 scheme/chez/geiser/geiser.ss | 60 +---
 1 file changed, 28 insertions(+), 32 deletions(-)

diff --git a/scheme/chez/geiser/geiser.ss b/scheme/chez/geiser/geiser.ss
index 38bc68f..70b6b67 100644
--- a/scheme/chez/geiser/geiser.ss
+++ b/scheme/chez/geiser/geiser.ss
@@ -47,38 +47,34 @@
 
   (define (geiser:eval module form . rest)
 rest
-(let* ((body (lambda ()
-  (if module
-  (eval form (environment module))
-  (eval form
-  (gen-result (lambda (result-mid is-error?)
-(if is-error?
-`((result "")
-  (output . "")
-  (error . ,(list
-   (cons 'key
- (with-output-to-string
-   (lambda ()
- (display-condition 
result-mid)))
-`((result ,(with-output-to-string
- (lambda ()
-   (pretty-print result-mid
-  (output . "")
-  (result (call/cc
-   (lambda (k)
- (with-exception-handler
- (lambda (e)
-   (k (gen-result e #t)))
-   (lambda ()
- (call-with-values
- (lambda ()
-   (body))
-   (lambda (x . y)
- (if (null? y)
- (k (gen-result x #f))
- (k (gen-result (cons x y) #f)))
-  (write result)
-  (newline)))
+(let ((output-string (open-output-string)))
+  (write
+   (call/cc
+(lambda (k)
+  (with-exception-handler
+  (lambda (e)
+(k `((result "")
+ (output . ,(get-output-string output-string))
+ (error (key . ,(with-output-to-string
+ (lambda ()
+   (display-condition e
+(lambda ()
+  (call-with-values
+  ;; evaluate form, allow for multiple return values,
+  ;; and capture output in output-string.
+  (lambda ()
+(parameterize ((current-output-port output-string))
+  (if module
+  (eval form (environment module))
+  (eval form
+(lambda result
+  `((result ,(with-output-to-string
+  (lambda ()
+(pretty-print
+ (if (null? (cdr result)) (car result) 
result)
+(output . ,(get-output-string output-string))
+  (newline)
+  (close-output-port output-string)))
 
   (define (geiser:module-completions prefix . rest)
 (define (substring? s1 s2)

[nongnu] elpa/geiser-chez a0f6fc3 15/37: Add rudimentary Chez support for macro expansion

[Philip Kaludercic]

branch: elpa/geiser-chez
commit a0f6fc32a81267154ed71f8668a1ecd227e7b37b
Author: Aaron Marks 
Commit: Aaron Marks 

Add rudimentary Chez support for macro expansion
---
 scheme/chez/geiser/geiser.ss | 18 +++---
 scheme/chez/geiser/test.ss   | 33 -
 2 files changed, 43 insertions(+), 8 deletions(-)

diff --git a/scheme/chez/geiser/geiser.ss b/scheme/chez/geiser/geiser.ss
index 70b6b67..5c92a5b 100644
--- a/scheme/chez/geiser/geiser.ss
+++ b/scheme/chez/geiser/geiser.ss
@@ -5,7 +5,8 @@
   geiser:autodoc
   geiser:no-values
  geiser:load-file
-  geiser:newline)
+  geiser:newline
+  geiser:macroexpand)
   (import (chezscheme))
 
   (define (last-index-of str-list char idx last-idx)
@@ -56,8 +57,8 @@
 (k `((result "")
  (output . ,(get-output-string output-string))
  (error (key . ,(with-output-to-string
- (lambda ()
-   (display-condition e
+  (lambda ()
+(display-condition e
 (lambda ()
   (call-with-values
   ;; evaluate form, allow for multiple return values,
@@ -69,9 +70,9 @@
   (eval form
 (lambda result
   `((result ,(with-output-to-string
-  (lambda ()
-(pretty-print
- (if (null? (cdr result)) (car result) 
result)
+   (lambda ()
+ (pretty-print
+  (if (null? (cdr result)) (car result) 
result)
 (output . ,(get-output-string output-string))
   (newline)
   (close-output-port output-string)))
@@ -145,4 +146,7 @@
 #f)
 
   (define (geiser:newline)
-#f))
+#f)
+
+  (define (geiser:macroexpand form . rest)
+(syntax->datum (expand form
diff --git a/scheme/chez/geiser/test.ss b/scheme/chez/geiser/test.ss
index ac5503b..21f3396 100644
--- a/scheme/chez/geiser/test.ss
+++ b/scheme/chez/geiser/test.ss
@@ -1,13 +1,21 @@
 (import (geiser)
(chezscheme))
 
+(define-syntax assert-equal
+  (syntax-rules ()
+((_ a b)
+ (if (equal? a b)
+ #t
+ (begin
+   (display (format "failed assertion `~a' == `~a'" a b))
+   (assert (equal? a b)))
 
 (define-syntax get-result
   (syntax-rules ()
 ((_ form)
  (with-output-to-string
(lambda ()
-(geiser:eval #f form))
+ (geiser:eval #f form))
 
 (define-syntax do-test
   (syntax-rules ()
@@ -17,6 +25,29 @@
(get-result form)
result)
 
+(define-syntax do-test-macroexpand
+  (syntax-rules ()
+((_ form result)
+ (assert
+  (equal? (geiser:macroexpand form)
+  result)
+
+(define-syntax test-or
+  (syntax-rules ()
+((_ x) x)
+((_ x xs ...)
+ (if x
+ x
+ (test-or xs ...)
+
+(do-test-macroexpand
+ '(test-or 1)
+ '1)
+
+(do-test-macroexpand
+ '(test-or 1 2)
+ '(if 1 1 2))
+
 ;; (something-doesnot-exist)
 ;;=> Error: Exception: variable something-doesnot-exist is not bound
 (do-test

[nongnu] elpa/geiser-chez 352515c 16/37: Begin the summary lines of all elisp libraries with three semicolons

[Philip Kaludercic]

branch: elpa/geiser-chez
commit 352515c3aa12c9ebbdd997e5ab061ad182a45958
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Begin the summary lines of all elisp libraries with three semicolons

It's the convention and by following it we make a big step towards
supporting outline navigation.
---
 elisp/geiser-chez.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/elisp/geiser-chez.el b/elisp/geiser-chez.el
index 67b9382..601cc6f 100644
--- a/elisp/geiser-chez.el
+++ b/elisp/geiser-chez.el
@@ -1,4 +1,4 @@
-;; geiser-chez.el -- Chez Scheme's implementation of the geiser protocols
+;;; geiser-chez.el -- Chez Scheme's implementation of the geiser protocols
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the Modified BSD License. You should

[nongnu] elpa/geiser-chez 9d66c63 24/37: chez: pretty printing macroexpand results.

[Philip Kaludercic]

branch: elpa/geiser-chez
commit 9d66c63c5374001608b2e1807c3e136c82c44f60
Author: Jay Xu 
Commit: Jay Xu 

chez: pretty printing macroexpand results.
---
 scheme/chez/geiser/geiser.ss | 5 -
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/scheme/chez/geiser/geiser.ss b/scheme/chez/geiser/geiser.ss
index 2d13952..33d1b39 100644
--- a/scheme/chez/geiser/geiser.ss
+++ b/scheme/chez/geiser/geiser.ss
@@ -149,4 +149,7 @@
 #f)
 
   (define (geiser:macroexpand form . rest)
-(syntax->datum (expand form
+(with-output-to-string
+  (lambda ()
+(pretty-print
+ (syntax->datum (expand form)))

[nongnu] elpa/geiser-chez 111ecdd 26/37: scheme load path adjustments

[Philip Kaludercic]

branch: elpa/geiser-chez
commit 111ecdd4d4f0d6ee668d3a7b1b2d6d0cba2c4b01
Author: jao 
Commit: jao 

scheme load path adjustments
---
 geiser-chez.el | 14 +-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/geiser-chez.el b/geiser-chez.el
index 3d4b495..af2dad6 100644
--- a/geiser-chez.el
+++ b/geiser-chez.el
@@ -1,5 +1,13 @@
 ;;; geiser-chez.el -- Chez Scheme's implementation of the geiser protocols
 
+;; Author: Peter 
+;; Maintainer:
+;; Keywords: languages, chez, scheme, geiser
+;; Homepage: https://gitlab.com/emacs-geiser/chez
+;; Package-Requires: ((emacs "24.4") (geiser-core "1.0"))
+;; SPDX-License-Identifier: BSD-3-Clause
+;; Version: 0.1
+
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the Modified BSD License. You should
 ;; have received a copy of the license along with this program. If
@@ -53,13 +61,17 @@
   (car geiser-chez-binary)
 geiser-chez-binary))
 
+(defvar geiser-chez-scheme-dir
+  (expand-file-name "src" (file-name-nondirectory load-file-name))
+  "Directory where the Chez scheme geiser modules are installed.")
+
 (defun geiser-chez--parameters ()
   "Return a list with all parameters needed to start Chez Scheme.
 This function uses `geiser-chez-init-file' if it exists."
   (let ((init-file (and (stringp geiser-chez-init-file)
 (expand-file-name geiser-chez-init-file
 `(,@(and init-file (file-readable-p init-file) (list init-file))
-  ,(expand-file-name "chez/geiser/geiser.ss" geiser-scheme-dir)
+  ,(expand-file-name "geiser/geiser.ss" geiser-chez-scheme-dir)
   ,@geiser-chez-extra-command-line-parameters)))
 
 (defconst geiser-chez--prompt-regexp "> ")

[nongnu] elpa/geiser-chez 52b122a 34/37: emacs dependency

[Philip Kaludercic]

branch: elpa/geiser-chez
commit 52b122a0e6e137f8058e3ca0d55c5e91233fc625
Author: jao 
Commit: jao 

emacs dependency
---
 geiser-chez.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/geiser-chez.el b/geiser-chez.el
index 5dfdfdb..28af688 100644
--- a/geiser-chez.el
+++ b/geiser-chez.el
@@ -4,7 +4,7 @@
 ;; Maintainer: Jose A Ortega Ruiz 
 ;; Keywords: languages, chez, scheme, geiser
 ;; Homepage: https://gitlab.com/emacs-geiser/chez
-;; Package-Requires: ((emacs "24.4") (geiser "0.12"))
+;; Package-Requires: ((emacs "26.1") (geiser "0.12"))
 ;; SPDX-License-Identifier: BSD-3-Clause
 ;; Version: 0.13
 

[nongnu] elpa/geiser-chez 502b3ac 20/37: Use cl-lib instead of cl

[Philip Kaludercic]

branch: elpa/geiser-chez
commit 502b3ac7e73ed9bcece8123a040a666923df5837
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Use cl-lib instead of cl

Starting with Emacs 27 cl is fully deprecated, including at
compile-time.
---
 elisp/geiser-chez.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/elisp/geiser-chez.el b/elisp/geiser-chez.el
index c1bdde7..1b5b84b 100644
--- a/elisp/geiser-chez.el
+++ b/elisp/geiser-chez.el
@@ -20,7 +20,7 @@
 (require 'compile)
 (require 'info-look)
 
-(eval-when-compile (require 'cl))
+(eval-when-compile (require 'cl-lib))
 
 
 ;;; Customization:
@@ -62,7 +62,7 @@ This function uses `geiser-chez-init-file' if it exists."
 ;;; Evaluation support:
 
 (defun geiser-chez--geiser-procedure (proc &rest args)
-  (case proc
+  (cl-case proc
 ((eval compile)
  (let ((form (mapconcat 'identity (cdr args) " "))
(module (cond ((string-equal "'()" (car args))

[nongnu] elpa/geiser-chez 98999d7 28/37: typo

[Philip Kaludercic]

branch: elpa/geiser-chez
commit 98999d71b156451d16021002a7aa812948a5f16b
Author: jao 
Commit: jao 

typo
---
 geiser-chez.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/geiser-chez.el b/geiser-chez.el
index af2dad6..29d91f3 100644
--- a/geiser-chez.el
+++ b/geiser-chez.el
@@ -62,7 +62,7 @@
 geiser-chez-binary))
 
 (defvar geiser-chez-scheme-dir
-  (expand-file-name "src" (file-name-nondirectory load-file-name))
+  (expand-file-name "src" (file-name-directory load-file-name))
   "Directory where the Chez scheme geiser modules are installed.")
 
 (defun geiser-chez--parameters ()

[nongnu] elpa/geiser-chez fe3d881 36/37: whitespace

[Philip Kaludercic]

branch: elpa/geiser-chez
commit fe3d881fff36cfa069e17488aa8906360c74cfd0
Author: jao 
Commit: jao 

whitespace
---
 .gitignore |  1 +
 geiser-chez.el | 14 ++
 2 files changed, 7 insertions(+), 8 deletions(-)

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 000..93f2373
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1 @@
+/src/geiser/*.so
diff --git a/geiser-chez.el b/geiser-chez.el
index 983490c..f224fad 100644
--- a/geiser-chez.el
+++ b/geiser-chez.el
@@ -91,12 +91,9 @@ This function uses `geiser-chez-init-file' if it exists."
   (cl-case proc
 ((eval compile)
  (let ((form (mapconcat 'identity (cdr args) " "))
-   (module (cond ((string-equal "'()" (car args))
-  "'()")
- ((and (car args))
-  (concat "'" (car args)))
- (t
-  "#f"
+   (module (cond ((string-equal "'()" (car args)) "'()")
+ ((car args) (concat "'" (car args)))
+ (t "#f"
(format "(geiser:eval %s '%s)" module form)))
 ((load-file compile-file)
  (format "(geiser:load-file %s)" (car args)))
@@ -125,7 +122,7 @@ This function uses `geiser-chez-init-file' if it exists."
 (save-excursion (skip-syntax-backward "^'-()>") (point
 
 (defun geiser-chez--import-command (module)
-  "Return string representing an sexp importing MODULE."
+  "Return string representing a sexp importing MODULE."
   (format "(import %s)" module))
 
 (defun geiser-chez--exit-command ()
@@ -145,7 +142,8 @@ This function uses `geiser-chez-init-file' if it exists."
   "Startup function."
   (let ((geiser-log-verbose-p t))
 (compilation-setup t)
-(geiser-eval--send/wait "(begin (import (geiser)) (write `((result ) 
(output . \"\"))) (newline))")))
+(geiser-eval--send/wait
+ "(begin (import (geiser)) (write `((result ) (output . \"\"))) 
(newline))")))
 
 
 ;;; Error display:

[nongnu] elpa/geiser-chez 055e43d 27/37: license and readme

[Philip Kaludercic]

branch: elpa/geiser-chez
commit 055e43d0ac789f3b9ce4d4c41b0a88ad13571940
Author: jao 
Commit: jao 

license and readme
---
 license| 29 +
 readme.org |  8 
 2 files changed, 37 insertions(+)

diff --git a/license b/license
new file mode 100644
index 000..f894f6f
--- /dev/null
+++ b/license
@@ -0,0 +1,29 @@
+BSD 3-Clause License
+
+Copyright (c) 2009, 2010, 2011, 2012, 2013, 2015, Jose Antonio Ortega Ruiz
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+* Redistributions of source code must retain the above copyright notice, this
+  list of conditions and the following disclaimer.
+
+* Redistributions in binary form must reproduce the above copyright notice,
+  this list of conditions and the following disclaimer in the documentation
+  and/or other materials provided with the distribution.
+
+* Neither the name of the copyright holder nor the names of its
+  contributors may be used to endorse or promote products derived from
+  this software without specific prior written permission.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
diff --git a/readme.org b/readme.org
new file mode 100644
index 000..294f665
--- /dev/null
+++ b/readme.org
@@ -0,0 +1,8 @@
+* Chez and Geiser talk to each other
+
+This package provides support for using 
[[https://cisco.github.io/ChezScheme/][Chez Scheme]] in Emacs with
+[[http://geiser.nongnu.org][Geiser]].
+
+Provided [[https://gitlab.com/emacs-geiser/core][geiser-core]] is installed in 
your system, if this package's
+directory is in your load path, just add ~(require 'geiser-chez)~ to
+your initialisation files and then ~M-x run-chez~ to start a REPL.