[elpa] master de40f70: * debbugs: Use cl-lib. Use lexical-binding when available
branch: master commit de40f70fbbd6dfe03f43eae3eb4c928a05215c54 Author: Stefan Monnier Commit: Stefan Monnier * debbugs: Use cl-lib. Use lexical-binding when available * debbugs-gnu.el: Only require subr-x at compile time. Use cl-lib. (debbugs-gnu-print-entry): Remove unused var `title-length'. (debbugs-gnu-sort-title): Mark `s2' as unused. * debbugs-org.el (debbugs-gnu): Use cl-lib. * debbugs.el: Add `cl-lib' as dependency. Use cl-lib. (debbugs-soap-invoke-async): Mark `args' as unused. --- packages/debbugs/debbugs-gnu.el | 11 ++- packages/debbugs/debbugs-org.el | 10 +- packages/debbugs/debbugs.el | 39 +-- 3 files changed, 32 insertions(+), 28 deletions(-) diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el index 10a31cb..a195814 100644 --- a/packages/debbugs/debbugs-gnu.el +++ b/packages/debbugs/debbugs-gnu.el @@ -1,4 +1,4 @@ -;;; debbugs-gnu.el --- interface for the GNU bug tracker +;;; debbugs-gnu.el --- interface for the GNU bug tracker -*- lexical-binding:t -*- ;; Copyright (C) 2011-2016 Free Software Foundation, Inc. @@ -141,8 +141,8 @@ (require 'debbugs) (require 'tabulated-list) (require 'add-log) -(require 'subr-x) -(eval-when-compile (require 'cl)) +(eval-when-compile (require 'subr-x)) +(eval-when-compile (require 'cl-lib)) (autoload 'article-decode-charset "gnus-art") (autoload 'diff-goto-source "diff-mode") @@ -717,7 +717,8 @@ Used instead of `tabulated-list-print-entry'." (submitter(aref cols 2)) (submitter-length (nth 1 (aref tabulated-list-format 2))) (title(aref cols 3)) - (title-length (nth 1 (aref tabulated-list-format 3 + ;; (title-length (nth 1 (aref tabulated-list-format 3))) +) (when (and ;; We may have a narrowing in effect. (or (not debbugs-gnu-limit) @@ -951,7 +952,7 @@ The following commands are available: t) (t nil -(defun debbugs-gnu-sort-title (s1 s2) +(defun debbugs-gnu-sort-title (s1 _s2) (let ((owner (if (cdr (assq 'owner (car s1))) (car (mail-header-parse-address (decode-coding-string (cdr (assq 'owner (car s1))) diff --git a/packages/debbugs/debbugs-org.el b/packages/debbugs/debbugs-org.el index a95672d..ecd522d 100644 --- a/packages/debbugs/debbugs-org.el +++ b/packages/debbugs/debbugs-org.el @@ -1,4 +1,4 @@ -;;; debbugs-org.el --- Org-mode interface for the GNU bug tracker +;;; debbugs-org.el --- Org-mode interface for the GNU bug tracker -*- lexical-binding:t -*- ;; Copyright (C) 2013-2016 Free Software Foundation, Inc. @@ -100,7 +100,7 @@ (require 'debbugs-gnu) (require 'org) -(eval-when-compile (require 'cl)) +(eval-when-compile (require 'cl-lib)) ;; Buffer-local variables. (defvar debbugs-gnu-local-query) @@ -109,7 +109,7 @@ (defconst debbugs-org-severity-priority (let ((priority ?A)) (mapcar - (lambda (x) (prog1 (cons x (char-to-string priority)) (incf priority))) + (lambda (x) (prog1 (cons x (char-to-string priority)) (cl-incf priority))) debbugs-gnu-all-severities)) "Mapping of debbugs severities to TODO priorities.") @@ -288,10 +288,10 @@ returned." ;; Handle tags. (when (string-match "^\\([0-9.]+\\); \\(.+\\)$" subject) - (let ((x (match-string 1 subject))) (pushnew x tags :test #'equal)) + (let ((x (match-string 1 subject))) (cl-pushnew x tags :test #'equal)) (setq subject (match-string 2 subject))) (when archived - (pushnew "ARCHIVE" tags :test #'equal)) + (cl-pushnew "ARCHIVE" tags :test #'equal)) (setq tags (mapcar ;; Replace all invalid TAG characters by "_". diff --git a/packages/debbugs/debbugs.el b/packages/debbugs/debbugs.el index cedf93f..f3dc7c6 100644 --- a/packages/debbugs/debbugs.el +++ b/packages/debbugs/debbugs.el @@ -1,4 +1,4 @@ -;;; debbugs.el --- SOAP library to access debbugs servers +;;; debbugs.el --- SOAP library to access debbugs servers -*- lexical-binding:t -*- ;; Copyright (C) 2011-2016 Free Software Foundation, Inc. @@ -6,7 +6,7 @@ ;; Keywords: comm, hypermedia ;; Package: debbugs ;; Version: 0.9.3 -;; Package-Requires: ((soap-client "3.1.1")) +;; Package-Requires: ((soap-client "3.1.1") (cl-lib "0.5")) ;; This file is not part of GNU Emacs. @@ -35,7 +35,7 @@ ;(setq soap-debug t message-log-max t) (require 'soap-client) -(eval-when-compile (require 'cl)) +(eval-when-compile (require 'cl-lib)) (defgroup debbugs nil "Debbugs library" @@ -120,8 +120,8 @@ This corresponds to the Debbugs server to be accessed, either (defun debbugs-soap-invoke-async (operation-name &rest parameters) "Invoke the SOAP connection asynchronously." (apply - 'soap-invoke-async - (lambda (response &rest args) + #'soap-invoke-async + (lambda (response &rest _args)
[elpa] master bf9f1e1: * packages/ampc/ampc.el (ampc-highlight-current-song-mode): Delete
branch: master
commit bf9f1e11e6eddb61245b6be53b5f2dd53828adbd
Author: Stefan Monnier
Commit: Stefan Monnier
* packages/ampc/ampc.el (ampc-highlight-current-song-mode): Delete
(ampc-current-playlist-mode): Set font-lock-defaults instead.
(ampc-item-mode): Remove broken highlight rule.
(ampc-handle-status): Use font-lock-flush when available.
---
packages/ampc/ampc.el | 28 +++-
1 file changed, 11 insertions(+), 17 deletions(-)
diff --git a/packages/ampc/ampc.el b/packages/ampc/ampc.el
index 6e9bbd6..7a28bc7 100644
--- a/packages/ampc/ampc.el
+++ b/packages/ampc/ampc.el
@@ -986,7 +986,11 @@ modified."
(define-derived-mode ampc-tag-song-mode ampc-item-mode "ampc-ts")
(define-derived-mode ampc-current-playlist-mode ampc-playlist-mode "ampc-cpl"
- (ampc-highlight-current-song-mode))
+ (setq font-lock-defaults `(((ampc-find-current-song
+ (1 'ampc-current-song-mark-face)
+ (2 'ampc-current-song-marked-face))
+ . ,(car font-lock-defaults))
+ . (cdr font-lock-defaults
(define-derived-mode ampc-playlist-mode ampc-item-mode "ampc-pl")
@@ -1022,7 +1026,9 @@ modified."
(setf font-lock-defaults '((("^\\(\\*\\)\\(.*\\)$"
(1 'ampc-mark-face)
(2 'ampc-marked-face))
- ("" 0 'ampc-unmarked-face))
+ ;; FIXME: Why do this?
+ ;; ("" 0 'ampc-unmarked-face)
+ )
t)))
(define-derived-mode ampc-mode special-mode "ampc"
@@ -1031,19 +1037,6 @@ modified."
(setf truncate-lines ampc-truncate-lines
mode-line-modified "--"))
-(define-minor-mode ampc-highlight-current-song-mode ""
- ;; FIXME: The "" above looks bogus!
- nil
- nil
- nil
- (funcall (if ampc-highlight-current-song-mode
- #'font-lock-add-keywords
- #'font-lock-remove-keywords)
- nil
- '((ampc-find-current-song
- (1 'ampc-current-song-mark-face)
- (2 'ampc-current-song-marked-face)
-
;;;###autoload
(define-minor-mode ampc-tagger-dired-mode
"Minor mode that adds a audio file meta data tagging key binding to dired."
@@ -1982,8 +1975,9 @@ modified."
(ampc-fill-status-var '("volume" "repeat" "random" "consume" "xfade" "state"
"song" "playlistlength"))
(ampc-with-buffer 'current-playlist
-(when ampc-highlight-current-song-mode
- (font-lock-fontify-buffer)))
+(if (fboundp 'font-lock-flush)
+(font-lock-flush)
+ (with-no-warnings (font-lock-fontify-buffer
(run-hook-with-args ampc-status-changed-hook ampc-status))
(defun ampc-handle-update ()
[elpa] master 1ca09bd: * packages/rnc-mode/rnc-mode.el (rnc-smie-rules): Add empty-line-token rule.
branch: master
commit 1ca09bd380a3b626aa7eba8c950a3a714752c6b0
Author: Stefan Monnier
Commit: Stefan Monnier
* packages/rnc-mode/rnc-mode.el (rnc-smie-rules): Add empty-line-token rule.
---
packages/rnc-mode/rnc-mode.el |1 +
1 file changed, 1 insertion(+)
diff --git a/packages/rnc-mode/rnc-mode.el b/packages/rnc-mode/rnc-mode.el
index 81f891b..9a08b5e 100644
--- a/packages/rnc-mode/rnc-mode.el
+++ b/packages/rnc-mode/rnc-mode.el
@@ -123,6 +123,7 @@
(defun rnc-smie-rules (kind token)
(pcase (cons kind token)
(`(:list-intro . "element") t)
+(`(:elem . empty-line-token) " ; ")
(`(:before . ,(or "include" "default" "namespace" "datatypes")) 0)
(`(:before . "{")
(save-excursion
[elpa] master 6a5d60c: * externals-list: Add ztree entry
branch: master
commit 6a5d60cf830c161eec6c5e4ebc6a3aec2879d592
Author: Stefan Monnier
Commit: Stefan Monnier
* externals-list: Add ztree entry
---
externals-list |1 +
1 file changed, 1 insertion(+)
diff --git a/externals-list b/externals-list
index acf8dbb..169cb11 100644
--- a/externals-list
+++ b/externals-list
@@ -82,4 +82,5 @@
("websocket" :subtree
"https://github.com/ahyatt/emacs-websocket.git";)
("xelb" :external "https://github.com/ch11ng/xelb.git";)
("yasnippet" :subtree
"https://github.com/capitaomorte/yasnippet.git";)
+ ("ztree" :subtree "https://github.com/fourier/ztree";)
)
[elpa] master 5e27bad 1/3: Allow the "C" command from debbugs mode to work
branch: master
commit 5e27bad619780a03d05e236c256e76a8a9ec56ce
Author: Lars Ingebrigtsen
Commit: Lars Ingebrigtsen
Allow the "C" command from debbugs mode to work
* debbugs-gnu.el (debbugs-gnu-send-control-message): Get the
correct bug ID number from the debbugs mode.
---
packages/debbugs/debbugs-gnu.el |6 +++---
packages/debbugs/debbugs.el |2 +-
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index a195814..fe0a7e5 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -1266,9 +1266,9 @@ removed instead."
"usertag")
nil t)
current-prefix-arg))
- (let* ((id (or debbugs-gnu-bug-number; Set on group entry.
-(debbugs-gnu-guess-current-id)
-(debbugs-gnu-current-id)))
+ (let* ((id (or (debbugs-gnu-current-id)
+debbugs-gnu-bug-number ; Set on group entry.
+(debbugs-gnu-guess-current-id)))
(version
(when (member message '("close" "done"))
(read-string
diff --git a/packages/debbugs/debbugs.el b/packages/debbugs/debbugs.el
index f3dc7c6..59a63e0 100644
--- a/packages/debbugs/debbugs.el
+++ b/packages/debbugs/debbugs.el
@@ -5,7 +5,7 @@
;; Author: Michael Albinus
;; Keywords: comm, hypermedia
;; Package: debbugs
-;; Version: 0.9.3
+;; Version: 0.9.4
;; Package-Requires: ((soap-client "3.1.1") (cl-lib "0.5"))
;; This file is not part of GNU Emacs.
[elpa] master 622b8cc 2/3: Fix last checkin
branch: master commit 622b8ccb37cf5eb7daebd3c5b3c3a03713815839 Author: Lars Ingebrigtsen Commit: Lars Ingebrigtsen Fix last checkin --- packages/debbugs/debbugs-gnu.el |2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el index fe0a7e5..8ec7a32 100644 --- a/packages/debbugs/debbugs-gnu.el +++ b/packages/debbugs/debbugs-gnu.el @@ -1266,7 +1266,7 @@ removed instead." "usertag") nil t) current-prefix-arg)) - (let* ((id (or (debbugs-gnu-current-id) + (let* ((id (or (debbugs-gnu-current-id t) debbugs-gnu-bug-number ; Set on group entry. (debbugs-gnu-guess-current-id))) (version
[elpa] master updated (6a5d60c -> 09e8c98)
larsi pushed a change to branch master. from 6a5d60c * externals-list: Add ztree entry new 5e27bad Allow the "C" command from debbugs mode to work new 622b8cc Fix last checkin new 09e8c98 Bump version number Summary of changes: packages/debbugs/debbugs-gnu.el |6 +++--- packages/debbugs/debbugs.el |2 +- 2 files changed, 4 insertions(+), 4 deletions(-)
[elpa] master 09e8c98 3/3: Bump version number
branch: master commit 09e8c98b0b5a725897b25ff235608391fde2a0a3 Author: Lars Ingebrigtsen Commit: Lars Ingebrigtsen Bump version number --- packages/debbugs/debbugs.el |2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/packages/debbugs/debbugs.el b/packages/debbugs/debbugs.el index 59a63e0..422a775 100644 --- a/packages/debbugs/debbugs.el +++ b/packages/debbugs/debbugs.el @@ -5,7 +5,7 @@ ;; Author: Michael Albinus ;; Keywords: comm, hypermedia ;; Package: debbugs -;; Version: 0.9.4 +;; Version: 0.9.5 ;; Package-Requires: ((soap-client "3.1.1") (cl-lib "0.5")) ;; This file is not part of GNU Emacs.
