2275 |
If SYNTAX is nil, return nil." |
If SYNTAX is nil, return nil." |
2276 |
(and syntax (logand (car syntax) 65535))) |
(and syntax (logand (car syntax) 65535))) |
2277 |
|
|
2278 |
(defun add-to-invisibility-spec (arg) |
(defun add-to-invisibility-spec (element) |
2279 |
"Add elements to `buffer-invisibility-spec'. |
"Add ELEMENT to `buffer-invisibility-spec'. |
2280 |
See documentation for `buffer-invisibility-spec' for the kind of elements |
See documentation for `buffer-invisibility-spec' for the kind of elements |
2281 |
that can be added." |
that can be added." |
2282 |
(if (eq buffer-invisibility-spec t) |
(if (eq buffer-invisibility-spec t) |
2283 |
(setq buffer-invisibility-spec (list t))) |
(setq buffer-invisibility-spec (list t))) |
2284 |
(setq buffer-invisibility-spec |
(setq buffer-invisibility-spec |
2285 |
(cons arg buffer-invisibility-spec))) |
(cons element buffer-invisibility-spec))) |
2286 |
|
|
2287 |
(defun remove-from-invisibility-spec (arg) |
(defun remove-from-invisibility-spec (element) |
2288 |
"Remove elements from `buffer-invisibility-spec'." |
"Remove ELEMENT from `buffer-invisibility-spec'." |
2289 |
(if (consp buffer-invisibility-spec) |
(if (consp buffer-invisibility-spec) |
2290 |
(setq buffer-invisibility-spec (delete arg buffer-invisibility-spec)))) |
(setq buffer-invisibility-spec (delete element buffer-invisibility-spec)))) |
2291 |
|
|
2292 |
(defun global-set-key (key command) |
(defun global-set-key (key command) |
2293 |
"Give KEY a global binding as COMMAND. |
"Give KEY a global binding as COMMAND. |