diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 8 | ||||
| -rw-r--r-- | lisp/ChangeLog.10 | 2 | ||||
| -rw-r--r-- | lisp/Makefile.in | 5 | ||||
| -rw-r--r-- | lisp/info.el | 1 | ||||
| -rw-r--r-- | lisp/net/tramp.el | 2 | ||||
| -rw-r--r-- | lisp/obsolete/gulp.el | 2 | ||||
| -rw-r--r-- | lisp/progmodes/gud.el | 3 | ||||
| -rw-r--r-- | lisp/url/ChangeLog | 8 | ||||
| -rw-r--r-- | lisp/url/url-http.el | 3 |
9 files changed, 25 insertions, 9 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ec0a8c4a31f..62a603b6790 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,13 @@ 2014-12-08 Stefan Monnier <monnier@iro.umontreal.ca> + * progmodes/gud.el (gud-gdb-completions): Remove unused var `start'. + + * obsolete/gulp.el (gulp-create-m-p-alist): Remove unused var `mnt-tm'. + + * net/tramp.el (tramp-handle-make-symbolic-link): Mark unused arg. + + * info.el (Info-mode-map): Remove left-over binding. + * emacs-lisp/avl-tree.el: Use lexical-binding and cl-lib. (avl-tree--root): Remove redundant defsetf. diff --git a/lisp/ChangeLog.10 b/lisp/ChangeLog.10 index bcd2dacd0f9..6e65e4ca493 100644 --- a/lisp/ChangeLog.10 +++ b/lisp/ChangeLog.10 @@ -8452,7 +8452,7 @@ * vc-sccs.el (vc-sccs-registered): Improve comment. -2002-11-13 Tim Van Holder <tim.vanholder@anubex.com> (tiny change) +2002-11-13 Tim Van Holder <tim.vanholder@anubex.com> * progmodes/compile.el (compilation-error-regexp-alist): Don't include colon and space after a file name as part of the name. diff --git a/lisp/Makefile.in b/lisp/Makefile.in index 84d92c21e7b..f22ca69996b 100644 --- a/lisp/Makefile.in +++ b/lisp/Makefile.in @@ -472,6 +472,11 @@ maintainer-clean: distclean bootstrap-clean check-declare: $(emacs) -l check-declare --eval '(check-declare-directory "$(lisp)")' +check-defun-dups: + sed -n -e '/^(defun /s/\(.\)(.*/\1/p' \ + $$(find . -name '*.el' -print | grep -v 'loaddefs\.el') \ + | sort | uniq -d + # Dependencies ## None of the following matters for bootstrap, which is the only way diff --git a/lisp/info.el b/lisp/info.el index 2a8ba9064b2..7c4d7f33231 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -4013,7 +4013,6 @@ If FORK is non-nil, it is passed to `Info-goto-node'." (define-key map "," 'Info-index-next) (define-key map "\177" 'Info-scroll-down) (define-key map [mouse-2] 'Info-mouse-follow-nearest-node) - (define-key map [down-mouse-2] 'ignore) ;Override potential global binding. (define-key map [follow-link] 'mouse-face) (define-key map [XF86Back] 'Info-history-back) (define-key map [XF86Forward] 'Info-history-forward) diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index fc9950d4a69..2cf9d45b965 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -3226,7 +3226,7 @@ User is always nil." t))) (defun tramp-handle-make-symbolic-link - (filename linkname &optional ok-if-already-exists) + (filename linkname &optional _ok-if-already-exists) "Like `make-symbolic-link' for Tramp files." (with-parsed-tramp-file-name (if (tramp-tramp-file-p filename) filename linkname) nil diff --git a/lisp/obsolete/gulp.el b/lisp/obsolete/gulp.el index 00cb896bf65..66394b409fe 100644 --- a/lisp/obsolete/gulp.el +++ b/lisp/obsolete/gulp.el @@ -137,7 +137,7 @@ is left in the `*gulp*' buffer at the end." "Create the maintainer/package alist for files in FLIST in DIR. That is a list of elements, each of the form (MAINTAINER PACKAGES...)." (save-excursion - (let (mplist filen node mnt-tm mnt tm fl-tm) + (let (mplist filen node mnt tm fl-tm) (get-buffer-create gulp-tmp-buffer) (set-buffer gulp-tmp-buffer) (setq buffer-undo-list t) diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 24d5469adc3..a12bdd99f23 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -803,8 +803,7 @@ directory and source-file directory for your debugger." "Completion table for GDB commands. COMMAND is the prefix for which we seek completion. CONTEXT is the text before COMMAND on the line." - (let* ((start (- (point) (field-beginning))) - (complete-list + (let* ((complete-list (gud-gdb-run-command-fetch-lines (concat "complete " context command) (current-buffer) ;; From string-match above. diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog index 18fc2a1b8c0..b39c67effbb 100644 --- a/lisp/url/ChangeLog +++ b/lisp/url/ChangeLog @@ -1,3 +1,7 @@ +2014-12-08 Stefan Monnier <monnier@iro.umontreal.ca> + + * url-http.el (url-http-activate-callback): Make debug more verbose. + 2014-12-05 Stefan Monnier <monnier@iro.umontreal.ca> * url-future.el (url-future-done-p, url-future-completed-p) @@ -21,8 +25,8 @@ 2014-11-05 Teodor Zlatanov <tzz@lifelogs.com> * url-http.el (url-user-agent): New variable, can be function or - string. Suggested by Vibhav Pant <vibhavp@ubuntu.com>. Add - :version. (Bug#16498) + string. Suggested by Vibhav Pant <vibhavp@ubuntu.com>. + Add :version. (Bug#16498) (url-http-user-agent-string): Use it. diff --git a/lisp/url/url-http.el b/lisp/url/url-http.el index 1001c4deada..3d5b6be80ac 100644 --- a/lisp/url/url-http.el +++ b/lisp/url/url-http.el @@ -892,7 +892,8 @@ should be shown to the user." (url-http-mark-connection-as-free (url-host url-current-object) (url-port url-current-object) url-http-process) - (url-http-debug "Activating callback in buffer (%s)" (buffer-name)) + (url-http-debug "Activating callback in buffer (%s): %S %S" + (buffer-name) url-callback-function url-callback-arguments) (apply url-callback-function url-callback-arguments)) ;; ) |