You can remove this hook yourself using `remove-hook-list'.
See also `add-hook`, `remove-hook` and `add-one-shot-hook'."
- (mapc (lambda (hook)
+ (mapc (lambda (hook)
(add-hook hook function append local))
hook-list))
This makes the hook buffer-local if needed.
To make a hook variable buffer-local, always use
`make-local-hook', not `make-local-variable'."
- (mapc (lambda (hook)
+ (mapc (lambda (hook)
(remove-hook hook function local))
hook-list))
(if (member element (symbol-value list-var))
(symbol-value list-var)
(set list-var
- (if append
- (append (symbol-value list-var) (list element))
- (cons element (symbol-value list-var))))))
+ (if append
+ (append (symbol-value list-var) (list element))
+ (cons element (symbol-value list-var))))))
;; END SYNCHED WITH FSF 21.2
(with-current-buffer ,temp-buffer
,@forms)
(with-current-buffer ,temp-buffer
- (widen)
+ (widen)
(write-region (point-min) (point-max) ,temp-file nil 0)))
(and (buffer-name ,temp-buffer)
(kill-buffer ,temp-buffer))))))
; (declare (indent 0) (debug t))
; `(unwind-protect
; (let ((combine-after-change-calls t))
-; . ,body)
+; . ,body)
; (combine-after-change-execute)))
STRING should be given if the last search was by `string-match' on STRING."
(if (match-beginning num)
(if string
- (substring string (match-beginning num) (match-end num))
- (buffer-substring (match-beginning num) (match-end num)))))
+ (substring string (match-beginning num) (match-end num))
+ (buffer-substring (match-beginning num) (match-end num)))))
(defun match-string-no-properties (num &optional string)
"Return string of text matched by last search, without text properties.
invalid-read-syntax
invalid-regexp
structure-formation-error
- list-formation-error
- malformed-list
- malformed-property-list
- circular-list
- circular-property-list
+ list-formation-error
+ malformed-list
+ malformed-property-list
+ circular-list
+ circular-property-list
invalid-function
no-catch
undefined-keystroke-sequence
buffer-read-only
io-error
file-error
- file-already-exists
- file-locked
- file-supersession
- end-of-file
+ file-already-exists
+ file-locked
+ file-supersession
+ end-of-file
process-error
network-error
gui-error
- dialog-box-error
+ dialog-box-error
sound-error
conversion-error
- text-conversion-error
- image-conversion-error
- base64-conversion-error
- selection-conversion-error
+ text-conversion-error
+ image-conversion-error
+ base64-conversion-error
+ selection-conversion-error
arith-error
range-error
domain-error
(progn
(setq abbrev-table-name-list '())
(fset 'define-abbrev-table (function (lambda (name defs)
- ;; These are fixed-up when abbrev.el loads.
- (setq abbrev-table-name-list
- (cons (cons name defs)
- abbrev-table-name-list)))))))
+ ;; These are fixed-up when abbrev.el loads.
+ (setq abbrev-table-name-list
+ (cons (cons name defs)
+ abbrev-table-name-list)))))))
;;; `functionp' has been moved into C.
;; define-mail-user-agent is in simple.el.
-;; XEmacs; added.
+;; XEmacs; added.
(defun skip-chars-quote (string)
"Return a string that means all characters in STRING will be skipped,
if passed to `skip-chars-forward' or `skip-chars-backward'.