southfox/Blog
1
0
Fork 0
mirror of https://github.com/SouthFox-D/SouthFox-D.github.io.git synced 2025-01-18 06:46:20 +01:00
Code Issues Projects Releases Packages Wiki Activity

[post] update emacs-everywhere post code

Browse source
This commit is contained in:
SouthFox 2025-01-02 11:47:17 +08:00
parent 04a16c2c61
commit a0d1215b72
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
source/_posts/2024/12/emacs-everywhere.md
View file

@ -104,7 +104,7 @@ Emacs 原生安卓版项目主页在（建议读读主页的描述文件的 FAQ
我现在的配置文件如下： 我现在的配置文件如下：
```lisp ```elisp
;; BASIC SETUP: ;; BASIC SETUP:
;; package setup - bootstrap the package system ;; package setup - bootstrap the package system
(require 'package) (require 'package)
@ -170,7 +170,7 @@ Emacs 原生安卓版项目主页在（建议读读主页的描述文件的 FAQ
completion-category-overrides '((file (styles partial-completion))))) completion-category-overrides '((file (styles partial-completion)))))
;; 使用工具栏来做一些特定操作 ;; 使用工具栏来做一些特定操作
(defun android-toggle-keyboard() (defun android-toggle-keyboard ()
(interactive) (interactive)
(if touch-screen-display-keyboard (if touch-screen-display-keyboard
(progn (progn
@ -187,7 +187,7 @@ Emacs 原生安卓版项目主页在（建议读读主页的描述文件的 FAQ
:help "Toggle keyboard") :help "Toggle keyboard")
(message "Enable virtual keyboard"))) (message "Enable virtual keyboard")))
(defun android-tool-bar-configs() (defun android-tool-bar-configs ()
(when (and (fboundp 'tool-bar-mode) (when (and (fboundp 'tool-bar-mode)
(string-equal system-type "android")) (string-equal system-type "android"))
(tool-bar-mode +1) (tool-bar-mode +1)