From 1ae088fba76c9021a0d9744e303b7e7a2386a6e6 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 6 Jan 2016 19:56:47 -0500 Subject: * lisp/emacs-lisp/autoload.el (autoload-find-destination): Avoid specifying the length of a time object (it has not been "2" for some time). --- lisp/emacs-lisp/autoload.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index f21f8d63206..eed72655d18 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -716,7 +716,7 @@ removes any prior now out-of-date autoload entries." ;; last-time is the time-stamp (specifying ;; the last time we looked at the file) and ;; the file hasn't been changed since. - (and (listp last-time) (= (length last-time) 2) + (and (listp last-time) (not (time-less-p last-time file-time))) ;; last-time is an MD5 checksum instead. (and (stringp last-time) -- cgit v1.2.3 From 76fe2d526e7d4257f8c8855084bf172065aea2d1 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Wed, 6 Jan 2016 20:36:46 -0500 Subject: * lisp/emacs-lisp/autoload.el (autoload-find-destination): Doc fix. --- lisp/emacs-lisp/autoload.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index eed72655d18..e688d6be725 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -682,8 +682,9 @@ Return FILE if there was no autoload cookie in it, else nil." (defun autoload-find-destination (file load-name) "Find the destination point of the current buffer's autoloads. FILE is the file name of the current buffer. +LOAD-NAME is the name as it appears in the output. Returns a buffer whose point is placed at the requested location. -Returns nil if the file's autoloads are uptodate, otherwise +Returns nil if the file's autoloads are up-to-date, otherwise removes any prior now out-of-date autoload entries." (catch 'up-to-date (let* ((buf (current-buffer)) -- cgit v1.2.3 From a0121bc7112f3d6ab76a67ba84cd80301cdc3581 Mon Sep 17 00:00:00 2001 From: Leo Liu Date: Thu, 7 Jan 2016 09:48:00 +0800 Subject: Revert commit b1e3d14845517bfa9fa5d6d3840f3ab3160306fd * lisp/emacs-lisp/easy-mmode.el (define-minor-mode): Don't declare (indent 1). --- lisp/emacs-lisp/easy-mmode.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index 5543e920c67..f29f64f0562 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el @@ -152,12 +152,11 @@ For example, you could write ...BODY CODE...)" (declare (doc-string 2) (debug (&define name string-or-null-p - [&optional [¬ keywordp] sexp - &optional [¬ keywordp] sexp - &optional [¬ keywordp] sexp] - [&rest [keywordp sexp]] - def-body)) - (indent 1)) + [&optional [¬ keywordp] sexp + &optional [¬ keywordp] sexp + &optional [¬ keywordp] sexp] + [&rest [keywordp sexp]] + def-body))) ;; Allow skipping the first three args. (cond -- cgit v1.2.3 From ce4a052415b70030ee591af3cb5bed0fb79ef3aa Mon Sep 17 00:00:00 2001 From: Leo Liu Date: Thu, 7 Jan 2016 11:00:52 +0800 Subject: Add defvar-local to lisp-imenu-generic-expression * lisp/emacs-lisp/lisp-mode.el (lisp-imenu-generic-expression): Add defvar-local. --- lisp/emacs-lisp/lisp-mode.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 574ecef0cde..cb8abde52ed 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -131,9 +131,10 @@ t)) "\\s-+\\(" lisp-mode-symbol-regexp "\\)")) 2) - ;; For `defvar', we ignore (defvar FOO) constructs. + ;; For `defvar'/`defvar-local', we ignore (defvar FOO) constructs. (list (purecopy "Variables") - (purecopy (concat "^\\s-*(defvar\\s-+\\(" lisp-mode-symbol-regexp "\\)" + (purecopy (concat "^\\s-*(defvar\\(?:-local\\)?\\s-+\\(" + lisp-mode-symbol-regexp "\\)" "[[:space:]\n]+[^)]")) 1) (list (purecopy "Types") -- cgit v1.2.3