# HG changeset patch # User Richard M. Stallman # Date 1114955863 0 # Node ID cb3d882b9349292d02ffda84111f210c436a371a # Parent 38ca28ee68d624c14c7d4bb8b64e1f71fcf5872c (add-to-invisibility-spec, remove-from-invisibility-spec): Rename ARG to ELEMENT. Doc fix. diff -r 38ca28ee68d6 -r cb3d882b9349 lisp/subr.el --- a/lisp/subr.el Sun May 01 13:43:20 2005 +0000 +++ b/lisp/subr.el Sun May 01 13:57:43 2005 +0000 @@ -2275,19 +2275,19 @@ 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.