Clean up the previous commit's code
This commit is contained in:
		
							
								
								
									
										7
									
								
								init.el
									
									
									
									
									
								
							
							
						
						
									
										7
									
								
								init.el
									
									
									
									
									
								
							@ -944,16 +944,15 @@ argument."
 | 
				
			|||||||
(use-package fricas
 | 
					(use-package fricas
 | 
				
			||||||
  :ensure nil
 | 
					  :ensure nil
 | 
				
			||||||
  :custom
 | 
					  :custom
 | 
				
			||||||
  (fricas-run-command "fricas -nosman")
 | 
					  (fricas-run-command "fricas -nox")
 | 
				
			||||||
  :init
 | 
					  :init
 | 
				
			||||||
  ;; Fix `fricas-mode' messing up `completion-at-point-functions'
 | 
					  ;; Fix `fricas-mode' messing up `completion-at-point-functions'
 | 
				
			||||||
  (advice-add #'fricas-mode :around
 | 
					  (advice-add #'fricas-mode :around
 | 
				
			||||||
              #'(lambda (oldfun &rest r)
 | 
					              #'(lambda (oldfun &rest r)
 | 
				
			||||||
                  (let ((temp-capfs))
 | 
					 | 
				
			||||||
                    (let ((completion-at-point-functions '(t)))
 | 
					                    (let ((completion-at-point-functions '(t)))
 | 
				
			||||||
                      (apply oldfun r)
 | 
					                      (apply oldfun r)
 | 
				
			||||||
                      (setq temp-capfs completion-at-point-functions))
 | 
					                      (setq-local completion-at-point-functions
 | 
				
			||||||
                    (setq-local completion-at-point-functions temp-capfs)))
 | 
					                                  completion-at-point-functions)))
 | 
				
			||||||
              '((name . "my/-fricas-fix-capfs")))
 | 
					              '((name . "my/-fricas-fix-capfs")))
 | 
				
			||||||
  :config
 | 
					  :config
 | 
				
			||||||
  (face-spec-set 'fricas-type-time '((t (:foreground unspecified
 | 
					  (face-spec-set 'fricas-type-time '((t (:foreground unspecified
 | 
				
			||||||
 | 
				
			|||||||
		Reference in New Issue
	
	Block a user