[elpa] master 0387891 3/6: Merge branch 'master' of github.com:realgud/realgud
branch: master commit 0387891f80141c449e4a09c6a7c659d8535bc99e Merge: 3bef00c d7bac58 Author: rocky Commit: rocky Merge branch 'master' of github.com:realgud/realgud --- realgud/common/helper.el |5 + realgud/common/track.el| 32 test/test-regexp-remake.el | 27 +-- 3 files changed, 54 insertions(+), 10 deletions(-) diff --git a/realgud/common/helper.el b/realgud/common/helper.el index 82bc878..705100d 100644 --- a/realgud/common/helper.el +++ b/realgud/common/helper.el @@ -13,6 +13,7 @@ ;; GNU General Public License for more details. (require 'cl-lib) +(require 'cl) ;;; Miscellaneous utility functions (require 'load-relative) @@ -102,3 +103,7 @@ gives: ;;(eval (intern var-str (provide-me "realgud-") + +;; Local Variables: +;; byte-compile-warnings: (not cl-functions) +;; End: diff --git a/realgud/common/track.el b/realgud/common/track.el index 971534b..f047c13 100644 --- a/realgud/common/track.el +++ b/realgud/common/track.el @@ -206,6 +206,10 @@ evaluating (realgud-cmdbuf-info-loc-regexp realgud-cmdbuf-info)" (realgud-cmdbuf-pat "brkpt-disable") nil) (setq frame-num (realgud-track-selected-frame text)) + (if (and frame-num (not loc)) + (setq loc (realgud-track-loc-from-selected-frame +text cmd-mark))) + (setq bp-loc (realgud-track-bp-loc text-sans-loc cmd-mark cmdbuf)) (if bp-loc (let ((src-buffer (realgud-loc-goto bp-loc))) @@ -600,6 +604,30 @@ loc-regexp pattern" ) +(defun realgud-track-loc-from-selected-frame(text cmd-mark &optional + opt-regexp opt-ignore-file-re) + "Return a selected frame number found in TEXT or nil if none found." + (if (realgud-cmdbuf?) + (let ((selected-frame-pat (realgud-cmdbuf-pat "selected-frame")) + (frame-num-regexp) + (ignore-file-re (or opt-ignore-file-re + (realgud-sget 'cmdbuf-info 'ignore-file-re + (if (and selected-frame-pat +(setq frame-num-regexp (realgud-loc-pat-regexp +selected-frame-pat))) + (if (string-match frame-num-regexp text) + (let* ((file-group (realgud-loc-pat-file-group selected-frame-pat)) + (line-group (realgud-loc-pat-line-group selected-frame-pat)) + (filename (match-string file-group text)) + (lineno (string-to-number (match-string line-group text + (if (and filename lineno) + (realgud:file-loc-from-line filename lineno + cmd-mark nil nil ignore-file-re) + nil)) + nil) + nil)) +nil)) + (defun realgud-track-termination?(text) "Return 't and call `realgud:terminate' we we have a termination message" (if (realgud-cmdbuf?) @@ -762,3 +790,7 @@ command buffer's debugger location pattern against the line at PT." )) (provide-me "realgud-") + +;; Local Variables: +;; byte-compile-warnings: (not cl-functions) +;; End: diff --git a/test/test-regexp-remake.el b/test/test-regexp-remake.el index 1a3390c..1aa2748 100644 --- a/test/test-regexp-remake.el +++ b/test/test-regexp-remake.el @@ -7,6 +7,13 @@ (test-simple-start) +(eval-when-compile + (defvar prompt-pat) (defvar frame-pat) (defvar frame-re) + (defvar loc-pat)(defvar prompt-pat) (defvar test-text) + (defvar file-group) (defvar line-group) (defvar test-pos) + (defvar num-pat)(defvar num-group) (defvar realgud:remake-pat-hash) +) + (set (make-local-variable 'prompt-pat) (gethash "prompt" realgud:remake-pat-hash)) (set (make-local-variable 'frame-pat) @@ -17,7 +24,7 @@ (prompt-match "remake<<1>> " "1" "recursive remake %s") (note "remake debugger-backtrace") -(setq s1 +(setq test-text "=>#0 Makefile.in at /tmp/Makefile:216 #1 Makefile at /tmp/Makefile:230 ") @@ -31,31 +38,31 @@ (set (make-local-variable 'line-group) (realgud-loc-pat-line-group frame-pat)) -(assert-equal 0 (string-match frame-re s1)) -(assert-equal "0" (substring s1 +(assert-equal 0 (string-match frame-re test-text)) +(assert-equal "0" (substring test-text (match-beginning num-group) (match-end num-group))) (assert-equal "/tmp/Makefile" - (substring s1 + (substring test-text (match-beginning file-group) (match-end file-group))) (assert-equal "216" - (substring s1 + (substring test-text (match-beginning line-group) (match-end line-group))) -(set (make
[elpa] master 56bf176 6/6: Merge commit 'db34a79efd068f28643cefd6f16a7329ba24dbf1'
branch: master commit 56bf176e92ab57449ef3b0dd776edeff6fd37ca6 Merge: c2b86af db34a79 Author: rocky Commit: rocky Merge commit 'db34a79efd068f28643cefd6f16a7329ba24dbf1' --- packages/realgud/realgud/common/buffer/command.el | 10 +++-- packages/realgud/realgud/common/core.el| 22 packages/realgud/realgud/common/file.el|4 ++-- packages/realgud/realgud/common/run.el |5 + packages/realgud/realgud/common/send.el| 13 ++-- packages/realgud/realgud/common/track.el | 19 + packages/realgud/realgud/debugger/bashdb/init.el |3 +++ packages/realgud/realgud/debugger/jdb/init.el | 21 ++- packages/realgud/realgud/debugger/kshdb/init.el|3 +++ packages/realgud/realgud/debugger/remake/init.el | 15 +++-- .../realgud/realgud/debugger/trepan.pl/init.el |2 +- 11 files changed, 77 insertions(+), 40 deletions(-) diff --git a/packages/realgud/realgud/common/buffer/command.el b/packages/realgud/realgud/common/buffer/command.el index fb80190..760db53 100644 --- a/packages/realgud/realgud/common/buffer/command.el +++ b/packages/realgud/realgud/common/buffer/command.el @@ -102,7 +102,9 @@ loc-hist ;; ring of locations seen in the course of execution ;; see realgud-lochist -) + starting-directory;; directory where initial debug command was issued. +;; this can be used to resolve relative file names + ) (make-variable-buffer-local 'realgud-cmdbuf-info) (make-variable-buffer-local 'realgud-last-output-start) @@ -122,6 +124,7 @@ (realgud-struct-field-setter "realgud-cmdbuf-info" "in-debugger?") (realgud-struct-field-setter "realgud-cmdbuf-info" "callback-loc-fn") (realgud-struct-field-setter "realgud-cmdbuf-info" "callback-eval-filter") +(realgud-struct-field-setter "realgud-cmdbuf-info" "starting-directory") (defun realgud:cmdbuf-follow-buffer(event) (interactive "e") @@ -167,6 +170,8 @@ Information is put in an internal buffer called *Describe*." (json-encode (realgud-cmdbuf-info-debugger-name info))) (format " - Command-line args ::\t%s\n" (json-encode (realgud-cmdbuf-info-cmd-args info))) +(format " - Starting directory ::\t%s\n" +(realgud-cmdbuf-info-starting-directory info)) (format " - Selected window should contain source? :: %s\n" (realgud-cmdbuf-info-in-srcbuf? info)) (format " - Last input end::\t%s\n" @@ -286,7 +291,8 @@ Information is put in an internal buffer called *Describe*." ;; removed. (defun realgud-cmdbuf-init - (cmd-buf debugger-name regexp-hash &optional cmd-hash base-variable-name) +(cmd-buf debugger-name regexp-hash &optional cmd-hash base-variable-name +starting-directory) "Initialize CMD-BUF for a working with a debugger. DEBUGGER-NAME is the name of the debugger; REGEXP-HASH are debugger-specific values set in the debugger's init.el." diff --git a/packages/realgud/realgud/common/core.el b/packages/realgud/realgud/common/core.el index ad5dd6a..d7dade7 100644 --- a/packages/realgud/realgud/common/core.el +++ b/packages/realgud/realgud/common/core.el @@ -13,7 +13,6 @@ ;; GNU General Public License for more details. ;; (require 'term) -(require 'files) (if (< emacs-major-version 24) (error @@ -36,6 +35,7 @@ (declare-function realgud-cmdbuf-debugger-name'realgud-buffer-command) (declare-function realgud-cmdbuf-info-bp-list='realgud-buffer-command) (declare-function realgud-cmdbuf-info-in-debugger?= 'realgud-buffer-command) +(declare-function realgud-cmdbuf-info-starting-directory= 'realgud-buffer-command) (declare-function realgud-cmdbuf-mode-line-update 'realgud-buffer-command) (declare-function realgud-cmdbuf? 'realgud-helper) (declare-function realgud-command-string 'realgud-buffer-command) @@ -50,6 +50,7 @@ (declare-function realgud-suggest-lang-file 'realgud-lang) (defvar realgud-srcbuf-info) +(defvar starting-directory) (defun realgud:expand-file-name-if-exists (filename) "Return FILENAME expanded using `expand-file-name' if that name exists. @@ -227,20 +228,20 @@ NO-RESET is nil, then that information which may point into other buffers and source buffers which may contain marks and fringe or marginal icons is reset." - (let* ((starting-directory + (let* ((current-directory (or (file-name-directory script-filename) default-directory "./")) (cmdproc-buffer-name - (replace-regexp-in-string "\s+" "\s" -(format "*%s %s shell*" - (file-name-nondirectory debugger-name) - (file-name-nondirectory script-filename + (replace-regexp-in-string +
[elpa] master updated (c2b86af -> 56bf176)
rocky pushed a change to branch master. from c2b86af Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs/elpa new 3551ab2 Ignore process send errors new 3bef00c Merge branch 'master' of github.com:realgud/realgud new 0387891 Merge branch 'master' of github.com:realgud/realgud new 6a41dc7 Add starting directory in info and... new db34a79 (require 'files) is unnecessary - preloaded new 56bf176 Merge commit 'db34a79efd068f28643cefd6f16a7329ba24dbf1' Summary of changes: packages/realgud/realgud/common/buffer/command.el | 10 +++-- packages/realgud/realgud/common/core.el| 22 packages/realgud/realgud/common/file.el|4 ++-- packages/realgud/realgud/common/run.el |5 + packages/realgud/realgud/common/send.el| 13 ++-- packages/realgud/realgud/common/track.el | 19 + packages/realgud/realgud/debugger/bashdb/init.el |3 +++ packages/realgud/realgud/debugger/jdb/init.el | 21 ++- packages/realgud/realgud/debugger/kshdb/init.el|3 +++ packages/realgud/realgud/debugger/remake/init.el | 15 +++-- .../realgud/realgud/debugger/trepan.pl/init.el |2 +- 11 files changed, 77 insertions(+), 40 deletions(-)
[elpa] master 6a41dc7 4/6: Add starting directory in info and...
branch: master commit 6a41dc7bfbbf0cf68e9e660d82493fe2548f0ee6 Author: rocky Commit: rocky Add starting directory in info and... set top-frame-num in various debuggers --- realgud/common/buffer/command.el | 10 -- realgud/common/core.el | 21 + realgud/common/file.el |4 ++-- realgud/common/run.el |5 + realgud/common/track.el| 19 +++ realgud/debugger/bashdb/init.el|3 +++ realgud/debugger/jdb/init.el | 21 +++-- realgud/debugger/kshdb/init.el |3 +++ realgud/debugger/remake/init.el| 15 +-- realgud/debugger/trepan.pl/init.el |2 +- 10 files changed, 70 insertions(+), 33 deletions(-) diff --git a/realgud/common/buffer/command.el b/realgud/common/buffer/command.el index fb80190..760db53 100644 --- a/realgud/common/buffer/command.el +++ b/realgud/common/buffer/command.el @@ -102,7 +102,9 @@ loc-hist ;; ring of locations seen in the course of execution ;; see realgud-lochist -) + starting-directory;; directory where initial debug command was issued. +;; this can be used to resolve relative file names + ) (make-variable-buffer-local 'realgud-cmdbuf-info) (make-variable-buffer-local 'realgud-last-output-start) @@ -122,6 +124,7 @@ (realgud-struct-field-setter "realgud-cmdbuf-info" "in-debugger?") (realgud-struct-field-setter "realgud-cmdbuf-info" "callback-loc-fn") (realgud-struct-field-setter "realgud-cmdbuf-info" "callback-eval-filter") +(realgud-struct-field-setter "realgud-cmdbuf-info" "starting-directory") (defun realgud:cmdbuf-follow-buffer(event) (interactive "e") @@ -167,6 +170,8 @@ Information is put in an internal buffer called *Describe*." (json-encode (realgud-cmdbuf-info-debugger-name info))) (format " - Command-line args ::\t%s\n" (json-encode (realgud-cmdbuf-info-cmd-args info))) +(format " - Starting directory ::\t%s\n" +(realgud-cmdbuf-info-starting-directory info)) (format " - Selected window should contain source? :: %s\n" (realgud-cmdbuf-info-in-srcbuf? info)) (format " - Last input end::\t%s\n" @@ -286,7 +291,8 @@ Information is put in an internal buffer called *Describe*." ;; removed. (defun realgud-cmdbuf-init - (cmd-buf debugger-name regexp-hash &optional cmd-hash base-variable-name) +(cmd-buf debugger-name regexp-hash &optional cmd-hash base-variable-name +starting-directory) "Initialize CMD-BUF for a working with a debugger. DEBUGGER-NAME is the name of the debugger; REGEXP-HASH are debugger-specific values set in the debugger's init.el." diff --git a/realgud/common/core.el b/realgud/common/core.el index ad5dd6a..e97c440 100644 --- a/realgud/common/core.el +++ b/realgud/common/core.el @@ -36,6 +36,7 @@ (declare-function realgud-cmdbuf-debugger-name'realgud-buffer-command) (declare-function realgud-cmdbuf-info-bp-list='realgud-buffer-command) (declare-function realgud-cmdbuf-info-in-debugger?= 'realgud-buffer-command) +(declare-function realgud-cmdbuf-info-starting-directory= 'realgud-buffer-command) (declare-function realgud-cmdbuf-mode-line-update 'realgud-buffer-command) (declare-function realgud-cmdbuf? 'realgud-helper) (declare-function realgud-command-string 'realgud-buffer-command) @@ -50,6 +51,7 @@ (declare-function realgud-suggest-lang-file 'realgud-lang) (defvar realgud-srcbuf-info) +(defvar starting-directory) (defun realgud:expand-file-name-if-exists (filename) "Return FILENAME expanded using `expand-file-name' if that name exists. @@ -227,20 +229,20 @@ NO-RESET is nil, then that information which may point into other buffers and source buffers which may contain marks and fringe or marginal icons is reset." - (let* ((starting-directory + (let* ((current-directory (or (file-name-directory script-filename) default-directory "./")) (cmdproc-buffer-name - (replace-regexp-in-string "\s+" "\s" -(format "*%s %s shell*" - (file-name-nondirectory debugger-name) - (file-name-nondirectory script-filename + (replace-regexp-in-string + "\s+" "\s" + (format "*%s %s shell*" + (file-name-nondirectory debugger-name) + (file-name-nondirectory script-filename (cmdproc-buffer (get-buffer-create cmdproc-buffer-name)) (realgud-buf (current-buffer)) (cmd-args (cons program args)) (process (get-buffer-process cmdproc-buffer))) - (with-current-buffer cmdproc-buffer ;; If the found command buffer isn't for the same debugger ;; invocati
[elpa] master 3bef00c 2/6: Merge branch 'master' of github.com:realgud/realgud
branch: master commit 3bef00cbd4c0d64a53114ab7c702408c8d8df92b Merge: 3551ab2 573eb08 Author: rocky Commit: rocky Merge branch 'master' of github.com:realgud/realgud --- realgud.el |3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/realgud.el b/realgud.el index 8e0fa97..b16cc48 100644 --- a/realgud.el +++ b/realgud.el @@ -24,7 +24,8 @@ ;;; Commentary: -;; A modular GNU Emacs front-end for interacting with external debuggers. +;; A modular, extensible GNU Emacs front-end for interacting with +;; external debuggers. ;; ;; Quick start: https://github.com/realgud/realgud/ ;;
[elpa] master db34a79 5/6: (require 'files) is unnecessary - preloaded
branch: master commit db34a79efd068f28643cefd6f16a7329ba24dbf1 Author: rocky Commit: rocky (require 'files) is unnecessary - preloaded --- realgud/common/core.el |1 - 1 file changed, 1 deletion(-) diff --git a/realgud/common/core.el b/realgud/common/core.el index e97c440..d7dade7 100644 --- a/realgud/common/core.el +++ b/realgud/common/core.el @@ -13,7 +13,6 @@ ;; GNU General Public License for more details. ;; (require 'term) -(require 'files) (if (< emacs-major-version 24) (error
[elpa] master 3551ab2 1/6: Ignore process send errors
branch: master commit 3551ab20b46d0cb460c2a4d0c5c2f1c0e107a840 Author: rocky Commit: rocky Ignore process send errors --- realgud/common/send.el | 13 +++-- 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/realgud/common/send.el b/realgud/common/send.el index c068c4f..b8b1f7e 100644 --- a/realgud/common/send.el +++ b/realgud/common/send.el @@ -1,4 +1,4 @@ -;; Copyright (C) 2015 Free Software Foundation, Inc +;; Copyright (C) 2015, 2016 Free Software Foundation, Inc ;; Author: Rocky Bernstein @@ -31,11 +31,12 @@ "Sends command buffer line either to comint or eshell" (interactive) (let ((mode (realgud:canonic-major-mode))) -(cond ((eq mode 'eshell) - (eshell-send-input)) - ((eq mode 'comint) - (comint-send-input)) - ))) +(ignore-errors + (cond ((eq mode 'eshell) +(eshell-send-input)) + ((eq mode 'comint) +(comint-send-input)) + (defun realgud:send-command-common (process command-str) "Assume we are in a comint buffer. Insert COMMAND-STR and
[elpa] master bbc1edc 2/2: Merge branch 'master' of https://github.com/leoliu/temp-buffer-browse
branch: master
commit bbc1edcf377950ca6412fd25402ba1117a9af107
Merge: 56bf176 db6041b
Author: Leo Liu
Commit: Leo Liu
Merge branch 'master' of https://github.com/leoliu/temp-buffer-browse
---
packages/temp-buffer-browse/temp-buffer-browse.el | 37 +
1 file changed, 24 insertions(+), 13 deletions(-)
diff --git a/packages/temp-buffer-browse/temp-buffer-browse.el
b/packages/temp-buffer-browse/temp-buffer-browse.el
index 70871af..0a63ac2 100644
--- a/packages/temp-buffer-browse/temp-buffer-browse.el
+++ b/packages/temp-buffer-browse/temp-buffer-browse.el
@@ -1,9 +1,10 @@
;;; temp-buffer-browse.el --- temp buffer browse mode -*- lexical-binding: t;
-*-
-;; Copyright (C) 2013-2014 Free Software Foundation, Inc.
+;; Copyright (C) 2013-2016 Free Software Foundation, Inc.
;; Author: Leo Liu
-;; Version: 1.4
+;; Version: 1.5
+;; Package-Requires: ((emacs "24"))
;; Keywords: convenience
;; This program is free software; you can redistribute it and/or modify
@@ -96,6 +97,9 @@
(define-key map [backspace] down)
map))
+(defvar temp-buffer-browse--last-exit #'ignore
+ "The \"exit-function\" of the last call to `set-transient-map'.")
+
;;;###autoload
(defun temp-buffer-browse-activate ()
"Activate temporary key bindings for current window.
@@ -133,17 +137,24 @@ scroll down and close the temp buffer window,
respectively."
;; negative priority.
(unless (bound-and-true-p adaptive-wrap-prefix-mode)
(overlay-put o 'wrap-prefix (overlay-get o 'line-prefix)))
- (set-transient-map
- temp-buffer-browse-map
- (lambda ()
- ;; When any error happens the keymap is active forever.
- (with-demoted-errors
- (or (and (window-live-p temp-buffer-browse--window)
-(not (member (this-command-keys) '("\C-m" [return])))
-(eq this-command (lookup-key temp-buffer-browse-map
- (this-command-keys
- (ignore (overlay-put o 'line-prefix nil)
- (overlay-put o 'wrap-prefix nil)
+ ;; Workaround for bug http://debbugs.gnu.org/24149.
+ (funcall temp-buffer-browse--last-exit)
+ (setq temp-buffer-browse--last-exit
+(set-transient-map
+ temp-buffer-browse-map
+ (lambda ()
+ ;; If uncaught any error will make the keymap active
+ ;; forever.
+ (condition-case err
+ (or (and (window-live-p temp-buffer-browse--window)
+(not (member (this-command-keys) '("\C-m"
[return])))
+(eq this-command (lookup-key temp-buffer-browse-map
+ (this-command-keys
+ (ignore (setq temp-buffer-browse--last-exit #'ignore)
+ (overlay-put o 'line-prefix nil)
+ (overlay-put o 'wrap-prefix nil)))
+ (error (message "%s:%s" this-command (error-message-string
err))
+nil
;;;###autoload
(define-minor-mode temp-buffer-browse-mode nil
[elpa] master db6041b 1/2: Work around bug http://debbugs.gnu.org/24149
branch: master
commit db6041b0413fdeefb1f1285e1d9c1039c10fbf04
Author: Leo Liu
Commit: Leo Liu
Work around bug http://debbugs.gnu.org/24149
which may leave many #:clear-transient-map's in pre-command-hook.
---
temp-buffer-browse.el | 37 -
1 file changed, 24 insertions(+), 13 deletions(-)
diff --git a/temp-buffer-browse.el b/temp-buffer-browse.el
index 70871af..0a63ac2 100644
--- a/temp-buffer-browse.el
+++ b/temp-buffer-browse.el
@@ -1,9 +1,10 @@
;;; temp-buffer-browse.el --- temp buffer browse mode -*- lexical-binding: t;
-*-
-;; Copyright (C) 2013-2014 Free Software Foundation, Inc.
+;; Copyright (C) 2013-2016 Free Software Foundation, Inc.
;; Author: Leo Liu
-;; Version: 1.4
+;; Version: 1.5
+;; Package-Requires: ((emacs "24"))
;; Keywords: convenience
;; This program is free software; you can redistribute it and/or modify
@@ -96,6 +97,9 @@
(define-key map [backspace] down)
map))
+(defvar temp-buffer-browse--last-exit #'ignore
+ "The \"exit-function\" of the last call to `set-transient-map'.")
+
;;;###autoload
(defun temp-buffer-browse-activate ()
"Activate temporary key bindings for current window.
@@ -133,17 +137,24 @@ scroll down and close the temp buffer window,
respectively."
;; negative priority.
(unless (bound-and-true-p adaptive-wrap-prefix-mode)
(overlay-put o 'wrap-prefix (overlay-get o 'line-prefix)))
- (set-transient-map
- temp-buffer-browse-map
- (lambda ()
- ;; When any error happens the keymap is active forever.
- (with-demoted-errors
- (or (and (window-live-p temp-buffer-browse--window)
-(not (member (this-command-keys) '("\C-m" [return])))
-(eq this-command (lookup-key temp-buffer-browse-map
- (this-command-keys
- (ignore (overlay-put o 'line-prefix nil)
- (overlay-put o 'wrap-prefix nil)
+ ;; Workaround for bug http://debbugs.gnu.org/24149.
+ (funcall temp-buffer-browse--last-exit)
+ (setq temp-buffer-browse--last-exit
+(set-transient-map
+ temp-buffer-browse-map
+ (lambda ()
+ ;; If uncaught any error will make the keymap active
+ ;; forever.
+ (condition-case err
+ (or (and (window-live-p temp-buffer-browse--window)
+(not (member (this-command-keys) '("\C-m"
[return])))
+(eq this-command (lookup-key temp-buffer-browse-map
+ (this-command-keys
+ (ignore (setq temp-buffer-browse--last-exit #'ignore)
+ (overlay-put o 'line-prefix nil)
+ (overlay-put o 'wrap-prefix nil)))
+ (error (message "%s:%s" this-command (error-message-string
err))
+nil
;;;###autoload
(define-minor-mode temp-buffer-browse-mode nil
[elpa] master cac14ff: * packages/realgud/realgud.el: Add missing cl-lib dependency
branch: master commit cac14ff71d61c6b58d4be6055df6ce53fddc80bb Author: Stefan Monnier Commit: Stefan Monnier * packages/realgud/realgud.el: Add missing cl-lib dependency * : Remove unneeded (require 'cl) and replace the other ones with (require 'cl-lib) * packages/realgud/test/test-common-helper.el (realgud-test-info): * packages/realgud/realgud/common/regexp.el (realgud-loc-pat): * packages/realgud/realgud/common/lochist.el (realgud-loc-hist): * packages/realgud/realgud/common/buffer/info.el (realgud-backtrace-info): * packages/realgud/realgud/common/loc.el (realgud-loc): Use `cl-defstruct'. * packages/realgud/test/test-track.el: * packages/realgud/test/test-regexp.el: * packages/realgud/test/test-regexp-ruby.el: * packages/realgud/test/test-regexp-rdebug.el: * packages/realgud/test/test-core.el: Use lexical-binding rather than lexical-let. * packages/realgud/realgud/common/run.el (realgud:run-process, realgud:run-debugger): Use cl-remove-if and cl-remove-duplicates. * packages/realgud/realgud/common/track.el (realgud-track-bp-loc): Fix typo. --- packages/realgud/ChangeLog | 23 packages/realgud/realgud.el|5 ++--- packages/realgud/realgud/common/attach.el |3 +-- packages/realgud/realgud/common/backtrack-mode.el |1 - packages/realgud/realgud/common/buffer/info.el |6 ++--- packages/realgud/realgud/common/cmds.el|2 +- packages/realgud/realgud/common/fringe.el |5 + packages/realgud/realgud/common/helper.el |3 +-- packages/realgud/realgud/common/loc.el |6 +++-- packages/realgud/realgud/common/lochist.el |5 +++-- packages/realgud/realgud/common/regexp.el |4 ++-- packages/realgud/realgud/common/run.el |8 +++ packages/realgud/realgud/common/send.el|2 +- packages/realgud/realgud/common/track-mode.el |3 +-- packages/realgud/realgud/common/track.el |2 +- packages/realgud/realgud/debugger/bashdb/core.el |3 +-- packages/realgud/realgud/debugger/bashdb/init.el |5 ++--- .../realgud/realgud/debugger/bashdb/track-mode.el |1 - packages/realgud/realgud/debugger/gdb/core.el |5 + packages/realgud/realgud/debugger/gdb/gdb.el |1 - packages/realgud/realgud/debugger/gdb/init.el |2 +- .../realgud/realgud/debugger/gdb/track-mode.el |1 - packages/realgud/realgud/debugger/gub/core.el |4 +--- packages/realgud/realgud/debugger/gub/init.el |4 ++-- .../realgud/realgud/debugger/gub/track-mode.el |1 - packages/realgud/realgud/debugger/ipdb/core.el |2 -- packages/realgud/realgud/debugger/ipdb/init.el |2 +- .../realgud/realgud/debugger/ipdb/track-mode.el|1 - .../realgud/realgud/debugger/jdb/backtrack-mode.el |3 +-- packages/realgud/realgud/debugger/jdb/core.el |4 +--- packages/realgud/realgud/debugger/jdb/init.el |2 +- packages/realgud/realgud/debugger/jdb/jdb.el |3 +-- .../realgud/realgud/debugger/jdb/track-mode.el |1 - packages/realgud/realgud/debugger/kshdb/core.el|4 +--- packages/realgud/realgud/debugger/kshdb/init.el|2 +- .../realgud/realgud/debugger/kshdb/track-mode.el |3 +-- packages/realgud/realgud/debugger/nodejs/core.el |4 +--- packages/realgud/realgud/debugger/nodejs/init.el |4 ++-- .../realgud/realgud/debugger/nodejs/track-mode.el |3 +-- packages/realgud/realgud/debugger/pdb/core.el |2 -- packages/realgud/realgud/debugger/pdb/init.el |4 ++-- packages/realgud/realgud/debugger/pdb/pdb.el |2 +- .../realgud/realgud/debugger/pdb/track-mode.el |3 +-- packages/realgud/realgud/debugger/perldb/core.el |4 +--- packages/realgud/realgud/debugger/perldb/init.el |2 +- .../realgud/realgud/debugger/perldb/track-mode.el |3 +-- packages/realgud/realgud/debugger/rdebug/core.el |4 +--- packages/realgud/realgud/debugger/rdebug/init.el |2 +- .../realgud/realgud/debugger/rdebug/track-mode.el |3 +-- packages/realgud/realgud/debugger/remake/core.el |4 +--- packages/realgud/realgud/debugger/remake/init.el |2 +- .../realgud/realgud/debugger/remake/track-mode.el |1 - .../realgud/debugger/trepan.pl/backtrack-mode.el |3 +-- .../realgud/realgud/debugger/trepan.pl/core.el |4 +--- .../realgud/realgud/debugger/trepan.pl/init.el |2 +- .../realgud/debugger/trepan.pl/track-mode.el |1 - .../realgud/debugger/trepan/backtrack-mode.el |3 +-- packages/realgud/realgud/debugger/trepan/core.el |2 -- packages/realgud/realgud/debugger/trepan/init.el |2 +- .../realgud/realgud/debugger/trepan/track-mode.el |3 +-- packages/realgud/realgud/debugger/trepan2/core.
[elpa] master 65d8e28 1/6: cl -> cl-lib and other goodies
branch: master commit 65d8e28378caba97cbce219a6f89b429531a8a04 Author: Stefan Monnier Commit: Stefan Monnier cl -> cl-lib and other goodies * packages/realgud/realgud.el: Add missing cl-lib dependency * : Remove unneeded (require 'cl) and replace the other ones with (require 'cl-lib) * packages/realgud/test/test-common-helper.el (realgud-test-info): * packages/realgud/realgud/common/regexp.el (realgud-loc-pat): * packages/realgud/realgud/common/lochist.el (realgud-loc-hist): * packages/realgud/realgud/common/buffer/info.el (realgud-backtrace-info): * packages/realgud/realgud/common/loc.el (realgud-loc): Use `cl-defstruct'. * packages/realgud/test/test-track.el: * packages/realgud/test/test-regexp.el: * packages/realgud/test/test-regexp-ruby.el: * packages/realgud/test/test-regexp-rdebug.el: * packages/realgud/test/test-core.el: Use lexical-binding rather than lexical-let. * packages/realgud/realgud/common/run.el (realgud:run-process, realgud:run-debugger): Use cl-remove-if and cl-remove-duplicates. * packages/realgud/realgud/common/track.el (realgud-track-bp-loc): Fix typo. --- ChangeLog| 23 +++ realgud.el |5 ++--- realgud/common/attach.el |3 +-- realgud/common/backtrack-mode.el |1 - realgud/common/buffer/info.el|6 +++--- realgud/common/cmds.el |2 +- realgud/common/fringe.el |5 + realgud/common/helper.el |3 +-- realgud/common/loc.el|6 -- realgud/common/lochist.el|5 +++-- realgud/common/regexp.el |4 ++-- realgud/common/run.el|8 realgud/common/send.el |2 +- realgud/common/track-mode.el |3 +-- realgud/common/track.el |2 +- realgud/debugger/bashdb/core.el |3 +-- realgud/debugger/bashdb/init.el |5 ++--- realgud/debugger/bashdb/track-mode.el|1 - realgud/debugger/gdb/core.el |5 + realgud/debugger/gdb/gdb.el |1 - realgud/debugger/gdb/init.el |2 +- realgud/debugger/gdb/track-mode.el |1 - realgud/debugger/gub/core.el |4 +--- realgud/debugger/gub/init.el |4 ++-- realgud/debugger/gub/track-mode.el |1 - realgud/debugger/ipdb/core.el|2 -- realgud/debugger/ipdb/init.el|2 +- realgud/debugger/ipdb/track-mode.el |1 - realgud/debugger/jdb/backtrack-mode.el |3 +-- realgud/debugger/jdb/core.el |4 +--- realgud/debugger/jdb/init.el |2 +- realgud/debugger/jdb/jdb.el |3 +-- realgud/debugger/jdb/track-mode.el |1 - realgud/debugger/kshdb/core.el |4 +--- realgud/debugger/kshdb/init.el |2 +- realgud/debugger/kshdb/track-mode.el |3 +-- realgud/debugger/nodejs/core.el |4 +--- realgud/debugger/nodejs/init.el |4 ++-- realgud/debugger/nodejs/track-mode.el|3 +-- realgud/debugger/pdb/core.el |2 -- realgud/debugger/pdb/init.el |4 ++-- realgud/debugger/pdb/pdb.el |2 +- realgud/debugger/pdb/track-mode.el |3 +-- realgud/debugger/perldb/core.el |4 +--- realgud/debugger/perldb/init.el |2 +- realgud/debugger/perldb/track-mode.el|3 +-- realgud/debugger/rdebug/core.el |4 +--- realgud/debugger/rdebug/init.el |2 +- realgud/debugger/rdebug/track-mode.el|3 +-- realgud/debugger/remake/core.el |4 +--- realgud/debugger/remake/init.el |2 +- realgud/debugger/remake/track-mode.el|1 - realgud/debugger/trepan.pl/backtrack-mode.el |3 +-- realgud/debugger/trepan.pl/core.el |4 +--- realgud/debugger/trepan.pl/init.el |2 +- realgud/debugger/trepan.pl/track-mode.el |1 - realgud/debugger/trepan/backtrack-mode.el|3 +-- realgud/debugger/trepan/core.el |2 -- realgud/debugger/trepan/init.el |2 +- realgud/debugger/trepan/track-mode.el|3 +-- realgud/debugger/trepan2/core.el |4 +--- realgud/debugger/trepan2/init.el |2 +- realgud/debugger/trepan2/track-mode.el |1 - realgud/debugger/trepan3k/core.el|4 +--- realgud/debugger/trepan3k/init.el|2 +- realgud/debugger/trepan3k/track-mode.el |3 +-- realgud/debugger/trepanjs/backtrack-mode.
[elpa] master 030ed17 4/6: Merge commit 'ff57536e7c8e7dd2b5bfdf803fe78327b572e080'
branch: master
commit 030ed174d38db7b6a875ba6433e78a254d2b60e1
Merge: cac14ff ff57536
Author: rocky
Commit: rocky
Merge commit 'ff57536e7c8e7dd2b5bfdf803fe78327b572e080'
---
packages/realgud/.gitignore |1 +
packages/realgud/Makefile.am|2 +-
packages/realgud/THANKS |2 +-
packages/realgud/autogen.sh |1 +
packages/realgud/common.mk | 10 --
packages/realgud/common.mk.in | 25 +
packages/realgud/configure.ac |1 +
packages/realgud/realgud.el |4
packages/realgud/test/Makefile.am |1 -
packages/realgud/test/bt-helper.el |4 +---
packages/realgud/test/test-buf-cmd.el |1 +
packages/realgud/test/test-regexp-gdb.el|1 +
packages/realgud/test/test-regexp-rdebug.el |4
13 files changed, 41 insertions(+), 16 deletions(-)
diff --git a/packages/realgud/.gitignore b/packages/realgud/.gitignore
index 125299c..843d43b 100644
--- a/packages/realgud/.gitignore
+++ b/packages/realgud/.gitignore
@@ -7,6 +7,7 @@
/README
/aclocal.m4
/autom4te.cache
+/common.mk
/config.log
/config.status
/configure
diff --git a/packages/realgud/Makefile.am b/packages/realgud/Makefile.am
index e2fcd7a..5514e4b 100644
--- a/packages/realgud/Makefile.am
+++ b/packages/realgud/Makefile.am
@@ -13,7 +13,7 @@ include common.mk
PHONY=check clean dist distclean test check-short check-terse install-short
-EXTRA_DIST+=common.mk README.md THANKS
+EXTRA_DIST=common.mk README.md THANKS $(lisp_files) test/gcd.py test/gcd.rb
test/gdb
if MAINTAINER_MODE
diff --git a/packages/realgud/THANKS b/packages/realgud/THANKS
index 3bdda08..3bac612 100644
--- a/packages/realgud/THANKS
+++ b/packages/realgud/THANKS
@@ -13,5 +13,5 @@ Sean Farley - ipdb support
Clément Pit-Claudel - improvements, bug fixes, and emacs compliance too varied
to categorize.
See git commits for details
-
+Stefan Monnier - Elisp and ELPA guidance
amelio-vazquez-reina - documentation
diff --git a/packages/realgud/autogen.sh b/packages/realgud/autogen.sh
index 8948b34..cbe8d87 100755
--- a/packages/realgud/autogen.sh
+++ b/packages/realgud/autogen.sh
@@ -1,5 +1,6 @@
#!/bin/sh
ln -fs README.md README
+touch common.mk
autoreconf -vi && \
autoconf && {
echo "Running configure with --enable-maintainer-mode $@"
diff --git a/packages/realgud/common.mk b/packages/realgud/common.mk
deleted file mode 100644
index c8fc92a..000
--- a/packages/realgud/common.mk
+++ /dev/null
@@ -1,10 +0,0 @@
-lisp_files := $(wildcard *.el)
-lisp_LISP = $(lisp_files)
-EXTRA_DIST = $(lisp_files)
-MOSTLYCLEANFILES = *.elc
-
-short:
- $(MAKE) 2>&1 >/dev/null | ruby $(top_srcdir)/make-check-filter.rb
-
-%.short:
- $(MAKE) $(@:.short=) 2>&1 >/dev/null
diff --git a/packages/realgud/common.mk.in b/packages/realgud/common.mk.in
new file mode 100644
index 000..0a2358e
--- /dev/null
+++ b/packages/realgud/common.mk.in
@@ -0,0 +1,25 @@
+lisp_files := $(wildcard *.el)
+lisp_LISP = $(lisp_files)
+MOSTLYCLEANFILES = *.elc
+
+short:
+ $(MAKE) 2>&1 >/dev/null | ruby $(top_srcdir)/make-check-filter.rb
+
+%.short:
+ $(MAKE) $(@:.short=) 2>&1 >/dev/null
+
+# This is the default rule, but we need to include an EMACLOADPATH
+.el.elc:
+ if test "$(EMACS)" != "no"; then \
+ am__dir=. am__subdir_includes=''; \
+ case $@ in */*) \
+ am__dir=`echo '$@' | sed 's,/[^/]*$$,,'`; \
+ am__subdir_includes="-L $$am__dir -L $(srcdir)/$$am__dir"; \
+ esac; \
+ test -d "$$am__dir" || $(MKDIR_P) "$$am__dir" || exit 1; \
+ EMACSLOADPATH=$(EMACSLOADPATH) $(EMACS) --batch \
+ $(AM_ELCFLAGS) $(ELCFLAGS) \
+ $$am__subdir_includes -L $(builddir) -L $(srcdir) \
+ --eval "(defun byte-compile-dest-file (f) \"$@\")" \
+ --eval "(unless (byte-compile-file \"$<\") (kill-emacs 1))"; \
+ else :; fi
diff --git a/packages/realgud/configure.ac b/packages/realgud/configure.ac
index a5f0706..d9cc1c1 100644
--- a/packages/realgud/configure.ac
+++ b/packages/realgud/configure.ac
@@ -60,6 +60,7 @@ AC_SUBST([lispdir_realgud])
AM_CONDITIONAL(INSTALL_EMACS_LISP, test "x$lispdir_realgud" != "x")
AC_CONFIG_FILES([Makefile \
+common.mk \
realgud/Makefile \
realgud/common/Makefile \
realgud/common/buffer/Makefile \
diff --git a/packages/realgud/realgud.el b/packages/realgud/realgud.el
index 026dbb4..2035b9d 100644
--- a/packages/realgud/realgud.el
+++ b/packages/realgud/realgud.el
@@ -65,6 +65,10 @@
;;; Code:
+;; Press C-x C-e at the end of the next line configure the program in
+;; for building via "make" to get set up.
+;; (compile (format "EMACSLOADPATH=:%s:%s ./autogen.sh" (file-name-directory
(locate-library "test-simple.elc")) (file-name-directory (locate-library
[elpa] master 5f47b1f 5/6: Fix up INSTALL. Tolerate older emacs
branch: master commit 5f47b1f64cad8a06e945e2a1287b986a3676554d Author: rocky Commit: rocky Fix up INSTALL. Tolerate older emacs --- INSTALL | 250 - INSTALL.md|5 ++ Makefile.am |2 +- test/bt-helper.el |3 +- 4 files changed, 8 insertions(+), 252 deletions(-) diff --git a/INSTALL b/INSTALL deleted file mode 100644 index 0ea147f..000 --- a/INSTALL +++ /dev/null @@ -1,250 +0,0 @@ -Installation Instructions -* - -Copyright (C) 1994, 1995, 1996, 1999, 2000, 2001, 2002, 2004, 2005, -2006, 2007, 2008, 2009 Free Software Foundation, Inc. - - Copying and distribution of this file, with or without modification, -are permitted in any medium without royalty provided the copyright -notice and this notice are preserved. This file is offered as-is, -without warranty of any kind. - -Basic Installation -== - - Briefly, the shell commands `./configure && make' should configure, -and build this package. If that succeeds `make install' will install -the package. However on some systems you may need root privileges, you -may have to use `sudo make install' or perhaps `su root' beforehand. - - - See http://wiki.github.com/realgud/realgud/how-to-install for more -detail as to how to install this package. - -Generic Information -=== - - The `configure' shell script attempts to guess correct values for -various system-dependent variables used during compilation. It uses -those values to create a `Makefile' in each directory of the package. -It also creates a shell script `config.status' that you can run in -the future to recreate the current configuration, and a file -`config.log' containing compiler output (useful mainly for debugging -`configure'). - - The configure script can also use an optional file (typically -called `config.cache' and enabled with `--cache-file=config.cache' or -simply `-C') that saves the results of its tests to speed up -reconfiguring. Caching is disabled by default to prevent problems -with accidental use of stale cache files. - - If you need to do unusual things to compile the package, please try -to figure out how `configure' could check whether to do them, and mail -diffs or instructions to the address given in the `README' so they can -be considered for the next release. If you are using the cache, and at -some point `config.cache' contains results you don't want to keep, you -may remove or edit it. - - The file `configure.ac' is used to create `configure' by a program -called `autoconf'. You need `configure.ac' if you want to change it -or regenerate `configure' using a newer version of `autoconf'. - - The simplest way to compile this package is: - - 1. `cd' to the directory containing the package's source code and type - `./configure' to configure the package for your system. - - Running `configure' might take a while. While running, it prints - some messages telling which features it is checking for. - - 2. Type `make' to compile the package. - - 3. Optionally, type `make check' to run any self-tests that come with - the package, generally using the just-built uninstalled binaries. - - 4. Type `make install' to install the programs and any data files and - documentation. When installing into a prefix owned by root, it is - recommended that the package be configured and built as a regular - user, and only the `make install' phase executed with root - privileges. - - 5. You can remove the compiled Emacs Lisp files and other derived - files from the source code directory by typing `make clean'. To - also remove the files that `configure' created (so you can - compile the package for a different kind of computer), type `make - distclean'. There is also a `make maintainer-clean' target, but - that is intended mainly for the package's developers. If you use - it, you may have to get all sorts of other programs in order to - regenerate files that came with the distribution. - - 6. You can also type `make uninstall' to remove the installed files - again. - - 7. We don't provide `make distcheck' right now, but perhaps someday - we will. This is by used by developers to test that all other - targets like `make install' and `make uninstall' work correctly. - This target is generally not run by end users. - -Options -= - - Run `./configure --help' for details on the pertinent -environment variables. - - You can give `configure' initial values for configuration parameters -by setting variables in the command line or in the environment. Here -is an example: - - ./configure CC=c99 EMACS=/usr/bin/emacs23-x - - *Note Defining Variables::, for more details. - -Installation Names -== - - By default, `make install' installs the package's emacs files under -`/usr/local/share/emacs/site-lisp', You can s
[elpa] master updated (cac14ff -> d68f312)
rocky pushed a change to branch master. from cac14ff * packages/realgud/realgud.el: Add missing cl-lib dependency new 65d8e28 cl -> cl-lib and other goodies new b49cde2 Set EMACSLOADPATH in make. remove more .el lint new ff57536 Administrivia new 030ed17 Merge commit 'ff57536e7c8e7dd2b5bfdf803fe78327b572e080' new 5f47b1f Fix up INSTALL. Tolerate older emacs new d68f312 Merge commit '5f47b1f64cad8a06e945e2a1287b986a3676554d' Summary of changes: packages/realgud/.gitignore |1 + packages/realgud/INSTALL| 250 --- packages/realgud/INSTALL.md |5 + packages/realgud/Makefile.am|2 +- packages/realgud/THANKS |2 +- packages/realgud/autogen.sh |1 + packages/realgud/common.mk | 10 -- packages/realgud/common.mk.in | 25 +++ packages/realgud/configure.ac |1 + packages/realgud/realgud.el |4 + packages/realgud/test/Makefile.am |1 - packages/realgud/test/bt-helper.el |1 - packages/realgud/test/test-buf-cmd.el |1 + packages/realgud/test/test-regexp-gdb.el|1 + packages/realgud/test/test-regexp-rdebug.el |4 + 15 files changed, 45 insertions(+), 264 deletions(-) delete mode 100644 packages/realgud/INSTALL create mode 100644 packages/realgud/INSTALL.md delete mode 100644 packages/realgud/common.mk create mode 100644 packages/realgud/common.mk.in
[elpa] master b49cde2 2/6: Set EMACSLOADPATH in make. remove more .el lint
branch: master
commit b49cde2b202a057eed453b1cc99a3c4128eeec6b
Author: rocky
Commit: rocky
Set EMACSLOADPATH in make. remove more .el lint
---
Makefile.am|2 +-
autogen.sh |1 +
common.mk | 10 --
common.mk.in | 25 +
configure.ac |1 +
realgud.el |4
test/Makefile.am |1 -
test/bt-helper.el |4 +---
test/test-buf-cmd.el |1 +
test/test-regexp-gdb.el|1 +
test/test-regexp-rdebug.el |4
11 files changed, 39 insertions(+), 15 deletions(-)
diff --git a/Makefile.am b/Makefile.am
index e2fcd7a..5514e4b 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -13,7 +13,7 @@ include common.mk
PHONY=check clean dist distclean test check-short check-terse install-short
-EXTRA_DIST+=common.mk README.md THANKS
+EXTRA_DIST=common.mk README.md THANKS $(lisp_files) test/gcd.py test/gcd.rb
test/gdb
if MAINTAINER_MODE
diff --git a/autogen.sh b/autogen.sh
index 8948b34..cbe8d87 100755
--- a/autogen.sh
+++ b/autogen.sh
@@ -1,5 +1,6 @@
#!/bin/sh
ln -fs README.md README
+touch common.mk
autoreconf -vi && \
autoconf && {
echo "Running configure with --enable-maintainer-mode $@"
diff --git a/common.mk b/common.mk
deleted file mode 100644
index c8fc92a..000
--- a/common.mk
+++ /dev/null
@@ -1,10 +0,0 @@
-lisp_files := $(wildcard *.el)
-lisp_LISP = $(lisp_files)
-EXTRA_DIST = $(lisp_files)
-MOSTLYCLEANFILES = *.elc
-
-short:
- $(MAKE) 2>&1 >/dev/null | ruby $(top_srcdir)/make-check-filter.rb
-
-%.short:
- $(MAKE) $(@:.short=) 2>&1 >/dev/null
diff --git a/common.mk.in b/common.mk.in
new file mode 100644
index 000..0a2358e
--- /dev/null
+++ b/common.mk.in
@@ -0,0 +1,25 @@
+lisp_files := $(wildcard *.el)
+lisp_LISP = $(lisp_files)
+MOSTLYCLEANFILES = *.elc
+
+short:
+ $(MAKE) 2>&1 >/dev/null | ruby $(top_srcdir)/make-check-filter.rb
+
+%.short:
+ $(MAKE) $(@:.short=) 2>&1 >/dev/null
+
+# This is the default rule, but we need to include an EMACLOADPATH
+.el.elc:
+ if test "$(EMACS)" != "no"; then \
+ am__dir=. am__subdir_includes=''; \
+ case $@ in */*) \
+ am__dir=`echo '$@' | sed 's,/[^/]*$$,,'`; \
+ am__subdir_includes="-L $$am__dir -L $(srcdir)/$$am__dir"; \
+ esac; \
+ test -d "$$am__dir" || $(MKDIR_P) "$$am__dir" || exit 1; \
+ EMACSLOADPATH=$(EMACSLOADPATH) $(EMACS) --batch \
+ $(AM_ELCFLAGS) $(ELCFLAGS) \
+ $$am__subdir_includes -L $(builddir) -L $(srcdir) \
+ --eval "(defun byte-compile-dest-file (f) \"$@\")" \
+ --eval "(unless (byte-compile-file \"$<\") (kill-emacs 1))"; \
+ else :; fi
diff --git a/configure.ac b/configure.ac
index a5f0706..d9cc1c1 100644
--- a/configure.ac
+++ b/configure.ac
@@ -60,6 +60,7 @@ AC_SUBST([lispdir_realgud])
AM_CONDITIONAL(INSTALL_EMACS_LISP, test "x$lispdir_realgud" != "x")
AC_CONFIG_FILES([Makefile \
+common.mk \
realgud/Makefile \
realgud/common/Makefile \
realgud/common/buffer/Makefile \
diff --git a/realgud.el b/realgud.el
index 026dbb4..2035b9d 100644
--- a/realgud.el
+++ b/realgud.el
@@ -65,6 +65,10 @@
;;; Code:
+;; Press C-x C-e at the end of the next line configure the program in
+;; for building via "make" to get set up.
+;; (compile (format "EMACSLOADPATH=:%s:%s ./autogen.sh" (file-name-directory
(locate-library "test-simple.elc")) (file-name-directory (locate-library
"load-relative.elc")) (file-name-directory (locate-library "loc-changes.elc"
+
(require 'load-relative)
(defgroup realgud nil
diff --git a/test/Makefile.am b/test/Makefile.am
index c56f333..0fba6da 100644
--- a/test/Makefile.am
+++ b/test/Makefile.am
@@ -1,7 +1,6 @@
include $(top_srcdir)/common.mk
PHONY=check test all check-elget test-elget help
-EXTRA_DIST += gcd.py gcd.rb gdb
#: overall help on running the make targets
help:
diff --git a/test/bt-helper.el b/test/bt-helper.el
index 5236a55..e836b26 100644
--- a/test/bt-helper.el
+++ b/test/bt-helper.el
@@ -37,9 +37,7 @@ for DEBUGGER-NAME and initializes it to STRING"
(goto-char (point-min))
(setq buffer-read-only nil)
(insert string)
-(font-lock-fontify-buffer)
-;; Newer emacs's use:
-;; (font-lock-ensure)
+(font-lock-ensure)
(goto-char (point-min))
)
temp-bt
diff --git a/test/test-buf-cmd.el b/test/test-buf-cmd.el
index f54ddb1..48aa2ee 100644
--- a/test/test-buf-cmd.el
+++ b/test/test-buf-cmd.el
@@ -10,6 +10,7 @@
(declare-function realgud-cmdbuf-debugger-name 'realgud-buffer-command)
(declare-function realgud-cmdbuf-info-srcbuf-list 'realgud-buffer-command)
(declare-function realgud-cmdbuf-add-srcbuf 'realgud-buffer-command)
+(declare-function realgud-cmdbuf? 'realgud-buffer-command)
(test-simple-start)
diff --git a/test/test-regexp-gdb.el b/test/test-regexp-gdb.e
[elpa] master d68f312 6/6: Merge commit '5f47b1f64cad8a06e945e2a1287b986a3676554d'
branch: master commit d68f3120acffe7aa603839b34105460516cd37f1 Merge: 030ed17 5f47b1f Author: rocky Commit: rocky Merge commit '5f47b1f64cad8a06e945e2a1287b986a3676554d' --- packages/realgud/INSTALL | 250 packages/realgud/INSTALL.md|5 + packages/realgud/Makefile.am |2 +- packages/realgud/test/bt-helper.el |3 +- 4 files changed, 8 insertions(+), 252 deletions(-) diff --git a/packages/realgud/INSTALL b/packages/realgud/INSTALL deleted file mode 100644 index 0ea147f..000 --- a/packages/realgud/INSTALL +++ /dev/null @@ -1,250 +0,0 @@ -Installation Instructions -* - -Copyright (C) 1994, 1995, 1996, 1999, 2000, 2001, 2002, 2004, 2005, -2006, 2007, 2008, 2009 Free Software Foundation, Inc. - - Copying and distribution of this file, with or without modification, -are permitted in any medium without royalty provided the copyright -notice and this notice are preserved. This file is offered as-is, -without warranty of any kind. - -Basic Installation -== - - Briefly, the shell commands `./configure && make' should configure, -and build this package. If that succeeds `make install' will install -the package. However on some systems you may need root privileges, you -may have to use `sudo make install' or perhaps `su root' beforehand. - - - See http://wiki.github.com/realgud/realgud/how-to-install for more -detail as to how to install this package. - -Generic Information -=== - - The `configure' shell script attempts to guess correct values for -various system-dependent variables used during compilation. It uses -those values to create a `Makefile' in each directory of the package. -It also creates a shell script `config.status' that you can run in -the future to recreate the current configuration, and a file -`config.log' containing compiler output (useful mainly for debugging -`configure'). - - The configure script can also use an optional file (typically -called `config.cache' and enabled with `--cache-file=config.cache' or -simply `-C') that saves the results of its tests to speed up -reconfiguring. Caching is disabled by default to prevent problems -with accidental use of stale cache files. - - If you need to do unusual things to compile the package, please try -to figure out how `configure' could check whether to do them, and mail -diffs or instructions to the address given in the `README' so they can -be considered for the next release. If you are using the cache, and at -some point `config.cache' contains results you don't want to keep, you -may remove or edit it. - - The file `configure.ac' is used to create `configure' by a program -called `autoconf'. You need `configure.ac' if you want to change it -or regenerate `configure' using a newer version of `autoconf'. - - The simplest way to compile this package is: - - 1. `cd' to the directory containing the package's source code and type - `./configure' to configure the package for your system. - - Running `configure' might take a while. While running, it prints - some messages telling which features it is checking for. - - 2. Type `make' to compile the package. - - 3. Optionally, type `make check' to run any self-tests that come with - the package, generally using the just-built uninstalled binaries. - - 4. Type `make install' to install the programs and any data files and - documentation. When installing into a prefix owned by root, it is - recommended that the package be configured and built as a regular - user, and only the `make install' phase executed with root - privileges. - - 5. You can remove the compiled Emacs Lisp files and other derived - files from the source code directory by typing `make clean'. To - also remove the files that `configure' created (so you can - compile the package for a different kind of computer), type `make - distclean'. There is also a `make maintainer-clean' target, but - that is intended mainly for the package's developers. If you use - it, you may have to get all sorts of other programs in order to - regenerate files that came with the distribution. - - 6. You can also type `make uninstall' to remove the installed files - again. - - 7. We don't provide `make distcheck' right now, but perhaps someday - we will. This is by used by developers to test that all other - targets like `make install' and `make uninstall' work correctly. - This target is generally not run by end users. - -Options -= - - Run `./configure --help' for details on the pertinent -environment variables. - - You can give `configure' initial values for configuration parameters -by setting variables in the command line or in the environment. Here -is an example: - - ./configure CC=c99 EMACS=/usr/bin/emacs23-x - - *Note Defining Variables::, for more details. - -Installation Nam
[elpa] master ff57536 3/6: Administrivia
branch: master commit ff57536e7c8e7dd2b5bfdf803fe78327b572e080 Author: rocky Commit: rocky Administrivia --- .gitignore |1 + THANKS |2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/.gitignore b/.gitignore index 125299c..843d43b 100644 --- a/.gitignore +++ b/.gitignore @@ -7,6 +7,7 @@ /README /aclocal.m4 /autom4te.cache +/common.mk /config.log /config.status /configure diff --git a/THANKS b/THANKS index 3bdda08..3bac612 100644 --- a/THANKS +++ b/THANKS @@ -13,5 +13,5 @@ Sean Farley - ipdb support Clément Pit-Claudel - improvements, bug fixes, and emacs compliance too varied to categorize. See git commits for details - +Stefan Monnier - Elisp and ELPA guidance amelio-vazquez-reina - documentation
[elpa] master 87f30ef 2/2: Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs/elpa
branch: master commit 87f30ef8a74139e763f4248b7d1bc531b585186e Merge: 87c8aaa d68f312 Author: Mario Lang Commit: Mario Lang Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs/elpa --- packages/realgud/.gitignore |1 + packages/realgud/INSTALL| 250 --- packages/realgud/INSTALL.md |5 + packages/realgud/Makefile.am|2 +- packages/realgud/THANKS |2 +- packages/realgud/autogen.sh |1 + packages/realgud/common.mk | 10 -- packages/realgud/common.mk.in | 25 +++ packages/realgud/configure.ac |1 + packages/realgud/realgud.el |4 + packages/realgud/test/Makefile.am |1 - packages/realgud/test/bt-helper.el |1 - packages/realgud/test/test-buf-cmd.el |1 + packages/realgud/test/test-regexp-gdb.el|1 + packages/realgud/test/test-regexp-rdebug.el |4 + 15 files changed, 45 insertions(+), 264 deletions(-) diff --git a/packages/realgud/.gitignore b/packages/realgud/.gitignore index 125299c..843d43b 100644 --- a/packages/realgud/.gitignore +++ b/packages/realgud/.gitignore @@ -7,6 +7,7 @@ /README /aclocal.m4 /autom4te.cache +/common.mk /config.log /config.status /configure diff --git a/packages/realgud/INSTALL b/packages/realgud/INSTALL deleted file mode 100644 index 0ea147f..000 --- a/packages/realgud/INSTALL +++ /dev/null @@ -1,250 +0,0 @@ -Installation Instructions -* - -Copyright (C) 1994, 1995, 1996, 1999, 2000, 2001, 2002, 2004, 2005, -2006, 2007, 2008, 2009 Free Software Foundation, Inc. - - Copying and distribution of this file, with or without modification, -are permitted in any medium without royalty provided the copyright -notice and this notice are preserved. This file is offered as-is, -without warranty of any kind. - -Basic Installation -== - - Briefly, the shell commands `./configure && make' should configure, -and build this package. If that succeeds `make install' will install -the package. However on some systems you may need root privileges, you -may have to use `sudo make install' or perhaps `su root' beforehand. - - - See http://wiki.github.com/realgud/realgud/how-to-install for more -detail as to how to install this package. - -Generic Information -=== - - The `configure' shell script attempts to guess correct values for -various system-dependent variables used during compilation. It uses -those values to create a `Makefile' in each directory of the package. -It also creates a shell script `config.status' that you can run in -the future to recreate the current configuration, and a file -`config.log' containing compiler output (useful mainly for debugging -`configure'). - - The configure script can also use an optional file (typically -called `config.cache' and enabled with `--cache-file=config.cache' or -simply `-C') that saves the results of its tests to speed up -reconfiguring. Caching is disabled by default to prevent problems -with accidental use of stale cache files. - - If you need to do unusual things to compile the package, please try -to figure out how `configure' could check whether to do them, and mail -diffs or instructions to the address given in the `README' so they can -be considered for the next release. If you are using the cache, and at -some point `config.cache' contains results you don't want to keep, you -may remove or edit it. - - The file `configure.ac' is used to create `configure' by a program -called `autoconf'. You need `configure.ac' if you want to change it -or regenerate `configure' using a newer version of `autoconf'. - - The simplest way to compile this package is: - - 1. `cd' to the directory containing the package's source code and type - `./configure' to configure the package for your system. - - Running `configure' might take a while. While running, it prints - some messages telling which features it is checking for. - - 2. Type `make' to compile the package. - - 3. Optionally, type `make check' to run any self-tests that come with - the package, generally using the just-built uninstalled binaries. - - 4. Type `make install' to install the programs and any data files and - documentation. When installing into a prefix owned by root, it is - recommended that the package be configured and built as a regular - user, and only the `make install' phase executed with root - privileges. - - 5. You can remove the compiled Emacs Lisp files and other derived - files from the source code directory by typing `make clean'. To - also remove the files that `configure' created (so you can - compile the package for a different kind of computer), type `make - distclean'. There is also a `make maintainer-clean' target, but - that is intended mainly for the
[elpa] master 87c8aaa 1/2: Improve performance of poker-hand-value by a factor of 4
branch: master commit 87c8aaaf72326f0fd3c9fbb1a9dd6a050890ce3a Author: Mario Lang Commit: Mario Lang Improve performance of poker-hand-value by a factor of 4 `cl-count' is unnecessarily expensive, as it at least uses `length' and `nthcdr' which we really don't need in this performance cricital code path. Rewriting it without `cl-count' turns up another opportunity to speed up, as we actually don't need to check the whole list to count occurances of unique elements. For one, we can start counting from 1 (not 0) if we encounter the first element, and we only need to check the rest of the list of cards. Also, stop using `mapcar' with `poker-card-rank' to allow it to actually be inlined. This turns out to make poker-hand-value *a lot* faster. Mission accomplished. --- packages/poker/poker.el | 22 -- 1 file changed, 16 insertions(+), 6 deletions(-) diff --git a/packages/poker/poker.el b/packages/poker/poker.el index 61888ae..d2896e7 100644 --- a/packages/poker/poker.el +++ b/packages/poker/poker.el @@ -93,15 +93,25 @@ RANK is one of `poker-ranks' and SUIT is one of `poker-suits'." The result is a 24 bit integer where the leftmost 4 bits (0-8) indicate the type of hand, and the remaining nibbles are rank values of decisive cards. The highest possible value is therefore #x8CBA98 and the lowest is #x053210." - (let* ((ranks (mapcar #'poker-card-rank hand)) -(rank-counts (sort (mapcar (lambda (rank) (cons (cl-count rank ranks) rank)) - (cl-remove-duplicates ranks)) + (let* ((rank-counts (sort (let ((cards hand) result) + (while cards + (let ((rank (poker-card-rank (car cards + (unless (rassq rank result) + (push (cons (let ((count 1)) + (dolist (card (cdr cards) count) + (when (eq (poker-card-rank card) + rank) + (setq count (1+ count) + rank) + result))) + (setq cards (cdr cards))) + result) (lambda (lhs rhs) (or (> (car lhs) (car rhs)) (and (= (car lhs) (car rhs)) (> (cdr lhs) (cdr rhs))) -(ranks-length (length rank-counts))) -(setq ranks (mapcar #'cdr rank-counts) - rank-counts (mapcar #'car rank-counts)) +(ranks-length (length rank-counts)) +(ranks (mapcar #'cdr rank-counts))) +(setq rank-counts (mapcar #'car rank-counts)) (logior (cond ((eq ranks-length 4) #x10) ((eq ranks-length 5)
[elpa] master 0ba1f7c 5/9: * admin/archive-contents.el: Use cl-lib
branch: master commit 0ba1f7cd6728ede4bf59572c5a2fe1496bf9654f Author: Stefan Monnier Commit: Stefan Monnier * admin/archive-contents.el: Use cl-lib --- admin/archive-contents.el |6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/admin/archive-contents.el b/admin/archive-contents.el index 6f19177..8424615 100755 --- a/admin/archive-contents.el +++ b/admin/archive-contents.el @@ -21,7 +21,7 @@ ;;; Code: -(eval-when-compile (require 'cl)) +(eval-when-compile (require 'cl-lib)) (require 'lisp-mnt) (require 'package) (require 'pcase) @@ -36,8 +36,8 @@ (when vers (let ((l (version-to-list vers))) ;; Signal an error for things like "1.02" which is parsed as "1.2". - (assert (equal vers (package-version-join l)) nil - "Unsupported version syntax %S" vers) + (cl-assert (equal vers (package-version-join l)) nil + "Unsupported version syntax %S" vers) l))) (defun archive--convert-require (elt)
[elpa] master 82f29e0 3/9: * tests/dbus-codegen-tests.el: Fix up compilation
branch: master
commit 82f29e03f90db52c7874b48476dcfaa51956dc6d
Author: Stefan Monnier
Commit: Stefan Monnier
* tests/dbus-codegen-tests.el: Fix up compilation
(dbus-codegen-tests-introspection-data): Define during compilation.
---
packages/dbus-codegen/tests/dbus-codegen-tests.el |7 ---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/packages/dbus-codegen/tests/dbus-codegen-tests.el
b/packages/dbus-codegen/tests/dbus-codegen-tests.el
index 2303976..6184c46 100644
--- a/packages/dbus-codegen/tests/dbus-codegen-tests.el
+++ b/packages/dbus-codegen/tests/dbus-codegen-tests.el
@@ -1,4 +1,4 @@
-;; Copyright (C) 2015 Free Software Foundation, Inc.
+;; Copyright (C) 2015-2016 Free Software Foundation, Inc.
;; This file is part of GNU Emacs.
@@ -58,7 +58,8 @@
'(:array (:dict-entry :string :int32))
'(("a" . 1) ("b" . 2) ("c" . 3))
-(defconst dbus-codegen-tests-introspection-data "\
+(eval-when-compile
+ (defconst dbus-codegen-tests-introspection-data "\
@@ -79,7 +80,7 @@
value='false'/>
-")
+"))
(ert-deftest dbus-codegen-define-proxy ()
(dbus-codegen-define-proxy test-proxy
[elpa] master 131b4a4 1/9: * sml-mode/sml-mode.el: Use cl-lib.
branch: master
commit 131b4a4c5e806eb5fbd759340f7fd49e5702e945
Author: Stefan Monnier
Commit: Stefan Monnier
* sml-mode/sml-mode.el: Use cl-lib.
---
packages/sml-mode/sml-mode.el | 27 ++-
1 file changed, 14 insertions(+), 13 deletions(-)
diff --git a/packages/sml-mode/sml-mode.el b/packages/sml-mode/sml-mode.el
index 9e17e3f..e94b571 100644
--- a/packages/sml-mode/sml-mode.el
+++ b/packages/sml-mode/sml-mode.el
@@ -1,8 +1,8 @@
;;; sml-mode.el --- Major mode for editing (Standard) ML -*- lexical-binding:
t; coding: utf-8 -*-
-;; Copyright (C) 1989,1999,2000,2004,2007,2010-2015 Free Software Foundation,
Inc.
+;; Copyright (C) 1989,1999,2000,2004,2007,2010-2016 Free Software Foundation,
Inc.
-;; Maintainer: (Stefan Monnier)
+;; Maintainer: Stefan Monnier
;; Version: 6.7
;; Keywords: SML
;; Author: Lars Bo Nielsen
@@ -12,6 +12,7 @@
;; Matthew Morley
;; Matthias Blume
;; (Stefan Monnier)
+;; Package-Requires: ((emacs "24") (cl-lib "0.5"))
;; This file is part of GNU Emacs.
@@ -113,7 +114,7 @@
;;; Code:
-(eval-when-compile (require 'cl))
+(eval-when-compile (require 'cl-lib))
(require 'smie nil 'noerror)
(require 'electric)
@@ -218,8 +219,8 @@ notion of \"the end of an outline\".")
(defconst sml-=-starter-syms
- (list* "|" "val" "fun" "and" "datatype" "type" "abstype" "eqtype"
-sml-module-head-syms)
+ `("|" "val" "fun" "and" "datatype" "type" "abstype" "eqtype"
+. ,sml-module-head-syms)
"Symbols that can be followed by a `='.")
(defconst sml-=-starter-re
(concat "\\S.|\\S.\\|" (sml-syms-re (cdr sml-=-starter-syms)))
@@ -500,7 +501,7 @@ Regexp match data 0 points to the chars."
;; and bar = Bar of string
(save-excursion
(let ((max (line-end-position 0))
-(data (smie-backward-sexp "and"))
+(_data (smie-backward-sexp "and"))
(startcol (save-excursion
(forward-comment (- (point)))
(current-column)))
@@ -721,7 +722,7 @@ Assumes point is right before the | symbol."
"The inferior-process buffer to which to send code.")
(make-variable-buffer-local 'sml-prog-proc--buffer)
-(defstruct (sml-prog-proc-descriptor
+(cl-defstruct (sml-prog-proc-descriptor
(:constructor sml-prog-proc-make)
(:predicate nil)
(:copier nil))
@@ -890,10 +891,10 @@ Prefix arg AND-GO also means to switch to the
read-eval-loop buffer afterwards."
;; Look for files to determine the default command.
(while (and (stringp dir)
(progn
- (dolist (cf (sml-prog-proc--prop compile-commands-alist))
+ (cl-dolist (cf (sml-prog-proc--prop compile-commands-alist))
(when (file-exists-p (expand-file-name (cdr cf) dir))
(setq cmd (concat cmd "\"; " (car cf)))
- (return nil)))
+ (cl-return nil)))
(not cmd)))
(let ((newdir (file-name-directory (directory-file-name dir
(setq dir (unless (equal newdir dir) newdir))
@@ -916,10 +917,10 @@ Prefix arg AND-GO also means to switch to the
read-eval-loop buffer afterwards."
;; ;; now look for command's file to determine the directory
;; (setq dir default-directory)
;; (while (and (stringp dir)
- ;;(dolist (cf (sml-prog-proc--prop compile-commands-alist) t)
+ ;;(cl-dolist (cf (sml-prog-proc--prop compile-commands-alist)
t)
;; (when (and (equal cmd (car cf))
;; (file-exists-p (expand-file-name (cdr cf)
dir)))
- ;;(return nil
+ ;;(cl-return nil
;; (let ((newdir (file-name-directory (directory-file-name dir
;; (setq dir (unless (equal newdir dir) newdir
;; (setq dir (or dir default-directory))
@@ -1097,7 +1098,7 @@ on which to run CMD using `remote-shell-program'.
(setq sml-host-name host)
;; For remote execution, use `remote-shell-program'
(when (> (length host) 0)
- (setq args (list* host "cd" default-directory ";" cmd args))
+ (setq args `(,host "cd" ,default-directory ";" ,cmd . ,args))
(setq cmd remote-shell-program))
;; Go for it.
(save-current-buffer
@@ -1462,7 +1463,7 @@ Depending on the context insert the name of function, a
\"=>\" etc."
(end-of-line)
(while (and (> count 0)
(setq name (sml-beginning-of-defun)))
- (decf count)
+ (cl-decf count)
(setq fullname (if fullname (concat name "." fullname) name))
;; Skip all other declarations that we find at the same level.
(sml-skip-siblings))
[elpa] master cca0fc3 8/9: * web-server/examples: Don't load `htmlize' during byte-compilation
branch: master commit cca0fc39b1d7516fba8b6dbc3b42b2f6317c8ce1 Author: Stefan Monnier Commit: Stefan Monnier * web-server/examples: Don't load `htmlize' during byte-compilation * web-server/examples/015-auto-mode-server.el: Use lexical-binding rather than lexical-let. --- packages/web-server/examples/010-current-buffer.el |4 ++-- packages/web-server/examples/011-org-agenda.el |4 ++-- packages/web-server/examples/015-auto-mode-server.el |8 3 files changed, 8 insertions(+), 8 deletions(-) diff --git a/packages/web-server/examples/010-current-buffer.el b/packages/web-server/examples/010-current-buffer.el index 8a651ac..bb68974 100644 --- a/packages/web-server/examples/010-current-buffer.el +++ b/packages/web-server/examples/010-current-buffer.el @@ -1,7 +1,7 @@ ;;; current-buffer.el --- Show the current Emacs buffer -;; Copyright (C) 2014 Free Software Foundation, Inc. +;; Copyright (C) 2014, 2016 Free Software Foundation, Inc. -(require 'htmlize) +(if t (require 'htmlize)) ;Don't require during compilation. (ws-start (lambda (request) diff --git a/packages/web-server/examples/011-org-agenda.el b/packages/web-server/examples/011-org-agenda.el index 6bca980..8e2ee8b 100644 --- a/packages/web-server/examples/011-org-agenda.el +++ b/packages/web-server/examples/011-org-agenda.el @@ -1,7 +1,7 @@ ;;; org-agenda.el --- display the Org-mode agenda -;; Copyright (C) 2014 Free Software Foundation, Inc. +;; Copyright (C) 2014, 2016 Free Software Foundation, Inc. -(require 'htmlize) +(if t (require 'htmlize)) ;Don't require during compilation. (ws-start (lambda (request) diff --git a/packages/web-server/examples/015-auto-mode-server.el b/packages/web-server/examples/015-auto-mode-server.el index 5a36a93..c9ae294 100644 --- a/packages/web-server/examples/015-auto-mode-server.el +++ b/packages/web-server/examples/015-auto-mode-server.el @@ -1,9 +1,9 @@ -;;; auto-mode-server.el --- files with fontification from the `auto-mode-alist' -;; Copyright (C) 2014 Free Software Foundation, Inc. +;;; auto-mode-server.el --- files with fontification from the `auto-mode-alist' -*- lexical-binding:t -*- +;; Copyright (C) 2014, 2016 Free Software Foundation, Inc. -(require 'htmlize) +(if t (require 'htmlize)) ;Don't require during compilation. -(lexical-let ((docroot default-directory)) +(let ((docroot default-directory)) (ws-start (lambda (request) (with-slots (process headers) request
[elpa] master updated (87f30ef -> b7d8d3c)
monnier pushed a change to branch master. from 87f30ef Merge branch 'master' of git.sv.gnu.org:/srv/git/emacs/elpa new 131b4a4 * sml-mode/sml-mode.el: Use cl-lib. new 58977fd * stream/stream.el (stream--generalizer): Accept more arguments new 82f29e0 * tests/dbus-codegen-tests.el: Fix up compilation new 7afb5d7 * test/subdir/test-require-list-from-subdir.el: Don't byte-compile new 0ba1f7c * admin/archive-contents.el: Use cl-lib new e8a62fa * externals-list: Add diffview new 65ffd9f * diffview.el (diffview-mode-map): Define explicitly new cca0fc3 * web-server/examples: Don't load `htmlize' during byte-compilation new b7d8d3c * fixtures/test/: Don't byte-compile Summary of changes: admin/archive-contents.el |6 ++--- externals-list |1 + packages/context-coloring/fixtures/test/cond.el|1 + .../fixtures/test/condition-case.el|1 + packages/context-coloring/fixtures/test/defun.el |1 + packages/context-coloring/fixtures/test/ignored.el |1 + packages/context-coloring/fixtures/test/let.el |1 + .../fixtures/test/macroexp-let2.el |1 + .../fixtures/test/unbalanced-parenthesis.el|1 + .../fixtures/test/varlist-spacing.el |1 + packages/dbus-codegen/tests/dbus-codegen-tests.el |7 ++--- packages/diffview/diffview.el | 12 - .../test/subdir/test-require-list-from-subdir.el |4 ++- packages/sml-mode/sml-mode.el | 27 ++-- packages/stream/stream.el |7 +++-- packages/web-server/examples/010-current-buffer.el |4 +-- packages/web-server/examples/011-org-agenda.el |4 +-- .../web-server/examples/015-auto-mode-server.el|8 +++--- 18 files changed, 50 insertions(+), 38 deletions(-)
[elpa] master e8a62fa 6/9: * externals-list: Add diffview
branch: master
commit e8a62fa326a881ee148cd14563710891ea0ac47d
Author: Stefan Monnier
Commit: Stefan Monnier
* externals-list: Add diffview
---
externals-list |1 +
1 file changed, 1 insertion(+)
diff --git a/externals-list b/externals-list
index 8a6c8fa..00dffd4 100644
--- a/externals-list
+++ b/externals-list
@@ -45,6 +45,7 @@
("dash":external "https://github.com/magnars/dash.el.git";)
("dbus-codegen" :subtree "https://github.com/ueno/dbus-codegen-el.git";)
("delight":subtree "http://git.savannah.gnu.org/r/delight.git";)
+ ("diffview":subtree "https://github.com/mgalgs/diffview-mode.git";)
("diff-hl":subtree "https://github.com/dgutov/diff-hl.git";)
("dismal" :external nil)
("dts-mode" :subtree "https://github.com/bgamari/dts-mode.git";)
[elpa] master b7d8d3c 9/9: * fixtures/test/: Don't byte-compile
branch: master commit b7d8d3ca7f1bc279a3e8b21646ccea481c93ed46 Author: Stefan Monnier Commit: Stefan Monnier * fixtures/test/: Don't byte-compile --- packages/context-coloring/fixtures/test/cond.el |1 + packages/context-coloring/fixtures/test/condition-case.el |1 + packages/context-coloring/fixtures/test/defun.el |1 + packages/context-coloring/fixtures/test/ignored.el|1 + packages/context-coloring/fixtures/test/let.el|1 + packages/context-coloring/fixtures/test/macroexp-let2.el |1 + packages/context-coloring/fixtures/test/unbalanced-parenthesis.el |1 + packages/context-coloring/fixtures/test/varlist-spacing.el|1 + 8 files changed, 8 insertions(+) diff --git a/packages/context-coloring/fixtures/test/cond.el b/packages/context-coloring/fixtures/test/cond.el index d5aae5b..5ed1ec2 100644 --- a/packages/context-coloring/fixtures/test/cond.el +++ b/packages/context-coloring/fixtures/test/cond.el @@ -1,3 +1,4 @@ +;; -*- no-byte-compile:t' -*- (let (a) (cond (a t) diff --git a/packages/context-coloring/fixtures/test/condition-case.el b/packages/context-coloring/fixtures/test/condition-case.el index 151f591..56a5f44 100644 --- a/packages/context-coloring/fixtures/test/condition-case.el +++ b/packages/context-coloring/fixtures/test/condition-case.el @@ -1,3 +1,4 @@ +;; -*- no-byte-compile:t' -*- (condition-case err (progn err free) (error err free) diff --git a/packages/context-coloring/fixtures/test/defun.el b/packages/context-coloring/fixtures/test/defun.el index 10a52f6..173ba0b 100644 --- a/packages/context-coloring/fixtures/test/defun.el +++ b/packages/context-coloring/fixtures/test/defun.el @@ -1,3 +1,4 @@ +;; -*- no-byte-compile:t' -*- (defun abc (def ghi &optional jkl) (+ def ghi jkl free)) diff --git a/packages/context-coloring/fixtures/test/ignored.el b/packages/context-coloring/fixtures/test/ignored.el index 1f5fd42..0c540ff 100644 --- a/packages/context-coloring/fixtures/test/ignored.el +++ b/packages/context-coloring/fixtures/test/ignored.el @@ -1,2 +1,3 @@ +;; -*- no-byte-compile:t' -*- (defun a () (+ a 1 +1 -1 1.0 #x0 ,a \a :a t nil (0 . 0))) diff --git a/packages/context-coloring/fixtures/test/let.el b/packages/context-coloring/fixtures/test/let.el index 49edb50..761a265 100644 --- a/packages/context-coloring/fixtures/test/let.el +++ b/packages/context-coloring/fixtures/test/let.el @@ -1,3 +1,4 @@ +;; -*- no-byte-compile:t' -*- (let (a (b a) (c free) diff --git a/packages/context-coloring/fixtures/test/macroexp-let2.el b/packages/context-coloring/fixtures/test/macroexp-let2.el index 1b61df2..97fbb23 100644 --- a/packages/context-coloring/fixtures/test/macroexp-let2.el +++ b/packages/context-coloring/fixtures/test/macroexp-let2.el @@ -1,3 +1,4 @@ +;; -*- no-byte-compile:t' -*- (let (exp) (macroexp-let2 macroexp-copyable-p v exp v exp)) diff --git a/packages/context-coloring/fixtures/test/unbalanced-parenthesis.el b/packages/context-coloring/fixtures/test/unbalanced-parenthesis.el index caaf7e2..e028aef 100644 --- a/packages/context-coloring/fixtures/test/unbalanced-parenthesis.el +++ b/packages/context-coloring/fixtures/test/unbalanced-parenthesis.el @@ -1,2 +1,3 @@ +;; -*- no-byte-compile:t' -*- (let ()) (let () diff --git a/packages/context-coloring/fixtures/test/varlist-spacing.el b/packages/context-coloring/fixtures/test/varlist-spacing.el index 97ec208..399cd18 100644 --- a/packages/context-coloring/fixtures/test/varlist-spacing.el +++ b/packages/context-coloring/fixtures/test/varlist-spacing.el @@ -1,3 +1,4 @@ +;; -*- no-byte-compile:t' -*- (let ( (a (lambda ()
[elpa] master 7afb5d7 4/9: * test/subdir/test-require-list-from-subdir.el: Don't byte-compile
branch: master commit 7afb5d7387acaaf6a5c5ae834a4a49d75245d507 Author: Stefan Monnier Commit: Stefan Monnier * test/subdir/test-require-list-from-subdir.el: Don't byte-compile --- .../load-relative/test/subdir/test-require-list-from-subdir.el |4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/packages/load-relative/test/subdir/test-require-list-from-subdir.el b/packages/load-relative/test/subdir/test-require-list-from-subdir.el index 880b4f3..cf4a91f 100644 --- a/packages/load-relative/test/subdir/test-require-list-from-subdir.el +++ b/packages/load-relative/test/subdir/test-require-list-from-subdir.el @@ -1,4 +1,6 @@ -;; Copyright (C) 2015 Free Software Foundation, Inc +;; Can't find the "test-unit" package, so: -*- no-byte-compile:t -*- + +;; Copyright (C) 2015-2016 Free Software Foundation, Inc ;; Author: Rocky Bernstein
[elpa] master 65ffd9f 7/9: * diffview.el (diffview-mode-map): Define explicitly
branch: master commit 65ffd9f7eafdebdb251cd8c4ca4d1a89f75088f9 Author: Stefan Monnier Commit: Stefan Monnier * diffview.el (diffview-mode-map): Define explicitly --- packages/diffview/diffview.el | 12 ++-- 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/packages/diffview/diffview.el b/packages/diffview/diffview.el index 2455c67..a684b05 100644 --- a/packages/diffview/diffview.el +++ b/packages/diffview/diffview.el @@ -173,11 +173,13 @@ This is useful for reading patches from mailing lists." (setq end (1+ (point))) (diffview--view-string (buffer-substring beg end) +(defvar diffview-mode-map + (let ((map (make-sparse-keymap))) +(define-key map (kbd "q") 'diffview--quit) +map)) - -;;; You probably don't want to invoke `diffview-mode' directly. Just use -;;; one of the autoload functions above. - +;; You probably don't want to invoke `diffview-mode' directly. Just use +;; one of the autoload functions above. (define-derived-mode diffview-mode special-mode "Diffview" "Mode for viewing diffs side-by-side" (setq font-lock-defaults '(diff-font-lock-keywords t nil nil nil (font-lock-multiline . nil @@ -193,8 +195,6 @@ This is useful for reading patches from mailing lists." (if minusbuf (kill-buffer minusbuf))) (set-window-configuration diffview--saved-wincfg)) -(define-key diffview-mode-map (kbd "q") 'diffview--quit) - (provide 'diffview) ;;; diffview.el ends here ;;
[elpa] master 58977fd 2/9: * stream/stream.el (stream--generalizer): Accept more arguments
branch: master commit 58977fd96d3050c52267eed5a0227e37abaa4b2a Author: Stefan Monnier Commit: Stefan Monnier * stream/stream.el (stream--generalizer): Accept more arguments (streamp): Use car-safe. --- packages/stream/stream.el |7 +++ 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/packages/stream/stream.el b/packages/stream/stream.el index 853251e..8c156f1 100644 --- a/packages/stream/stream.el +++ b/packages/stream/stream.el @@ -148,8 +148,7 @@ range is infinite." (defun streamp (stream) "Return non-nil if STREAM is a stream, nil otherwise." - (and (consp stream) - (eq (car stream) stream--identifier))) + (eq (car-safe stream) stream--identifier)) (defun stream-empty () "Return a new empty stream." @@ -197,10 +196,10 @@ elements in the STREAMS in order." (cl-generic-define-generalizer stream--generalizer 11 - (lambda (name) + (lambda (name &rest _) `(when (streamp ,name) 'stream)) - (lambda (tag) + (lambda (tag &rest _) (when (eq tag 'stream) '(stream
