procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; Fix my last commit

Browse source
This commit is contained in:
Stefan Kangas 2024-02-04 13:20:15 +01:00
parent 70c10204f0
commit a4587646fa
6 changed files with 11 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/erc/erc-compat.el
View file

@ -102,7 +102,7 @@ See `erc-encoding-coding-alist'."
(defun erc-set-write-file-functions (new-val)
(declare (obsolete nil "28.1"))
(setq-local 'write-file-functions new-val))
(setq-local write-file-functions new-val))
(defvar erc-emacs-build-time
(if (or (stringp emacs-build-time) (not emacs-build-time))

4
lisp/obsolete/iswitchb.el
View file

@ -370,7 +370,7 @@ See documentation of `walk-windows' for useful values."
This hook is run during minibuffer setup if `iswitchb' is active.
For instance:
\(add-hook \\='iswitchb-minibuffer-setup-hook
\\='\(lambda () (setq-local \\='max-mini-window-height 3)))
\\='\(lambda () (setq-local max-mini-window-height 3)))
will constrain the minibuffer to a maximum height of 3 lines when
iswitchb is running."
:type 'hook)
@ -1262,7 +1262,7 @@ Modified from `icomplete-completions'."
"Set up minibuffer for `iswitchb-buffer'.
Copied from `icomplete-minibuffer-setup-hook'."
(when (iswitchb-entryfn-p)
(setq-local 'iswitchb-use-mycompletion t)
(setq-local iswitchb-use-mycompletion t)
(add-hook 'pre-command-hook #'iswitchb-pre-command nil t)
(add-hook 'post-command-hook #'iswitchb-post-command nil t)
(run-hooks 'iswitchb-minibuffer-setup-hook)))

10
lisp/obsolete/longlines.el
View file

@ -116,14 +116,14 @@ newlines are indicated with a symbol."
;; Turn on longlines mode
(progn
(use-hard-newlines 1 'never)
(setq-local 'require-final-newline nil)
(setq-local require-final-newline nil)
(add-to-list 'buffer-file-format 'longlines)
(add-hook 'change-major-mode-hook #'longlines-mode-off nil t)
(add-hook 'before-revert-hook #'longlines-before-revert-hook nil t)
(make-local-variable 'longlines-auto-wrap)
(setq-local 'isearch-search-fun-function #'longlines-search-function)
(setq-local 'replace-search-function #'longlines-search-forward)
(setq-local 'replace-re-search-function #'longlines-re-search-forward)
(setq-local isearch-search-fun-function #'longlines-search-function)
(setq-local replace-search-function #'longlines-search-forward)
(setq-local replace-re-search-function #'longlines-re-search-forward)
(add-function :filter-return (local 'filter-buffer-substring-function)
#'longlines-encode-string)
(when longlines-wrap-follows-window-size
@ -133,7 +133,7 @@ newlines are indicated with a symbol."
(window-width)))
longlines-wrap-follows-window-size
2)))
(setq-local 'fill-column (- (window-width) dw)))
(setq-local fill-column (- (window-width) dw)))
(add-hook 'window-configuration-change-hook
#'longlines-window-change-function nil t))
(let ((buffer-undo-list t)

2
lisp/obsolete/rcompile.el
View file

@ -169,7 +169,7 @@ See \\[compile]."
;; compilation-parse-errors will find referenced files by Tramp.
(with-current-buffer next-error-last-buffer
(when (fboundp 'tramp-make-tramp-file-name)
(setq-local 'comint-file-name-prefix
(setq-local comint-file-name-prefix
(funcall
#'tramp-make-tramp-file-name
nil ;; method.

2
lisp/progmodes/cperl-mode.el
View file

@ -6557,7 +6557,7 @@ and \"Whitesmith\"."
(let ((option (car setting))
(value (cdr setting)))
(set (make-local-variable option) value)))
(setq-local 'cperl-file-style style))
(setq-local cperl-file-style style))
(declare-function Info-find-node "info"
(filename nodename &optional no-going-back strict-case

2
test/lisp/erc/erc-tests.el
View file

@ -1278,7 +1278,7 @@
(setq erc-server-current-nick "tester")
(setq-local erc-last-input-time 0)
(should-not (local-variable-if-set-p 'erc-send-completed-hook))
(setq-local 'erc-send-completed-hook nil) ; skip t (globals)
(setq-local erc-send-completed-hook nil) ; skip t (globals)
;; Just in case erc-ring-mode is already on
(setq-local erc--input-review-functions erc--input-review-functions)
(add-hook 'erc--input-review-functions #'erc-add-to-input-ring)