4729 |
(if append |
(if append |
4730 |
(nconc (symbol-value hook) (list function)) |
(nconc (symbol-value hook) (list function)) |
4731 |
(cons function (symbol-value hook))))))) |
(cons function (symbol-value hook))))))) |
4732 |
;;;_ : my-mark-marker to accomodate divergent emacsen: |
;;;_ : my-mark-marker to accommodate divergent emacsen: |
4733 |
(defun my-mark-marker (&optional force buffer) |
(defun my-mark-marker (&optional force buffer) |
4734 |
"Accomodate the different signature for mark-marker across emacsen. |
"Accommodate the different signature for mark-marker across emacsen. |
4735 |
|
|
4736 |
GNU XEmacs takes two optional args, while mainline GNU Emacs does not, |
GNU XEmacs takes two optional args, while mainline GNU Emacs does not, |
4737 |
so pass them along when appropriate." |
so pass them along when appropriate." |