From 648d174d393745a73c0656653d8317c644acc60f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 1 May 2005 13:58:45 +0000 Subject: [PATCH] (add-to-invisibility-spec, remove-from-invisibility-spec): Rename ARG to ELEMENT. Doc fix. --- lisp/ChangeLog | 5 +++++ lisp/subr.el | 12 ++++++------ 2 files changed, 11 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0aec646afd0..bd943b52acd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -11,6 +11,11 @@ Remove aliases and obsolete declarations. Back out inadvertant changes from previous commit. +2005-05-01 Richard M. Stallman + + * subr.el (add-to-invisibility-spec, remove-from-invisibility-spec): + Rename ARG to ELEMENT. Doc fix. + 2005-05-01 Luc Teirlinck * files.el (require-final-newline): Make Custom tags consistent diff --git a/lisp/subr.el b/lisp/subr.el index 6418825aa44..6dcb7869f4e 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2275,19 +2275,19 @@ If POS is outside the buffer's accessible portion, return nil." If SYNTAX is nil, return nil." (and syntax (logand (car syntax) 65535))) -(defun add-to-invisibility-spec (arg) - "Add elements to `buffer-invisibility-spec'. +(defun add-to-invisibility-spec (element) + "Add ELEMENT to `buffer-invisibility-spec'. See documentation for `buffer-invisibility-spec' for the kind of elements that can be added." (if (eq buffer-invisibility-spec t) (setq buffer-invisibility-spec (list t))) (setq buffer-invisibility-spec - (cons arg buffer-invisibility-spec))) + (cons element buffer-invisibility-spec))) -(defun remove-from-invisibility-spec (arg) - "Remove elements from `buffer-invisibility-spec'." +(defun remove-from-invisibility-spec (element) + "Remove ELEMENT from `buffer-invisibility-spec'." (if (consp buffer-invisibility-spec) - (setq buffer-invisibility-spec (delete arg buffer-invisibility-spec)))) + (setq buffer-invisibility-spec (delete element buffer-invisibility-spec)))) (defun global-set-key (key command) "Give KEY a global binding as COMMAND. -- 2.39.2