From 5a3859e6114e70fe8c393816a2381320b0357fb9 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 8 Nov 2005 01:46:37 +0000 Subject: (lisp-mode-variables): Don't set comment-indent-function. (lisp-comment-indent): Replace by an alias for comment-indent-default. --- lisp/emacs-lisp/lisp-mode.el | 16 +++------------- 1 file changed, 3 insertions(+), 13 deletions(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index b9a73218322..6dd5ffa217f 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -233,8 +233,6 @@ (setq comment-column 40) ;; Don't get confused by `;' in doc strings when paragraph-filling. (set (make-local-variable 'comment-use-global-state) t) - (make-local-variable 'comment-indent-function) - (setq comment-indent-function 'lisp-comment-indent) (make-local-variable 'imenu-generic-expression) (setq imenu-generic-expression lisp-imenu-generic-expression) (make-local-variable 'multibyte-syntax-as-symbol) @@ -746,17 +744,9 @@ which see." (unless (eq old-value new-value) (setq debug-on-error new-value)) value))))) - -;; Used for comment-indent-function in Lisp modes. -(defun lisp-comment-indent () - (if (looking-at "\\s<\\s<\\s<") - (current-column) - (if (looking-at "\\s<\\s<") - (let ((tem (or (calculate-lisp-indent) (current-column)))) - (if (listp tem) (car tem) tem)) - (skip-chars-backward " \t") - (max (if (bolp) 0 (1+ (current-column))) - comment-column)))) + +;; May still be used by some external Lisp-mode variant. +(define-obsolete-function-alias 'lisp-comment-indent 'comment-indent-default) ;; This function just forces a more costly detection of comments (using ;; parse-partial-sexp from beginning-of-defun). I.e. It avoids the problem of -- cgit v1.2.3 From 1e0888f5a6fb4808825c463fdcab621ea086cf88 Mon Sep 17 00:00:00 2001 From: Lars Hansen Date: Tue, 8 Nov 2005 20:24:19 +0000 Subject: (update-directory-autoloads): Add obsolete function alias. --- lisp/ChangeLog | 4 ++++ lisp/emacs-lisp/autoload.el | 3 +++ 2 files changed, 7 insertions(+) (limited to 'lisp/emacs-lisp') diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c1edb5d26de..9aa623acaa6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2005-11-08 Lars Hansen + * emacs-lisp/autoload.el (update-directory-autoloads): Add + obsolete function alias. + 2005-11-07 Stefan Monnier * emacs-lisp/lisp-mode.el (lisp-mode-variables): Don't set diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index b14a556e02d..ff795e6de77 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el @@ -568,6 +568,9 @@ directory or directories specified." (save-buffer)))) +(define-obsolete-function-alias 'update-autoloads-from-directories + 'update-directory-autoloads "22.1") + ;;;###autoload (defun batch-update-autoloads () "Update loaddefs.el autoloads in batch mode. -- cgit v1.2.3 From 156680e2dfb90f458c2b69024ba2c455d4ce5bb2 Mon Sep 17 00:00:00 2001 From: Luc Teirlinck Date: Mon, 14 Nov 2005 23:05:53 +0000 Subject: (define-derived-mode): Remove defvar for mode hook. (It conflicted with defcustoms for some mode hooks.) Use the `variable-documentation' property to give the mode hook a docstring and expand that docstring. --- lisp/emacs-lisp/derived.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/derived.el b/lisp/emacs-lisp/derived.el index 8e1f79f95ee..e595ff92a39 100644 --- a/lisp/emacs-lisp/derived.el +++ b/lisp/emacs-lisp/derived.el @@ -194,7 +194,12 @@ See Info node `(elisp)Derived Modes' for more details." parent child docstring syntax abbrev)) `(progn - (defvar ,hook nil ,(format "Hook run when entering %s mode." name)) + (unless (get ',hook 'variable-documentation) + (put ',hook 'variable-documentation + ,(format "Hook run when entering %s mode. +No problems result if this variable is not bound. +`add-hook' automatically binds it. (This is true for all hook variables.)" + name))) (defvar ,map (make-sparse-keymap)) ,(if declare-syntax `(defvar ,syntax (make-syntax-table))) -- cgit v1.2.3 From 9d8684ddf308d01abb226e0ef66a0d46578818ac Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 16 Nov 2005 22:20:03 +0000 Subject: (byte-optimize-form-code-walker): Improve warning message text. --- lisp/emacs-lisp/byte-opt.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp/emacs-lisp') diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el index 8711a05e2d9..b46366a94b9 100644 --- a/lisp/emacs-lisp/byte-opt.el +++ b/lisp/emacs-lisp/byte-opt.el @@ -545,7 +545,7 @@ (eq (car-safe (nth 2 last)) 'cdr) (eq (cadr (nth 2 last)) var)))) (progn - (byte-compile-warn "`%s' called for effect" + (byte-compile-warn "value returned by `%s' is not used" (prin1-to-string (car form))) nil))) (byte-compile-log " %s called for effect; deleted" fn) -- cgit v1.2.3